1 'MENU PROGRAM  VERSION 2.0
5 CMD"B","ON":CLEAR50:POKE16409,1:POKE16412,0:POKE16419,176:POKE16913,1:POKE16916,0
7 CLS:PRINTCHR$(23);:PRINT@1,CHR$(200);:IFPEEK(15361)=200THENIFPEEK(16912)AND8PRINTCHR$(21);:GOTO7ELSEPRINTCHR$(22)
8 PRINT@1,CHR$(200);:IFPEEK(15361)=200THENPRINTCHR$(21);:GOTO8
10 ON ERROR GOTO 200
20 CLS:PRINTCHR$(15):PRINT@28,"OPTIONS";
30 FORI=1TO9:READA$(I),B$(I):I$="    "+STR$(I):I$=RIGHT$(I$,3)+".":PRINT@80+I*64,I$"  "A$(I):D=D+1:NEXTI
40 GOTO205
200 RESUME205
205 ONERRORGOTO0
210 PRINT@976,CHR$(30);:PRINT@910,"Enter selection:"CHR$(30);:I$=INKEY$:CP=PEEK(16416)+PEEK(16417)*256:CU=32:OP=CP:C$=""
215 CU=168-CU:POKECP,CU
220 FORI=1TO10:I$=INKEY$:IFI$=""THENNEXT:GOTO215
230 IFI$<CHR$(48)ORI$>CHR$(57)GOTO215ELSEIFVAL(I$)>DGOTO215
235 ONERRORGOTO300
236 IFA$(VAL(I$))=""ORB$(VAL(I$))=""THEN205
240 PRINT@926,"   "A$(VAL(I$));:PRINT@976,"<<< Please  wait >>>";:RUNB$(VAL(I$))
300 RESTORE:RESUME205
