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$="47"
300m$=" 1.2.96"
310n$=":0.$.7TO3"
320IF LEFT$(STR$(V%),5)="985"+l$ f%=VA
L(MID$(STR$(V%),6,2)):e%=VAL(MID$(STR$(V
%),8,2)) ELSE f%=1:e%=1
330PROCo
340ENDPROC
350DEFFNS
360="Menu"
370DEFPROCk
380i%=2
390p%=2
400q%=3
410r%=5
420s%=6
430t%=2
440u%=6
450v%=5
460w%=4
470x%=3
480y%=2
490z%=3
500aa%=7
510ba%=7
520ENDPROC
530DEFPROCo
540LOCALca%
550VDU26,12
560PRINTCHR$(128+i%);" I.D. ";i$;" ";C
HR$(144+p%);"¶///////%¶/////////////////
¶";
570PRINTCHR$(144+p%);"¶///////////*///
/////";CHR$(128+r%);" Issue ";LEFT$(l
$,2);" ";CHR$(144+p%);"¶";
580PRINTCHR$(144+p%);"¶";CHR$(144+q%);
"jk 74$5 j£`p`pj 0 0p0p`p ";CH
R$(144+p%);"¶";
590PRINTCHR$(144+p%);"¶";CHR$(144+q%);
"jk"!7457 "kjjj$j!545=55j.";CHR$(128+r%
);LEFT$(m$,8);CHR$(144+p%);"¶";
600PRINTCHR$(144+p%);"
""£ £ !£! "£"£" "!££!!!!"£ ";CH
R$(145);" ";
610FORca%=1TO18
620PRINTCHR$(144+p%);"¶";SPC(36);CHR$(
144+p%);"¶";
630NEXT
640PRINTCHR$(144+p%);"¶|||||||||||||||
||||||||||||||||||||||¶";
650VDU28,2,22,37,5
660ENDPROC
670DEFPROCc($h%)
680LOCALX%,Y%
690X%=h%MOD256
700Y%=h%DIV256
710CALL&FFF7
720ENDPROC
730DEFFNj
740LOCALda%,i$
750da%=OPENIN("!Boot")
760IFda%=0THENPROCea("No !Boot file -
unable to read user ID!")
770PTR#da%=EXT#da%-4
780i$=CHR$(BGET#da%)+CHR$(BGET#da%)+CH
R$(BGET#da%)
790CLOSE#da%
800=i$
810DEFPROCea(fa$)
820VDU22,7
830PRINTfa$
840PROCd
850END
860DEFFNf
870LOCALga%,s$,ha%,ia%,ja$,ka$,ka%
880REPEAT
890CLS
900PROCla(f%)
910READs$,ha%
920IFha%>14THENha%=14
930PRINTTAB(0,0);CHR$(128+s%);TAB(1+(1
7.5-(LEN(s$)/2)),0);s$
940FORia%=1TOha%
950READja$,ka$,ka$,ka$,ka%,ka%,ka%
960PRINTTAB(1,1+ia%);" ";CHR$(128+t%)
;CHR$(64+ia%);CHR$(128+u%);ja$;TAB(35,1+
ia%);CHR$156;
970NEXT
980PRINTTAB(1,1+e%);CHR$(128+w%);CHR$1
57;
990PRINTTAB(0,17);CHR$(128+v%);"Press"
;CHR$129;"f0";CHR$(128+v%);"for help if
necessary...";
1000REPEAT
1010REPEAT
1020*FX21
1030ga%=GET
1040IFga%>=ASC("a")ANDga%<=ASC("z")THEN
ga%=ga%-32
1050UNTILga%=128ORga%=138ORga%=139ORga%
=13OR(ga%>=65ANDga%<=(64+ha%))ORga%=ASC(
"8")ORga%=ASC("O")ORga%=ASC("P")ORga%=(A
SC"4")OR(ga%=27ANDINKEY(-1))
1060PRINTTAB(1,1+e%);" ";
1070IFga%=138ANDe%<ha%THENe%=e%+1
1080IFga%=139ANDe%>1THENe%=e%-1
1090IFga%>=65ANDga%<=(64+ha%)THENe%=ga%
-64
1100PRINTTAB(1,1+e%);CHR$(128+w%);CHR$1
57;
1110V%=VAL("985"+l$+RIGHT$("0"+STR$(f%)
,2)+RIGHT$("0"+STR$(e%),2))
1120UNTILga%=13ORga%=128ORga%=ASC("P")O
Rga%=ASC("8")ORga%=ASC("4")ORga%=ASC("O"
)ORga%=27
1130IFga%=128THENPROCma
1140UNTILga%=13ORga%=ASC("P")ORga%=ASC(
"8")ORga%=ASC("O")ORga%=27ORga%=ASC("4")
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%);"4 will display i
t in 40 columns,"
1230PRINTCHR$(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."
1240PRINTTAB(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...";
1250REPEAT
1260*FX21
1270ga%=GET
1280UNTILga%=27ORga%=128
1290IFga%=27THENENDPROC
1300CLS
1310PRINTTAB(5,0);CHR$(128+x%);"Using t
he 8BS menu system"
1320PRINTTAB(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."
1330PRINTTAB(0,16);CHR$(128+z%);"Press
ESCAPE to return to the"'CHR$(128+z%);"m
enu...";
1340REPEAT
1350*FX21
1360ga%=GET
1370UNTILga%=27
1380ENDPROC
1390DEFPROCg(e$)
1400LOCALna%,ka$,oa$,pa$,qa$,ra%,sa%,ta
%
1410PROCla(f%)
1420READka$,ka%
1430FORna%=1TOVAL(MID$(e$,2))
1440READka$,oa$,pa$,qa$,ra%,sa%,ta%
1450NEXT
1460IFta%=0ANDpa$<>""THENPROCc("DIR "+p
a$)
1470IFra%ANDNOTsa%THENPROCua(ASC(LEFT$(
e$,1)),qa$):ENDPROC
1480IFra%ANDsa%THENPROCva(ASC(LEFT$(e$,
1)),qa$):ENDPROC
1490IFta%>0THENf%=ta%:e%=1:ENDPROC
1500PROCd
1510IFLEFT$(oa$,1)="*"THENPROCc(oa$+" "
+qa$):END
1520IFoa$="CHAIN"THENCHAINqa$
1530IFoa$="LOAD"THENPROCc("KEY0 LOAD "+
CHR$(34)+qa$+CHR$(34)+"|MLIST|N|M"):PROC
c("FX21"):PROCc("FX138,0,128"):PROCd:VDU
22,7:END
1540END
1550DEFPROCua(ga%,qa$)
1560IFga%=ASC("4")THEN$&A00=pa$+"."+qa$
:CHAIN":0.3to7"
1570IFpa$<>"":qa$=pa$+"."+qa$
1580*DIR $
1590PROCc("KEY0 |@"+qa$+" -quit :0.$.Me
nu "+STR$f%+" "+STR$e%):*FX138,0,192
1600CHAIN":0.$.Scroll"
1610ENDPROC
1620DEFPROCva(ga%,qa$)
1630IFINSTR(qa$,"@")<>0AND(ga%=ASC("P")
ORga%=ASC("8"))THENqa$=FNwa(qa$)
1640IFINSTR(qa$,"@")<>0ANDga%<>ASC("P")
ANDga%<>ASC("8")THENqa$=LEFT$(qa$,INSTR(
qa$,"@")-1)
1650?&80=&C6:?&81=&D6
1660IFga%=ASC("P")THEN$&A00=qa$:Z%=1:CH
AINn$
1670IFga%=ASC("8")THEN$&A00=qa$:Z%=0:CH
AINn$
1680IFga%=ASC("O")THENPROCxa(qa$)
1690OSCLI"FX225,1":OSCLI"K.0*RUN "+qa$+
"|M":OSCLI"FX138 0 128"
1700PRINTTAB(0,15);CHR$152;:END
1710ENDPROC
1720DEFFNwa(qa$)
1730LOCALga%
1740CLS
1750PRINTCHR$(128+ba%);"Which part of t
he article? (1/2)";
1760REPEAT
1770*FX21
1780ga%=GET
1790UNTILga%=49ORga%=50
1800IFga%=49THEN=LEFT$(qa$,INSTR(qa$,"@
")-1)
1810=MID$(qa$,INSTR(qa$,"@")+1)
1820DEFPROCxa(qa$)
1830CLS
1840PRINTCHR$(128+aa%);"Please press th
e key to use to"'CHR$(128+aa%);"scroll u
p..."
1850?&80=0
1860?&80=FNya
1870PRINT'CHR$(128+aa%);"Please press t
he key to use to"'CHR$(128+aa%);"scroll
down..."
1880*FX21
1890?&81=FNya
1900PROCc("KEY0 *LOAD "+qa$+" 1900|M?&1
974=?&80:?&1981=?&81|MCALL&1904|F|M")
1910*FX21
1920VDU21
1930PROCd
1940*FX138,0,128
1950END
1960DEFFNya
1970LOCALA%,B%
1980REPEAT
1990A%=&7A
2000!&70=USR(&FFF4)
2010B%=255-(?&71)
2020UNTILB%<>0ANDB%<>182ANDB%<>?&80
2030=B%
2040DEFPROCla(f%)
2050IFf%=1THENRESTORE
2060IFf%=2THENRESTORE 2230
2070IFf%=3THENRESTORE 2350
2080IFf%=4THENRESTORE 2490
2090IFf%=5THENRESTORE 2540
2100IFf%=6THENRESTORE 2640
2110IFf%=7THENRESTORE 2770
2120ENDPROC
2130DATA Main Menu.,8
2140DATA About This Issue.,,:0,Thi1,-1,
-1,0
2150DATA Program Documentation.,,:0,Pro
gDoc,-1,-1,0
2160DATA Magazine Menu 1.,,,,0,0,2
2170DATA Magazine Menu 2.,,,,0,0,3
2180DATA Magazine Menu 3.,,,,0,0,4
2190DATA Utilities Menu.,,,,0,0,5
2200DATA Games And Demos.,,,,0,0,6
2210DATA ADFS Extra Menu.,,,,0,0,7
2220:
2230DATA Magazine Menu 1.,10
2240DATA General Messages.,,:0,Gen,-1,-
1,0
2250DATA For Sale/Wanted.,,:0,Ads,-1,-1
,0
2260DATA 8BS Adverts.,,:0,8BSad,-1,0,0
2270DATA Help!,,:0,Help,-1,-1,0
2280DATA Messages to You.,,:0,uu,-1,-1,
0
2290DATA The Reactor.,,:0,Reactor,-1,-1
,0
2300DATA Editorial.,,:2,Editori,-1,0,0
2310DATA Suggested Contacts.,,:0,Contac
t,-1,-1,0
2320DATA Magazine Menu 2.,,,,0,0,3
2330DATA Return To Main Menu.,,,,0,0,1
2340:
2350DATA Magazine Menu 2.,12
2360DATA 8BS Messaging System Info.,,:0
,QMesInf,-1,-1,0
2370DATA Last Messages Bundle.,,:2,Last
Mes,-1,-1,0
2380DATA Text File Reader Info.,,:0,T/S
crol,-1,0,0
2390DATA Superior Software Offer,,:0,Su
pSoft,-1,0,0
2400DATA Hello From A2L. Part 1.,,:0,A2
Lart1,-1,0,0
2410DATA Bob Martin Advert.,,:2,MartAd,
-1,0,0
2420DATA Easy Execute.,,:0,EasyEx,-1,0,
0
2430DATA Paradoxes by K2V.,,:0,Paradox,
-1,0,0
2440DATA Advert From 4WL.,,:0,4WLad,-1,
0,0
2450DATA Advert From D5B.,,:2,D5Bad,-1,
0,0
2460DATA Magazine Menu 3.,,,,0,0,4
2470DATA Return To Main Menu.,,,,0,0,1
2480:
2490DATA Magazine Menu 3.,3
2500DATA BBC Memory Map 0-&3FF.,,:2,000
/3FF,-1,0,0
2510DATA Magazine Menu 1.,,,,0,0,2
2520DATA Return To Main Menu.,,,,0,0,1
2530:
2540DATA Utilities Menu.,8
2550DATA 8BS Messaging System. V 2.0,CH
AIN,:0,SendMes,0,0,0
2560DATA Utilities From A2L.,CHAIN,:0,S
top,0,0,0
2570DATA Resistor Codes in Basic.,CHAIN
,:2,RcodBas,0,0,0
2580DATA Resistor Codes in C.,*RUN,:2,r
code,0,0,0
2590DATA DPJ's Text File Reader.,CHAIN,
:2,CHme,0,0,0
2600DATA Text File Reader.,CHAIN,:0,Scr
oll,0,0,0
2610DATA Calendar.,CHAIN,:2,Calendr,0,0
,0
2620DATA Return To Main Menu.,,,,0,0,1
2630:
2640DATA Games And Demos Menu.,11
2650DATA Mastermind.,CHAIN,:2,MasMind,0
,0,0
2660DATA Patterns Version 2.,CHAIN,:2,P
atV2,0,0,0
2670DATA Blitz.,CHAIN,:2,Blitz,0,0,0
2680DATA Clock. Master Only.,CHAIN,:2,C
lock,0,0,0
2690DATA Hangman.,CHAIN,:2,Hang,0,0,0
2700DATA 8BS Screen.,CHAIN,:2,Screen,0,
0,0
2710DATA Horse Race. Game.,CHAIN,:2,Rac
e,0,0,0
2720DATA Amazed Knight. Game.,CHAIN,:2,
Amazed,0,0,0
2730DATA Puzzle Answer.,CHAIN,:2,Answer
,0,0,0
2740DATA Repton Game File Info.,CHAIN,:
2,RepInfo,0,0,0
2750DATA Return To Main Menu.,,,,0,0,1
2760:
2770DATA ADFS Menu.,1
2780DATAReturn To Main Menu.,,,,0,0,1