8-Bit Software Online Conversion
:0.$.MENU - Listing
10REM"
20REM"
40REM"
60REM" -----------------------------
-
70DEFFNS="MENU"
80ONERROR IFERR=17:CLOSE#0:CLS:END EL
SE CLOSE#0:CLS:REPORT:PRINTERL:PRINT"PRE
SS A KEY":REPEATUNTILGET
90*TV255
100MODE7:VDU23;8202;0;0;0;
110*FX4,2
120PROCscreen
130F%=OPENIN"!BOOT":PTR#F%=&9A:VDU31,7
,0,BGET#F%,BGET#F%,BGET#F%,31,23,7:CLOSE
#F%
140M%=115:REM Not used in this menu
150REPEAT:REPEAT
160PRINTTAB(23,6)"````";SPC10:I$="":IN
PUTTAB(23,6)R$:IFLENR$=4:I$=LEFT$(R$,1):
R$=RIGHT$(R$,3)
170R%=VALR$
180IFR%=101:R$="This"
190IFR%=102:R$="News"
200IFR%=103:R$="Mess"
210IFR%=104:R$="Cheats"
220IFR%=105:R$="Account"
230IFR%=106:R$="wasityu"
240IFR%=107:R$="hrdwire"
250IFR%=108:R$="re-ink"
260IFR%=109:R$="sprinst"
270IFR%=110:R$="uu"
280IFR%=111:R$="tilexp"
290IFR%=112:R$="utilinf"
300IFR%=113:R$=""
310IFR%=777:OSCLI"DIR Extra":CHAIN"Ext
ramenu"
320IFR%=888:PROCsoftmenu(13):RUN
330IFR%=999:PROCsoftmenu(0):RUN
340UNTILR%<114ANDR%>100:REM **** ADFS
ADD R$="MAG."+R$
350IFI$="P"IFR%<=M%:$&A00=R$:Z%=1:CHAI
N"7TO3":REM **** ADFS= CH."MAG.7TO3"
360IFI$="P"IFR%>M%:Z%=1:MODE128:PROCmo
3text
370IFI$="A"IFR%<=M%:$&A00=R$:Z%=0:CHAI
N"7TO3":REM**** ADFS= CH."MAG.7TO3"
380IFI$=""IFR%<=M%OSCLI R$
390IFI$=""IFR%>M%:Z%=0:MODE128:PROCmo3
text
400UNTILFALSE
410DEFPROCmo3text
420IFZ%=2:PRINT'''TAB(20)"Prepare your
printer and press a key please."''':REP
EATUNTILGET:VDU2 ELSE PRINT'''TAB(20)"Pr
ess shift to scroll text.":VDU14
430OSCLI"TYPE "+R$
440VDU3,15:PRINT'''TAB(20)"Output comp
lete"''TAB(20)"Please press a key to ret
urn to main menu.":REPEATUNTILGET
450ENDPROC
460DEFPROCsoftmenu(D%)
470IF D%=0 PROCgscreen1
480IF D%=13PROCgscreen2
490C%=9:REPEAT:PRINTTAB(4,C%);" ";TA
B(36,C%);" ";:REPEAT:A$=GET$:UNTILA$=" "
OR ASCA$=13:PRINTTAB(4,C%);" ";TAB(36,
C%);" ";:IFA$=" "C%=C%+1
500IF C%=22:C%=9
510UNTILASCA$=13:C%=C%-8:IFC%=1ENDPROC
520RESTORE:C%=C%+D%:REPEAT:READ L$:C%=
C%-1:UNTILC%=0:C%=INSTR(L$,"."):IFC%>0 O
SCLI"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 OS
CLI"DIR $.SOFTWARE"
530IFL$<>"" OSCLI"DR.2":CHAINL$:REM **
** ADFS= REMOVE OSCLI "DR.2"
540ENDPROC
550DEFPROCscreen
560PRINT" I.D. ***
//////////¶";
570PRINT" ISSUE
NUMBER 23
580PRINT"
590PRINT"
NOV 1992
600PRINT"
610PRINT" P-print A-mode 3
620PRINT" Enter item code. ] ^^^^
630PRINT" 101 .....About this issue
......
640PRINT" 102 ......News and views.
......
650PRINT" 103 .....Messages and ads
......
660PRINT" 104 .....More about cheat
s.....
670PRINT" 105 .....Issue 23 account
s.....
680PRINT" 106 .......Was that you?.
......
690PRINT" 107 .....Hardwire ROM/RAM
.....
700PRINT" 108 .....Back to re-inkin
g.....
710PRINT" 109 .......Spirals info..
......
720PRINT" 110 ......Messages to you
......
730PRINT" 111 .....Tiles and Plot 1
33....
740PRINT" 112 ...Utilities program
info..
750PRINT" .....................
......
760PRINT" 777 .....ADFS extra.NOT D
FS. Menu
770PRINT" 888 .......Graphics/sound
... Menu
780PRINT" 999 ..........Utilities..
... Menu
790PRINT"
||||||||||¶";
800ENDPROC
810DEFPROCgscreen1:VDU30
820PRINT" Utilities
//////////¶";
830PRINT" IS
SUE 23
840PRINT"
p
850PRINT"
. NOV 92
860PRINT"
£
870PRINT"
880PRINT"
890PRINT"
900PRINT"
910PRINT"
920PRINT"
930PRINT" Short utilities
.
940PRINT" Calendar printer
.
950PRINT" Interword convert
er.
960PRINT" Tax and insurance i
nfo.
970PRINT" Basic program read
er.
980PRINT" Rolling cursor.
990PRINT" Weights and measures c
onvert.
1000PRINT" ADFS menu system
.
1010PRINT" Disassembler.
1020PRINT" Convert a file to A
SCII.
1030PRINT" List variables.
1040PRINT"
1050PRINT"
||||||||||¶";
1060ENDPROC
1070DEFPROCgscreen2:VDU30
1080PRINT" Pics+sound
//////////¶";
1090PRINT" IS
SUE 23
1100PRINT"
p
1110PRINT"
. NOV 92
1120PRINT"
£
1130PRINT"
1140PRINT"
1150PRINT"
1160PRINT"
1170PRINT"
1180PRINT"
1190PRINT" Presenting Poland. Pa
rt 2.
1200PRINT" Christmas carols from
Poland.
1210PRINT" The Union Jack. Not M
odel B.
1220PRINT" The Union Jack. Scr
een.
1230PRINT" Fancy letters and bo
xes.
1240PRINT" Spirals. Graphics
.
1250PRINT" Laugh. Sound sampl
e.
1260PRINT" Satellite picture
.
1270PRINT"
1280PRINT"
1290PRINT"
1300PRINT"
1310PRINT"
||||||||||¶";
1320ENDPROC
1330DATA"MENU","",utils,monthpl,InterRd
,tax+ins,basread,cursor,convrs2,adfsmen,
dism,7to3,vlistex,MENU,"",P.Poland2,M.ko
ledy,u-jack,S.u-jscr,lettbox,spiral,S.sa
mp,S.scr1,"","",""