8-Bit Software Online Conversion

Andrew York Menu - Listing

10TITLE$=CHR$(131)+"Main Menu" 20REM 30REM" MAIN MENU 40REM" By..... 50REM" Andrew York. 100: 110MODE7:VDU23,1,0;0;0;0;:*FX4,1 120ONERROR VDU7:PROCerr:END 130VDU26:VDU6:FORK%=0TO23:*FX200,1 140PRINTCHR$(132)+CHR$(157)+CHR$(131) 150NEXT:VDU28,3,23,39,0:*FX12,8 160BY$="Select a program from the menu " 170BYy$="or press 'F0' for info." 175*KEY0 *|M 180PRINTTAB(10,2);CHR$(141);TITLE$ 190PRINTTAB(10,3);CHR$(141);TITLE$ 200PRINT:PRINT:C=13:ON ERROR PROCerr 210A=0:REPEAT:READ A$,B$,C$,D:*FX20 220PRINTCHR$(131);A$;". ";B$:*FX11,32 230A=A+1:UNTIL A=C:A=0:REPEAT:B=10 240PRINTTAB(0,20)BY$;:PRINT'BYy$:A=0 250DATAA,Simple Data Base,DBASE,1 260DATAB,Info file on Data Base,DBAINF O,2 270DATAC,DFS Disc Utility Program,BSY, 1 280DATAD,A new font!,FONT,3 290DATAE,Teletext Editor,SCREDIT,1 300DATAF,Capitals Tester,CAPQUIZ,3 310DATAG,Times Table Tester,TABLES?,1 320DATAH,School Time Table Printer,SCH OPR,1 330DATAI,Time Simulator (DEMO),TIME,1 340DATAJ,Game Passwords,PassWo,4 350DATAK,Kids Jokes,JOKES,4 360DATAL,!Boot creator,CREBOO,1 370DATAM,A Picture,LOAD,1 380RESTORE:E$=GET$:A=0:REPEAT:READ A$, B$,C$,D 390A=A+1:IF E$=A$ THEN PROCrun 391IF E$="*" CHAIN"INFO" 400UNTIL A=C:GOTO380:END 410DEFPROCrun:REM *DRIVE0 420CLS:*FX15 430IF D=1 THEN PROCrunning:CHAIN C$ 440IF D=2 THEN VDU22,0:VDU23,1,0;0;0;0 ;:VDU14:$&900="TYPE "+C$:X%=0:Y%=9:CLS:P RINT'" Shift Scrolls The Text."':*FX200, 1 450IF D=2 THEN CALL&FFF7:VDU15:PROCspa ce:RUN 460IF D=3 THEN PROCrunning:PAGE=PAGE+& 600:CHAIN C$ 470IF D=4 THEN PROCcommand("KEY0*RUN " +C$+"|M"):PROCcommand("FX200,1"):PROCrun ning:VDU21:PROCcommand("FX138,0,128"):EN D 480DEFPROCcommand(COMMAND$) 490$&900=COMMAND$:X%=0:Y%=9:CLS:CALL&F FF7:ENDPROC 500DEFPROCspace 510PRINT 520PRINT" Please press space to contin ue" 530REPEAT:Z$=GET$:UNTIL Z$=" ":ENDPROC 540DEFPROCrunning 550PRINT'" Loading program : ";:*FX210 ,0 560PRINT"'";C$;"'":*FX200,0 570PRINTTAB(0,22);CHR$(136);"Please wa it";:VDU11 580ENDPROC 590DEFPROCerr:VDU6:*FX200,1 600CLS:VDU23,1,0;0;0;0;:*FX4,1 610PRINT:ONERROR OFF:VDU6 620REPORT:PRINT" at line ";ERL 630ON ERROR PROCerr 640PROCspace:RUN:ENDPROC