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$="49"
  300 m$="  9.5.96"
  310 n$=":0.$.7TO3"
  320 IF LEFT$(STR$(V%),5)="984"+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%=5
  390 p%=5
  400 q%=6
  410 r%=3
  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%<ha%THENe%=e%+1
 1080 IFga%=139ANDe%>1THENe%=e%-1
 1090 IFga%>=65ANDga%<=(64+ha%)THENe%=ga%-64
 1100 PRINTTAB(1,1+e%);CHR$(128+w%);CHR$157;
 1110 V%=VAL("984"+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 2150
 2070 IFf%=3THENRESTORE 2280
 2080 IFf%=4THENRESTORE 2430
 2090 ENDPROC
 2100 DATA Disc 2 Software,3
 2110 DATA Utilities Menu 1,,,,0,0,2
 2120 DATA Utilities Menu 2,,,,0,0,3
 2130 DATA Games and Demos Menu,,,,0,0,4
 2140 :
 2150 DATA Utilities 1,11
 2160 DATA 8BS Messaging System 2.00C,CHAIN,:2,SendMes,0,0,0
 2170 DATA 8BS Questionnaire,CHAIN,:0,Quaire,0,0,0
 2180 DATA Robert ROM Image,CHAIN,:0,Robert,0,0,0
 2190 DATA Desk Diary,CHAIN,:0,Diary,0,0,0
 2200 DATA Telephone Database,CHAIN,:0,Info,0,0,0
 2210 DATA Name/Address Database,CHAIN,:0,DBase,0,0,0
 2220 DATA Disc Format Identifier,CHAIN,:0,AorDFS,0,0,0
 2230 DATA Basic Program Protector,CHAIN,:0,BasProt,0,0,0
 2240 DATA Function Key Strip Printer,CHAIN,:0,Kstrip,0,0,0
 2250 DATA Utilities Menu 2,,,,0,0,3
 2260 DATA Return to Main Menu,,,,0,0,1
 2270 :
 2280 DATA Utilities Menu 2,13
 2290 DATA Feel Good Lottery Program,CHAIN,:0,LotGood,0,0,0
 2300 DATA Mode 7 Screen Utility,CHAIN,:0,Prevue7,0,0,0
 2310 DATA When to Ring CJR,CHAIN,:0,WorkRot,0,0,0
 2320 DATA Variables Lister,CHAIN,:2,ProHelp,0,0,0
 2330 DATA Data Transfer,CHAIN,:0,PDT,0,0,0
 2340 DATA Archiver/De-Archiver,CHAIN,:2,Arch_De,0,0,0
 2350 DATA Lottery Data Rescue,CHAIN,:0,LotResc,0,0,0
 2360 DATA Electricity/Gas Consumption,CHAIN,:2,Start,0,0,0
 2370 DATA Compression/Decompression,CHAIN,:0,Stop,0,0,0
 2380 DATA Hot Keys for the 512,CHAIN,:0,Stop,0,0,0
 2390 DATA Utilities From K3L,CHAIN,:0,Stop,0,0,0
 2400 DATA Games and Demos Menu,,,,0,0,4
 2410 DATA Return to Main Menu,,,,0,0,1
 2420 :
 2430 DATA Games and Demos Menu,6
 2440 DATA Secret Maze,CHAIN,:2,SctMaze,0,0,0
 2450 DATA Spelling,CHAIN,:0,LpenSp,0,0,0
 2460 DATA Eureka,CHAIN,:2,Eureka,0,0,0
 2470 DATA Hypnotic Spiral,CHAIN,:2,HypnoSp,0,0,0
 2480 DATA Geordie Brown PRINTER READY!,CHAIN,:2,GBRemem,0,0,0
 2490 DATA Return to Main Menu,,,,0,0,1
 2500 :