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$=" " 300 m$=" " 310 n$=".$.7TO3":REM n$="$.MAG.7TO3" 320 f%=1 330 e%=1 340 PROCo 350 ENDPROC 360 DEFFNS 370 ="Menu" 380 DEFPROCk 390 i%=2 400 p%=6 410 q%=3 420 r%=5 430 s%=3 440 t%=5 450 u%=2 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$;" ";CHR$(144+p%);"ÿ¯¯¯¯¯¯¯¥ÿ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯ÿ"; 580 PRINTCHR$(144+p%);"ÿ¯¯¯¯¯¯¯¯¯¯¯ª¯¯¯¯¯¯¯¯";CHR$(128+r%);"Transfer Utils ";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 DEFPROCea(fa$) 760 VDU22,7 770 PRINTfa$ 780 PROCd 790 END 800 DEFFNf 810 LOCALga%,s$,ha%,ia%,ja$,ka$,ka% 820 REPEAT 830 CLS 840 PROCla(f%) 850 READs$,ha% 860 IFha%>14THENha%=14 870 PRINTTAB(0,0);CHR$(128+s%);TAB(1+(17.5-(LEN(s$)/2)),0);s$ 880 FORia%=1TOha% 890 READja$,ka$,ka$,ka$,ka%,ka%,ka% 900 PRINTTAB(1,1+ia%);" ";CHR$(128+t%);CHR$(64+ia%);CHR$(128+u%);ja$;TAB(35,1+ia%);CHR$156; 910 NEXT 920 PRINTTAB(1,1+e%);CHR$(128+w%);CHR$157; 930 PRINTTAB(0,17);CHR$(128+v%);"Press";CHR$129;"f0";CHR$(128+v%);"for help if necessary..."; 940 REPEAT 950 REPEAT 960 *FX21 970 ga%=GET 980 IFga%>=ASC("a")ANDga%<=ASC("z")THENga%=ga%-32 990 UNTILga%=128ORga%=138ORga%=139ORga%=13OR(ga%>=65ANDga%<=(64+ha%))ORga%=ASC("8")ORga%=ASC("O")ORga%=ASC("P")OR(ga%=27ANDINKEY(-1)) 1000 PRINTTAB(1,1+e%);" "; 1010 IFga%=138ANDe%1THENe%=e%-1 1030 IFga%>=65ANDga%<=(64+ha%)THENe%=ga%-64 1040 PRINTTAB(1,1+e%);CHR$(128+w%);CHR$157; 1050 UNTILga%=13ORga%=128ORga%=ASC("P")ORga%=ASC("8")ORga%=ASC("O")ORga%=27 1060 IFga%=128THENPROCma 1070 UNTILga%=13ORga%=ASC("P")ORga%=ASC("8")ORga%=ASC("O")ORga%=27 1080 =CHR$(ga%)+STR$(e%) 1090 DEFPROCma 1100 LOCALga% 1110 CLS 1120 PRINTTAB(5,0);CHR$(128+x%);"Using the 8BS menu system" 1130 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." 1140 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" 1150 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." 1160 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..."; 1170 REPEAT 1180 *FX21 1190 ga%=GET 1200 UNTILga%=27ORga%=128 1210 IFga%=27THENENDPROC 1220 CLS 1230 PRINTTAB(5,0);CHR$(128+x%);"Using the 8BS menu system" 1240 PRINTTAB(0,2);CHR$(128+y%);"SHIFT and ESCAPE together"'CHR$(128+y%);"at the menu will return you to"'CHR$(128+y%);"BASIC." 1250 PRINTTAB(0,16);CHR$(128+z%);"Press ESCAPE to return to the"'CHR$(128+z%);"menu..."; 1260 REPEAT 1270 *FX21 1280 ga%=GET 1290 UNTILga%=27 1300 ENDPROC 1310 DEFPROCg(e$) 1320 LOCALna%,ka$,oa$,pa$,qa$,ra%,sa%,ta% 1330 PROCla(f%) 1340 READka$,ka% 1350 FORna%=1TOVAL(MID$(e$,2)) 1360 READka$,oa$,pa$,qa$,ra%,sa%,ta% 1370 NEXT 1380 IFta%=0ANDpa$<>""THENPROCc("DIR "+pa$) 1390 IFra%ANDNOTsa%THENPROCua(ASC(LEFT$(e$,1)),qa$):ENDPROC 1400 IFra%ANDsa%THENPROCva(ASC(LEFT$(e$,1)),qa$):ENDPROC 1410 IFta%>0THENf%=ta%:e%=1:ENDPROC 1420 PROCd 1430 IFLEFT$(oa$,1)="*"THENPROCc(oa$+" "+qa$):END 1440 IFoa$="CHAIN"THENCHAINqa$ 1450 IFoa$="LOAD"THENPROCc("KEY0 LOAD "+CHR$(34)+qa$+CHR$(34)+"|MLIST|N|M"):PROCc("FX21"):PROCc("FX138,0,128"):PROCd:VDU22,7:END 1460 END 1470 DEFPROCua(ga%,qa$) 1480 VDU22,3 1490 VDU23;8202;0;0;0; 1500 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 1510 *FX21 1520 *FX229,0 1530 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 1540 PROCc("Type "+qa$) 1550 *FX229,1 1560 ONERRORVDU3:MODE7:REPORT:PRINT" at line ";ERL:PROCc("KEY0 LIST "+STR$(ERL)+"|M"):PROCc("FX138,0,128"):PROCd:END 1570 IFga%<>ASC("P")THENVDU15ELSEVDU3 1580 PRINT'"Press ESCAPE to return to the menu..."; 1590 *FX21 1600 REPEATUNTILGET=27 1610 VDU22,7 1620 VDU23;8202;0;0;0; 1630 PROCo 1640 ENDPROC 1650 DEFPROCva(ga%,qa$) 1660 IFINSTR(qa$,"@")<>0AND(ga%=ASC("P")ORga%=ASC("8"))THENqa$=FNwa(qa$) 1670 IFINSTR(qa$,"@")<>0ANDga%<>ASC("P")ANDga%<>ASC("8")THENqa$=LEFT$(qa$,INSTR(qa$,"@")-1) 1680 ?&80=&C6:?&81=&D6 1690 IFga%=ASC("P")THEN$&A00=qa$:Z%=1:CHAINn$ 1700 IFga%=ASC("8")THEN$&A00=qa$:Z%=0:CHAINn$ 1710 IFga%=ASC("O")THENPROCxa(qa$) 1720 PROCc("RUN "+qa$) 1730 ENDPROC 1740 DEFFNwa(qa$) 1750 LOCALga% 1760 CLS 1770 PRINTCHR$(128+ba%);"Which part? (1/2)"; 1780 REPEAT 1790 *FX21 1800 ga%=GET 1810 UNTILga%=49ORga%=50 1820 IFga%=49THEN=LEFT$(qa$,INSTR(qa$,"@")-1) 1830 =MID$(qa$,INSTR(qa$,"@")+1) 1840 DEFPROCxa(qa$) 1850 CLS 1860 PRINTCHR$(128+aa%);"Please press the key to use to"'CHR$(128+aa%);"scroll up..." 1870 ?&80=0 1880 ?&80=FNya 1890 PRINT'CHR$(128+aa%);"Please press the key to use to"'CHR$(128+aa%);"scroll down..." 1900 *FX21 1910 ?&81=FNya 1920 PROCc("KEY0 *LOAD "+qa$+" 1900|M?&1974=?&80:?&1981=?&81|MCALL&1904|F|M") 1930 *FX21 1940 VDU21 1950 PROCd 1960 *FX138,0,128 1970 END 1980 DEFFNya 1990 LOCALA%,B% 2000 REPEAT 2010 A%=&7A 2020 !&70=USR(&FFF4) 2030 B%=255-(?&71) 2040 UNTILB%<>0ANDB%<>182ANDB%<>?&80 2050 =B% 2060 DEFPROCla(f%) 2070 IFf%=1THENRESTORE 2080 IFf%=2THENRESTORE 2190 2090 ENDPROC 2100 DATA Menu 1.,7 2110 DATA About This Disc.,,,Thi1,-1,-1,0 2120 DATA Tape To Disc Info Part 1.,,,Albert,-1,-1,0 2130 DATA Tape To Disc Info Part 2.,,,Albert2,-1,-1,0 2140 DATA Tape To Disc Info Part 3.,,,Albert3,-1,-1,0 2150 DATA Snapshot Documentation.,,S,SnapDoc,-1,-1,0 2160 DATA TTD Info.,,,TTD,-1,-1,0 2170 DATA Menu 2.,,,,0,0,2 2180 : 2190 DATA Menu 2.,8 2200 DATA DBackup.,CHAIN,,DBackup,0,0,0 2210 DATA DtoA.,CHAIN,,DTOA,0,0,0 2220 DATA T>ADFS.,CHAIN,,T>ADFS,0,0,0 2230 DATA T>DFS.,CHAIN,,T>DFS,0,0,0 2240 DATA TTD_I.,CHAIN,,TTD_I,0,0,0 2250 DATA TTD_II.,CHAIN,,TTD_II,0,0,0 2260 DATA TCopy.,CHAIN,,TCopy,0,0,0 2270 DATA Menu 1.,,,,0,0,1