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