Home » Personal collection » Acorn ADFS disks » Electron » PRES_E00_backup.ADF » Welcome/Boot
Welcome/Boot
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_backup.ADF |
Filename: | Welcome/Boot |
Read OK: | ✔ |
File size: | 0308 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/Boot
- AEW website » acp_pres » acp_pres_3_5_discs_Electron-Adfs-E00_A-E00.adf » WELCOME/Boot
- Personal collection » Acorn ADFS disks » Electron » PRES_E00.ADF » WELCOME/Boot
- Personal collection » Acorn ADFS disks » Electron » PRES_E00_backup.ADF » Welcome/Boot
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_E00.adf » WELCOME/Boot
- Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.adf » WELCOME/Boot
File contents
10ONERRORRUN 11IFQ%=72THENQ%=0 20DIMM 255,B 8:o=&FFF1:*FX201,0 50*FX220,27 60*FX200,2 70PROCI:FORJ=1TOP%:READF$:NEXT 110DATA INTRO,KEYBOARD,SKETCH,PIANO,BIORHYTHMS,CLOCK,GOMOKU,PATTERNS,MARSLANDER,BUGZAP,DEMO,ISLAND,PLANETS,SNAPPER,DRAUGHTS,REVERSI,BYE,UTILITIES 120VDU6:MODE4:PROCO:VDU19,1,2;0;:PROCD(F$,10):VDU21:*FX220,0 190IFP%>13ANDP%<17THENF%=P%-14:CHAIN"MENU" 200IFP%=18THENQ%=72:GOTO580 210CHAINF$:END 230DEFPROCC(A$,Y%)PRINTTAB(19-LENA$/2,Y%)A$;:ENDPROC 250DEFPROCOVDU23,1,0;0;0;0;:ENDPROC 270DEFPROCI$M=STRING$(255,CHR$0):M?255=0:C=224:ENDPROC 310DEFPROCD(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 420DEFFNC(C%)IFM?C%THEN=M?C%ELSEM?C%=C 430?B=C%:A%=10:X%=B:Y%=BDIV256:CALLo:FORJ%=0TO1:VDU23,C+J%:FORI%=2TO9:VDUB?(J%*4+I%DIV2):NEXT,:C=C+2:=M?C% 550DEFPROCC(A$,y%)PRINTTAB(19-LENA$/2,y%)A$;:ENDPROC 570DEFPROCn(A$):COLOUR0:COLOUR135:PRINTA$;:COLOUR7:COLOUR128:ENDPROC 580*UTILS 590END
� �Q%=72�Q%=0 �M 255,B 8:o=&FFF1:*FX201,0 2 *FX220,27 <*FX200,2 F�I:�J=1�P%:�F$:� n�� INTRO,KEYBOARD,SKETCH,PIANO,BIORHYTHMS,CLOCK,GOMOKU,PATTERNS,MARSLANDER,BUGZAP,DEMO,ISLAND,PLANETS,SNAPPER,DRAUGHTS,REVERSI,BYE,UTILITIES x.�6:�4:�O:�19,1,2;0;:�D(F$,10):�21:*FX220,0 �!�P%>13�P%<17�F%=P%-14:�"MENU" ��P%=18�Q%=72:�DDB � �F$:� �!��C(A$,Y%)�19-�A$/2,Y%)A$;:� ���O�23,1,0;0;0;0;:� "��I$M=�255,�0):M?255=0:C=224:� 6���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%)�M?C%�=M?C%�M?C%=C �W?B=C%:A%=10:X%=B:Y%=B�256:�o:�J%=0�1:�23,C+J%:�I%=2�9:�B?(J%*4+I%�2):�,:C=C+2:=M?C% &!��C(A$,y%)�19-�A$/2,y%)A$;:� :"��n(A$):�0:�135:�A$;:�7:�128:� D *UTILS N� �
00000000 0d 00 0a 07 ee 85 f9 0d 00 0b 0f e7 51 25 3d 37 |............Q%=7| 00000010 32 8c 51 25 3d 30 0d 00 14 1f de 4d 20 32 35 35 |2.Q%=0.....M 255| 00000020 2c 42 20 38 3a 6f 3d 26 46 46 46 31 3a 2a 46 58 |,B 8:o=&FFF1:*FX| 00000030 32 30 31 2c 30 0d 00 32 0d 2a 46 58 32 32 30 2c |201,0..2.*FX220,| 00000040 32 37 0d 00 3c 0c 2a 46 58 32 30 30 2c 32 0d 00 |27..<.*FX200,2..| 00000050 46 14 f2 49 3a e3 4a 3d 31 b8 50 25 3a f3 46 24 |F..I:.J=1.P%:.F$| 00000060 3a ed 0d 00 6e 8f dc 20 49 4e 54 52 4f 2c 4b 45 |:...n.. INTRO,KE| 00000070 59 42 4f 41 52 44 2c 53 4b 45 54 43 48 2c 50 49 |YBOARD,SKETCH,PI| 00000080 41 4e 4f 2c 42 49 4f 52 48 59 54 48 4d 53 2c 43 |ANO,BIORHYTHMS,C| 00000090 4c 4f 43 4b 2c 47 4f 4d 4f 4b 55 2c 50 41 54 54 |LOCK,GOMOKU,PATT| 000000a0 45 52 4e 53 2c 4d 41 52 53 4c 41 4e 44 45 52 2c |ERNS,MARSLANDER,| 000000b0 42 55 47 5a 41 50 2c 44 45 4d 4f 2c 49 53 4c 41 |BUGZAP,DEMO,ISLA| 000000c0 4e 44 2c 50 4c 41 4e 45 54 53 2c 53 4e 41 50 50 |ND,PLANETS,SNAPP| 000000d0 45 52 2c 44 52 41 55 47 48 54 53 2c 52 45 56 45 |ER,DRAUGHTS,REVE| 000000e0 52 53 49 2c 42 59 45 2c 55 54 49 4c 49 54 49 45 |RSI,BYE,UTILITIE| 000000f0 53 0d 00 78 2e ef 36 3a eb 34 3a f2 4f 3a ef 31 |S..x..6:.4:.O:.1| 00000100 39 2c 31 2c 32 3b 30 3b 3a f2 44 28 46 24 2c 31 |9,1,2;0;:.D(F$,1| 00000110 30 29 3a ef 32 31 3a 2a 46 58 32 32 30 2c 30 0d |0):.21:*FX220,0.| 00000120 00 be 21 e7 50 25 3e 31 33 80 50 25 3c 31 37 8c |..!.P%>13.P%<17.| 00000130 46 25 3d 50 25 2d 31 34 3a d7 22 4d 45 4e 55 22 |F%=P%-14:."MENU"| 00000140 0d 00 c8 16 e7 50 25 3d 31 38 8c 51 25 3d 37 32 |.....P%=18.Q%=72| 00000150 3a e5 8d 44 44 42 0d 00 d2 09 d7 46 24 3a e0 0d |:..DDB.....F$:..| 00000160 00 e6 21 dd f2 43 28 41 24 2c 59 25 29 f1 8a 31 |..!..C(A$,Y%)..1| 00000170 39 2d a9 41 24 2f 32 2c 59 25 29 41 24 3b 3a e1 |9-.A$/2,Y%)A$;:.| 00000180 0d 00 fa 17 dd f2 4f ef 32 33 2c 31 2c 30 3b 30 |......O.23,1,0;0| 00000190 3b 30 3b 30 3b 3a e1 0d 01 0e 22 dd f2 49 24 4d |;0;0;:...."..I$M| 000001a0 3d c4 32 35 35 2c bd 30 29 3a 4d 3f 32 35 35 3d |=.255,.0):M?255=| 000001b0 30 3a 43 3d 32 32 34 3a e1 0d 01 36 87 dd f2 44 |0:C=224:...6...D| 000001c0 28 41 24 2c 79 25 29 42 24 3d 22 22 3a 43 24 3d |(A$,y%)B$="":C$=| 000001d0 22 22 3a e3 42 25 3d 31 b8 a9 41 24 3a 4b 25 3d |"":.B%=1..A$:K%=| 000001e0 a4 43 28 97 c1 41 24 2c 42 25 2c 31 29 29 3a 42 |.C(..A$,B%,1)):B| 000001f0 24 3d 42 24 2b bd 4b 25 3a 43 24 3d 43 24 2b bd |$=B$+.K%:C$=C$+.| 00000200 28 4b 25 2b 31 29 3a ed 3a 4b 25 3d 31 39 2d a9 |(K%+1):.:K%=19-.| 00000210 41 24 2f 32 3a 44 24 3d bd 33 31 2b bd 4b 25 2b |A$/2:D$=.31+.K%+| 00000220 bd 79 25 2b 42 24 2b bd 33 31 2b bd 4b 25 2b bd |.y%+B$+.31+.K%+.| 00000230 28 79 25 2b 31 29 2b 43 24 3a f1 44 24 3b 3a e1 |(y%+1)+C$:.D$;:.| 00000240 0d 01 a4 1d dd a4 43 28 43 25 29 e7 4d 3f 43 25 |......C(C%).M?C%| 00000250 8c 3d 4d 3f 43 25 8b 4d 3f 43 25 3d 43 0d 01 ae |.=M?C%.M?C%=C...| 00000260 57 3f 42 3d 43 25 3a 41 25 3d 31 30 3a 58 25 3d |W?B=C%:A%=10:X%=| 00000270 42 3a 59 25 3d 42 81 32 35 36 3a d6 6f 3a e3 4a |B:Y%=B.256:.o:.J| 00000280 25 3d 30 b8 31 3a ef 32 33 2c 43 2b 4a 25 3a e3 |%=0.1:.23,C+J%:.| 00000290 49 25 3d 32 b8 39 3a ef 42 3f 28 4a 25 2a 34 2b |I%=2.9:.B?(J%*4+| 000002a0 49 25 81 32 29 3a ed 2c 3a 43 3d 43 2b 32 3a 3d |I%.2):.,:C=C+2:=| 000002b0 4d 3f 43 25 0d 02 26 21 dd f2 43 28 41 24 2c 79 |M?C%..&!..C(A$,y| 000002c0 25 29 f1 8a 31 39 2d a9 41 24 2f 32 2c 79 25 29 |%)..19-.A$/2,y%)| 000002d0 41 24 3b 3a e1 0d 02 3a 22 dd f2 6e 28 41 24 29 |A$;:...:"..n(A$)| 000002e0 3a fb 30 3a fb 31 33 35 3a f1 41 24 3b 3a fb 37 |:.0:.135:.A$;:.7| 000002f0 3a fb 31 32 38 3a e1 0d 02 44 0a 2a 55 54 49 4c |:.128:...D.*UTIL| 00000300 53 0d 02 4e 05 e0 0d ff |S..N....| 00000308