Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf » WELCOME/Intro

WELCOME/Intro

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf
Filename: WELCOME/Intro
Read OK:
File size: 0DB1 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10VDU6:*FX4,1
   20*FX220,27
   30VDU6:N=18:t=TRUE:ENVELOPE1,1,-RND(50),-RND(50),-RND(45),255,255,255,127,0,0,-127,127,0:B$="ACORN":E$="ELECTRON":H$=CHR$31+CHR$12+CHR$11+"HOURS: ":M$=CHR$31+CHR$10+CHR$13+"MINUTES: ":S$=CHR$31+CHR$10+CHR$15+"SECONDS: ":o=&FFEE:T=&FFF1:B%=P%:PROCA:P%=B%:B=692:C=104:D=320:E=592:F=5:G=2:I=576:J=2:K=300
   40L=664:MODE2:IFH%<>&CCTHEN90
   50ONERRORGOTO90
   60SOUND1,1,255,255:FORI%=0TO15:VDU19,I%,0;0;:NEXT:VDU19,1,2;0;19,2,7;0;19,3,7;0;5,23,255,-1;-1;-1;-1;18,0,131,16,18,0,129,24,128;128;1152;896;16,18,0,131,24,256;256;1024;768;16,26:FORJ%=1TOLENB$:I%=L-C*LENB$/2+C*(J%-1):PROCS(B):PROCL:NEXT:FORJ%=1TOLENE$:I%=D+64*J%:PROCS(E):GCOL0,7+J%:MOVEI%,E
   70PRINTMID$(E$,J%,1);:NEXT:PROCC:O=TIME:REPEATFORI%=0TO6:FORJ%=8TO15:*FX19
   80VDU19,J%,(J%+I%)MOD7;0;:NEXT,:UNTILTIME-O>500
   90*FX15
  100ONERRORGOTO190
  110MODE1:PROCO:VDU19,2,2;0;:COLOUR130:VDU28,0,31,39,0:CLS:VDU28,1,30,38,1:COLOUR131:CLS:IFH%<>&CCTHEN140
  120H%=0:COLOUR1:PROCD("Welcome to the Acorn Electron",VPOS+2):COLOUR0:PRINT''''SPC3"This  disc  contains several"':PRINTSPC3"programs,  of  which  this is the"':PRINTSPC3"first."''':PRINTSPC3"Each  program  is  identified  by"':PRINTSPC3"its  program  name.  The  program"'
  130PRINTSPC3"name  should  also  give  you  an"':PRINTSPC3"idea  of  what  the program does."':PROCP
  140REPEAT:CLS:COLOUR0:PROCE("The programs are :-",2):RESTORE170:FORI%=1TON-1:READN$:COLOURI%AND1:PRINTTAB(10,I%+3);CHR$(I%+65):PRINTTAB(14,I%+3)N$:NEXT:COLOUR0:PROCE("To leave any one program,",VPOS+1):PRINTTAB(10,VPOS+1)"just press ";:COLOUR7:COLOUR128:PRINT"ESCAPE":COLOUR0:COLOUR135:PROCE("Choose a program from the list :-",VPOS+1)
  150PRINTTAB(10,VPOS+1)"type in the letter":PRINTTAB(10,VPOS+1)"try it now ! ":*FX15
  160R$=GET$:UNTILASC(R$)>64ANDASC(R$)<(N+65):P%=ASC(R$)-64
  170DATA KEYBOARD,SKETCH,PIANO,BIORHYTHMS,CLOCK,GOMOKU,PATTERNS,MARSLANDER,BUGZAP,DEMO,ISLAND,PLANETS,SNAPPER,DRAUGHTS,REVERSI,BYE,UTILITIES
  180GOTO230
  190IFERR<>17REPORT:PRINT" at line ";ERL:END
  200IFtTHEN230
  210CLS:PROCE("Before continuing to the next",4):PROCE("program, please enter the time.",VPOS+1):PROCE("Use the 24 hour clock - e.g. 3.30",VPOS+1):PROCE("in the afternoon is entered as:",VPOS+1):PRINTH$;15;M$;30;S$;0:PROCP:CLS:PROCD("Please enter the time -",4):PRINT''''SPC(4)"(Press ";:COLOUR7:COLOUR128
  220PRINT"RETURN";:COLOUR0:COLOUR135:PRINT" after each line)":REPEATPRINTH$;:H=FNN(24):UNTILH<>-1:REPEATPRINTM$;:M=FNN(60):UNTILM<>-1:REPEATPRINTS$;:S=FNN(60):UNTILS<>-1:TIME=100*((H*60+M)*60+S):t=TRUE:PROCP
  230VDU26:COLOUR128:CLS:VDU20:VDU21:*FX18
  240*FX220,0
  250CHAIN"BOOT":END
  260DEFFNN(V):PROCN:INPUTLINE""A$:PROCO:A=VALA$:IFA<VTHEN=A
  270PRINTTAB(0,20);"Please enter a number between 0 and ";V-1:PROCP:PRINTTAB(0,20);SPC(159);:=-1
  280DEFPROCL:GCOL0,1:GCOL0,135:MOVEI%,B:VDU255:MOVEI%,B+4:DRAWI%+56,B+4:MOVEI%+8,B+8:DRAWI%+48,B+8:MOVEI%-8,B:DRAWI%-8,B-24:MOVEI%+8,B-32:DRAWI%+48,B-32:MOVEI%+64,B:DRAWI%+64,B-24:GCOL0,2:GCOL0,129:MOVEI%,B:PRINTMID$(B$,J%,1);:ENDPROC
  290DEFPROCS(Y%):K%=0:L%=1272:T%=0:W%=1020:U%=(I%+32-K%)DIVF:V%=(Y%-16-T%)DIVF:F%=(I%+32-L%)DIVF:G%=(Y%-16-W%)DIVF:N%=K%:O%=K%:Q%=L%:S%=L%:a%=T%:b%=W%:c%=T%:d%=W%:PROCT:FORE%=1TOF:PROCT:N%=N%+U%:O%=O%+U%:Q%=Q%+F%:S%=S%+F%:a%=a%+V%:b%=b%+G%:c%=c%+V%:d%=d%+G%:PROCT:NEXT:PROCT:ENDPROC
  300DEFPROCT:MOVEN%-U%,a%-V%:PLOT6,N%,a%:MOVEO%-U%,b%-G%:PLOT6,O%,b%:MOVEQ%-F%,a%-V%:PLOT6,Q%,c%:MOVES%-F%,d%-G%:PLOT6,S%,d%:ENDPROC
  310DEFFNY
  320X%=GET:X%=X%AND&DF:IFX%<>ASC"Y"ANDX%<>ASC"N"THEN320
  330IFX%=ASC"Y"THEND%=TRUEELSED%=FALSE
  340VDUX%,8:=D%
  350DEFPROCE(A$,y%)PRINTTAB((38-LENA$)/2,y%)A$;:ENDPROC
  360DEFPROCPCOLOUR1:PROCE("Press the SPACE BAR to continue",27):COLOUR0:*FX15,1
  370REPEATUNTILGET$=" ":ENDPROC
  380DEFPROCC:GCOL0,1:FORZ%=0TO50:Y%=Z%+7:R%=Z%-25:MOVEY%*G+I,50*J+K:DRAWY%*G+I,(92-R%*R%/16)*J+K:NEXT:FORZ%=0TO56:Y%=Z%+4:R%=Z%-28:MOVEY%*G+I,45*J+K:DRAWY%*G+I,(R%*R%/35+20)*J+K:NEXT:FORZ%=0TO8:Y%=Z%+28:MOVEY%*G+I,20*J+K:DRAWY%*G+I,10*J+K:NEXT:MOVEI,18*J+K:MOVE45*G+I,K:PLOT85,I,26*J+K:PLOT85,45*G+I,8*J+K:ENDPROC
  390DEFPROCOVDU23,1,0;0;0;0;:ENDPROC
  400DEFPROCNVDU23,1,1;0;0;0;:ENDPROC
  410DEFPROCD(A$,y%)PRINTTAB((38-LENA$)/2,y%);:FORC%=1TOLENA$:A%=ASCMID$(A$,C%,1):CALLd:NEXT:ENDPROC
  420DEFPROCA:DIMM%100:FORI%=0TO2STEP2:P%=M%:[OPTI%:.d:STA b:LDA#10:LDX#bAND255:LDY#bDIV256:JSR T:LDA#0:STA j:.P:LDA#23:JSR o:LDA j:ORA#224:JSR o:LDA j:ASL A:ASL A:TAX:LDY#4:.Q:INX:LDA b,X:JSR o:JSR o:DEY:BNE Q:INC j:LDA j:CMP#2:BNE P:LDX#4:.R:LDAs,X:JSR o:DEX:BPL R:RTS:.b
  430]:j=b+9:s=j+1:$s=CHR$11+CHR$225+CHR$8+CHR$10+CHR$224:NEXT:ENDPROC


�6:*FX4,1

*FX220,27
��6:N=18:t=�:�1,1,-�(50),-�(50),-�(45),255,255,255,127,0,0,-127,127,0:B$="ACORN":E$="ELECTRON":H$=�31+�12+�11+"HOURS: ":M$=�31+�10+�13+"MINUTES: ":S$=�31+�10+�15+"SECONDS: ":o=&FFEE:T=&FFF1:B%=P%:�A:P%=B%:B=692:C=104:D=320:E=592:F=5:G=2:I=576:J=2:K=300
(L=664:�2:�H%<>&CC��DZ@
2��DZ@
<��1,1,255,255:�I%=0�15:�19,I%,0;0;:�:�19,1,2;0;19,2,7;0;19,3,7;0;5,23,255,-1;-1;-1;-1;18,0,131,16,18,0,129,24,128;128;1152;896;16,18,0,131,24,256;256;1024;768;16,26:�J%=1��B$:I%=L-C*�B$/2+C*(J%-1):�S(B):�L:�:�J%=1��E$:I%=D+64*J%:�S(E):�0,7+J%:�I%,E
F0�E$,J%,1);:�:�C:O=�:��I%=0�6:�J%=8�15:*FX19
P#�19,J%,(J%+I%)�7;0;:�,:��-O>500
Z	*FX15
d��t~@
nL�1:�O:�19,2,2;0;:�130:�28,0,31,39,0:�:�28,1,30,38,1:�131:�:�H%<>&CC��tL@
x�H%=0:�1:�D("Welcome to the Acorn Electron",�+2):�0:�''''�3"This  disc  contains several"':�3"programs,  of  which  this is the"':�3"first."''':�3"Each  program  is  identified  by"':�3"its  program  name.  The  program"'
�V�3"name  should  also  give  you  an"':�3"idea  of  what  the program does."':�P
��:�:�0:�E("The programs are :-",2):��tj@:�I%=1�N-1:�N$:�I%�1:�10,I%+3);�(I%+65):�14,I%+3)N$:�:�0:�E("To leave any one program,",�+1):�10,�+1)"just press ";:�7:�128:�"ESCAPE":�0:�135:�E("Choose a program from the list :-",�+1)
�@�10,�+1)"type in the letter":�10,�+1)"try it now ! ":*FX15
�+R$=�:��(R$)>64��(R$)<(N+65):P%=�(R$)-64
��� KEYBOARD,SKETCH,PIANO,BIORHYTHMS,CLOCK,GOMOKU,PATTERNS,MARSLANDER,BUGZAP,DEMO,ISLAND,PLANETS,SNAPPER,DRAUGHTS,REVERSI,BYE,UTILITIES
�	�df@
��<>17�:�" at line ";�:�
��t��df@
��:�E("Before continuing to the next",4):�E("program, please enter the time.",�+1):�E("Use the 24 hour clock - e.g. 3.30",�+1):�E("in the afternoon is entered as:",�+1):�H$;15;M$;30;S$;0:�P:�:�D("Please enter the time -",4):�''''�(4)"(Press ";:�7:�128
܊�"RETURN";:�0:�135:�" after each line)":��H$;:H=�N(24):�H<>-1:��M$;:M=�N(60):�M<>-1:��S$;:S=�N(60):�S<>-1:�=100*((H*60+M)*60+S):t=�:�P
��26:�128:�:�20:�21:*FX18
�*FX220,0
�
�"BOOT":�
%ݤN(V):�N:�""A$:�O:A=�A$:�A<V�=A
M�0,20);"Please enter a number between 0 and ";V-1:�P:�0,20);�(159);:=-1
���L:�0,1:�0,135:�I%,B:�255:�I%,B+4:�I%+56,B+4:�I%+8,B+8:�I%+48,B+8:�I%-8,B:�I%-8,B-24:�I%+8,B-32:�I%+48,B-32:�I%+64,B:�I%+64,B-24:�0,2:�0,129:�I%,B:�B$,J%,1);:�
"���S(Y%):K%=0:L%=1272:T%=0:W%=1020:U%=(I%+32-K%)�F:V%=(Y%-16-T%)�F:F%=(I%+32-L%)�F:G%=(Y%-16-W%)�F:N%=K%:O%=K%:Q%=L%:S%=L%:a%=T%:b%=W%:c%=T%:d%=W%:�T:�E%=1�F:�T:N%=N%+U%:O%=O%+U%:Q%=Q%+F%:S%=S%+F%:a%=a%+V%:b%=b%+G%:c%=c%+V%:d%=d%+G%:�T:�:�T:�
,a��T:�N%-U%,a%-V%:�6,N%,a%:�O%-U%,b%-G%:�6,O%,b%:�Q%-F%,a%-V%:�6,Q%,c%:�S%-F%,d%-G%:�6,S%,d%:�
6ݤY
@*X%=�:X%=X%�&DF:�X%<>�"Y"�X%<>�"N"��D@A
J�X%=�"Y"�D%=��D%=�
T
�X%,8:=D%
^#��E(A$,y%)�(38-�A$)/2,y%)A$;:�
h=��P�1:�E("Press the SPACE BAR to continue",27):�0:*FX15,1
r
���=" ":�
|���C:�0,1:�Z%=0�50:Y%=Z%+7:R%=Z%-25:�Y%*G+I,50*J+K:�Y%*G+I,(92-R%*R%/16)*J+K:�:�Z%=0�56:Y%=Z%+4:R%=Z%-28:�Y%*G+I,45*J+K:�Y%*G+I,(R%*R%/35+20)*J+K:�:�Z%=0�8:Y%=Z%+28:�Y%*G+I,20*J+K:�Y%*G+I,10*J+K:�:�I,18*J+K:�45*G+I,K:�85,I,26*J+K:�85,45*G+I,8*J+K:�
���O�23,1,0;0;0;0;:�
���N�23,1,1;0;0;0;:�
�>��D(A$,y%)�(38-�A$)/2,y%);:�C%=1��A$:A%=��A$,C%,1):�d:�:�
����A:�M%100:�I%=0�2�2:P%=M%:[OPTI%:.d:STA b:LDA#10:LDX#b�255:LDY#b�256:JSR T:LDA#0:STA j:.P:LDA#23:JSR o:LDA j:�A#224:JSR o:LDA j:ASL A:ASL A:TAX:LDY#4:.Q:INX:LDA b,X:JSR o:JSR o:DEY:BNE Q:INC j:LDA j:CMP#2:BNE P:LDX#4:.R:LDAs,X:JSR o:DEX:BPL R:RTS:.b
�-]:j=b+9:s=j+1:$s=�11+�225+�8+�10+�224:�:�
�
00000000  0d 00 0a 0d ef 36 3a 2a  46 58 34 2c 31 0d 00 14  |.....6:*FX4,1...|
00000010  0d 2a 46 58 32 32 30 2c  32 37 0d 00 1e ff ef 36  |.*FX220,27.....6|
00000020  3a 4e 3d 31 38 3a 74 3d  b9 3a e2 31 2c 31 2c 2d  |:N=18:t=.:.1,1,-|
00000030  b3 28 35 30 29 2c 2d b3  28 35 30 29 2c 2d b3 28  |.(50),-.(50),-.(|
00000040  34 35 29 2c 32 35 35 2c  32 35 35 2c 32 35 35 2c  |45),255,255,255,|
00000050  31 32 37 2c 30 2c 30 2c  2d 31 32 37 2c 31 32 37  |127,0,0,-127,127|
00000060  2c 30 3a 42 24 3d 22 41  43 4f 52 4e 22 3a 45 24  |,0:B$="ACORN":E$|
00000070  3d 22 45 4c 45 43 54 52  4f 4e 22 3a 48 24 3d bd  |="ELECTRON":H$=.|
00000080  33 31 2b bd 31 32 2b bd  31 31 2b 22 48 4f 55 52  |31+.12+.11+"HOUR|
00000090  53 3a 20 22 3a 4d 24 3d  bd 33 31 2b bd 31 30 2b  |S: ":M$=.31+.10+|
000000a0  bd 31 33 2b 22 4d 49 4e  55 54 45 53 3a 20 22 3a  |.13+"MINUTES: ":|
000000b0  53 24 3d bd 33 31 2b bd  31 30 2b bd 31 35 2b 22  |S$=.31+.10+.15+"|
000000c0  53 45 43 4f 4e 44 53 3a  20 22 3a 6f 3d 26 46 46  |SECONDS: ":o=&FF|
000000d0  45 45 3a 54 3d 26 46 46  46 31 3a 42 25 3d 50 25  |EE:T=&FFF1:B%=P%|
000000e0  3a f2 41 3a 50 25 3d 42  25 3a 42 3d 36 39 32 3a  |:.A:P%=B%:B=692:|
000000f0  43 3d 31 30 34 3a 44 3d  33 32 30 3a 45 3d 35 39  |C=104:D=320:E=59|
00000100  32 3a 46 3d 35 3a 47 3d  32 3a 49 3d 35 37 36 3a  |2:F=5:G=2:I=576:|
00000110  4a 3d 32 3a 4b 3d 33 30  30 0d 00 28 1a 4c 3d 36  |J=2:K=300..(.L=6|
00000120  36 34 3a eb 32 3a e7 48  25 3c 3e 26 43 43 8c 8d  |64:.2:.H%<>&CC..|
00000130  44 5a 40 0d 00 32 0b ee  85 e5 8d 44 5a 40 0d 00  |DZ@..2.....DZ@..|
00000140  3c fb d4 31 2c 31 2c 32  35 35 2c 32 35 35 3a e3  |<..1,1,255,255:.|
00000150  49 25 3d 30 b8 31 35 3a  ef 31 39 2c 49 25 2c 30  |I%=0.15:.19,I%,0|
00000160  3b 30 3b 3a ed 3a ef 31  39 2c 31 2c 32 3b 30 3b  |;0;:.:.19,1,2;0;|
00000170  31 39 2c 32 2c 37 3b 30  3b 31 39 2c 33 2c 37 3b  |19,2,7;0;19,3,7;|
00000180  30 3b 35 2c 32 33 2c 32  35 35 2c 2d 31 3b 2d 31  |0;5,23,255,-1;-1|
00000190  3b 2d 31 3b 2d 31 3b 31  38 2c 30 2c 31 33 31 2c  |;-1;-1;18,0,131,|
000001a0  31 36 2c 31 38 2c 30 2c  31 32 39 2c 32 34 2c 31  |16,18,0,129,24,1|
000001b0  32 38 3b 31 32 38 3b 31  31 35 32 3b 38 39 36 3b  |28;128;1152;896;|
000001c0  31 36 2c 31 38 2c 30 2c  31 33 31 2c 32 34 2c 32  |16,18,0,131,24,2|
000001d0  35 36 3b 32 35 36 3b 31  30 32 34 3b 37 36 38 3b  |56;256;1024;768;|
000001e0  31 36 2c 32 36 3a e3 4a  25 3d 31 b8 a9 42 24 3a  |16,26:.J%=1..B$:|
000001f0  49 25 3d 4c 2d 43 2a a9  42 24 2f 32 2b 43 2a 28  |I%=L-C*.B$/2+C*(|
00000200  4a 25 2d 31 29 3a f2 53  28 42 29 3a f2 4c 3a ed  |J%-1):.S(B):.L:.|
00000210  3a e3 4a 25 3d 31 b8 a9  45 24 3a 49 25 3d 44 2b  |:.J%=1..E$:I%=D+|
00000220  36 34 2a 4a 25 3a f2 53  28 45 29 3a e6 30 2c 37  |64*J%:.S(E):.0,7|
00000230  2b 4a 25 3a ec 49 25 2c  45 0d 00 46 30 f1 c1 45  |+J%:.I%,E..F0..E|
00000240  24 2c 4a 25 2c 31 29 3b  3a ed 3a f2 43 3a 4f 3d  |$,J%,1);:.:.C:O=|
00000250  91 3a f5 e3 49 25 3d 30  b8 36 3a e3 4a 25 3d 38  |.:..I%=0.6:.J%=8|
00000260  b8 31 35 3a 2a 46 58 31  39 0d 00 50 23 ef 31 39  |.15:*FX19..P#.19|
00000270  2c 4a 25 2c 28 4a 25 2b  49 25 29 83 37 3b 30 3b  |,J%,(J%+I%).7;0;|
00000280  3a ed 2c 3a fd 91 2d 4f  3e 35 30 30 0d 00 5a 09  |:.,:..-O>500..Z.|
00000290  2a 46 58 31 35 0d 00 64  0b ee 85 e5 8d 74 7e 40  |*FX15..d.....t~@|
000002a0  0d 00 6e 4c eb 31 3a f2  4f 3a ef 31 39 2c 32 2c  |..nL.1:.O:.19,2,|
000002b0  32 3b 30 3b 3a fb 31 33  30 3a ef 32 38 2c 30 2c  |2;0;:.130:.28,0,|
000002c0  33 31 2c 33 39 2c 30 3a  db 3a ef 32 38 2c 31 2c  |31,39,0:.:.28,1,|
000002d0  33 30 2c 33 38 2c 31 3a  fb 31 33 31 3a db 3a e7  |30,38,1:.131:.:.|
000002e0  48 25 3c 3e 26 43 43 8c  8d 74 4c 40 0d 00 78 e4  |H%<>&CC..tL@..x.|
000002f0  48 25 3d 30 3a fb 31 3a  f2 44 28 22 57 65 6c 63  |H%=0:.1:.D("Welc|
00000300  6f 6d 65 20 74 6f 20 74  68 65 20 41 63 6f 72 6e  |ome to the Acorn|
00000310  20 45 6c 65 63 74 72 6f  6e 22 2c bc 2b 32 29 3a  | Electron",.+2):|
00000320  fb 30 3a f1 27 27 27 27  89 33 22 54 68 69 73 20  |.0:.''''.3"This |
00000330  20 64 69 73 63 20 20 63  6f 6e 74 61 69 6e 73 20  | disc  contains |
00000340  73 65 76 65 72 61 6c 22  27 3a f1 89 33 22 70 72  |several"':..3"pr|
00000350  6f 67 72 61 6d 73 2c 20  20 6f 66 20 20 77 68 69  |ograms,  of  whi|
00000360  63 68 20 20 74 68 69 73  20 69 73 20 74 68 65 22  |ch  this is the"|
00000370  27 3a f1 89 33 22 66 69  72 73 74 2e 22 27 27 27  |':..3"first."'''|
00000380  3a f1 89 33 22 45 61 63  68 20 20 70 72 6f 67 72  |:..3"Each  progr|
00000390  61 6d 20 20 69 73 20 20  69 64 65 6e 74 69 66 69  |am  is  identifi|
000003a0  65 64 20 20 62 79 22 27  3a f1 89 33 22 69 74 73  |ed  by"':..3"its|
000003b0  20 20 70 72 6f 67 72 61  6d 20 20 6e 61 6d 65 2e  |  program  name.|
000003c0  20 20 54 68 65 20 20 70  72 6f 67 72 61 6d 22 27  |  The  program"'|
000003d0  0d 00 82 56 f1 89 33 22  6e 61 6d 65 20 20 73 68  |...V..3"name  sh|
000003e0  6f 75 6c 64 20 20 61 6c  73 6f 20 20 67 69 76 65  |ould  also  give|
000003f0  20 20 79 6f 75 20 20 61  6e 22 27 3a f1 89 33 22  |  you  an"':..3"|
00000400  69 64 65 61 20 20 6f 66  20 20 77 68 61 74 20 20  |idea  of  what  |
00000410  74 68 65 20 70 72 6f 67  72 61 6d 20 64 6f 65 73  |the program does|
00000420  2e 22 27 3a f2 50 0d 00  8c e8 f5 3a db 3a fb 30  |."':.P.....:.:.0|
00000430  3a f2 45 28 22 54 68 65  20 70 72 6f 67 72 61 6d  |:.E("The program|
00000440  73 20 61 72 65 20 3a 2d  22 2c 32 29 3a f7 8d 74  |s are :-",2):..t|
00000450  6a 40 3a e3 49 25 3d 31  b8 4e 2d 31 3a f3 4e 24  |j@:.I%=1.N-1:.N$|
00000460  3a fb 49 25 80 31 3a f1  8a 31 30 2c 49 25 2b 33  |:.I%.1:..10,I%+3|
00000470  29 3b bd 28 49 25 2b 36  35 29 3a f1 8a 31 34 2c  |);.(I%+65):..14,|
00000480  49 25 2b 33 29 4e 24 3a  ed 3a fb 30 3a f2 45 28  |I%+3)N$:.:.0:.E(|
00000490  22 54 6f 20 6c 65 61 76  65 20 61 6e 79 20 6f 6e  |"To leave any on|
000004a0  65 20 70 72 6f 67 72 61  6d 2c 22 2c bc 2b 31 29  |e program,",.+1)|
000004b0  3a f1 8a 31 30 2c bc 2b  31 29 22 6a 75 73 74 20  |:..10,.+1)"just |
000004c0  70 72 65 73 73 20 22 3b  3a fb 37 3a fb 31 32 38  |press ";:.7:.128|
000004d0  3a f1 22 45 53 43 41 50  45 22 3a fb 30 3a fb 31  |:."ESCAPE":.0:.1|
000004e0  33 35 3a f2 45 28 22 43  68 6f 6f 73 65 20 61 20  |35:.E("Choose a |
000004f0  70 72 6f 67 72 61 6d 20  66 72 6f 6d 20 74 68 65  |program from the|
00000500  20 6c 69 73 74 20 3a 2d  22 2c bc 2b 31 29 0d 00  | list :-",.+1)..|
00000510  96 40 f1 8a 31 30 2c bc  2b 31 29 22 74 79 70 65  |.@..10,.+1)"type|
00000520  20 69 6e 20 74 68 65 20  6c 65 74 74 65 72 22 3a  | in the letter":|
00000530  f1 8a 31 30 2c bc 2b 31  29 22 74 72 79 20 69 74  |..10,.+1)"try it|
00000540  20 6e 6f 77 20 21 20 22  3a 2a 46 58 31 35 0d 00  | now ! ":*FX15..|
00000550  a0 2b 52 24 3d be 3a fd  97 28 52 24 29 3e 36 34  |.+R$=.:..(R$)>64|
00000560  80 97 28 52 24 29 3c 28  4e 2b 36 35 29 3a 50 25  |..(R$)<(N+65):P%|
00000570  3d 97 28 52 24 29 2d 36  34 0d 00 aa 89 dc 20 4b  |=.(R$)-64..... K|
00000580  45 59 42 4f 41 52 44 2c  53 4b 45 54 43 48 2c 50  |EYBOARD,SKETCH,P|
00000590  49 41 4e 4f 2c 42 49 4f  52 48 59 54 48 4d 53 2c  |IANO,BIORHYTHMS,|
000005a0  43 4c 4f 43 4b 2c 47 4f  4d 4f 4b 55 2c 50 41 54  |CLOCK,GOMOKU,PAT|
000005b0  54 45 52 4e 53 2c 4d 41  52 53 4c 41 4e 44 45 52  |TERNS,MARSLANDER|
000005c0  2c 42 55 47 5a 41 50 2c  44 45 4d 4f 2c 49 53 4c  |,BUGZAP,DEMO,ISL|
000005d0  41 4e 44 2c 50 4c 41 4e  45 54 53 2c 53 4e 41 50  |AND,PLANETS,SNAP|
000005e0  50 45 52 2c 44 52 41 55  47 48 54 53 2c 52 45 56  |PER,DRAUGHTS,REV|
000005f0  45 52 53 49 2c 42 59 45  2c 55 54 49 4c 49 54 49  |ERSI,BYE,UTILITI|
00000600  45 53 0d 00 b4 09 e5 8d  64 66 40 0d 00 be 1c e7  |ES......df@.....|
00000610  9f 3c 3e 31 37 f6 3a f1  22 20 61 74 20 6c 69 6e  |.<>17.:." at lin|
00000620  65 20 22 3b 9e 3a e0 0d  00 c8 0b e7 74 8c 8d 64  |e ";.:......t..d|
00000630  66 40 0d 00 d2 fe db 3a  f2 45 28 22 42 65 66 6f  |f@.....:.E("Befo|
00000640  72 65 20 63 6f 6e 74 69  6e 75 69 6e 67 20 74 6f  |re continuing to|
00000650  20 74 68 65 20 6e 65 78  74 22 2c 34 29 3a f2 45  | the next",4):.E|
00000660  28 22 70 72 6f 67 72 61  6d 2c 20 70 6c 65 61 73  |("program, pleas|
00000670  65 20 65 6e 74 65 72 20  74 68 65 20 74 69 6d 65  |e enter the time|
00000680  2e 22 2c bc 2b 31 29 3a  f2 45 28 22 55 73 65 20  |.",.+1):.E("Use |
00000690  74 68 65 20 32 34 20 68  6f 75 72 20 63 6c 6f 63  |the 24 hour cloc|
000006a0  6b 20 2d 20 65 2e 67 2e  20 33 2e 33 30 22 2c bc  |k - e.g. 3.30",.|
000006b0  2b 31 29 3a f2 45 28 22  69 6e 20 74 68 65 20 61  |+1):.E("in the a|
000006c0  66 74 65 72 6e 6f 6f 6e  20 69 73 20 65 6e 74 65  |fternoon is ente|
000006d0  72 65 64 20 61 73 3a 22  2c bc 2b 31 29 3a f1 48  |red as:",.+1):.H|
000006e0  24 3b 31 35 3b 4d 24 3b  33 30 3b 53 24 3b 30 3a  |$;15;M$;30;S$;0:|
000006f0  f2 50 3a db 3a f2 44 28  22 50 6c 65 61 73 65 20  |.P:.:.D("Please |
00000700  65 6e 74 65 72 20 74 68  65 20 74 69 6d 65 20 2d  |enter the time -|
00000710  22 2c 34 29 3a f1 27 27  27 27 89 28 34 29 22 28  |",4):.''''.(4)"(|
00000720  50 72 65 73 73 20 22 3b  3a fb 37 3a fb 31 32 38  |Press ";:.7:.128|
00000730  0d 00 dc 8a f1 22 52 45  54 55 52 4e 22 3b 3a fb  |....."RETURN";:.|
00000740  30 3a fb 31 33 35 3a f1  22 20 61 66 74 65 72 20  |0:.135:." after |
00000750  65 61 63 68 20 6c 69 6e  65 29 22 3a f5 f1 48 24  |each line)":..H$|
00000760  3b 3a 48 3d a4 4e 28 32  34 29 3a fd 48 3c 3e 2d  |;:H=.N(24):.H<>-|
00000770  31 3a f5 f1 4d 24 3b 3a  4d 3d a4 4e 28 36 30 29  |1:..M$;:M=.N(60)|
00000780  3a fd 4d 3c 3e 2d 31 3a  f5 f1 53 24 3b 3a 53 3d  |:.M<>-1:..S$;:S=|
00000790  a4 4e 28 36 30 29 3a fd  53 3c 3e 2d 31 3a d1 3d  |.N(60):.S<>-1:.=|
000007a0  31 30 30 2a 28 28 48 2a  36 30 2b 4d 29 2a 36 30  |100*((H*60+M)*60|
000007b0  2b 53 29 3a 74 3d b9 3a  f2 50 0d 00 e6 1c ef 32  |+S):t=.:.P.....2|
000007c0  36 3a fb 31 32 38 3a db  3a ef 32 30 3a ef 32 31  |6:.128:.:.20:.21|
000007d0  3a 2a 46 58 31 38 0d 00  f0 0c 2a 46 58 32 32 30  |:*FX18....*FX220|
000007e0  2c 30 0d 00 fa 0d d7 22  42 4f 4f 54 22 3a e0 0d  |,0....."BOOT":..|
000007f0  01 04 25 dd a4 4e 28 56  29 3a f2 4e 3a e8 86 22  |..%..N(V):.N:.."|
00000800  22 41 24 3a f2 4f 3a 41  3d bb 41 24 3a e7 41 3c  |"A$:.O:A=.A$:.A<|
00000810  56 8c 3d 41 0d 01 0e 4d  f1 8a 30 2c 32 30 29 3b  |V.=A...M..0,20);|
00000820  22 50 6c 65 61 73 65 20  65 6e 74 65 72 20 61 20  |"Please enter a |
00000830  6e 75 6d 62 65 72 20 62  65 74 77 65 65 6e 20 30  |number between 0|
00000840  20 61 6e 64 20 22 3b 56  2d 31 3a f2 50 3a f1 8a  | and ";V-1:.P:..|
00000850  30 2c 32 30 29 3b 89 28  31 35 39 29 3b 3a 3d 2d  |0,20);.(159);:=-|
00000860  31 0d 01 18 a5 dd f2 4c  3a e6 30 2c 31 3a e6 30  |1......L:.0,1:.0|
00000870  2c 31 33 35 3a ec 49 25  2c 42 3a ef 32 35 35 3a  |,135:.I%,B:.255:|
00000880  ec 49 25 2c 42 2b 34 3a  df 49 25 2b 35 36 2c 42  |.I%,B+4:.I%+56,B|
00000890  2b 34 3a ec 49 25 2b 38  2c 42 2b 38 3a df 49 25  |+4:.I%+8,B+8:.I%|
000008a0  2b 34 38 2c 42 2b 38 3a  ec 49 25 2d 38 2c 42 3a  |+48,B+8:.I%-8,B:|
000008b0  df 49 25 2d 38 2c 42 2d  32 34 3a ec 49 25 2b 38  |.I%-8,B-24:.I%+8|
000008c0  2c 42 2d 33 32 3a df 49  25 2b 34 38 2c 42 2d 33  |,B-32:.I%+48,B-3|
000008d0  32 3a ec 49 25 2b 36 34  2c 42 3a df 49 25 2b 36  |2:.I%+64,B:.I%+6|
000008e0  34 2c 42 2d 32 34 3a e6  30 2c 32 3a e6 30 2c 31  |4,B-24:.0,2:.0,1|
000008f0  32 39 3a ec 49 25 2c 42  3a f1 c1 42 24 2c 4a 25  |29:.I%,B:..B$,J%|
00000900  2c 31 29 3b 3a e1 0d 01  22 f5 dd f2 53 28 59 25  |,1);:..."...S(Y%|
00000910  29 3a 4b 25 3d 30 3a 4c  25 3d 31 32 37 32 3a 54  |):K%=0:L%=1272:T|
00000920  25 3d 30 3a 57 25 3d 31  30 32 30 3a 55 25 3d 28  |%=0:W%=1020:U%=(|
00000930  49 25 2b 33 32 2d 4b 25  29 81 46 3a 56 25 3d 28  |I%+32-K%).F:V%=(|
00000940  59 25 2d 31 36 2d 54 25  29 81 46 3a 46 25 3d 28  |Y%-16-T%).F:F%=(|
00000950  49 25 2b 33 32 2d 4c 25  29 81 46 3a 47 25 3d 28  |I%+32-L%).F:G%=(|
00000960  59 25 2d 31 36 2d 57 25  29 81 46 3a 4e 25 3d 4b  |Y%-16-W%).F:N%=K|
00000970  25 3a 4f 25 3d 4b 25 3a  51 25 3d 4c 25 3a 53 25  |%:O%=K%:Q%=L%:S%|
00000980  3d 4c 25 3a 61 25 3d 54  25 3a 62 25 3d 57 25 3a  |=L%:a%=T%:b%=W%:|
00000990  63 25 3d 54 25 3a 64 25  3d 57 25 3a f2 54 3a e3  |c%=T%:d%=W%:.T:.|
000009a0  45 25 3d 31 b8 46 3a f2  54 3a 4e 25 3d 4e 25 2b  |E%=1.F:.T:N%=N%+|
000009b0  55 25 3a 4f 25 3d 4f 25  2b 55 25 3a 51 25 3d 51  |U%:O%=O%+U%:Q%=Q|
000009c0  25 2b 46 25 3a 53 25 3d  53 25 2b 46 25 3a 61 25  |%+F%:S%=S%+F%:a%|
000009d0  3d 61 25 2b 56 25 3a 62  25 3d 62 25 2b 47 25 3a  |=a%+V%:b%=b%+G%:|
000009e0  63 25 3d 63 25 2b 56 25  3a 64 25 3d 64 25 2b 47  |c%=c%+V%:d%=d%+G|
000009f0  25 3a f2 54 3a ed 3a f2  54 3a e1 0d 01 2c 61 dd  |%:.T:.:.T:...,a.|
00000a00  f2 54 3a ec 4e 25 2d 55  25 2c 61 25 2d 56 25 3a  |.T:.N%-U%,a%-V%:|
00000a10  f0 36 2c 4e 25 2c 61 25  3a ec 4f 25 2d 55 25 2c  |.6,N%,a%:.O%-U%,|
00000a20  62 25 2d 47 25 3a f0 36  2c 4f 25 2c 62 25 3a ec  |b%-G%:.6,O%,b%:.|
00000a30  51 25 2d 46 25 2c 61 25  2d 56 25 3a f0 36 2c 51  |Q%-F%,a%-V%:.6,Q|
00000a40  25 2c 63 25 3a ec 53 25  2d 46 25 2c 64 25 2d 47  |%,c%:.S%-F%,d%-G|
00000a50  25 3a f0 36 2c 53 25 2c  64 25 3a e1 0d 01 36 07  |%:.6,S%,d%:...6.|
00000a60  dd a4 59 0d 01 40 2a 58  25 3d a5 3a 58 25 3d 58  |..Y..@*X%=.:X%=X|
00000a70  25 80 26 44 46 3a e7 58  25 3c 3e 97 22 59 22 80  |%.&DF:.X%<>."Y".|
00000a80  58 25 3c 3e 97 22 4e 22  8c 8d 44 40 41 0d 01 4a  |X%<>."N"..D@A..J|
00000a90  16 e7 58 25 3d 97 22 59  22 8c 44 25 3d b9 8b 44  |..X%=."Y".D%=..D|
00000aa0  25 3d a3 0d 01 54 0d ef  58 25 2c 38 3a 3d 44 25  |%=...T..X%,8:=D%|
00000ab0  0d 01 5e 23 dd f2 45 28  41 24 2c 79 25 29 f1 8a  |..^#..E(A$,y%)..|
00000ac0  28 33 38 2d a9 41 24 29  2f 32 2c 79 25 29 41 24  |(38-.A$)/2,y%)A$|
00000ad0  3b 3a e1 0d 01 68 3d dd  f2 50 fb 31 3a f2 45 28  |;:...h=..P.1:.E(|
00000ae0  22 50 72 65 73 73 20 74  68 65 20 53 50 41 43 45  |"Press the SPACE|
00000af0  20 42 41 52 20 74 6f 20  63 6f 6e 74 69 6e 75 65  | BAR to continue|
00000b00  22 2c 32 37 29 3a fb 30  3a 2a 46 58 31 35 2c 31  |",27):.0:*FX15,1|
00000b10  0d 01 72 0d f5 fd be 3d  22 20 22 3a e1 0d 01 7c  |..r....=" ":...||
00000b20  fb dd f2 43 3a e6 30 2c  31 3a e3 5a 25 3d 30 b8  |...C:.0,1:.Z%=0.|
00000b30  35 30 3a 59 25 3d 5a 25  2b 37 3a 52 25 3d 5a 25  |50:Y%=Z%+7:R%=Z%|
00000b40  2d 32 35 3a ec 59 25 2a  47 2b 49 2c 35 30 2a 4a  |-25:.Y%*G+I,50*J|
00000b50  2b 4b 3a df 59 25 2a 47  2b 49 2c 28 39 32 2d 52  |+K:.Y%*G+I,(92-R|
00000b60  25 2a 52 25 2f 31 36 29  2a 4a 2b 4b 3a ed 3a e3  |%*R%/16)*J+K:.:.|
00000b70  5a 25 3d 30 b8 35 36 3a  59 25 3d 5a 25 2b 34 3a  |Z%=0.56:Y%=Z%+4:|
00000b80  52 25 3d 5a 25 2d 32 38  3a ec 59 25 2a 47 2b 49  |R%=Z%-28:.Y%*G+I|
00000b90  2c 34 35 2a 4a 2b 4b 3a  df 59 25 2a 47 2b 49 2c  |,45*J+K:.Y%*G+I,|
00000ba0  28 52 25 2a 52 25 2f 33  35 2b 32 30 29 2a 4a 2b  |(R%*R%/35+20)*J+|
00000bb0  4b 3a ed 3a e3 5a 25 3d  30 b8 38 3a 59 25 3d 5a  |K:.:.Z%=0.8:Y%=Z|
00000bc0  25 2b 32 38 3a ec 59 25  2a 47 2b 49 2c 32 30 2a  |%+28:.Y%*G+I,20*|
00000bd0  4a 2b 4b 3a df 59 25 2a  47 2b 49 2c 31 30 2a 4a  |J+K:.Y%*G+I,10*J|
00000be0  2b 4b 3a ed 3a ec 49 2c  31 38 2a 4a 2b 4b 3a ec  |+K:.:.I,18*J+K:.|
00000bf0  34 35 2a 47 2b 49 2c 4b  3a f0 38 35 2c 49 2c 32  |45*G+I,K:.85,I,2|
00000c00  36 2a 4a 2b 4b 3a f0 38  35 2c 34 35 2a 47 2b 49  |6*J+K:.85,45*G+I|
00000c10  2c 38 2a 4a 2b 4b 3a e1  0d 01 86 17 dd f2 4f ef  |,8*J+K:.......O.|
00000c20  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 3a e1 0d  |23,1,0;0;0;0;:..|
00000c30  01 90 17 dd f2 4e ef 32  33 2c 31 2c 31 3b 30 3b  |.....N.23,1,1;0;|
00000c40  30 3b 30 3b 3a e1 0d 01  9a 3e dd f2 44 28 41 24  |0;0;:....>..D(A$|
00000c50  2c 79 25 29 f1 8a 28 33  38 2d a9 41 24 29 2f 32  |,y%)..(38-.A$)/2|
00000c60  2c 79 25 29 3b 3a e3 43  25 3d 31 b8 a9 41 24 3a  |,y%);:.C%=1..A$:|
00000c70  41 25 3d 97 c1 41 24 2c  43 25 2c 31 29 3a d6 64  |A%=..A$,C%,1):.d|
00000c80  3a ed 3a e1 0d 01 a4 fe  dd f2 41 3a de 4d 25 31  |:.:.......A:.M%1|
00000c90  30 30 3a e3 49 25 3d 30  b8 32 88 32 3a 50 25 3d  |00:.I%=0.2.2:P%=|
00000ca0  4d 25 3a 5b 4f 50 54 49  25 3a 2e 64 3a 53 54 41  |M%:[OPTI%:.d:STA|
00000cb0  20 62 3a 4c 44 41 23 31  30 3a 4c 44 58 23 62 80  | b:LDA#10:LDX#b.|
00000cc0  32 35 35 3a 4c 44 59 23  62 81 32 35 36 3a 4a 53  |255:LDY#b.256:JS|
00000cd0  52 20 54 3a 4c 44 41 23  30 3a 53 54 41 20 6a 3a  |R T:LDA#0:STA j:|
00000ce0  2e 50 3a 4c 44 41 23 32  33 3a 4a 53 52 20 6f 3a  |.P:LDA#23:JSR o:|
00000cf0  4c 44 41 20 6a 3a 84 41  23 32 32 34 3a 4a 53 52  |LDA j:.A#224:JSR|
00000d00  20 6f 3a 4c 44 41 20 6a  3a 41 53 4c 20 41 3a 41  | o:LDA j:ASL A:A|
00000d10  53 4c 20 41 3a 54 41 58  3a 4c 44 59 23 34 3a 2e  |SL A:TAX:LDY#4:.|
00000d20  51 3a 49 4e 58 3a 4c 44  41 20 62 2c 58 3a 4a 53  |Q:INX:LDA b,X:JS|
00000d30  52 20 6f 3a 4a 53 52 20  6f 3a 44 45 59 3a 42 4e  |R o:JSR o:DEY:BN|
00000d40  45 20 51 3a 49 4e 43 20  6a 3a 4c 44 41 20 6a 3a  |E Q:INC j:LDA j:|
00000d50  43 4d 50 23 32 3a 42 4e  45 20 50 3a 4c 44 58 23  |CMP#2:BNE P:LDX#|
00000d60  34 3a 2e 52 3a 4c 44 41  73 2c 58 3a 4a 53 52 20  |4:.R:LDAs,X:JSR |
00000d70  6f 3a 44 45 58 3a 42 50  4c 20 52 3a 52 54 53 3a  |o:DEX:BPL R:RTS:|
00000d80  2e 62 0d 01 ae 2d 5d 3a  6a 3d 62 2b 39 3a 73 3d  |.b...-]:j=b+9:s=|
00000d90  6a 2b 31 3a 24 73 3d bd  31 31 2b bd 32 32 35 2b  |j+1:$s=.11+.225+|
00000da0  bd 38 2b bd 31 30 2b bd  32 32 34 3a ed 3a e1 0d  |.8+.10+.224:.:..|
00000db0  ff                                                |.|
00000db1
WELCOME/Intro.m0
WELCOME/Intro.m1
WELCOME/Intro.m2
WELCOME/Intro.m4
WELCOME/Intro.m5