Home » Personal collection » Acorn ADFS disks » Electron » PRES_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 » Electron » PRES_E00.ADF |
Filename: | WELCOME/Bye |
Read OK: | ✔ |
File size: | 0397 bytes |
Load address: | FFFF0E00 |
Exec address: | FFFF8023 |
Duplicates
There are 5 duplicate copies of this file in the archive:
- AEW website » acornsoft » acornsoft_3_5_discs_Electron_Welcome_Disc_HA-WELC.adf » Welcome/Bye
- AEW website » acp_pres » acp_pres_3_5_discs_Electron-Adfs-E00_A-E00.adf » WELCOME/Bye
- Personal collection » Acorn ADFS disks » Electron » PRES_E00.ADF » WELCOME/Bye
- Personal collection » Acorn ADFS disks » Electron » PRES_E00_backup.ADF » Welcome/Bye
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf » WELCOME/Bye
- Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf » WELCOME/Bye
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