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
120PROCscr
130F%=OPENIN"!BOOT":PTR#F%=&9A:VDU31,7
,0,BGET#F%,BGET#F%,BGET#F%,31,23,7:CLOSE
#F%
140M%=111:REM First ASCII article
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":OSCLI"K.10*LO.th
i2|M?&1974=?&80:?&1981=?&81:CALL&1904|M"
:?&80=&C6:?&81=&D6:IF I$<>""ANDI$<>"C"PR
INTTAB(0,7):PROCprt("Part 1 or part 2? 1
/2"):IFGET$="2"R$="thi2"
190IFR%=102:R$="news"
200IFR%=103:R$="mess1":OSCLI"K.10*LO.m
ess2|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"
210IFR%=104:R$="uu"
220IFR%=105:R$="Reactor"
230IFR%=106:R$="Size12s"
240IFR%=107:R$="OfBatt"
250IFR%=108:R$="OfSound"
260IFR%=109:R$="suprev"
270IFR%=110:R$="RatQinf"
280IFR%=111:R$="FromDG"
290IFR%=112:R$="Arch4"
300IFR%=113:R$="PresP"
310REM ADFS IFR%=777:OSCLI"DIR Extra":
CHAIN"Extramenu"
320IFR%=888:PROCmenu(13):RUN
330IFR%=999:PROCmenu(0):RUN
340UNTILR%<114ANDR%>100:REM **** ADFS
ADD R$="MAG."+R$
350IFI$="P"IFR%<M%:$&A00=R$:Z%=1:CHAIN
"7TO3":REM **** ADFS= CH."MAG.7TO3"
360IFI$="P"IFR%>=M%:Z%=2:MODE 3:PROCmo
3
370IFI$="A"IFR%<M%:$&A00=R$:Z%=0:CHAIN
"7TO3":REM**** ADFS= CH."MAG.7TO3"
380IFI$="C"IFR%<M%PROCchn
390IFI$=""IFR%<M%OSCLI R$
400IFI$=""IFR%>=M%:Z%=0:MODE 3:PROCmo3
410UNTILFALSE
420DEFPROCmo3:ONERROR RUN
430IFZ%=2:PRINT'''TAB(20)"Prepare your
printer and press a key please."''':REP
EATUNTILGET:VDU2 ELSE PRINT'''TAB(25)"Pr
ess shift to scroll text.":VDU14
440OSCLI"TYPE "+R$
450VDU3,15:PRINT'''TAB(35)"Output comp
lete"''TAB(20)"Please press a key to ret
urn to main menu.":REPEATUNTILGET:Z%=0:R
UN
460ENDPROC
470DEFPROCchn
480PROCprt("Change keys for up and dow
n scroll.")
490?&80=0:?&80=FNgt("up"):?&81=FNgt("d
own")
500OSCLI"K.0*LO."+R$+" 1900|M?&1974=?&
80:?&1981=?&81|MCALL&1904|M"
510*FX21
520*FX138 0 128
530END:ENDPROC
540DEFFNgt(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%
550DEFPROCmenu(D%)
560IF D%=0 PROCsc1
570IF D%=13PROCsc2
580C%=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
590IF C%=22:C%=9
600UNTILASCA$=13:C%=C%-8:IFC%=1ENDPROC
610RESTORE: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"
620IFL$<>"" OSCLI"DR.2":CHAINL$:REM **
** ADFS= REMOVE OSCLI "DR.2"
630DEFPROCprt(A$):A$=A$+STRING$(LENA$M
OD2," "):FORL%=1TOLENA$:PRINTTAB(18-L%/2
);"
,L%/2):VDU11,11:NEXT:VDU10,10:ENDPROC
640ENDPROC
650DEFPROCscr
660PRINT" I.D. ***
//////////¶";
670PRINT" Is
sue 27
680PRINT"
690PRINT"
May 1993
700PRINT"
710PRINT" P-print A-mode 3 C-cha
nge keys
720PRINT" Enter item code. ] ^^^^
730PRINT" 101 ......About this issu
e.....
740PRINT" 102 .......News and views
......
750PRINT" 103 ......Messages and ad
s.....
760PRINT" 104 ......Messages to you
......
770PRINT" 105 .....Program feedback
......
780PRINT" 106 ....Heavy boots again
?.....
790PRINT" 107 ...Master battery bac
kup...
800PRINT" 108 .......Sound Control.
......
810PRINT" 109 ......Supreme review.
......
820PRINT" 110 .Rating questionnaire
info.
830PRINT" 111 ......From D.Shimmin.
... ASCII
840PRINT" 112 ...The Archimedes Deb
ate ASCII
850PRINT" 113 ...Presenting Program
s 5 ASCII
860PRINT" 777 ...ADFS extra.NOT DFS
... Menu
870PRINT" 888 ..Games/Graphics/soun
d.. Menu
880PRINT" 999 .......Utilities.....
... Menu
890PRINT"
||||||||||¶";
900ENDPROC
910DEFPROCsc1:VDU30
920PRINT" Utilities
//////////¶";
930PRINT" IS
SUE 23
940PRINT"
p
950PRINT"
. May 93
960PRINT"
£
970PRINT"
980PRINT"
990PRINT"
1000PRINT"
1010PRINT" Return to main men
u.
1030PRINT" Line number remova
l
1040PRINT" Random in machine c
ode
1050PRINT" Elbow the ADFS 'E' att
ribute
1060PRINT" Sort
1070PRINT" Wapping editor view
er
1080PRINT" Pagemaker/clip art vi
ewer
1090PRINT" Presenting programs E
x. 1
1100PRINT" Presenting programs E
x. 2
1110PRINT" Presenting programs E
x. 3
1120PRINT" Presenting programs E
x. 4
1130PRINT" Cut
1135PRINT" Paste
1140PRINT"
1150PRINT"
||||||||||¶";
1160ENDPROC
1170DEFPROCsc2:VDU30
1180PRINT" Games +
//////////¶";
1190PRINT" IS
SUE 23
1200PRINT"
p
1210PRINT"
. May 93
1220PRINT"
£
1230PRINT"
1240PRINT"
1250PRINT"
1260PRINT"
1270PRINT" Return to main men
u.
1280PRINT" Lightpen Menu
1290PRINT" Supreme
1300PRINT" Comic Strip
1310PRINT" Music Collection
1320PRINT" Pictures
1330PRINT" Can Can
1340PRINT" Time Tutor
1350PRINT" Review database
1360PRINT" One liner from 15
A
1370PRINT" Test Cards
1380PRINT"
1390PRINT"
1400PRINT"
1410PRINT"
||||||||||¶";
1420ENDPROC
1430DATAMENU,LineOut,AssRnd,Eoff!,Sort,
W.Viewer,P.Viewer,F.Step1,F.Step2,F.Step
3,F.Step4,Cut,Paste,MENU,LpenMen,Supreme
,ComicSt,Warring,PicLoad,CanCan,Time,Rat
Q,WordPrc,Cards,"",""