Home » Personal collection » Acorn ADFS disks » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.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 » Greaseweazled » dfs_box04_disk01b_adfs_welcome_disk_interleaved.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:

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
WELCOME/Boot.m0
WELCOME/Boot.m1
WELCOME/Boot.m2
WELCOME/Boot.m4
WELCOME/Boot.m5