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$="48" 300 m$=" 21.3.96" 310 n$=":0.$.7TO3" 320 IF LEFT$(STR$(V%),5)="985"+l$ f%=VAL(MID$(STR$(V%),6,2)):e%=VAL(MID$(STR$(V%),8,2)) ELSE f%=1:e%=1 330 PROCo 340 ENDPROC 350 DEFFNS 360 ="Menu" 370 DEFPROCk 380 i%=2 390 p%=4 400 q%=3 410 r%=6 420 s%=2 430 t%=2 440 u%=3 450 v%=6 460 w%=4 470 x%=3 480 y%=2 490 z%=3 500 aa%=7 510 ba%=7 520 ENDPROC 530 DEFPROCo 540 LOCALca% 550 VDU26,12 560 PRINTCHR$(128+i%);" I.D. ";i$;" ";CHR$(144+p%);"ÿ¯¯¯¯¯¯¯¥ÿ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ÿ"; 570 PRINTCHR$(144+p%);"ÿ¯¯¯¯¯¯¯¯¯¯¯ª¯¯¯¯¯¯¯¯";CHR$(128+r%);" Issue ";LEFT$(l$,2);" ";CHR$(144+p%);"ÿ"; 580 PRINTCHR$(144+p%);"ÿ";CHR$(144+q%);"êë ·Ž€µ ê£àðàðê ° °ð°ðàð   ";CHR$(144+p%);"ÿ"; 590 PRINTCHR$(144+p%);"ÿ";CHR$(144+q%);"ê뢡·Žµ· ¢ëêêê€ê¡µŽµœµµê®";CHR$(128+r%);LEFT$(m$,8);CHR$(144+p%);"ÿ"; 600 PRINTCHR$(144+p%);"";CHR$(144+q%);"¢£ £ ¡£¡ ¢£¢£¢ ¢¡££¡¡¡¡¢£   ";CHR$(145);" "; 610 FORca%=1TO18 620 PRINTCHR$(144+p%);"ÿ";SPC(36);CHR$(144+p%);"ÿ"; 630 NEXT 640 PRINTCHR$(144+p%);"ÿüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüÿ"; 650 VDU28,2,22,37,5 660 ENDPROC 670 DEFPROCc($h%) 680 LOCALX%,Y% 690 X%=h%MOD256 700 Y%=h%DIV256 710 CALL&FFF7 720 ENDPROC 730 DEFFNj 740 LOCALda%,i$ 750 da%=OPENIN("!Boot") 760 IFda%=0THENPROCea("No !Boot file - unable to read user ID!") 770 PTR#da%=EXT#da%-4 780 i$=CHR$(BGET#da%)+CHR$(BGET#da%)+CHR$(BGET#da%) 790 CLOSE#da% 800 =i$ 810 DEFPROCea(fa$) 820 VDU22,7 830 PRINTfa$ 840 PROCd 850 END 860 DEFFNf 870 LOCALga%,s$,ha%,ia%,ja$,ka$,ka% 880 REPEAT 890 CLS 900 PROCla(f%) 910 READs$,ha% 920 IFha%>14THENha%=14 930 PRINTTAB(0,0);CHR$(128+s%);TAB(1+(17.5-(LEN(s$)/2)),0);s$ 940 FORia%=1TOha% 950 READja$,ka$,ka$,ka$,ka%,ka%,ka% 960 PRINTTAB(1,1+ia%);" ";CHR$(128+t%);CHR$(64+ia%);CHR$(128+u%);ja$;TAB(35,1+ia%);CHR$156; 970 NEXT 980 PRINTTAB(1,1+e%);CHR$(128+w%);CHR$157; 990 PRINTTAB(0,17);CHR$(128+v%);"Press";CHR$129;"f0";CHR$(128+v%);"for help if necessary..."; 1000 REPEAT 1010 REPEAT 1020 *FX21 1030 ga%=GET 1040 IFga%>=ASC("a")ANDga%<=ASC("z")THENga%=ga%-32 1050 UNTILga%=128ORga%=138ORga%=139ORga%=13OR(ga%>=65ANDga%<=(64+ha%))ORga%=ASC("8")ORga%=ASC("O")ORga%=ASC("P")ORga%=(ASC"4")OR(ga%=27ANDINKEY(-1)) 1060 PRINTTAB(1,1+e%);" "; 1070 IFga%=138ANDe%1THENe%=e%-1 1090 IFga%>=65ANDga%<=(64+ha%)THENe%=ga%-64 1100 PRINTTAB(1,1+e%);CHR$(128+w%);CHR$157; 1110 V%=VAL("985"+l$+RIGHT$("0"+STR$(f%),2)+RIGHT$("0"+STR$(e%),2)) 1120 UNTILga%=13ORga%=128ORga%=ASC("P")ORga%=ASC("8")ORga%=ASC("4")ORga%=ASC("O")ORga%=27 1130 IFga%=128THENPROCma 1140 UNTILga%=13ORga%=ASC("P")ORga%=ASC("8")ORga%=ASC("O")ORga%=27ORga%=ASC("4") 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%);"4 will display it in 40 columns," 1230 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." 1240 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..."; 1250 REPEAT 1260 *FX21 1270 ga%=GET 1280 UNTILga%=27ORga%=128 1290 IFga%=27THENENDPROC 1300 CLS 1310 PRINTTAB(5,0);CHR$(128+x%);"Using the 8BS menu system" 1320 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." 1330 PRINTTAB(0,16);CHR$(128+z%);"Press ESCAPE to return to the"'CHR$(128+z%);"menu..."; 1340 REPEAT 1350 *FX21 1360 ga%=GET 1370 UNTILga%=27 1380 ENDPROC 1390 DEFPROCg(e$) 1400 LOCALna%,ka$,oa$,pa$,qa$,ra%,sa%,ta% 1410 PROCla(f%) 1420 READka$,ka% 1430 FORna%=1TOVAL(MID$(e$,2)) 1440 READka$,oa$,pa$,qa$,ra%,sa%,ta% 1450 NEXT 1460 IFta%=0ANDpa$<>""THENPROCc("DIR "+pa$) 1470 IFra%ANDNOTsa%THENPROCua(ASC(LEFT$(e$,1)),qa$):ENDPROC 1480 IFra%ANDsa%THENPROCva(ASC(LEFT$(e$,1)),qa$):ENDPROC 1490 IFta%>0THENf%=ta%:e%=1:ENDPROC 1500 PROCd 1510 IFLEFT$(oa$,1)="*"THENPROCc(oa$+" "+qa$):END 1520 IFoa$="CHAIN"THENCHAINqa$ 1530 IFoa$="LOAD"THENPROCc("KEY0 LOAD "+CHR$(34)+qa$+CHR$(34)+"|MLIST|N|M"):PROCc("FX21"):PROCc("FX138,0,128"):PROCd:VDU22,7:END 1540 END 1550 DEFPROCua(ga%,qa$) 1560 IFga%=ASC("4")THEN$&A00=pa$+"."+qa$:CHAIN":0.3to7" 1570 IFpa$<>"":qa$=pa$+"."+qa$ 1580 *DIR $ 1590 PROCc("KEY0 |@"+qa$+" -quit :0.$.Menu "+STR$f%+" "+STR$e%):*FX138,0,192 1600 CHAIN":0.$.Scroll" 1610 ENDPROC 1620 DEFPROCva(ga%,qa$) 1630 IFINSTR(qa$,"@")<>0AND(ga%=ASC("P")ORga%=ASC("8"))THENqa$=FNwa(qa$) 1640 IFINSTR(qa$,"@")<>0ANDga%<>ASC("P")ANDga%<>ASC("8")THENqa$=LEFT$(qa$,INSTR(qa$,"@")-1) 1650 ?&80=&C6:?&81=&D6 1660 IFga%=ASC("P")THEN$&A00=qa$:Z%=1:CHAINn$ 1670 IFga%=ASC("8")THEN$&A00=qa$:Z%=0:CHAINn$ 1680 IFga%=ASC("O")THENPROCxa(qa$) 1690 OSCLI"FX225,1":OSCLI"K.0*RUN "+qa$+"|M":OSCLI"FX138 0 128" 1700 PRINTTAB(0,15);CHR$152;:END 1710 ENDPROC 1720 DEFFNwa(qa$) 1730 LOCALga% 1740 CLS 1750 PRINTCHR$(128+ba%);"Which part of the article? (1/2)"; 1760 REPEAT 1770 *FX21 1780 ga%=GET 1790 UNTILga%=49ORga%=50 1800 IFga%=49THEN=LEFT$(qa$,INSTR(qa$,"@")-1) 1810 =MID$(qa$,INSTR(qa$,"@")+1) 1820 DEFPROCxa(qa$) 1830 CLS 1840 PRINTCHR$(128+aa%);"Please press the key to use to"'CHR$(128+aa%);"scroll up..." 1850 ?&80=0 1860 ?&80=FNya 1870 PRINT'CHR$(128+aa%);"Please press the key to use to"'CHR$(128+aa%);"scroll down..." 1880 *FX21 1890 ?&81=FNya 1900 PROCc("KEY0 *LOAD "+qa$+" 1900|M?&1974=?&80:?&1981=?&81|MCALL&1904|F|M") 1910 *FX21 1920 VDU21 1930 PROCd 1940 *FX138,0,128 1950 END 1960 DEFFNya 1970 LOCALA%,B% 1980 REPEAT 1990 A%=&7A 2000 !&70=USR(&FFF4) 2010 B%=255-(?&71) 2020 UNTILB%<>0ANDB%<>182ANDB%<>?&80 2030 =B% 2040 DEFPROCla(f%) 2050 IFf%=1THENRESTORE 2060 IFf%=2THENRESTORE 2220 2070 IFf%=3THENRESTORE 2350 2080 IFf%=4THENRESTORE 2500 2090 IFf%=5THENRESTORE 2650 2100 IFf%=6THENRESTORE 2770 2110 ENDPROC 2120 DATA Main Menu.,8 2130 DATA About This Issue.,,:0,Thi1,-1,-1,0 2140 DATA Program Documentation. Part 1.,,:0,Doc1,-1,-1,0 2150 DATA Program Documentation. Part 2.,,:0,Doc2,-1,-1,0 2160 DATA Magazine Menu 1.,,,,0,0,2 2170 DATA Magazine Menu 2.,,,,0,0,3 2180 DATA Utilities Menu.,,,,0,0,4 2190 DATA Games And Demos.,,,,0,0,5 2200 DATA ADFS Extra Menu.,,,,0,0,6 2210 : 2220 DATA Magazine Menu 1.,11 2230 DATA General Messages.,,:0,Gen,-1,-1,0 2240 DATA For Sale/Wanted.,,:0,Ads,-1,-1,0 2250 DATA Last Messages.,,:0,Last,-1,-1,0 2260 DATA 8BS Adverts.,,:2,8BSad,-1,0,0 2270 DATA Help!,,:0,Help,-1,-1,0 2280 DATA Messages to You.,,:0,uu,-1,-1,0 2290 DATA The Reactor.,,:0,Reactor,-1,-1,0 2300 DATA Editorial.,,:0,Editori,-1,0,0 2310 DATA Suggested Contacts.,,:0,Contact,-1,-1,0 2320 DATA Magazine Menu 2.,,,,0,0,3 2330 DATA Return To Main Menu.,,,,0,0,1 2340 : 2350 DATA Magazine Menu 2.,13 2360 DATA 8BS Messaging System Info.,,:0,QMesInf,-1,-1,0 2370 DATA Text File Reader Info.,,:0,T/Scrol,-1,0,0 2380 DATA Master 512 Part 4.,,:0,512_4,-1,-1,0 2390 DATA Packing Programs.,,:0,Packing,-1,0,0 2400 DATA Hello From A2L. Part 2.,,:2,A2Lart2,-1,0,0 2410 DATA Corn! Story.,,:2,Corn!,-1,0,0 2420 DATA Adventures.,,:0,Advent,-1,-1,0 2430 DATA Dropkick SWR Utility Info.,,:2,Ednote,-1,0,0 2440 DATA Passwords.,,:2,Passwo,-1,-1,0 2450 DATA Poem. PRINTER READY.,CHAIN,:0,WhisBil,0,0,0 2460 DATA Superior Software Offer.,,:2,SupSoft,-1,0,0 2470 DATA Magazine Menu 1.,,,,0,0,2 2480 DATA Return To Main Menu.,,,,0,0,1 2490 : 2500 DATA Utilities Menu.,13 2510 DATA 8BS Messaging System. 2.00C,CHAIN,:2,SendMes,0,0,0 2520 DATA Build A Word Passage.,CHAIN,:2,XNEXTDH,0,0,0 2530 DATA Text Compressor.,CHAIN,:2,TxtComp,0,0,0 2540 DATA Basic Bad Program Fix.,CHAIN,:2,BPrgFix,0,0,0 2550 DATA Text File Reader.,CHAIN,:0,Scroll,0,0,0 2560 DATA Basic Listing Utility.,CHAIN,:2,FormBas,0,0,0 2570 DATA View To Wordwise And ASCII.,CHAIN,:2,View>WW,0,0,0 2580 DATA Mode Generator,CHAIN,:2,ModeGen,0,0,0 2590 DATA Z88 Archiver.,CHAIN,:0,Stop,0,0,0 2600 DATA Dropkick SWR Utility.,CHAIN,:0,Stop,0,0,0 2610 DATA Archiver/De-Archiver.,CHAIN,:2,Arch_De,0,0,0 2620 DATA Calendar.,CHAIN,:2,CalAd,0,0,0 2630 DATA Return To Main Menu.,,,,0,0,1 2640 : 2650 DATA Games And Demos.,10 2660 DATA Amoeba In C.,CHAIN,:2,Amoeba,0,0,0 2670 DATA Patience.,CHAIN,:2,Patnce,0,0,0 2680 DATA Random Word Generator.,CHAIN,:2,WordGen,0,0,0 2690 DATA One Liner.,CHAIN,:2,StarTra,0,0,0 2700 DATA Time Switch Adventure.,CHAIN,:2,TimeSwi,0,0,0 2710 DATA Eliza.,CHAIN,:2,Eliza,0,0,0 2720 DATA Tables Tester.,CHAIN,:2,Tables?,0,0,0 2730 DATA Back to The Puzzle.,CHAIN,:2,Puzquik,0,0,0 2740 DATA Craps Calculator.,CHAIN,:2,Scraps,0,0,0 2750 DATA Return To Main Menu.,,,,0,0,1 2760 : 2770 DATA ADFS Menu.,1 2780 DATAReturn To Main Menu.,,,,0,0,1