Home » Archimedes archive » Acorn User » AU 1995-12 B.adf » Spobbleoid » !SpobDemo/INTRO/Loader

!SpobDemo/INTRO/Loader

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 » Archimedes archive » Acorn User » AU 1995-12 B.adf » Spobbleoid
Filename: !SpobDemo/INTRO/Loader
Read OK:
File size: 01FB bytes
Load address: 0000
Exec address: 0000
File contents
   10 REM ><Obey$Dir>.intro.Loader
   20 MODE12:MODE9:OFF:DIM bas 20:!bas=148:bas!4=-1:SYS &31,bas,bas+8:S%=bas!8
   30 U%=0
   31 MODE0
   40 PRINT''"Spobbleoid Fantasy Acorn User Demo   V 1.0"
   50 PRINT'"(C) 1995 Cybernation Entertainment Systems"
   60 PRINT'"Presented by the 4th Dimension 1995"
   70 PRINT'"Loading..."
   80 ON ERROR GOTO 110
   90 SYS"Joystick_Read",1
  100 U%=1
  110 *LOAD <Obey$Dir>.Intro.CYBERLOGO 10000
  120 *LOAD <Obey$Dir>.Intro.FADETABLE 9C00
  121 *SLOAD <Obey$Dir>.Intro.ES
  130 L%=1:*FX200,3
  140 PAGE=&40000
  150 CHAIN"<Obey$Dir>.Intro.Runner"

 � ><Obey$Dir>.intro.Loader
B �12:�9:�:� bas 20:!bas=148:bas!4=-1:ș &31,bas,bas+8:S%=bas!8
	 U%=0
 �0
(4 �''"Spobbleoid Fantasy Acorn User Demo   V 1.0"
23 �'"(C) 1995 Cybernation Entertainment Systems"
<, �'"Presented by the 4th Dimension 1995"
F �'"Loading..."
P � � � �Dn@
Z ș"Joystick_Read",1
d	 U%=1
n+ *LOAD <Obey$Dir>.Intro.CYBERLOGO 10000
x* *LOAD <Obey$Dir>.Intro.FADETABLE 9C00
y *SLOAD <Obey$Dir>.Intro.ES
� L%=1:*FX200,3
�
 �=&40000
� �"<Obey$Dir>.Intro.Runner"
�
00000000  0d 00 0a 1f 20 f4 20 3e  3c 4f 62 65 79 24 44 69  |.... . ><Obey$Di|
00000010  72 3e 2e 69 6e 74 72 6f  2e 4c 6f 61 64 65 72 0d  |r>.intro.Loader.|
00000020  00 14 42 20 eb 31 32 3a  eb 39 3a 87 3a de 20 62  |..B .12:.9:.:. b|
00000030  61 73 20 32 30 3a 21 62  61 73 3d 31 34 38 3a 62  |as 20:!bas=148:b|
00000040  61 73 21 34 3d 2d 31 3a  c8 99 20 26 33 31 2c 62  |as!4=-1:.. &31,b|
00000050  61 73 2c 62 61 73 2b 38  3a 53 25 3d 62 61 73 21  |as,bas+8:S%=bas!|
00000060  38 0d 00 1e 09 20 55 25  3d 30 0d 00 1f 07 20 eb  |8.... U%=0.... .|
00000070  30 0d 00 28 34 20 f1 27  27 22 53 70 6f 62 62 6c  |0..(4 .''"Spobbl|
00000080  65 6f 69 64 20 46 61 6e  74 61 73 79 20 41 63 6f  |eoid Fantasy Aco|
00000090  72 6e 20 55 73 65 72 20  44 65 6d 6f 20 20 20 56  |rn User Demo   V|
000000a0  20 31 2e 30 22 0d 00 32  33 20 f1 27 22 28 43 29  | 1.0"..23 .'"(C)|
000000b0  20 31 39 39 35 20 43 79  62 65 72 6e 61 74 69 6f  | 1995 Cybernatio|
000000c0  6e 20 45 6e 74 65 72 74  61 69 6e 6d 65 6e 74 20  |n Entertainment |
000000d0  53 79 73 74 65 6d 73 22  0d 00 3c 2c 20 f1 27 22  |Systems"..<, .'"|
000000e0  50 72 65 73 65 6e 74 65  64 20 62 79 20 74 68 65  |Presented by the|
000000f0  20 34 74 68 20 44 69 6d  65 6e 73 69 6f 6e 20 31  | 4th Dimension 1|
00000100  39 39 35 22 0d 00 46 13  20 f1 27 22 4c 6f 61 64  |995"..F. .'"Load|
00000110  69 6e 67 2e 2e 2e 22 0d  00 50 0f 20 ee 20 85 20  |ing..."..P. . . |
00000120  e5 20 8d 44 6e 40 0d 00  5a 18 20 c8 99 22 4a 6f  |. .Dn@..Z. .."Jo|
00000130  79 73 74 69 63 6b 5f 52  65 61 64 22 2c 31 0d 00  |ystick_Read",1..|
00000140  64 09 20 55 25 3d 31 0d  00 6e 2b 20 2a 4c 4f 41  |d. U%=1..n+ *LOA|
00000150  44 20 3c 4f 62 65 79 24  44 69 72 3e 2e 49 6e 74  |D <Obey$Dir>.Int|
00000160  72 6f 2e 43 59 42 45 52  4c 4f 47 4f 20 31 30 30  |ro.CYBERLOGO 100|
00000170  30 30 0d 00 78 2a 20 2a  4c 4f 41 44 20 3c 4f 62  |00..x* *LOAD <Ob|
00000180  65 79 24 44 69 72 3e 2e  49 6e 74 72 6f 2e 46 41  |ey$Dir>.Intro.FA|
00000190  44 45 54 41 42 4c 45 20  39 43 30 30 0d 00 79 1f  |DETABLE 9C00..y.|
000001a0  20 2a 53 4c 4f 41 44 20  3c 4f 62 65 79 24 44 69  | *SLOAD <Obey$Di|
000001b0  72 3e 2e 49 6e 74 72 6f  2e 45 53 0d 00 82 12 20  |r>.Intro.ES.... |
000001c0  4c 25 3d 31 3a 2a 46 58  32 30 30 2c 33 0d 00 8c  |L%=1:*FX200,3...|
000001d0  0d 20 d0 3d 26 34 30 30  30 30 0d 00 96 1f 20 d7  |. .=&40000.... .|
000001e0  22 3c 4f 62 65 79 24 44  69 72 3e 2e 49 6e 74 72  |"<Obey$Dir>.Intr|
000001f0  6f 2e 52 75 6e 6e 65 72  22 0d ff                 |o.Runner"..|
000001fb