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%=112: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$="mess"
210IFR%=104:R$="uu"
220IFR%=105:R$="tonk"
230IFR%=106:R$="wesabin"
240IFR%=107:R$="Pres4"
250IFR%=108:R$="utilinf"
260IFR%=109:R$="soliad"
270IFR%=110:R$="amxtext"
280IFR%=111:R$="late"
290IFR%=112:R$="JokerD"
300IFR%=113:R$="Muscles"
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 VDU3: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 25
680PRINT"
690PRINT"
Feb 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 Tonkins computer dict
ionary
780PRINT" 106 .......Please recycle
......
790PRINT" 107 Presenting programs p
art 4.
800PRINT" 108 .DBase, Selftes, Copy
Info.
810PRINT" 109 ......Info on SOLINET
......
820PRINT" 110 ....Info for AMX view
er....
830PRINT" 111 ......Late submission
s.....
840PRINT" 112 .........Joker info..
... Mode3
850PRINT" 113 .......Weight trainin
g.. Mode3
860PRINT" 777 .....ADFS extra.NOT D
FS. Menu
870PRINT" 888 . .....Games and demo
s.. Menu
880PRINT" 999 ..........Utilities..
... Menu
890PRINT"
||||||||||¶";
900ENDPROC
910DEFPROCsc1:VDU30
920PRINT" Utilities
//////////¶";
930PRINT" IS
SUE 25
940PRINT"
p
950PRINT"
. FEB 93
960PRINT"
£
970PRINT"
980PRINT"
990PRINT"
1000PRINT"
1010PRINT" Return to main men
u.
1020PRINT" Database.
1030PRINT" Test/revision databa
se.
1040PRINT" Basic program reade
r.
1050PRINT" Press the spacebar
.
1060PRINT" Program presentation e
xample1
1070PRINT" Program presentation e
xample2
1080PRINT" Program presentation e
xample3
1090PRINT" Program presentation e
xample4
1100PRINT" Big Ben.
1110PRINT" AMX view.
1120PRINT" Tape backup.
1130PRINT" Catalogues.
1140PRINT"
1150PRINT"
||||||||||¶";
1160ENDPROC
1170DEFPROCsc2:VDU30
1180PRINT" GameNdemo
//////////¶";
1190PRINT" IS
SUE 25
1200PRINT"
p
1210PRINT"
. FEB 93
1220PRINT"
£
1230PRINT"
1240PRINT"
1250PRINT"
1260PRINT"
1270PRINT"
1280PRINT"
1290PRINT" All Fall Down Game
.
1300PRINT" Joker.
1310PRINT" Animation demo.
1320PRINT" Shapes demo.
1330PRINT" Life.
1340PRINT" Cosine graph 1.
1350PRINT" Cosine graph 2.
1360PRINT" Sample.
1370PRINT" Wordsearch.
1380PRINT"
1390PRINT"
1400PRINT"
1410PRINT"
||||||||||¶";
1420ENDPROC
1430DATA"MENU","DBase","selftes","listb
as","space","dirctc1","dirctc2","dirctc3
","dirctc4","bigben","amxview","Tcopy","
ofcats","MENU","","fall","joker","anim",
"shapes","hexlife","trig1","trig2","rh1r
un","pr600-2","",""