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%=111: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$="mess1":OSCLI"K.10*LO.mess2|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$="mess2" 210 IFR%=104:R$="uu" 220 IFR%=105:R$="Reactor" 230 IFR%=106:R$="Size12s" 240 IFR%=107:R$="OfBatt" 250 IFR%=108:R$="OfSound" 260 IFR%=109:R$="suprev" 270 IFR%=110:R$="RatQinf" 280 IFR%=111:R$="FromDG" 290 IFR%=112:R$="Arch4" 300 IFR%=113:R$="PresP" 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 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 27 "; 680 PRINT" ꠰ "; 690 PRINT"뢡 ꡵ꮃMay 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" 105.....Program feedback...... "; 780 PRINT" 106....Heavy boots again?..... "; 790 PRINT" 107...Master battery backup... "; 800 PRINT" 108.......Sound Control....... "; 810 PRINT" 109......Supreme review....... "; 820 PRINT" 110.Rating questionnaire info. "; 830 PRINT" 111......From D.Shimmin....ASCII"; 840 PRINT" 112...The Archimedes DebateASCII"; 850 PRINT" 113...Presenting Programs 5ASCII"; 860 PRINT" 777...ADFS extra.NOT DFS...Menu "; 870 PRINT" 888..Games/Graphics/sound..Menu "; 880 PRINT" 999.......Utilities........Menu "; 890 PRINT""; 900 ENDPROC 910 DEFPROCsc1:VDU30 920 PRINT" Utilities "; 930 PRINT" ISSUE 23 "; 940 PRINT" ꠰ "; 950 PRINT" 뢡 ꡵ꮂMay 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. "; 1030 PRINT" Line number removal "; 1040 PRINT" Random in machine code "; 1050 PRINT" Elbow the ADFS 'E' attribute "; 1060 PRINT" Sort "; 1070 PRINT" Wapping editor viewer "; 1080 PRINT" Pagemaker/clip art viewer "; 1090 PRINT" Presenting programs Ex. 1 "; 1100 PRINT" Presenting programs Ex. 2 "; 1110 PRINT" Presenting programs Ex. 3 "; 1120 PRINT" Presenting programs Ex. 4 "; 1130 PRINT" Cut "; 1135 PRINT" Paste "; 1140 PRINT" "; 1150 PRINT" "; 1160 ENDPROC 1170 DEFPROCsc2:VDU30 1180 PRINT" Games + "; 1190 PRINT" ISSUE 23 "; 1200 PRINT" ꠰ "; 1210 PRINT" 뢡 ꡵ꮂMay 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" Lightpen Menu "; 1290 PRINT" Supreme "; 1300 PRINT" Comic Strip "; 1310 PRINT" Music Collection "; 1320 PRINT" Pictures "; 1330 PRINT" Can Can "; 1340 PRINT" Time Tutor "; 1350 PRINT" Review database "; 1360 PRINT" One liner from 15A "; 1370 PRINT" Test Cards "; 1380 PRINT" Return to main menu. "; 1390 PRINT" Return to main menu. "; 1400 PRINT" "; 1410 PRINT" "; 1420 ENDPROC 1430 DATAMENU,LineOut,AssRnd,Eoff!,Sort,W.Viewer,P.Viewer,F.Step1,F.Step2,F.Step3,F.Step4,Cut,Paste,MENU,LpenMen,Supreme,ComicSt,Warring,PicLoad,CanCan,Time,RatQ,WordPrc,Cards,"",""