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)="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%=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("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 2190 2070IFf%=3THENRESTORE 2290 2080IFf%=4THENRESTORE 2440 2090IFf%=5THENRESTORE 2600 2100ENDPROC 2110DATA Magazine Menu,6 2120DATA About This Issue,,:0,Thi1,-1,- 1,0 2130DATA Editorial,,:0,Editori,-1,0,0 2140DATA Messages Menu,,,,0,0,2 2150DATA Program Info Menu,,,,0,0,3 2160DATA Articles Menu,,,,0,0,4 2170DATA Adverts Menu,,,,0,0,5 2180: 2190DATA Messages,8 2200DATA General Messages,,:0,Gen,-1,-1 ,0 2210DATA Help! Part 1,,:0,Help1,-1,-1,0 2220DATA Help! Part 2,,:0,Help2,-1,-1,0 2230DATA Messages to You,,:0,uu,-1,-1,0 2240DATA The Reactor,,:0,Reactor,-1,-1, 0 2250DATA Late Messages,,:0,Last,-1,-1,0 2260DATA Program Info Menu,,,,0,0,3 2270DATA Return to Main Menu,,,,0,0,1 2280: 2290DATA Program Info,13 2300DATA 8BS Messaging System Info,,:0, QMesInf,-1,-1,0 2310DATA Program Documentation Part 1,, :0,Doc1,-1,-1,0 2320DATA Program Documentation Part 2,, :0,Doc2,-1,-1,0 2330DATA Data Transfer Info,,:0,Pdtinfo ,-1,-1,0 2340DATA Text File Reader Info,,:0,T/Sc rol,-1,0,0 2350DATA Diary Info,,:2,DiarInf,-1,0,0 2360DATA 8BS Questionnaire Info,,:0,Qui nf,-1,-1,0 2370DATA Names/Addresses DB Info,,:2,DB Info,-1,0,0 2380DATA Music Tracker Info,,:2,MusTrIn ,-1,0,0 2390DATA Spelling Game Info,,:2,LpenInf ,-1,0,0 2400DATA Compression/Decompression,,:2, LZSS1A,-1,-1,0 2410DATA Articles Menu,,,,0,0,4 2420DATA Return to Main Menu,,,,0,0,1 2430: 2440DATA Articles,14 2450DATA Suggested Contacts,,:0,Contact ,-1,-1,0 2460DATA Book Loan,,:2,BookLoa,-1,0,0 2470DATA Adventures,,:0,Advents,-1,-1,0 2480DATA BUG 512 Index,,:2,512Indx,-1,0 ,0 2490DATA Intelligence Quotient,,:2,hiiq ,-1,-1,0 2500DATA Word Processor Debate,,:2,WPde bat,-1,-1,0 2510DATA Why me? From K8J,,:2,Y`ME,-1,0 ,0 2520DATA ViewSpell Tutorial,,:2,Vspell, -1,0,0 2530DATA Wordsquare,,:2,WordSqu,-1,0,0 2540DATA New User Group!,,:2,BUGinfo,-1 ,-1,0 2550DATA 512 Part 5,,:2,512`5,-1,-1,0 2560DATA Music 5000,,:2,M5000,-1,-1,0 2570DATA Adverts Menu,,,,0,0,5 2580DATA Return to Main Menu,,,,0,0,1 2590: 2600DATA Adverts,8 2610DATA 8BS Adverts,,:2,8BSad,-1,0,0 2620DATA For Sale,,:2,ForSale,-1,-1,0 2630DATA Wanted,,:0,Wanted,-1,-1,0 2640DATA Superior Software Offer,,:0,Su pSoft,-1,0,0 2650DATA Advert From 3SQ,,:2,3SQad,-1,0 ,0 2660DATA Advert From 4WL,,:2,4WLad,-1,0 ,0 2670DATA Messages Menu,,,,0,0,2 2680DATA Return to Main Menu,,,,0,0,1 2690: