10 REM" [0x16] [0x07] [0x0E] 20 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] 8 Bit software menu. 30 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] 8 Bit software menu. 40 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] This v. By C.J.Richardson. 50 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] This v. By C.J.Richardson. 60 REM" [0x08] [0x08] [0x08] [0x08] [0x08] [0x08] ------------------------------ 70 DEFFNS="MENU" 80 ONERROR IFERR=17:CLOSE#0:CLS:END ELSE CLOSE#0:CLS:REPORT:PRINTERL:PRINT"PRESS A KEY":REPEATUNTILGET 90 *TV255 100 MODE7:VDU23;8202;0;0;0; 110 *FX4,2 120 PROCscr 130 F%=OPENIN"!BOOT":PTR#F%=&9A:VDU31,7,0,BGET#F%,BGET#F%,BGET#F%,31,23,7:CLOSE#F% 140 M%=112:REM First ASCII article 150 REPEAT:REPEAT 160 PRINTTAB(23,6)"____";SPC10:I$="":INPUTTAB(23,6)R$:IFLENR$=4:I$=LEFT$(R$,1):R$=RIGHT$(R$,3) 170 R%=VALR$ 180 IFR%=101:R$="this":OSCLI"K.10*LO.thi2|M?&1974=?&80:?&1981=?&81:CALL&1904|M":?&80=&C6:?&81=&D6:IF I$<>""ANDI$<>"C"PRINTTAB(0,7):PROCprt("Part 1 or part 2? 1/2"):IFGET$="2"R$="thi2" 190 IFR%=102:R$="news" 200 IFR%=103:R$="mess" 210 IFR%=104:R$="uu" 220 IFR%=105:R$="tonk" 230 IFR%=106:R$="wesabin" 240 IFR%=107:R$="Pres4" 250 IFR%=108:R$="utilinf" 260 IFR%=109:R$="soliad" 270 IFR%=110:R$="amxtext" 280 IFR%=111:R$="late" 290 IFR%=112:R$="JokerD" 300 IFR%=113:R$="Muscles" 310 REM ADFS IFR%=777:OSCLI"DIR Extra":CHAIN"Extramenu" 320 IFR%=888:PROCmenu(13):RUN 330 IFR%=999:PROCmenu(0):RUN 340 UNTILR%<114ANDR%>100:REM **** ADFS ADD R$="MAG."+R$ 350 IFI$="P"IFR%=M%:Z%=2:MODE 3:PROCmo3 370 IFI$="A"IFR%=M%:Z%=0:MODE 3:PROCmo3 410 UNTILFALSE 420 DEFPROCmo3:ONERROR VDU3:RUN 430 IFZ%=2:PRINT'''TAB(20)"Prepare your printer and press a key please."''':REPEATUNTILGET:VDU2 ELSE PRINT'''TAB(25)"Press shift to scroll text.":VDU14 440 OSCLI"TYPE "+R$ 450 VDU3,15:PRINT'''TAB(35)"Output complete"''TAB(20)"Please press a key to return to main menu.":REPEATUNTILGET:Z%=0:RUN 460 ENDPROC 470 DEFPROCchn 480 PROCprt("Change keys for up and down scroll.") 490 ?&80=0:?&80=FNgt("up"):?&81=FNgt("down") 500 OSCLI"K.0*LO."+R$+" 1900|M?&1974=?&80:?&1981=?&81|MCALL&1904|M" 510 *FX21 520 *FX138 0 128 530 END:ENDPROC 540 DEFFNgt(A$):PROCprt("Press the new "+A$+" key please."):REPEAT:A%=&7A:!&70=USR(&FFF4):B%=255-(?&71):UNTILB%<>0 AND B%<>182 AND B%<>?&80:=B% 550 DEFPROCmenu(D%) 560 IF D%=0 PROCsc1 570 IF D%=13PROCsc2 580 C%=9:REPEAT:PRINTTAB(4,C%);"";TAB(36,C%);"";:REPEAT:A$=GET$:UNTILA$=" "OR ASCA$=13:PRINTTAB(4,C%);" ";TAB(36,C%);" ";:IFA$=" "C%=C%+1 590 IF C%=22:C%=9 600 UNTILASCA$=13:C%=C%-8:IFC%=1ENDPROC 610 RESTORE:C%=C%+D%:REPEAT:READ L$:C%=C%-1:UNTILC%=0:C%=INSTR(L$,"."):IFC%>0 OSCLI"DIR "+LEFT$(L$,C%-1):L$=MID$(L$,C%+1):REM **** ADFS= OSCLI"DIR $.SOFTWARE."+LEFT$(L$,C%-1):L$=MID$(L$,C%+1) ELSE OSCLI"DIR $.SOFTWARE" 620 IFL$<>"" OSCLI"DR.2":CHAINL$:REM **** ADFS= REMOVE OSCLI "DR.2" 630 DEFPROCprt(A$):A$=A$+STRING$(LENA$MOD2," "):FORL%=1TOLENA$:PRINTTAB(18-L%/2);"";LEFT$(A$,L%/2);RIGHT$(A$,L%/2);TAB(18-L%/2);"";LEFT$(A$,L%/2);RIGHT$(A$,L%/2):VDU11,11:NEXT:VDU10,10:ENDPROC 640 ENDPROC 650 DEFPROCscr 660 PRINT" I.D.*** "; 670 PRINT" Issue 25 "; 680 PRINT" ꠰ "; 690 PRINT"뢡 ꡵ꮃFeb 1993"; 700 PRINT" "; 710 PRINT" P-print A-mode 3 C-change keys "; 720 PRINT" Enter item code.]^^^^ "; 730 PRINT" 101......About this issue..... "; 740 PRINT" 102.......News and views...... "; 750 PRINT" 103......Messages and ads..... "; 760 PRINT" 104......Messages to you...... "; 770 PRINT" 105Tonkins computer dictionary "; 780 PRINT" 106.......Please recycle...... "; 790 PRINT" 107Presenting programs part 4. "; 800 PRINT" 108.DBase, Selftes, Copy Info. "; 810 PRINT" 109......Info on SOLINET...... "; 820 PRINT" 110....Info for AMX viewer.... "; 830 PRINT" 111......Late submissions..... "; 840 PRINT" 112.........Joker info.....Mode3"; 850 PRINT" 113.......Weight training..Mode3"; 860 PRINT" 777.....ADFS extra.NOT DFS.Menu "; 870 PRINT" 888. .....Games and demos..Menu "; 880 PRINT" 999..........Utilities.....Menu "; 890 PRINT""; 900 ENDPROC 910 DEFPROCsc1:VDU30 920 PRINT" Utilities "; 930 PRINT" ISSUE 25 "; 940 PRINT" ꠰ "; 950 PRINT" 뢡 ꡵ꮂFEB 93 "; 960 PRINT" "; 970 PRINT" "; 980 PRINT" USE SPACE AND RETURN TO CHOOSE "; 990 PRINT" USE SPACE AND RETURN TO CHOOSE "; 1000 PRINT" "; 1010 PRINT" Return to main menu. "; 1020 PRINT" Database. "; 1030 PRINT" Test/revision database. "; 1040 PRINT" Basic program reader. "; 1050 PRINT" Press the spacebar. "; 1060 PRINT" Program presentation example1 "; 1070 PRINT" Program presentation example2 "; 1080 PRINT" Program presentation example3 "; 1090 PRINT" Program presentation example4 "; 1100 PRINT" Big Ben. "; 1110 PRINT" AMX view. "; 1120 PRINT" Tape backup. "; 1130 PRINT" Catalogues. "; 1140 PRINT" "; 1150 PRINT" "; 1160 ENDPROC 1170 DEFPROCsc2:VDU30 1180 PRINT" GameNdemo "; 1190 PRINT" ISSUE 25 "; 1200 PRINT" ꠰ "; 1210 PRINT" 뢡 ꡵ꮂFEB 93 "; 1220 PRINT" "; 1230 PRINT" "; 1240 PRINT" USE SPACE AND RETURN TO CHOOSE "; 1250 PRINT" USE SPACE AND RETURN TO CHOOSE "; 1260 PRINT" "; 1270 PRINT" Return to main menu. "; 1280 PRINT" Return to main menu. "; 1290 PRINT" All Fall Down Game. "; 1300 PRINT" Joker. "; 1310 PRINT" Animation demo. "; 1320 PRINT" Shapes demo. "; 1330 PRINT" Life. "; 1340 PRINT" Cosine graph 1. "; 1350 PRINT" Cosine graph 2. "; 1360 PRINT" Sample. "; 1370 PRINT" Wordsearch. "; 1380 PRINT" Return to main menu. "; 1390 PRINT" Return to main menu. "; 1400 PRINT" "; 1410 PRINT" "; 1420 ENDPROC 1430 DATA"MENU","DBase","selftes","listbas","space","dirctc1","dirctc2","dirctc3","dirctc4","bigben","amxview","Tcopy","ofcats","MENU","","fall","joker","anim","shapes","hexlife","trig1","trig2","rh1run","pr600-2","",""