10 MODE7 20 CLEAR 30 PROCinit 40 REPEAT 50 MODE7 60 PROCtitle 70 : 80 RESTORE290 90 FORZ%=1TO8 100 READZ$ 110 PRINTTAB(5,Z%+7)Z%"."Z$ 120 NEXT 130 REPEAT 140 PROCcol(5,Z%+8,"Enter menu option:") 150 H%=(GET-48) 160 UNTILH%>0ANDH%0ANDC%(P%)<4 750 PRINTTAB(37,16)C%(P%) 760 PROCnext 770 UNTILG%=&1B 780 F%=TRUE:T%=P% 790 ENDPROC 800 : 810 DEFPROCnext 820 *FX21,0 830 *FX229,1 840 *FX4,1 850 PROCcol(5,18,"Next ......") 860 REPEAT 870 G%=GET 880 UNTILG%=&09ORG%=&1BORG%>&87 ANDG%<&90 890 *FX229,0 900 *FX4,0 910 IFG%=&09THENPROCn1 920 IFG%=&1BTHENP%=P% 930 IFG%=&88THENP%=P%-2 940 IFG%=&89THENP%=P% 950 P%=P%+1 960 IFP%<1THENP%=1:IFP%>100THENP%=100 970 ENDPROC 980 DEFPROCn1 990 *FX21,0 1000 REPEAT 1010 PROCcol(5,18,"Goto which card:") 1020 INPUTTAB(23,18)""P% 1030 UNTILP%>0ANDP%0ANDZ%<5 1790 IFZ%=4THENGOTO1850 1800 IFZ%=C%(P%)THENPRINTTAB(5,18)"‚Correct"ELSEPRINTTAB(5,18)"…Wrong" 1810 B%=B%+1 1820 IFZ%=C%(P%)THENA%=A%+1 1830 PROCspace 1840 NEXTP% 1850 PRINTTAB(4,18)"…You got ";A%;"‚correct…out of ";B%;TAB(4,19)"…questions." 1860 IFA%=B%THENPRINTTAB(3,20)"…ˆWell done 100%" 1870 PROCspace 1880 ENDPROC 1890 : 1900 DEFPROCspace 1910 VDU23;8202;0;0;0; 1920 PROCcol(5,22,"Press to continue.") 1930 REPEATUNTILINKEY(-99) 1940 *FX21,0 1950 ENDPROC 1960 : 1970 DEFPROCdelete 1980 PROCcol(5,Z%+10,"Are you sure?") 1990 Z$=GET$ 2000 IFZ$="Y"ORZ$="y"THENGOTO2010:ELSEENDPROC 2010 CLEAR 2020 RUN 2030 ENDPROC 2040 : 2050 DEFPROCprint 2060 REPEAT 2070 CLS 2080 PROCtitle 2090 PROCcol(5,8,"Print which card: (0 to quit) ") 2100 REPEAT:INPUTTAB(35,8)""P%:UNTILP%>-1ANDP%<100 2110 IFP%=0THENGOTO2250 2120 PROCprintercheck 2130 VDU2 2140 VDU1,27,1,77,1,27,1,71,1,27,1,48,1,27,1,87,1,1 2150 PRINTSTRING$(39,"=") 2160 PRINT"Card Number :"P% 2170 VDU1,27,1,87,1,0,1,27,1,50 2180 PRINT'"Question : "C$(0,P%) 2190 PRINT'"Optional Answers:" 2200 FORI%=1TO3:PRINTI%;") "C$(I%,P%):NEXTI% 2210 PRINT'"Correct Answer : Number "C%(P%) 2220 VDU1,27,1,77,1,27,1,71,1,27,1,48,1,27,1,87,1,1 2230 PRINTSTRING$(39,"=") 2240 VDU3 2250 UNTILP%=0 2260 ENDPROC 2270 : 2280 DEFPROCoscli 2290 LOCALX%,Y% 2300 CLS 2310 PROCtitle 2320 PRINTTAB(4,9)"…Do not use copying or compacting"TAB(4,10)"…commands as these will corrupt the"TAB(4,11)"…memory. Thank you" 2330 REPEAT 2340 INPUT'"*"O$ 2350 $&700=O$ 2360 X%=0:Y%=7:CALL&FFF7 2370 UNTILO$="" 2380 ENDPROC 2390 : 2400 DEFPROCprintercheck 2410 IF FNprintertest ENDPROC 2420 REPEAT:*FX15 2430 PROCcol(5,8,"Printer is not on line.") 2440 VDU7:X=INKEY(300) 2450 PRINTTAB(40,2)SPC(39) 2460 UNTIL FNprintertest:ENDPROC 2470 : 2480 DEF FNprintertest 2490 VDU2,1,32,1,127,3:X=INKEY(10) 2500 =(ADVAL(-4)=63)