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 PROCscreen 130 F%=OPENIN"!BOOT":PTR#F%=&9A:VDU31,7,0,BGET#F%,BGET#F%,BGET#F%,31,23,7:CLOSE#F% 140 M%=115:REM Not used in this menu 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" 190 IFR%=102:R$="News" 200 IFR%=103:R$="Mess" 210 IFR%=104:R$="Cheats" 220 IFR%=105:R$="Account" 230 IFR%=106:R$="wasityu" 240 IFR%=107:R$="hrdwire" 250 IFR%=108:R$="re-ink" 260 IFR%=109:R$="sprinst" 270 IFR%=110:R$="uu" 280 IFR%=111:R$="tilexp" 290 IFR%=112:R$="utilinf" 300 IFR%=113:R$="" 310 IFR%=777:OSCLI"DIR Extra":CHAIN"Extramenu" 320 IFR%=888:PROCsoftmenu(13):RUN 330 IFR%=999:PROCsoftmenu(0):RUN 340 UNTILR%<114ANDR%>100:REM **** ADFS ADD R$="MAG."+R$ 350 IFI$="P"IFR%<=M%:$&A00=R$:Z%=1:CHAIN"7TO3":REM **** ADFS= CH."MAG.7TO3" 360 IFI$="P"IFR%>M%:Z%=1:MODE128:PROCmo3text 370 IFI$="A"IFR%<=M%:$&A00=R$:Z%=0:CHAIN"7TO3":REM**** ADFS= CH."MAG.7TO3" 380 IFI$=""IFR%<=M%OSCLI R$ 390 IFI$=""IFR%>M%:Z%=0:MODE128:PROCmo3text 400 UNTILFALSE 410 DEFPROCmo3text 420 IFZ%=2:PRINT'''TAB(20)"Prepare your printer and press a key please."''':REPEATUNTILGET:VDU2 ELSE PRINT'''TAB(20)"Press shift to scroll text.":VDU14 430 OSCLI"TYPE "+R$ 440 VDU3,15:PRINT'''TAB(20)"Output complete"''TAB(20)"Please press a key to return to main menu.":REPEATUNTILGET 450 ENDPROC 460 DEFPROCsoftmenu(D%) 470 IF D%=0 PROCgscreen1 480 IF D%=13PROCgscreen2 490 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 500 IF C%=22:C%=9 510 UNTILASCA$=13:C%=C%-8:IFC%=1ENDPROC 520 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" 530 IFL$<>"" OSCLI"DR.2":CHAINL$:REM **** ADFS= REMOVE OSCLI "DR.2" 540 ENDPROC 550 DEFPROCscreen 560 PRINT" I.D.*** "; 570 PRINT"ISSUE NUMBER 23"; 580 PRINT" ꠰ "; 590 PRINT"뢡 ꡵ꮃNOV 1992"; 600 PRINT" "; 610 PRINT" P-print A-mode 3 "; 620 PRINT" Enter item code.]^^^^ "; 630 PRINT" 101.....About this issue...... "; 640 PRINT" 102......News and views....... "; 650 PRINT" 103.....Messages and ads...... "; 660 PRINT" 104.....More about cheats..... "; 670 PRINT" 105.....Issue 23 accounts..... "; 680 PRINT" 106.......Was that you?....... "; 690 PRINT" 107.....Hardwire ROM/RAM ..... "; 700 PRINT" 108.....Back to re-inking..... "; 710 PRINT" 109.......Spirals info........ "; 720 PRINT" 110......Messages to you...... "; 730 PRINT" 111.....Tiles and Plot 133.... "; 740 PRINT" 112...Utilities program info.. "; 750 PRINT" ........................... "; 760 PRINT" 777.....ADFS extra.NOT DFS.Menu "; 770 PRINT" 888.......Graphics/sound...Menu "; 780 PRINT" 999..........Utilities.....Menu "; 790 PRINT""; 800 ENDPROC 810 DEFPROCgscreen1:VDU30 820 PRINT" Utilities "; 830 PRINT" ISSUE 23 "; 840 PRINT" ꠰ "; 850 PRINT" 뢡 ꡵ꮂNOV 92 "; 860 PRINT" "; 870 PRINT" "; 880 PRINT" USE SPACE AND RETURN TO CHOOSE "; 890 PRINT" USE SPACE AND RETURN TO CHOOSE "; 900 PRINT" "; 910 PRINT" Return to main menu. "; 920 PRINT" Return to main menu. "; 930 PRINT" Short utilities. "; 940 PRINT" Calendar printer. "; 950 PRINT" Interword converter. "; 960 PRINT" Tax and insurance info. "; 970 PRINT" Basic program reader. "; 980 PRINT" Rolling cursor. "; 990 PRINT" Weights and measures convert. "; 1000 PRINT" ADFS menu system. "; 1010 PRINT" Disassembler. "; 1020 PRINT" Convert a file to ASCII. "; 1030 PRINT" List variables. "; 1040 PRINT" "; 1050 PRINT" "; 1060 ENDPROC 1070 DEFPROCgscreen2:VDU30 1080 PRINT" Pics+sound"; 1090 PRINT" ISSUE 23 "; 1100 PRINT" ꠰ "; 1110 PRINT" 뢡 ꡵ꮂNOV 92 "; 1120 PRINT" "; 1130 PRINT" "; 1140 PRINT" USE SPACE AND RETURN TO CHOOSE "; 1150 PRINT" USE SPACE AND RETURN TO CHOOSE "; 1160 PRINT" "; 1170 PRINT" Return to main menu. "; 1180 PRINT" Return to main menu. "; 1190 PRINT" Presenting Poland. Part 2. "; 1200 PRINT" Christmas carols from Poland. "; 1210 PRINT" The Union Jack. Not Model B. "; 1220 PRINT" The Union Jack. Screen. "; 1230 PRINT" Fancy letters and boxes. "; 1240 PRINT" Spirals. Graphics. "; 1250 PRINT" Laugh. Sound sample. "; 1260 PRINT" Satellite picture. "; 1270 PRINT" Return to main menu. "; 1280 PRINT" Return to main menu. "; 1290 PRINT" "; 1300 PRINT" "; 1310 PRINT" "; 1320 ENDPROC 1330 DATA"MENU","",utils,monthpl,InterRd,tax+ins,basread,cursor,convrs2,adfsmen,dism,7to3,vlistex,MENU,"",P.Poland2,M.koledy,u-jack,S.u-jscr,lettbox,spiral,S.samp,S.scr1,"","",""