8-Bit Software Online Conversion
:0.$.Menu - Listing
10*FX119
20MODE3
30VDU22,7
40VDU23;8202;0;0;0;
50PROCa
60PROCb
70ONERRORVDU3:MODE7:REPORT:PRINT" at
line ";ERL:PROCc("KEY0 LIST "+STR$(ERL)+
"|M"):PROCc("FX138,0,128"):PROCd:END
80REPEAT
90e$=FNf
100IFLEFT$(e$,1)<>CHR$(27)THENPROCg(e$
):*DIR $
110UNTILLEFT$(e$,1)=CHR$(27)
120MODE7
130PROCd
140END
150DEFPROCa
160*FX225,128
170*FX229,1
180*FX4,1
190ENDPROC
200DEFPROCd
210*FX225,1
220*FX229,0
230*FX4,0
240ENDPROC
250DEFPROCb
260DIMh%256
270i$=FNj
280PROCk
290l$="43"
300m$=" 29.6.95"
310n$=":0.$.7TO3"
320f%=1
330e%=1
340PROCo
350ENDPROC
360DEFFNS
370="Menu"
380DEFPROCk
390i%=3
400p%=4
410q%=3
420r%=2
430s%=2
440t%=2
450u%=3
460v%=1
470w%=4
480x%=3
490y%=2
500z%=3
510aa%=7
520ba%=7
530ENDPROC
540DEFPROCo
550LOCALca%
560VDU26,12
570PRINTCHR$(128+i%);" I.D. ";i$;" ";C
HR$(144+p%);"¶///////%¶/////////////////
¶";
580PRINTCHR$(144+p%);"¶///////////*///
/////";CHR$(128+r%);" Issue ";LEFT$(l
$,2);" ";CHR$(144+p%);"¶";
590PRINTCHR$(144+p%);"¶";CHR$(144+q%);
"jk 74$5 j£`p`pj 0 0p0p`p ";CH
R$(144+p%);"¶";
600PRINTCHR$(144+p%);"¶";CHR$(144+q%);
"jk"!7457 "kjjj$j!545=55j.";CHR$(128+r%
);LEFT$(m$,8);CHR$(144+p%);"¶";
610PRINTCHR$(144+p%);"
""£ £ !£! "£"£" "!££!!!!"£ ";CH
R$(145);" ";
620FORca%=1TO18
630PRINTCHR$(144+p%);"¶";SPC(36);CHR$(
144+p%);"¶";
640NEXT
650PRINTCHR$(144+p%);"¶|||||||||||||||
||||||||||||||||||||||¶";
660VDU28,2,22,37,5
670ENDPROC
680DEFPROCc($h%)
690LOCALX%,Y%
700X%=h%MOD256
710Y%=h%DIV256
720CALL&FFF7
730ENDPROC
740DEFFNj
750LOCALda%,i$
760da%=OPENIN("!Boot")
770IFda%=0THENPROCea("No !Boot file -
unable to read user ID!")
780PTR#da%=EXT#da%-4
790i$=CHR$(BGET#da%)+CHR$(BGET#da%)+CH
R$(BGET#da%)
800CLOSE#da%
810=i$
820DEFPROCea(fa$)
830VDU22,7
840PRINTfa$
850PROCd
860END
870DEFFNf
880LOCALga%,s$,ha%,ia%,ja$,ka$,ka%
890REPEAT
900CLS
910PROCla(f%)
920READs$,ha%
930IFha%>14THENha%=14
940PRINTTAB(0,0);CHR$(128+s%);TAB(1+(1
7.5-(LEN(s$)/2)),0);s$
950FORia%=1TOha%
960READja$,ka$,ka$,ka$,ka%,ka%,ka%
970PRINTTAB(1,1+ia%);" ";CHR$(128+t%)
;CHR$(64+ia%);CHR$(128+u%);ja$;TAB(35,1+
ia%);CHR$156;
980NEXT
990PRINTTAB(1,1+e%);CHR$(128+w%);CHR$1
57;
1000PRINTTAB(0,17);CHR$(128+v%);"Press"
;CHR$129;"f0";CHR$(128+v%);"for help if
necessary...";
1010REPEAT
1020REPEAT
1030*FX21
1040ga%=GET
1050IFga%>=ASC("a")ANDga%<=ASC("z")THEN
ga%=ga%-32
1060UNTILga%=128ORga%=138ORga%=139ORga%
=13OR(ga%>=65ANDga%<=(64+ha%))ORga%=ASC(
"8")ORga%=ASC("O")ORga%=ASC("P")OR(ga%=2
7ANDINKEY(-1))
1070PRINTTAB(1,1+e%);" ";
1080IFga%=138ANDe%<ha%THENe%=e%+1
1090IFga%=139ANDe%>1THENe%=e%-1
1100IFga%>=65ANDga%<=(64+ha%)THENe%=ga%
-64
1110PRINTTAB(1,1+e%);CHR$(128+w%);CHR$1
57;
1120UNTILga%=13ORga%=128ORga%=ASC("P")O
Rga%=ASC("8")ORga%=ASC("O")ORga%=27
1130IFga%=128THENPROCma
1140UNTILga%=13ORga%=ASC("P")ORga%=ASC(
"8")ORga%=ASC("O")ORga%=27
1150=CHR$(ga%)+STR$(e%)
1160DEFPROCma
1170LOCALga%
1180CLS
1190PRINTTAB(5,0);CHR$(128+x%);"Using t
he 8BS menu system"
1200PRINTTAB(0,2);CHR$(128+y%);"Use the
up and down cursor keys to"'CHR$(128+y%
);"move the bar or press the letter"'CHR
$(128+y%);"next to the required menu opt
ion to";CHR$(128+y%);"position it immedi
ately."
1210PRINT'CHR$(128+y%);"Press RETURN to
load or view the"'CHR$(128+y%);"highlig
hted program/article. If it"'CHR$(128+y%
);"is an article, pressing 8 will"'CHR$(
128+y%);"display it in 80 columns. Press
ing"
1220PRINTCHR$(128+y%);"P will print it
out and pressing O"'CHR$(128+y%);"will a
llow you to view it in"'CHR$(128+y%);"te
letext mode with your own choice"'CHR$(1
28+y%);"of scrolling keys."
1230PRINTTAB(0,16);CHR$(128+z%);"Press"
;CHR$(129);"f0";CHR$(128+z%);"for more h
elp or ESCAPE"'CHR$(128+z%);"to return t
o the menu...";
1240REPEAT
1250*FX21
1260ga%=GET
1270UNTILga%=27ORga%=128
1280IFga%=27THENENDPROC
1290CLS
1300PRINTTAB(5,0);CHR$(128+x%);"Using t
he 8BS menu system"
1310PRINTTAB(0,2);CHR$(128+y%);"Pressin
g SHIFT and ESCAPE together"'CHR$(128+y%
);"at the menu will return you to"'CHR$(
128+y%);"BASIC."
1320PRINTTAB(0,16);CHR$(128+z%);"Press
ESCAPE to return to the"'CHR$(128+z%);"m
enu...";
1330REPEAT
1340*FX21
1350ga%=GET
1360UNTILga%=27
1370ENDPROC
1380DEFPROCg(e$)
1390LOCALna%,ka$,oa$,pa$,qa$,ra%,sa%,ta
%
1400PROCla(f%)
1410READka$,ka%
1420FORna%=1TOVAL(MID$(e$,2))
1430READka$,oa$,pa$,qa$,ra%,sa%,ta%
1440NEXT
1450IFta%=0ANDpa$<>""THENPROCc("DIR "+p
a$)
1460IFra%ANDNOTsa%THENPROCua(ASC(LEFT$(
e$,1)),qa$):ENDPROC
1470IFra%ANDsa%THENPROCva(ASC(LEFT$(e$,
1)),qa$):ENDPROC
1480IFta%>0THENf%=ta%:e%=1:ENDPROC
1490PROCd
1500IFLEFT$(oa$,1)="*"THENPROCc(oa$+" "
+qa$):END
1510IFoa$="CHAIN"THENCHAINqa$
1520IFoa$="LOAD"THENPROCc("KEY0 LOAD "+
CHR$(34)+qa$+CHR$(34)+"|MLIST|N|M"):PROC
c("FX21"):PROCc("FX138,0,128"):PROCd:VDU
22,7:END
1530END
1540DEFPROCua(ga%,qa$)
1550ONERRORIFERR=17THENPROCc("FX229,1")
:VDU3,22,7:VDU23;8202;0;0;0;:PROCo:GOTO7
0ELSEVDU3:MODE7:REPORT:PRINT" at line ";
ERL:PROCc("KEY0 LIST "+STR$(ERL)+"|M"):P
ROCc("FX138,0,128"):PROCd:END
1560*FX21
1570*FX229,0
1580IFga%=ASC("P"):PROCp:ENDPROC
1590IFpa$<>"":qa$=pa$+"."+qa$
1600REM CHANGE BELOW FOR ADFS
1610PROCc("KEY0 |@"+qa$+" -quit :0.$.Me
nu"):*FX138,0,192
1620CHAIN":0.$.Scroll"
1630ENDPROC
1640DEFPROCp:VDU22,3,23;8202;0;0;0;
1650PRINT'"Press SPACE when you are rea
dy to print... (Press ESCAPE to quit)"':
REPEATUNTILGET=32:VDU2
1660PROCc("Type "+qa$)
1670*FX229,1
1680ONERRORVDU3:MODE7:REPORT:PRINT" at
line ";ERL:PROCc("KEY0 LIST "+STR$(ERL)+
"|M"):PROCc("FX138,0,128"):PROCd:END
1690VDU3
1700PRINT'"Press ESCAPE to return to th
e menu...";
1710*FX21
1720REPEATUNTILGET=27
1730VDU22,7
1740VDU23;8202;0;0;0;
1750PROCo
1760ENDPROC
1770DEFPROCva(ga%,qa$)
1780IFINSTR(qa$,"@")<>0AND(ga%=ASC("P")
ORga%=ASC("8"))THENqa$=FNwa(qa$)
1790IFINSTR(qa$,"@")<>0ANDga%<>ASC("P")
ANDga%<>ASC("8")THENqa$=LEFT$(qa$,INSTR(
qa$,"@")-1)
1800?&80=&C6:?&81=&D6
1810IFga%=ASC("P")THEN$&A00=qa$:Z%=1:CH
AINn$
1820IFga%=ASC("8")THEN$&A00=qa$:Z%=0:CH
AINn$
1830IFga%=ASC("O")THENPROCxa(qa$)
1840PROCc("RUN "+qa$)
1850ENDPROC
1860DEFFNwa(qa$)
1870LOCALga%
1880CLS
1890PRINTCHR$(128+ba%);"Which part of t
he article? (1/2)";
1900REPEAT
1910*FX21
1920ga%=GET
1930UNTILga%=49ORga%=50
1940IFga%=49THEN=LEFT$(qa$,INSTR(qa$,"@
")-1)
1950=MID$(qa$,INSTR(qa$,"@")+1)
1960DEFPROCxa(qa$)
1970CLS
1980PRINTCHR$(128+aa%);"Please press th
e key to use to"'CHR$(128+aa%);"scroll u
p..."
1990?&80=0
2000?&80=FNya
2010PRINT'CHR$(128+aa%);"Please press t
he key to use to"'CHR$(128+aa%);"scroll
down..."
2020*FX21
2030?&81=FNya
2040PROCc("KEY0 *LOAD "+qa$+" 1900|M?&1
974=?&80:?&1981=?&81|MCALL&1904|F|M")
2050*FX21
2060VDU21
2070PROCd
2080*FX138,0,128
2090END
2100DEFFNya
2110LOCALA%,B%
2120REPEAT
2130A%=&7A
2140!&70=USR(&FFF4)
2150B%=255-(?&71)
2160UNTILB%<>0ANDB%<>182ANDB%<>?&80
2170=B%
2180DEFPROCla(f%)
2190IFf%=1THENRESTORE
2200IFf%=2THENRESTORE 2370
2210IFf%=3THENRESTORE 2500
2220IFf%=4THENRESTORE 2640
2230IFf%=5THENRESTORE 2740
2240IFf%=6THENRESTORE 2810
2250IFf%=7THENRESTORE 2930
2260ENDPROC
2270DATA Main Menu.,8
2280DATA About This Issue.,,:0,Thi1,-1,
-1,0
2290DATA Program Documentation.,,:0,Pro
gDoc,-1,-1,0
2300DATA Magazine Menu 1.,,,,0,0,2
2310DATA Magazine Menu 2.,,,,0,0,3
2320DATA Magazine Menu 3.,,,,0,0,4
2330DATA Utilities Menu.,,,,0,0,5
2340DATA Games And Demos.,,,,0,0,6
2350DATA ADFS Extra Menu.,,,,0,0,7
2360:
2370DATA Magazine Menu 1.,11
2380DATA General Messages.,,:0,Gen1,-1,
-1,0
2390DATA For Sale/Wanted.,,:0,Ads1,-1,-
1,0
2400DATA 8BS Adverts.,,,:0.$.8BSad,-1,0
,0
2410DATA Help! 1.,,:0,Help1,-1,-1,0
2420DATA Help! 2.,,:0,Help2,-1,-1,0
2430DATA Messages to You.,,:0,uu,-1,-1,
0
2440DATA The Reactor.,,:0,Reactor,-1,-1
,0
2450DATA Editorial.,,,:2.$.Editori,-1,0
,0
2460DATA Suggested Contacts.,,:0,Contac
t,-1,-1,0
2470DATA Magazine Menu 2.,,,,0,0,3
2480DATA Return To Main Menu.,,,,0,0,1
2490:
2500DATA Magazine Menu 2.,12
2510DATA 8BS Messaging System Info.,,:0
,QMesInf,-1,-1,0
2520DATA Digital Analysis.,,:0,DigAna,-
1,-1,0
2530DATA Comments From D.Bradforth.,,,:
0.$.BradCom,-1,0,0
2540DATA Josie. Story.,,,:2.$.Josie,-1,
0,0
2550DATA Dialect Poem. PRINTER READY!,C
HAIN,:2,Dialect,0,0,0
2560DATA Word Search.,,,:0.$.WrdSrch,-1
,0,0
2570DATA Humour.,,,:2.$.Humour,-1,0,0
2580DATA Master 512 Part 1.,,:0,512p1,-
1,-1,0
2590DATA Text File Reader Info.,,,:2.$.
ScrlInf,-1,0,0
2600DATA Stylus Ink Jet Printers.,,:0,I
nkJets,-1,-1,0
2610DATA Magazine Menu 3.,,,,0,0,4
2620DATA Return To Main Menu.,,,,0,0,1
2630:
2640DATA Magazine Menu 3.,8
2650DATA Harston PD Catalogue.,,,:2.$.H
arston,-1,0,0
2660DATA 8BS Catalogue Summary.,,:2,8BS
Cat,-1,-1,0
2670DATA Book Loan.,,,:0.$.BookLst,-1,0
,0
2680DATA Questionnaire Results.,,,:2.$.
QuesRes,-1,0,0
2690DATA Members Interests Part 1.,,:2,
IntrP1,-1,-1,0
2700DATA Members Interests Part 2.,,:2,
IntrP2,-1,-1,0
2710DATA Magazine Menu 1.,,,,0,0,2
2720DATA Return To Main Menu.,,,,0,0,1
2730:
2740DATA Utilities Menu.,5
2750DATA 8BS Messaging System. V 1.07,C
HAIN,:2,SendMes,0,0,0
2760DATA Solidisk Initialise.,CHAIN,:2,
StartTD,0,0,0
2770DATA Solidisk Load/Save.,CHAIN,:2,R
omsl,0,0,0
2780DATA Digital Analysis.,CHAIN,:2,Dig
anal,0,0,0
2790DATA Return To Main Menu.,,,,0,0,1
2800:
2810DATA Games And Demos Menu.,10
2820DATA 8BS Screen by K2O.,CHAIN,:2,8B
Sld,0,0,0
2830DATA Show Picture.,CHAIN,:2,PicLoad
,0,0,0
2840DATA Union Jack.,CHAIN,:2,UnionJ,0,
0,0
2850DATA Archery MASTER ONLY.,CHAIN,:2,
Archery,0,0,0
2860DATA Destiny Cheat.,CHAIN,:2,Destin
y,0,0,0
2870DATA Ghouls Cheat.,CHAIN,:2,Ghouls,
0,0,0
2880DATA Postie.,CHAIN,:2,Postie2,0,0,0
2890DATA 20 Four.,CHAIN,:2,20FOUR,0,0,0
2900DATA Match It Game.,CHAIN,:2,Matchi
t,0,0,0
2910DATA Return To Main Menu.,,,,0,0,1
2920:
2930DATA ADFS Menu.,1
2940DATA Return To Main Menu.,,,,0,0,1