SCRIPT   

DEFINE USER_SELECTION
DEFINE DUMMY                 ;VARIABLE USED IN KEYSTROKE PROCEDURE

TOP:
CLEAR SCREEN
PRINTE
PRINTE 'Welcome to The SECRET SERVICE!!!'
PRINTE
PRINTE '\{8\}0 Column Ascii'
PRINTE '\{4\}0 Column Ascii'
PRINTE '\{A\}NSI Color Graphics'
PRINTE '\{C\}ommodore 64 Graphics'
PRINTE '\{V\}T-52 Color Graphics'
PRINTE
PRINT  'Enter Selection: '
INPUT USER_SELECTION 1 NORETURN
IF USER_SELECTION='8' THEN
GOTO 80_COLUMN_ASCII
EF USER_SELECTION='4' THEN
GOTO 40_COLUMN_ASCII
EF USER_SELECTION='A' THEN
GOTO ANSI
EF USER_SELECTION='C' THEN
GOTO COMMODORE
EF USER_SELECTION='V' THEN
GOTO VT52
ELSE
GOTO TOP
ENDIF

80_COLUMN_ASCII:
CLEAR SCREEN
PRINTE
VIEW ('C:\MENUS_80\80_COLS.TXT')
PRINTE
GOSUB KEYSTROKE
EXIT

40_COLUMN_ASCII:
CLEAR SCREEN
PRINTE
VIEW ('C:\MENUS_40\40_COLS.TXT')
PRINTE
GOSUB KEYSTROKE
EXIT

ANSI:
CLEAR SCREEN
PRINTE
CLOSE
OPEN ('VIEWFILE.DAT',OUTPUT)    ;CREAT A BLACK FILE CALLED VIEWFILE.DAT
FPRINTE 'C:\MENUS_80\ANSI.TXT'  ;WRITES THE PATH OF MY ANSI SCREEN IN
CLOSE                           ;THE FILE CALLED VIEWFILE.DAT
TOS 'C:\VIEWFILE.TOS'           ; LOAD THE VIEWFILE PRG THAT VIEWS IT
PRINTE
GOSUB KEYSTROKE
EXIT

COMMODORE:
CLEAR SCREEN
PRINTE
CLOSE
OPEN ('VIEWFILE.DAT',OUTPUT)        ;LOOK UP ABOVE FOR DETAILS!!!
FPRINTE 'C:\MENUS_80\COMMODOR.TXT'
CLOSE
TOS 'C:\VIEWFILE.TOS'
PRINTE
GOSUB KEYSTROKE
EXIT

VT52:
CLEAR SCREEN
PRINTE
CLOSE
OPEN ('VIEWFILE.DAT',OUTPUT)
FPRINTE 'C:\MENUS_80\VT52.TXT'
CLOSE
TOS 'C:\VIEWFILE.TOS'
PRINTE
GOSUB KEYSTROKE
EXIT

KEYSTROKE:          ;RETURNS NO MATTER WHAT THEY HIT!!!!!!!
PRINT  'Hit any key to continue...' CENTER
DUMMY=GET_KEY
IF DUMMY='Z' THEN
RETURN
ELSE
RETURN
ENDIF

