10 POKE55,0:POKE56,56:CLR
20 DV=PEEK(186):IFDV<8THENDV=8
30 POKE53280,0:POKE53281,0:PRINT"[147]"
40 SYS57812"FONT",DV,0:POKE780,0:POKE781,0:POKE782,56:SYS65493
50 POKE53272,31
52 SP$="                                       "
53 H$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
60 FORI=1TO5:READMN$(I):NEXT
70 DATA"   [207]PTION [207]NE    "
72 DATA"   [207]PTION [212]WO    "
74 DATA"   [207]PTION [212]HREE  "
76 DATA"   [207]PTION [198]OUR   "
78 DATA"   [209]UIT          "
80 POKE214,5:PRINT"[154]":TB=11:MY=1
90 FORI=1TO5:PRINTTAB(TB)MN$(I):NEXT
100 POKE214,4+MY:PRINT"[154]"
110 PRINTTAB(TB)""MN$(MY)"[145]"
120 GETA$:IFA$=""THEN120
130 PRINTTAB(TB)MN$(MY)
140 IFA$=CHR$(13)THEN180
150 IFA$="[145]"THENMY=MY-1:IFMY<1THENMY=5
160 IFA$=""THENMY=MY+1:IFMY>5THENMY=1
170 GOTO100
180 PRINT"[147]"
190 ONMYGOTO200,300,400,500,600
197 :
198 :REM OPTION 1
199 :
200 C=2:X=1:Y=1:XX=19:YY=3:GOSUB800
210 GOSUB900:GOTO80
297 :
298 :REM OPTION 2
299 :
300 C=3:X=11:Y=2:XX=19:YY=3:GOSUB800
310 GOSUB900:GOTO80
397 :
398 :REM OPTION 3
399 :
400 C=4:X=5:Y=11:XX=19:YY=3:GOSUB800
410 GOSUB900:GOTO80
497 :
498 :REM OPTION 4
499 :
500 C=5:X=17:Y=18:XX=19:YY=3:GOSUB800
510 GOSUB900:GOTO80
597 :
598 :REM QUIT
599 :
600 C=2:X=8:Y=9:XX=19:YY=3:GOSUB800
610 GOSUB900:GOTO80
797 :
798 :REM BOX SUBROUTINE
799 :
800 POKE646,C
810 POKE214,Y:PRINT
820 PRINTTAB(X)"[176]"LEFT$(H$,XX)"[174]"
830 FORI=1TOYY:PRINTTAB(X)"[221]"LEFT$(SP$,XX)"[221]":NEXT
840 PRINTTAB(X)"[173]"LEFT$(H$,XX)"[189]"
850 RETURN
897 :
898 :REM GET SUBROUTINE
899 :
900 POKE214,Y+2:PRINT:PRINTTAB(X+2)MN$(MY)
910 GETA$:IFA$=""THEN910
920 PRINT"[147]":RETURN
10000 D=PEEK(186):N$="B.PROGRAM":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END