10 REM>Menu 2.00
   20 D%=20:REM NUMBER OF FLAKES
   30 DIMC%(D%):FORL%=0TOD%:C%(L%)=RND(&400)+&7CF0:NEXT
   40 REM C%(0)=0:REM REMOVE REM FROM HERE FOR NO SNOW
   50 *FX119
   60 MODE3
   70 VDU22,7
   80 VDU23;8202;0;0;0;
   90 PROCa
  100 PROCb
  110 A$=FNOS_GetEnv:IFA$<>"":f%=VALA$:A$=MID$(A$,INSTR(A$+" "," ")+1):IFA$<>"":e%=VALA$:A$=""
  120 ONERRORVDU3:MODE7:REPORT:PRINT" at line ";ERL:PROCc("KEY0 LIST "+STR$(ERL)+"|M"):PROCc("FX138,0,128"):PROCd:END
  130 REPEAT
  140 e$=FNf
  150 IFLEFT$(e$,1)<>CHR$(27)THENPROCg(e$):*DIR $
  160 UNTILLEFT$(e$,1)=CHR$(27)
  170 MODE7
  180 PROCd
  190 END
  200 DEFPROCa
  210 *FX225,128
  220 *FX229,1
  230 *FX4,1
  240 ENDPROC
  250 DEFPROCd
  260 *FX225,1
  270 *FX229,0
  280 *FX4,0
  290 ENDPROC
  300 DEFPROCb
  310 DIMh%256,ctrl%20,data%20
  320 i$=FNj
  330 PROCk
  340 l$="46"
  350 m$="14.12.95"
  360 n$=":0.$.7TO3"
  370 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:REM f%=Displayed menu, e%=Displayed Item
  380 PROCo
  390 ENDPROC
  400 DEFFNS
  410 =MID$($(PAGE+4),1+INSTR($(PAGE+4),">"))
  420 DEFPROCk
  430 i%=7
  440 p%=1
  450 q%=7
  460 r%=6
  470 s%=2
  480 t%=6
  490 u%=3
  500 v%=2
  510 w%=4
  520 x%=3
  530 y%=2
  540 z%=3
  550 aa%=7
  560 ba%=7
  570 ENDPROC
  580 DEFFNOS_GetEnv:LOCALA$,A%,X%,Y%
  590 IFINKEY(0)=0:REPEAT A%=INKEY(0):A$=A$+CHR$A%:UNTIL A%=-1:OSCLI"KEY0":=LEFT$(A$,LENA$-1+(RIGHT$(A$,2)<" "))
  600 IF(INKEY-256 AND &F0)=&A0 AND PAGE>&8000:LOADATN "OS_GetEnv" TO A$:=MID$(A$,1+INSTR(A$," ",1+INSTR(A$," ",1+INSTR(A$," "))))
  610 X%=ctrl%:Y%=X%DIV256:A%=9:?X%=0:X%!1=data%:!data%=0:CALL&FFD1:IF!data%AND?data%+data%?2<>8:data%?(1+?data%)=13:=$(data%+1)
  620 =""
  630 DEFPROCo
  640 LOCALca%
  650 VDU26,12
  660 PRINTCHR$(128+i%);" I.D. ";i$;" ";CHR$(144+p%);"����������������������������";
  670 PRINTCHR$(144+p%);"���������������������";CHR$(128+r%);"Issue 46 Disc 1";CHR$(144+p%);"�";
  680 PRINTCHR$(144+p%);"�";CHR$(144+q%);"��  ����  �����꠰ �����       ";CHR$(144+p%);"�";
  690 PRINTCHR$(144+p%);"�";CHR$(144+q%);"�뢡����  �����꡵������";CHR$(128+r%);LEFT$(m$,8);CHR$(144+p%);"�";
  700 PRINTCHR$(144+p%);"�";CHR$(144+q%);"��  ����� ����� ������������       ";CHR$(145);" ";
  710 FORca%=1TO18
  720 PRINTCHR$(144+p%);"�";SPC(36);CHR$(144+p%);"�";
  730 NEXT
  740 PRINTCHR$(144+p%);"���������������������������������������";
  750 VDU28,2,22,37,5
  760 ENDPROC
  770 DEFPROCc($h%)
  780 LOCALX%,Y%
  790 X%=h%MOD256
  800 Y%=h%DIV256
  810 CALL&FFF7
  820 ENDPROC
  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 DEFPROCea(fa$)
  920 VDU22,7
  930 PRINTfa$
  940 PROCd
  950 END
  960 DEFFNf
  970 LOCALga%,s$,ha%,ia%,ja$,ka$,ka%
  980 REPEAT
  990 CLS
 1000 PROCla(f%)
 1010 READs$,ha%
 1020 IFha%>14THENha%=14
 1030 PRINTTAB(0,0);CHR$(128+s%);TAB(1+(17.5-(LEN(s$)/2)),0);s$
 1040 FORia%=1TOha%
 1050 READja$,ka$,ka$,ka$,ka%,ka%,ka%
 1060 PRINTTAB(1,1+ia%);"  ";CHR$(128+t%);CHR$(64+ia%);CHR$(128+u%);ja$;TAB(35,1+ia%);CHR$156;
 1070 NEXT
 1080 PRINTTAB(1,1+e%);CHR$(128+w%);CHR$157;
 1090 PRINTTAB(0,17);CHR$(128+v%);"Press";CHR$129;"f0";CHR$(128+v%);"for help if necessary...";
 1100 PRINTTAB(0,16);"�����������������������������������";
 1110 REPEAT
 1120 REPEAT
 1130 REM *FX21
 1140 ga%=INKEY(0):IF ga%=-1PROCx
 1150 IFga%>=ASC("a")ANDga%<=ASC("z")THENga%=ga%-32
 1160 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))
 1170 PRINTTAB(1,1+e%);"  ";
 1180 IFga%=138ANDe%<ha%THENe%=e%+1
 1190 IFga%=139ANDe%>1THENe%=e%-1
 1200 IFga%>=65ANDga%<=(64+ha%)THENe%=ga%-64
 1210 PRINTTAB(1,1+e%);CHR$(128+w%);CHR$157;
 1220 V%=VAL("985"+l$+RIGHT$("0"+STR$(f%),2)+RIGHT$("0"+STR$(e%),2))
 1230 UNTILga%=13ORga%=128ORga%=ASC("P")ORga%=ASC("8")ORga%=ASC("O")ORga%=27ORga%=ASC("4")
 1240 IFga%=128THENPROCma
 1250 UNTILga%=13ORga%=ASC("P")ORga%=ASC("8")ORga%=ASC("O")ORga%=27ORga%=ASC("4")
 1260 =CHR$(ga%)+STR$(e%)
 1270 DEFPROCma
 1280 LOCALga%
 1290 CLS
 1300 PRINTTAB(5,0);CHR$(128+x%);"Using the 8BS menu system"
 1310 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."
 1320 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"
 1330 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."
 1340 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...";
 1350 REPEAT
 1360 *FX21
 1370 ga%=GET
 1380 UNTILga%=27ORga%=128
 1390 IFga%=27THENENDPROC
 1400 CLS
 1410 PRINTTAB(5,0);CHR$(128+x%);"Using the 8BS menu system"
 1420 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.":PRINTCHR$(128+y%)"Pressing 4 displays an 80 column"'CHR$(128+y%)"article in Mode 7."
 1430 PRINTTAB(0,16);CHR$(128+z%);"Press ESCAPE to return to the"'CHR$(128+z%);"menu...";
 1440 REPEAT
 1450 *FX21
 1460 ga%=GET
 1470 UNTILga%=27
 1480 ENDPROC
 1490 DEFPROCg(e$)
 1500 LOCALna%,ka$,oa$,pa$,qa$,ra%,sa%,ta%
 1510 PROCla(f%)
 1520 READka$,ka%
 1530 FORna%=1TOVAL(MID$(e$,2))
 1540 READka$,oa$,pa$,qa$,ra%,sa%,ta%
 1550 NEXT
 1560 IFta%=0ANDpa$<>""THENPROCc("DIR "+pa$)
 1570 IFra%ANDNOTsa%THENPROCua(ASC(LEFT$(e$,1)),qa$):ENDPROC
 1580 IFra%ANDsa%THENPROCva(ASC(LEFT$(e$,1)),qa$):ENDPROC
 1590 IFta%>0THENf%=ta%:e%=1:ENDPROC
 1600 PROCd
 1610 IFLEFT$(oa$,1)="*"THENPROCc(oa$+" "+qa$):END
 1620 IFoa$="CHAIN"THENCHAINqa$
 1630 IFoa$="LOAD"THENPROCc("KEY0 LOAD "+CHR$(34)+qa$+CHR$(34)+"|MLIST|N|M"):PROCc("FX21"):PROCc("FX138,0,128"):PROCd:VDU22,7:END
 1640 END
 1650 DEFPROCua(ga%,qa$):REM Text file
 1660 IFga%=ASC("4")THEN$&A00=pa$+"."+qa$:CHAIN":0.3TO7"
 1670 IFpa$<>"":qa$=pa$+"."+qa$
 1680 *DIR $
 1690 PROCc("KEY0 |@"+qa$+" -quit :0.$.Menu "+STR$f%+" "+STR$e%):*FX138,0,192
 1700 CHAIN":0.$.Scroll"
 1710 REM Above should work on DFS/ADFS/HADFS
 1720 ENDPROC
 1730 DEFPROCva(ga%,qa$)
 1740 IFINSTR(qa$,"@")<>0AND(ga%=ASC("P")ORga%=ASC("8"))THENqa$=FNwa(qa$)
 1750 IFINSTR(qa$,"@")<>0ANDga%<>ASC("P")ANDga%<>ASC("8")THENqa$=LEFT$(qa$,INSTR(qa$,"@")-1)
 1760 ?&80=&C6:?&81=&D6
 1770 IFga%=ASC("P")THEN$&A00=qa$:Z%=1:CHAINn$
 1780 IFga%=ASC("8")THEN$&A00=qa$:Z%=0:CHAINn$
 1790 IFga%=ASC("O")THENPROCxa(qa$)
 1800 OSCLI"FX225,1":OSCLI"K.0*RUN "+qa$+"|M":*FX138,0,192
 1810 PRINTTAB(0,15);CHR$152;:END
 1820 ENDPROC
 1830 DEFFNwa(qa$)
 1840 LOCALga%
 1850 CLS
 1860 PRINTCHR$(128+ba%);"Which part of the article? (1/2)";
 1870 REPEAT
 1880 *FX21
 1890 ga%=GET
 1900 UNTILga%=49ORga%=50
 1910 IFga%=49THEN=LEFT$(qa$,INSTR(qa$,"@")-1)
 1920 =MID$(qa$,INSTR(qa$,"@")+1)
 1930 DEFPROCxa(qa$)
 1940 CLS
 1950 PRINTCHR$(128+aa%);"Please press the key to use to"'CHR$(128+aa%);"scroll up..."
 1960 ?&80=0
 1970 ?&80=FNya
 1980 PRINT'CHR$(128+aa%);"Please press the key to use to"'CHR$(128+aa%);"scroll down..."
 1990 *FX21
 2000 ?&81=FNya
 2010 PROCc("KEY0 *LOAD "+qa$+" 1900|M?&1974=?&80:?&1981=?&81|MCALL&1904|F|M")
 2020 *FX21
 2030 VDU21
 2040 PROCd
 2050 *FX138,0,128
 2060 END
 2070 DEFFNya
 2080 LOCALA%,B%
 2090 REPEAT
 2100 A%=&7A
 2110 !&70=USR(&FFF4)
 2120 B%=255-(?&71)
 2130 UNTILB%<>0ANDB%<>182ANDB%<>?&80
 2140 =B%
 2150 DEFPROCx:IF C%(0)=0 ENDPROC
 2160 FORL%=0 TO RND(D%/2)+D%/2
 2170 IF?C%(L%)=135:IF?(C%(L%)+1)=42:?(C%(L%)+1)=32:?C%(L%)=32
 2180 C%(L%)=C%(L%)+38+RND(3):IF C%(L%)>&7F88 C%(L%)=RND(40)+&7CF0
 2190 IF?C%(L%)=32:IF?(C%(L%)+1)=32 ?C%(L%)=135:?(C%(L%)+1)=42
 2200 NEXT
 2210 ENDPROC
 2220 DEFPROCla(f%)
 2230 IFf%=1THENRESTORE
 2240 IFf%=2THENRESTORE 2400
 2250 IFf%=3THENRESTORE 2530
 2260 IFf%=5THENRESTORE 2670
 2270 IFf%=6THENRESTORE 2780
 2280 IFf%=7THENRESTORE 2910
 2290 ENDPROC
 2300 DATA Main Menu.,8
 2310 DATA About This Issue.,,:0,Thi1,-1,-1,0
 2320 DATA Program Documentation Part 1.,,:0,Doc1@Doc2,-1,-1,0
 2330 DATA Program Documentation Part 2.,,:0,Doc2,-1,-1,0
 2340 DATA Magazine Menu 1.,,,,0,0,2
 2350 DATA Magazine Menu 2.,,,,0,0,3
 2360 DATA Utilities Menu.,,,,0,0,5
 2370 DATA Games And Demos.,,,,0,0,6
 2380 DATA Merry Christmas.,,,,0,0,7
 2390 :
 2400 DATA Magazine Menu 1.,11
 2410 DATA General Messages.,,:0,Gen,-1,-1,0
 2420 DATA For Sale/Wanted.,,:0,Ads,-1,-1,0
 2430 DATA 8BS Adverts.,,:0,8BSad,-1,0,0
 2440 DATA Help1.,,:0,Help1@Help2,-1,-1,0
 2450 DATA Help2.,,:0,Help2,-1,-1,0
 2460 DATA Messages to You.,,:0,uu,-1,-1,0
 2470 DATA The Reactor.,,:0,Reactor,-1,-1,0
 2480 DATA Editorial.,,:2,Editori,-1,0,0
 2490 DATA Suggested Contacts.,,:0,Contact,-1,-1,0
 2500 DATA Magazine Menu 2.,,,,0,0,3
 2510 DATA Return To Main Menu.,,,,0,0,1
 2520 :
 2530 DATA Magazine Menu 2.,12
 2540 DATA 8BS Messaging System Info.,,:0,QMesInf,-1,-1,0
 2550 DATA Text File Reader Info.,,:0,T/Scrol,-1,0,0
 2560 DATA Superior Software Offer.,,:0,SupSoft,-1,0,0
 2570 DATA Sorts.,,:2,Sorts,-1,0,0
 2580 DATA Mary. A Story.,,:2,Mary,-1,0,0
 2590 DATA Massages From K6X.,,:2,FromK6X,-1,-1,0
 2600 DATA Adverts From D5B And 4WL.,,:2,TwoAds,-1,0,0
 2610 DATA A History of 8BS in Hedon.,,:2,8Hist,-1,0,0
 2620 DATA Turkey Poem. PRINTER READY!,CHAIN,:2,GBTURKY,0,0,0
 2630 DATA Two Articles From 4WL.,,:2,From4WL,-1,0,0
 2640 DATA Magazine Menu 1.,,,,0,0,2
 2650 DATA Return To Main Menu.,,,,0,0,1
 2660 :
 2670 DATA Utilities Menu.,9
 2680 DATA 8BS Messaging System. V 2.0,CHAIN,:2,SendMes,0,0,0
 2690 DATA Music Stave Printer.,CHAIN,:2,PStaves,0,0,0
 2700 DATA Basic Program>Text File.,CHAIN,:2,Bas>Txt,0,0,0
 2710 DATA Mode 7 Screen Editor.,CHAIN,:2,ScrEdit,0,0,0
 2720 DATA Screen Saver.,CHAIN,:2,ScrSave,0,0,0
 2730 DATA Puzzle And Answer.,CHAIN,:2,Puzzle,0,0,0
 2740 DATA Phases of The Moon.,CHAIN,:2,Moon,0,0,0
 2750 DATA Interword Utility.,CHAIN,:0,Stop,0,0,0
 2760 DATA Return To Main Menu.,,,,0,0,1
 2770 :
 2780 DATA Games And Demos Menu.,11
 2790 DATA Santa.,CHAIN,:2,SantaLd,0,0,0
 2800 DATA Dice Game.,CHAIN,:2,Craps,0,0,0
 2810 DATA Judas. Elite Game File.,CHAIN,:0,Stop,0,0,0
 2820 DATA M25 Adventure.,CHAIN,:2,M25!,0,0,0
 2830 DATA Polygram. Read Info!,CHAIN,:2,Poly,0,0,0
 2840 DATA Amoeba. Version 1.,CHAIN,:2,AMF,0,0,0
 2850 DATA Amoeba. Version 2.,CHAIN,:2,AMFV2,0,0,0
 2860 DATA The Search For Riemannian.,CHAIN,:2,RIEMAN,0,0,0
 2870 DATA Push The Bale Solution.,CHAIN,:2,Solutio,0,0,0
 2880 DATA Electrical Phases.,CHAIN,:2,ElecPh,0,0,0
 2890 DATA Return To Main Menu.,,,,0,0,1
 2900 :
 2910 DATA Merry Christmas!,1
 2920 DATA Return To Main Menu.,,,,0,0,1