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$="49" 300m$=" 9.5.96" 310n$=":0.$.7TO3" 320IF LEFT$(STR$(V%),5)="984"+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%=5 390p%=5 400q%=6 410r%=3 420s%=2 430t%=2 440u%=3 450v%=6 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("984"+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 2150 2070IFf%=3THENRESTORE 2280 2080IFf%=4THENRESTORE 2430 2090ENDPROC 2100DATA Disc 2 Software,3 2110DATA Utilities Menu 1,,,,0,0,2 2120DATA Utilities Menu 2,,,,0,0,3 2130DATA Games and Demos Menu,,,,0,0,4 2140: 2150DATA Utilities 1,11 2160DATA 8BS Messaging System 2.00C,CHA IN,:2,SendMes,0,0,0 2170DATA 8BS Questionnaire,CHAIN,:0,Qua ire,0,0,0 2180DATA Robert ROM Image,CHAIN,:0,Robe rt,0,0,0 2190DATA Desk Diary,CHAIN,:0,Diary,0,0, 0 2200DATA Telephone Database,CHAIN,:0,In fo,0,0,0 2210DATA Name/Address Database,CHAIN,:0 ,DBase,0,0,0 2220DATA Disc Format Identifier,CHAIN,: 0,AorDFS,0,0,0 2230DATA Basic Program Protector,CHAIN, :0,BasProt,0,0,0 2240DATA Function Key Strip Printer,CHA IN,:0,Kstrip,0,0,0 2250DATA Utilities Menu 2,,,,0,0,3 2260DATA Return to Main Menu,,,,0,0,1 2270: 2280DATA Utilities Menu 2,13 2290DATA Feel Good Lottery Program,CHAI N,:0,LotGood,0,0,0 2300DATA Mode 7 Screen Utility,CHAIN,:0 ,Prevue7,0,0,0 2310DATA When to Ring CJR,CHAIN,:0,Work Rot,0,0,0 2320DATA Variables Lister,CHAIN,:2,ProH elp,0,0,0 2330DATA Data Transfer,CHAIN,:0,PDT,0,0 ,0 2340DATA Archiver/De-Archiver,CHAIN,:2, Arch`De,0,0,0 2350DATA Lottery Data Rescue,CHAIN,:0,L otResc,0,0,0 2360DATA Electricity/Gas Consumption,CH AIN,:2,Start,0,0,0 2370DATA Compression/Decompression,CHAI N,:0,Stop,0,0,0 2380DATA Hot Keys for the 512,CHAIN,:0, Stop,0,0,0 2390DATA Utilities From K3L,CHAIN,:0,St op,0,0,0 2400DATA Games and Demos Menu,,,,0,0,4 2410DATA Return to Main Menu,,,,0,0,1 2420: 2430DATA Games and Demos Menu,6 2440DATA Secret Maze,CHAIN,:2,SctMaze,0 ,0,0 2450DATA Spelling,CHAIN,:0,LpenSp,0,0,0 2460DATA Eureka,CHAIN,:2,Eureka,0,0,0 2470DATA Hypnotic Spiral,CHAIN,:2,Hypno Sp,0,0,0 2480DATA Geordie Brown PRINTER READY!,C HAIN,:2,GBRemem,0,0,0 2490DATA Return to Main Menu,,,,0,0,1 2500: