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

WELCOME/Bye

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/Bye
Read OK:
File size: 0397 bytes
Load address: FFFF0E00
Exec address: FFFF8023
File contents
   10VDU6:ONERRORGOTO210
  110DIMM 255,B 8:o=&FFF1:PROCI
  210MODE4:PROCO:PRINTTAB(0,6);:PRINT"  You've  seen  some  of  the  things"':PRINT"  that  the  Acorn  Electron can do -"':PRINT"  but  these are only the beginning !"'''':PRINT"  Look  out  for  the Acornsoft range"':PRINT"  of educational programs, languages,"'
  310PRINT"  business programs, games and books."':PROCS:CLS:PROCO:VDU19,1,2;0;:PROCD("Bye for now",12):f=TIME+500:REPEAT:UNTILTIME>=f:*FX4
  320*FX200,0
  321*FX220,27
  322*FX229,0
  410MODE6:END
  510DEFPROCY:Y%=-1
  610X%=GET:X%=X%AND&DF:IFX%<>78ANDX%<>89THEN610
  710Y%=1:IFX%=78THENY%=0
  810VDUX%,8:ENDPROC
  910DEFPROCS:PRINTTAB(6,29)"Press SPACE BAR to continue";:*FX15,1
 1010REPEATUNTILGET=32:ENDPROC
 1110DEFPROCC(A$,Y%)PRINTTAB(19-LENA$/2,Y%)A$;:ENDPROC
 1210DEFPROCOVDU23,1,0;0;0;0;:ENDPROC
 1310DEFPROCI$M=STRING$(255,CHR$0):M?255=0:C=224:ENDPROC
 1410DEFPROCD(A$,y%)B$="":C$="":FORB%=1TOLENA$:K%=FNC(ASCMID$(A$,B%,1)):B$=B$+CHR$K%:C$=C$+CHR$(K%+1):NEXT:K%=19-LENA$/2:D$=CHR$31+CHR$K%+CHR$y%+B$+CHR$31+CHR$K%+CHR$(y%+1)+C$:PRINTD$;:ENDPROC
 1510DEFFNC(C%)IFM?C%THEN=M?C%ELSEIFC>=256STOPELSEM?C%=C:?B=C%:A%=10:X%=B:Y%=BDIV256:CALLo
 1610FORJ%=0TO1:VDU23,C+J%:FORI%=2TO9:VDUB?(J%*4+I%DIV2):NEXT,:C=C+2:=M?C%

�6:��dR@
n�M 255,B 8:o=&FFF1:�I
���4:�O:�0,6);:�"  You've  seen  some  of  the  things"':�"  that  the  Acorn  Electron can do -"':�"  but  these are only the beginning !"'''':�"  Look  out  for  the Acornsoft range"':�"  of educational programs, languages,"'
6j�"  business programs, games and books."':�S:�:�O:�19,1,2;0;:�D("Bye for now",12):f=�+500:�:��>=f:*FX4
@*FX200,0
A
*FX220,27
B*FX229,0
��6:�
�
��Y:Y%=-1
b&X%=�:X%=X%�&DF:�X%<>78�X%<>89��DbB
�Y%=1:�X%=78�Y%=0
*�X%,8:�
�5��S:�6,29)"Press SPACE BAR to continue";:*FX15,1
����=32:�
V!��C(A$,Y%)�19-�A$/2,Y%)A$;:�
���O�23,1,0;0;0;0;:�
"��I$M=�255,�0):M?255=0:C=224:�
����D(A$,y%)B$="":C$="":�B%=1��A$:K%=�C(��A$,B%,1)):B$=B$+�K%:C$=C$+�(K%+1):�:K%=19-�A$/2:D$=�31+�K%+�y%+B$+�31+�K%+�(y%+1)+C$:�D$;:�
�CݤC(C%)�M?C%�=M?C%��C>=256��M?C%=C:?B=C%:A%=10:X%=B:Y%=B�256:�o
J:�J%=0�1:�23,C+J%:�I%=2�9:�B?(J%*4+I%�2):�,:C=C+2:=M?C%
�
00000000  0d 00 0a 0e ef 36 3a ee  85 e5 8d 64 52 40 0d 00  |.....6:....dR@..|
00000010  6e 19 de 4d 20 32 35 35  2c 42 20 38 3a 6f 3d 26  |n..M 255,B 8:o=&|
00000020  46 46 46 31 3a f2 49 0d  00 d2 e6 eb 34 3a f2 4f  |FFF1:.I.....4:.O|
00000030  3a f1 8a 30 2c 36 29 3b  3a f1 22 20 20 59 6f 75  |:..0,6);:."  You|
00000040  27 76 65 20 20 73 65 65  6e 20 20 73 6f 6d 65 20  |'ve  seen  some |
00000050  20 6f 66 20 20 74 68 65  20 20 74 68 69 6e 67 73  | of  the  things|
00000060  22 27 3a f1 22 20 20 74  68 61 74 20 20 74 68 65  |"':."  that  the|
00000070  20 20 41 63 6f 72 6e 20  20 45 6c 65 63 74 72 6f  |  Acorn  Electro|
00000080  6e 20 63 61 6e 20 64 6f  20 2d 22 27 3a f1 22 20  |n can do -"':." |
00000090  20 62 75 74 20 20 74 68  65 73 65 20 61 72 65 20  | but  these are |
000000a0  6f 6e 6c 79 20 74 68 65  20 62 65 67 69 6e 6e 69  |only the beginni|
000000b0  6e 67 20 21 22 27 27 27  27 3a f1 22 20 20 4c 6f  |ng !"'''':."  Lo|
000000c0  6f 6b 20 20 6f 75 74 20  20 66 6f 72 20 20 74 68  |ok  out  for  th|
000000d0  65 20 41 63 6f 72 6e 73  6f 66 74 20 72 61 6e 67  |e Acornsoft rang|
000000e0  65 22 27 3a f1 22 20 20  6f 66 20 65 64 75 63 61  |e"':."  of educa|
000000f0  74 69 6f 6e 61 6c 20 70  72 6f 67 72 61 6d 73 2c  |tional programs,|
00000100  20 6c 61 6e 67 75 61 67  65 73 2c 22 27 0d 01 36  | languages,"'..6|
00000110  6a f1 22 20 20 62 75 73  69 6e 65 73 73 20 70 72  |j."  business pr|
00000120  6f 67 72 61 6d 73 2c 20  67 61 6d 65 73 20 61 6e  |ograms, games an|
00000130  64 20 62 6f 6f 6b 73 2e  22 27 3a f2 53 3a db 3a  |d books."':.S:.:|
00000140  f2 4f 3a ef 31 39 2c 31  2c 32 3b 30 3b 3a f2 44  |.O:.19,1,2;0;:.D|
00000150  28 22 42 79 65 20 66 6f  72 20 6e 6f 77 22 2c 31  |("Bye for now",1|
00000160  32 29 3a 66 3d 91 2b 35  30 30 3a f5 3a fd 91 3e  |2):f=.+500:.:..>|
00000170  3d 66 3a 2a 46 58 34 0d  01 40 0c 2a 46 58 32 30  |=f:*FX4..@.*FX20|
00000180  30 2c 30 0d 01 41 0d 2a  46 58 32 32 30 2c 32 37  |0,0..A.*FX220,27|
00000190  0d 01 42 0c 2a 46 58 32  32 39 2c 30 0d 01 9a 08  |..B.*FX229,0....|
000001a0  eb 36 3a e0 0d 01 fe 0d  dd f2 59 3a 59 25 3d 2d  |.6:.......Y:Y%=-|
000001b0  31 0d 02 62 26 58 25 3d  a5 3a 58 25 3d 58 25 80  |1..b&X%=.:X%=X%.|
000001c0  26 44 46 3a e7 58 25 3c  3e 37 38 80 58 25 3c 3e  |&DF:.X%<>78.X%<>|
000001d0  38 39 8c 8d 44 62 42 0d  02 c6 14 59 25 3d 31 3a  |89..DbB....Y%=1:|
000001e0  e7 58 25 3d 37 38 8c 59  25 3d 30 0d 03 2a 0b ef  |.X%=78.Y%=0..*..|
000001f0  58 25 2c 38 3a e1 0d 03  8e 35 dd f2 53 3a f1 8a  |X%,8:....5..S:..|
00000200  36 2c 32 39 29 22 50 72  65 73 73 20 53 50 41 43  |6,29)"Press SPAC|
00000210  45 20 42 41 52 20 74 6f  20 63 6f 6e 74 69 6e 75  |E BAR to continu|
00000220  65 22 3b 3a 2a 46 58 31  35 2c 31 0d 03 f2 0c f5  |e";:*FX15,1.....|
00000230  fd a5 3d 33 32 3a e1 0d  04 56 21 dd f2 43 28 41  |..=32:...V!..C(A|
00000240  24 2c 59 25 29 f1 8a 31  39 2d a9 41 24 2f 32 2c  |$,Y%)..19-.A$/2,|
00000250  59 25 29 41 24 3b 3a e1  0d 04 ba 17 dd f2 4f ef  |Y%)A$;:.......O.|
00000260  32 33 2c 31 2c 30 3b 30  3b 30 3b 30 3b 3a e1 0d  |23,1,0;0;0;0;:..|
00000270  05 1e 22 dd f2 49 24 4d  3d c4 32 35 35 2c bd 30  |.."..I$M=.255,.0|
00000280  29 3a 4d 3f 32 35 35 3d  30 3a 43 3d 32 32 34 3a  |):M?255=0:C=224:|
00000290  e1 0d 05 82 87 dd f2 44  28 41 24 2c 79 25 29 42  |.......D(A$,y%)B|
000002a0  24 3d 22 22 3a 43 24 3d  22 22 3a e3 42 25 3d 31  |$="":C$="":.B%=1|
000002b0  b8 a9 41 24 3a 4b 25 3d  a4 43 28 97 c1 41 24 2c  |..A$:K%=.C(..A$,|
000002c0  42 25 2c 31 29 29 3a 42  24 3d 42 24 2b bd 4b 25  |B%,1)):B$=B$+.K%|
000002d0  3a 43 24 3d 43 24 2b bd  28 4b 25 2b 31 29 3a ed  |:C$=C$+.(K%+1):.|
000002e0  3a 4b 25 3d 31 39 2d a9  41 24 2f 32 3a 44 24 3d  |:K%=19-.A$/2:D$=|
000002f0  bd 33 31 2b bd 4b 25 2b  bd 79 25 2b 42 24 2b bd  |.31+.K%+.y%+B$+.|
00000300  33 31 2b bd 4b 25 2b bd  28 79 25 2b 31 29 2b 43  |31+.K%+.(y%+1)+C|
00000310  24 3a f1 44 24 3b 3a e1  0d 05 e6 43 dd a4 43 28  |$:.D$;:....C..C(|
00000320  43 25 29 e7 4d 3f 43 25  8c 3d 4d 3f 43 25 8b e7  |C%).M?C%.=M?C%..|
00000330  43 3e 3d 32 35 36 fa 8b  4d 3f 43 25 3d 43 3a 3f  |C>=256..M?C%=C:?|
00000340  42 3d 43 25 3a 41 25 3d  31 30 3a 58 25 3d 42 3a  |B=C%:A%=10:X%=B:|
00000350  59 25 3d 42 81 32 35 36  3a d6 6f 0d 06 4a 3a e3  |Y%=B.256:.o..J:.|
00000360  4a 25 3d 30 b8 31 3a ef  32 33 2c 43 2b 4a 25 3a  |J%=0.1:.23,C+J%:|
00000370  e3 49 25 3d 32 b8 39 3a  ef 42 3f 28 4a 25 2a 34  |.I%=2.9:.B?(J%*4|
00000380  2b 49 25 81 32 29 3a ed  2c 3a 43 3d 43 2b 32 3a  |+I%.2):.,:C=C+2:|
00000390  3d 4d 3f 43 25 0d ff                              |=M?C%..|
00000397
WELCOME/Bye.m0
WELCOME/Bye.m1
WELCOME/Bye.m2
WELCOME/Bye.m4
WELCOME/Bye.m5