10 : 20 *FX119 30 MODE3 40 VDU22,7 50 VDU23;8202;0;0;0; 60 PROCa 70 PROCb 80 ONERRORVDU3:MODE7:REPORT:PRINT" at line ";ERL:PROCc("KEY0 LIST "+STR$(ERL)+"|M"):PROCc("FX138,0,128"):PROCd:END 90 REPEAT 100 e$=FNf 110 IFLEFT$(e$,1)<>CHR$(27)THENPROCg(e$):*DIR $ 120 UNTILLEFT$(e$,1)=CHR$(27) 130 MODE7 140 PROCd 150 END 160 : 170 DEFPROCa 180 *FX225,128 190 *FX229,1 200 *FX4,1 210 ENDPROC 220 : 230 DEFPROCd 240 *FX225,1 250 *FX229,0 260 *FX4,0 270 ENDPROC 280 : 290 DEFPROCb 300 DIMh%256 310 i$=FNj 320 PROCk 330 l$="29" 340 m$="Aug 1993" 350 n$="7TO3":REM "$.MAG.7TO3" 360 f%=1 370 e%=1 380 PROCo 390 ENDPROC 400 : 410 DEFFNS 420 ="Menu" 430 : 440 DEFPROCk 450 i%=2 460 p%=6 470 q%=3 480 r%=5 490 s%=2 500 t%=2 510 u%=3 520 v%=2 530 w%=4 540 x%=3 550 y%=7 560 z%=3 570 aa%=7 580 ba%=7 590 ENDPROC 600 : 610 DEFPROCo 620 LOCALca% 630 VDU26,12 640 PRINTCHR$(128+i%);" I.D. ";i$;" ";CHR$(144+p%);"ÿ¯¯¯¯¯¯¯¥ÿ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ÿ"; 650 PRINTCHR$(144+p%);"ÿ¯¯¯¯¯¯¯¯¯¯¯ª¯¯¯¯¯¯¯¯";CHR$(128+r%);" Issue ";LEFT$(l$,2);" ";CHR$(144+p%);"ÿ"; 660 PRINTCHR$(144+p%);"ÿ";CHR$(144+q%);"êë µ €µ ê£àðàðê ° °ð°ðàð   ";CHR$(144+p%);"ÿ"; 670 PRINTCHR$(144+p%);"ÿ";CHR$(144+q%);"ê뢡·µµ· ¢ëêêê€ê¡µŽµœµµê®";CHR$(128+r%);LEFT$(m$,8);CHR$(144+p%);"ÿ"; 680 PRINTCHR$(144+p%);"";CHR$(144+q%);"¢£ £¡¡£¡ ¢£¢£¢ ¢¡££¡¡¡¡¢£   ";CHR$(145);" "; 690 FORca%=1TO18 700 PRINTCHR$(144+p%);"ÿ";SPC(36);CHR$(144+p%);"ÿ"; 710 NEXT 720 PRINTCHR$(144+p%);"ÿüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüÿ"; 730 VDU28,2,22,37,5 740 ENDPROC 750 : 760 DEFPROCc($h%) 770 LOCALX%,Y% 780 X%=h%MOD256 790 Y%=h%DIV256 800 CALL&FFF7 810 ENDPROC 820 : 830 DEFFNj 840 LOCALda%,i$ 850 da%=OPENIN("!Boot") 860 IFda%=0THENPROCea("No !Boot file - unable to read user ID!") 870 PTR#da%=EXT#da%-4 880 i$=CHR$(BGET#da%)+CHR$(BGET#da%)+CHR$(BGET#da%) 890 CLOSE#da% 900 =i$ 910 : 920 DEFPROCea(fa$) 930 VDU22,7 940 PRINTfa$ 950 PROCd 960 END 970 : 980 DEFFNf 990 LOCALga%,s$,ha%,ia%,ja$,ka$,ka% 1000 REPEAT 1010 CLS 1020 PROCla(f%) 1030 READs$,ha% 1040 IFha%>14THENha%=14 1050 PRINTTAB(0,0);CHR$(128+s%);TAB(1+(17.5-(LEN(s$)/2)),0);s$ 1060 FORia%=1TOha% 1070 READja$,ka$,ka$,ka$,ka%,ka%,ka% 1080 PRINTTAB(1,1+ia%);" ";CHR$(128+t%);CHR$(64+ia%);CHR$(128+u%);ja$;TAB(35,1+ia%);CHR$156; 1090 NEXT 1100 PRINTTAB(1,1+e%);CHR$(128+w%);CHR$157; 1110 PRINTTAB(0,17);CHR$(128+v%);"Press";CHR$129;"f0";CHR$(128+v%);"for help if necessary..."; 1120 REPEAT 1130 REPEAT 1140 *FX21 1150 ga%=GET 1160 IFga%>=ASC("a")ANDga%<=ASC("z")THENga%=ga%-32 1170 UNTILga%=128ORga%=138ORga%=139ORga%=13OR(ga%>=65ANDga%<=(64+ha%))ORga%=ASC("8")ORga%=ASC("O")ORga%=ASC("P")OR(ga%=27ANDINKEY(-1)) 1180 PRINTTAB(1,1+e%);" "; 1190 IFga%=138ANDe%1THENe%=e%-1 1210 IFga%>=65ANDga%<=(64+ha%)THENe%=ga%-64 1220 PRINTTAB(1,1+e%);CHR$(128+w%);CHR$157; 1230 UNTILga%=13ORga%=128ORga%=ASC("P")ORga%=ASC("8")ORga%=ASC("O")ORga%=27 1240 IFga%=128THENPROCma 1250 UNTILga%=13ORga%=ASC("P")ORga%=ASC("8")ORga%=ASC("O")ORga%=27 1260 =CHR$(ga%)+STR$(e%) 1270 : 1280 DEFPROCma 1290 LOCALga% 1300 CLS 1310 PRINTTAB(5,0);CHR$(128+x%);"Using the 8BS menu system" 1320 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." 1330 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" 1340 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." 1350 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..."; 1360 REPEAT 1370 *FX21 1380 ga%=GET 1390 UNTILga%=27ORga%=128 1400 IFga%=27THENENDPROC 1410 CLS 1420 PRINTTAB(5,0);CHR$(128+x%);"Using the 8BS menu system" 1430 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." 1440 PRINTTAB(0,16);CHR$(128+z%);"Press ESCAPE to return to the"'CHR$(128+z%);"menu..."; 1450 REPEAT 1460 *FX21 1470 ga%=GET 1480 UNTILga%=27 1490 ENDPROC 1500 : 1510 DEFPROCg(e$) 1520 LOCALna%,ka$,oa$,pa$,qa$,ra%,sa%,ta% 1530 PROCla(f%) 1540 READka$,ka% 1550 FORna%=1TOVAL(MID$(e$,2)) 1560 READka$,oa$,pa$,qa$,ra%,sa%,ta% 1570 NEXT 1580 IFta%=0ANDpa$<>""THENPROCc("DIR "+pa$) 1590 IFra%ANDNOTsa%THENPROCua(ASC(LEFT$(e$,1)),qa$):ENDPROC 1600 IFra%ANDsa%THENPROCva(ASC(LEFT$(e$,1)),qa$):ENDPROC 1610 IFta%>0THENf%=ta%:e%=1:ENDPROC 1620 PROCd 1630 IFLEFT$(oa$,1)="*"THENPROCc(oa$+" "+qa$):END 1640 IFoa$="CHAIN"THENCHAINqa$ 1650 IFoa$="LOAD"THENPROCc("KEY0 LOAD "+CHR$(34)+qa$+CHR$(34)+"|MLIST|N|M"):PROCc("FX21"):PROCc("FX138,0,128"):PROCd:VDU22,7:END 1660 END 1670 : 1680 DEFPROCua(ga%,qa$) 1690 VDU22,3 1700 VDU23;8202;0;0;0; 1710 *FX21 1720 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 1730 ONERRORIFERR=17THENPROCc("FX229,1"):VDU3,22,7:VDU23;8202;0;0;0;:PROCo:GOTO80ELSEVDU3:MODE7:REPORT:PRINT" at line ";ERL:PROCc("KEY0 LIST "+STR$(ERL)+"|M"):PROCc("FX138,0,128"):PROCd:END 1740 *FX229,0 1750 PROCc("Type "+qa$) 1760 *FX229,1 1770 ONERRORVDU3:MODE7:REPORT:PRINT" at line ";ERL:PROCc("KEY0 LIST "+STR$(ERL)+"|M"):PROCc("FX138,0,128"):PROCd:END 1780 IFga%<>ASC("P")THENVDU15ELSEVDU3 1790 PRINT'"Press ESCAPE to return to the menu..."; 1800 *FX21 1810 REPEATUNTILGET=27 1820 VDU22,7 1830 VDU23;8202;0;0;0; 1840 PROCo 1850 ENDPROC 1860 : 1870 DEFPROCva(ga%,qa$) 1880 IFINSTR(qa$,"@")<>0AND(ga%=ASC("P")ORga%=ASC("8"))THENqa$=FNwa(qa$) 1890 IFINSTR(qa$,"@")<>0ANDga%<>ASC("P")ANDga%<>ASC("8")THENqa$=LEFT$(qa$,INSTR(qa$,"@")-1) 1900 ?&80=&C6:?&81=&D6 1910 IFga%=ASC("P")THEN$&A00=qa$:Z%=1:CHAINn$ 1920 IFga%=ASC("8")THEN$&A00=qa$:Z%=0:CHAINn$ 1930 IFga%=ASC("O")THENPROCxa(qa$) 1940 PROCc("RUN "+qa$) 1950 ENDPROC 1960 : 1970 DEFFNwa(qa$) 1980 LOCALga% 1990 CLS 2000 PRINTCHR$(128+ba%);"Which part of the article? (1/2)"; 2010 REPEAT 2020 *FX21 2030 ga%=GET 2040 UNTILga%=49ORga%=50 2050 IFga%=49THEN=LEFT$(qa$,INSTR(qa$,"@")-1) 2060 =MID$(qa$,INSTR(qa$,"@")+1) 2070 : 2080 DEFPROCxa(qa$) 2090 CLS 2100 PRINTCHR$(128+aa%);"Please press the key to use to"'CHR$(128+aa%);"scroll up..." 2110 ?&80=0 2120 ?&80=FNya 2130 PRINT'CHR$(128+aa%);"Please press the key to use to"'CHR$(128+aa%);"scroll down..." 2140 *FX21 2150 ?&81=FNya 2160 PROCc("KEY0 *LOAD "+qa$+" 1900|M?&1974=?&80:?&1981=?&81|MCALL&1904|F|M") 2170 *FX21 2180 VDU21 2190 PROCd 2200 *FX138,0,128 2210 END 2220 : 2230 DEFFNya 2240 LOCALA%,B% 2250 REPEAT 2260 A%=&7A 2270 !&70=USR(&FFF4) 2280 B%=255-(?&71) 2290 UNTILB%<>0ANDB%<>182ANDB%<>?&80 2300 =B% 2310 DEFPROCla(f%) 2320 IFf%=1THENRESTORE 2330 IFf%=2THENRESTORE2550 2340 IFf%=3THENRESTORE2630 2350 IFf%=4THENRESTORE2660 2360 IFf%=5THENRESTORE2810 2370 IFf%=6THENRESTORE 2380 IFf%=7THENRESTORE 2390 ENDPROC 2400 : 2410 DATA Magazine menu 1.,12 2420 DATA About this issue.,,,Thi1,-1,-1,0 2430 DATA News and views.,,,News,-1,-1,0 2440 DATA Messages and ads.,,,Mes1@Mes2,-1,-1,0 2450 DATA Messages to you.,,,uu,-1,-1,0 2460 DATA The reactor.,,,Reactor,-1,-1,0 2470 DATA Program Documentation.,,,ProgDoc,-1,-1,0 2480 DATA Electronics. Part2.,,,Elec2,-1,0,0 2490 DATA Electronic mail.,,,Email,-1,-1,0 2500 DATA Mag menu 2.,,,,0,0,2 2510 DATA ADFS extra software menu.,,,,0,0,3 2520 DATA Utilities menu.,,,,0,0,4 2530 DATA Games/Cheats/Pics menu.,,,,0,0,5 2540 : 2550 DATA Magazine menu 2.,6 2560 DATA Presenting programs 6.,,,Pres6,-1,0,0 2570 DATA Messaging system info.,,,Mesinf,-1,-1,0 2580 DATA Prisoner's dilemma text.,,,PrisTxt,-1,0,0 2590 DATA Nectar Collector text.,,,NecText,-1,-1,0 2600 DATA DFS/ADFS Menu System info.,,,GMenInf,-1,-1,0 2610 DATA Return to main menu.,,,,0,0,1 2620 : 2630 DATA ADFS menu.,1 2640 DATA Return to main menu.,,,,0,0,1 2650 : 2660 DATA Utilities menu.,14 2670 DATA DFS/ADFS Menu System.,CHAIN,:2,P/GMENU,0,0,0 2680 DATA Presenting progs Ex. 1.,CHAIN,:2,F.SD1,0,0,0 2690 DATA Presenting progs Ex. 2.,CHAIN,:2,F.SD2,0,0,0 2700 DATA Presenting progs Ex. 3.,CHAIN,:2,F.SD3,0,0,0 2710 DATA ADFS directory wipe.,CHAIN,:2,DWSrce,0,0,0 2720 DATA Wavey.,CHAIN,:2,Wavey,0,0,0 2730 DATA 8BS Messaging System.,CHAIN,:2,SendMes,0,0,0 2740 DATA Printer driver.,CHAIN,:2,PDrv,0,0,0 2750 DATA Printer driver function strip.,CHAIN,:2,PdrStr,0,0,0 2760 DATA One liner ADFS COMPACT.,CHAIN,:2,Compact,0,0,0 2770 DATA Decision maker.,CHAIN,:2,Decisn,0,0,0 2780 DATA Archi-BBC Screen transfer.,CHAIN,:2,STOP,0,0,0 2785 DATA 4 Mode 0 screens into 1.,CHAIN,:2,Shrink,0,0,0 2790 DATA Return to main menu.,,,,0,0,1 2800 : 2810 DATA Games/Cheats/Pics menu.,9 2820 DATA Prisoner's Dilemma.,CHAIN,:2,PrisDel,0,0,0 2830 DATA Pricing codes.,CHAIN,:2,PriceEi,0,0,0 2840 DATA Krakout cheat.,CHAIN,:2,KrakCht,0,0,0 2850 DATA Sorceror's Domain cheat.,CHAIN,:2,SorCht,0,0,0 2860 DATA Supreme cheat.,CHAIN,:2,STOP,0,0,0 2870 DATA One Liner.,CHAIN,:2,1K1,0,0,0 2880 DATA Come on Kevin.,CHAIN,:2,Marry,0,0,0 2885 DATA 8BS Pictures (Shrink example).,CHAIN,:2,PicLoad,0,0,0 2890 DATA Return to main menu.,,,,0,0,1