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$="40" 300 m$="Feb 1995" 310 n$=":0.$.7TO3" 320 f%=1 330 e%=1 340 PROCo 350 ENDPROC 360 DEFFNS 370 ="Menu" 380 DEFPROCk 390 i%=6 400 p%=5 410 q%=3 420 r%=6 430 s%=5 440 t%=2 450 u%=3 460 v%=3 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 VDU22,3 1560 VDU23;8202;0;0;0; 1570 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 1580 *FX21 1590 *FX229,0 1600 IFga%<>ASC("P")THENPRINT'"Press SHIFT to scroll or ESCAPE for the menu..."':VDU14ELSEPRINT'"Press SPACE when you are ready to print... (Press ESCAPE to quit)"':REPEATUNTILGET=32:VDU2 1610 PROCc("Type "+qa$) 1620 *FX229,1 1630 ONERRORVDU3:MODE7:REPORT:PRINT" at line ";ERL:PROCc("KEY0 LIST "+STR$(ERL)+"|M"):PROCc("FX138,0,128"):PROCd:END 1640 IFga%<>ASC("P")THENVDU15ELSEVDU3 1650 PRINT'"Press ESCAPE to return to the menu..."; 1660 *FX21 1670 REPEATUNTILGET=27 1680 VDU22,7 1690 VDU23;8202;0;0;0; 1700 PROCo 1710 ENDPROC 1720 DEFPROCva(ga%,qa$) 1730 IFINSTR(qa$,"@")<>0AND(ga%=ASC("P")ORga%=ASC("8"))THENqa$=FNwa(qa$) 1740 IFINSTR(qa$,"@")<>0ANDga%<>ASC("P")ANDga%<>ASC("8")THENqa$=LEFT$(qa$,INSTR(qa$,"@")-1) 1750 ?&80=&C6:?&81=&D6 1760 IFga%=ASC("P")THEN$&A00=qa$:Z%=1:CHAINn$ 1770 IFga%=ASC("8")THEN$&A00=qa$:Z%=0:CHAINn$ 1780 IFga%=ASC("O")THENPROCxa(qa$) 1790 PROCc("RUN "+qa$) 1800 ENDPROC 1810 DEFFNwa(qa$) 1820 LOCALga% 1830 CLS 1840 PRINTCHR$(128+ba%);"Which part of the article? (1/2)"; 1850 REPEAT 1860 *FX21 1870 ga%=GET 1880 UNTILga%=49ORga%=50 1890 IFga%=49THEN=LEFT$(qa$,INSTR(qa$,"@")-1) 1900 =MID$(qa$,INSTR(qa$,"@")+1) 1910 DEFPROCxa(qa$) 1920 CLS 1930 PRINTCHR$(128+aa%);"Please press the key to use to"'CHR$(128+aa%);"scroll up..." 1940 ?&80=0 1950 ?&80=FNya 1960 PRINT'CHR$(128+aa%);"Please press the key to use to"'CHR$(128+aa%);"scroll down..." 1970 *FX21 1980 ?&81=FNya 1990 PROCc("KEY0 *LOAD "+qa$+" 1900|M?&1974=?&80:?&1981=?&81|MCALL&1904|F|M") 2000 *FX21 2010 VDU21 2020 PROCd 2030 *FX138,0,128 2040 END 2050 DEFFNya 2060 LOCALA%,B% 2070 REPEAT 2080 A%=&7A 2090 !&70=USR(&FFF4) 2100 B%=255-(?&71) 2110 UNTILB%<>0ANDB%<>182ANDB%<>?&80 2120 =B% 2130 DEFPROCla(f%) 2140 IFf%=1THENRESTORE 2150 IFf%=2THENRESTORE 2300 2160 IFf%=3THENRESTORE 2450 2170 IFf%=4THENRESTORE 2600 2180 IFf%=5THENRESTORE 2750 2190 IFf%=6THENRESTORE 2840 2200 ENDPROC 2210 DATA Main Menu.,7 2220 DATA About This Issue.,,:0,Thi1,-1,-1,0 2230 DATA Program Documentation.,,:0,ProgDoc,-1,-1,0 2240 DATA Magazine Menu 1.,,,,0,0,2 2250 DATA Magazine Menu 2.,,,,0,0,3 2260 DATA Utilities Menu.,,,,0,0,4 2270 DATA Games and Demos.,,,,0,0,5 2280 DATA ADFS Extra Menu.,,,,0,0,6 2290 : 2300 DATA Magazine Menu 1.,11 2310 DATA General Messages 1.,,:0,Gen1,-1,-1,0 2320 DATA General Messages 2.,,:0,Gen2,-1,-1,0 2330 DATA For Sale/Wanted.,,:0,Ads1,-1,-1,0 2350 DATA 8BS Adverts.,,:0,8BSad,-1,-1,0 2360 DATA Help!,,:0,Help1,-1,-1,0 2380 DATA Messages to You.,,:0,uu,-1,-1,0 2390 DATA The Reactor.,,:0,Reactor,-1,-1,0 2400 DATA Editorial.,,:2,Editori,-1,-1,0 2410 DATA Suggested Contacts.,,:0,Contact,-1,-1,0 2420 DATA Magazine Menu 2.,,,,0,0,3 2430 DATA Return To Main Menu.,,,,0,0,1 2440 : 2450 DATA Magazine Menu 2.,13 2460 DATA 8BS Messaging System Info.,,:0,QMesInf,-1,-1,0 2470 DATA Book Loan.,,:0,BookLoa,-1,0,0 2480 DATA History Of 8BS. Part 2.,,:2,8BShis2,-1,0,0 2490 DATA DFS Commands.,,:2,Drives2,-1,0,0 2500 DATA TBI totals.,,:0,TBISort,-1,-1,0 2510 DATA Membership List.,,:2,Memship,-1,-1,0 2520 DATA Disc Formats.,,:0,DiscFmt,-1,-1,0 2530 DATA Combinations.,,:2,Edcombi,-1,0,0 2540 DATA Palindromic Numbers.,,:2,EdPal,-1,0,0 2550 DATA Overlays. Addresses.,,:2,Overlay,-1,0,0 2560 DATA How a PSU Works. Not!,,:0,How,-1,-1,0 2570 DATA Magazine Menu 1.,,,,0,0,2 2580 DATA Return To Main Menu.,,,,0,0,1 2590 : 2600 DATA Utilities Menu.,9 2610 DATA 8BS Messaging System. V 1.07,CHAIN,:2,SendMes,0,0,0 2620 DATA Spreadsheet.,CHAIN,:2,SC_EXE,0,0,0 2630 DATA 3D Magic Eye.,CHAIN,:2,TYPE3D,0,0,0 2640 DATA Change. M/C Relocation.,CHAIN,:2,Change,0,0,0 2650 DATA File Splitter.,CHAIN,:2,Split,0,0,0 2660 DATA File Joiner.,CHAIN,:2,Join,0,0,0 2670 DATA Combinations Example.,CHAIN,:2,Combi,0,0,0 2680 DATA Addresses. Overlay Program.,CHAIN,:2,ADDRESS,0,0,0 2730 DATA Return To Main Menu.,,,,0,0,1 2740 : 2750 DATA Games and Demos Menu.,6 2760 DATA Lottery 3. Choose Numbers.,CHAIN,:2,Lotter3,0,0,0 2770 DATA Lottery 4. Choose Numbers.,CHAIN,:2,NatLot4,0,0,0 2780 DATA Dominoes.,CHAIN,:2,DOMS,0,0,0 2790 DATA Ugly. Poem.,CHAIN,:2,Ugly,0,0,0 2800 DATA Lottery 5. Simulate Lottery.,CHAIN,:2,Lotter5,0,0,0 2820 DATA Return To Main Menu.,,,,0,0,1 2830 : 2840 DATA ADFS Menu.,1 2850 DATA Return To Main Menu.,,,,0,0,1