Home » Archimedes archive » Micro User » MU 1992-07.adf » Listings » 8bit/E/EntLoad
8bit/E/EntLoad
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 » Micro User » MU 1992-07.adf » Listings |
| Filename: | 8bit/E/EntLoad |
| Read OK: | ✔ |
| File size: | 02D4 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Archimedes archive » Micro User » MU 1992-07.adf » Listings » 8bit/E/EntLoad
- STH website » Various » Various_Entropy_Entropy.ssd » EntLoad
- AEW website » bbc_pd » bbc_pd_5_25_discs_d-bbc064_D-BBC064.dsd » E.EntLoad
- AEW website » mu » mu_5_25_discs_Micro_User_10_05_D-MU10_05.ssd » E.EntLoad
File contents
10MODE 1
20VDU 23;8202;0;0;0;
30VDU 31,7,2
40name$="Entropy"
50FOR loop=1 TO 7
60COLOUR (loop MOD 3)+1
70PRINT;MID$(name$,loop,1);
80NEXT
90COLOUR 3
100PRINT;" - Keyboard Controls"
110VDU 31,6,3
120PRINT;STRING$(29,"=")
130VDU 28,5,31,39,6
140PRINT "At Title Page:"'
150PROCk("Up/Down","Alter Start Level")
160PROCk("Left/Right","Alter Volume")
170PROCk("Space","Start Game")
180COLOUR 3
190PRINT''"In Game:"'
200PROCk("Z X / :","Move 'You'")
210PROCk("Escape","Abort Game")
220PROCk("Copy","Pause")
230COLOUR 3
240PRINT''"While Paused:"'
250PROCk("Q","Sound Off")
260PROCk("S","Sound On")
270PROCk("Delete","'Unpause'")
280VDU 26
290VDU 31,10,27
300PRINT;"Press ";
310COLOUR 1
320PRINT;"Space";
330COLOUR 2
340PRINT;" to load."
350*FX 15,0
360REPEAT UNTIL GET=32
370*RUN Entropy
380END
390:
400DEFPROCk(k$,does$)
410COLOUR 1
420PRINT k$;TAB(12);
430COLOUR 2
440PRINT;does$
450ENDPROC
� 1
� 23;8202;0;0;0;
� 31,7,2
(name$="Entropy"
2� loop=1 � 7
<� (loop � 3)+1
F�;�name$,loop,1);
P�
Z� 3
d �;" - Keyboard Controls"
n � 31,6,3
x�;�29,"=")
�� 28,5,31,39,6
�� "At Title Page:"'
�%�k("Up/Down","Alter Start Level")
�#�k("Left/Right","Alter Volume")
� �k("Space","Start Game")
�� 3
��''"In Game:"'
� �k("Z X / :","Move 'You'")
� �k("Escape","Abort Game")
��k("Copy","Pause")
�� 3
��''"While Paused:"'
��k("Q","Sound Off")
�k("S","Sound On")
�k("Delete","'Unpause'")
� 26
"� 31,10,27
,�;"Press ";
6� 1
@�;"Space";
J� 2
T�;" to load."
^ *FX 15,0
h � � �=32
r*RUN Entropy
|�
�:
���k(k$,does$)
�� 1
�� k$;�12);
�� 2
� �;does$
��
� 00000000 0d 00 0a 07 eb 20 31 0d 00 14 14 ef 20 32 33 3b |..... 1..... 23;|
00000010 38 32 30 32 3b 30 3b 30 3b 30 3b 0d 00 1e 0c ef |8202;0;0;0;.....|
00000020 20 33 31 2c 37 2c 32 0d 00 28 13 6e 61 6d 65 24 | 31,7,2..(.name$|
00000030 3d 22 45 6e 74 72 6f 70 79 22 0d 00 32 10 e3 20 |="Entropy"..2.. |
00000040 6c 6f 6f 70 3d 31 20 b8 20 37 0d 00 3c 12 fb 20 |loop=1 . 7..<.. |
00000050 28 6c 6f 6f 70 20 83 20 33 29 2b 31 0d 00 46 15 |(loop . 3)+1..F.|
00000060 f1 3b c1 6e 61 6d 65 24 2c 6c 6f 6f 70 2c 31 29 |.;.name$,loop,1)|
00000070 3b 0d 00 50 05 ed 0d 00 5a 07 fb 20 33 0d 00 64 |;..P....Z.. 3..d|
00000080 1c f1 3b 22 20 2d 20 4b 65 79 62 6f 61 72 64 20 |..;" - Keyboard |
00000090 43 6f 6e 74 72 6f 6c 73 22 0d 00 6e 0c ef 20 33 |Controls"..n.. 3|
000000a0 31 2c 36 2c 33 0d 00 78 0e f1 3b c4 32 39 2c 22 |1,6,3..x..;.29,"|
000000b0 3d 22 29 0d 00 82 12 ef 20 32 38 2c 35 2c 33 31 |=")..... 28,5,31|
000000c0 2c 33 39 2c 36 0d 00 8c 17 f1 20 22 41 74 20 54 |,39,6..... "At T|
000000d0 69 74 6c 65 20 50 61 67 65 3a 22 27 0d 00 96 25 |itle Page:"'...%|
000000e0 f2 6b 28 22 55 70 2f 44 6f 77 6e 22 2c 22 41 6c |.k("Up/Down","Al|
000000f0 74 65 72 20 53 74 61 72 74 20 4c 65 76 65 6c 22 |ter Start Level"|
00000100 29 0d 00 a0 23 f2 6b 28 22 4c 65 66 74 2f 52 69 |)...#.k("Left/Ri|
00000110 67 68 74 22 2c 22 41 6c 74 65 72 20 56 6f 6c 75 |ght","Alter Volu|
00000120 6d 65 22 29 0d 00 aa 1c f2 6b 28 22 53 70 61 63 |me").....k("Spac|
00000130 65 22 2c 22 53 74 61 72 74 20 47 61 6d 65 22 29 |e","Start Game")|
00000140 0d 00 b4 07 fb 20 33 0d 00 be 12 f1 27 27 22 49 |..... 3.....''"I|
00000150 6e 20 47 61 6d 65 3a 22 27 0d 00 c8 1e f2 6b 28 |n Game:"'.....k(|
00000160 22 5a 20 58 20 2f 20 3a 22 2c 22 4d 6f 76 65 20 |"Z X / :","Move |
00000170 27 59 6f 75 27 22 29 0d 00 d2 1d f2 6b 28 22 45 |'You'").....k("E|
00000180 73 63 61 70 65 22 2c 22 41 62 6f 72 74 20 47 61 |scape","Abort Ga|
00000190 6d 65 22 29 0d 00 dc 16 f2 6b 28 22 43 6f 70 79 |me").....k("Copy|
000001a0 22 2c 22 50 61 75 73 65 22 29 0d 00 e6 07 fb 20 |","Pause")..... |
000001b0 33 0d 00 f0 17 f1 27 27 22 57 68 69 6c 65 20 50 |3.....''"While P|
000001c0 61 75 73 65 64 3a 22 27 0d 00 fa 17 f2 6b 28 22 |aused:"'.....k("|
000001d0 51 22 2c 22 53 6f 75 6e 64 20 4f 66 66 22 29 0d |Q","Sound Off").|
000001e0 01 04 16 f2 6b 28 22 53 22 2c 22 53 6f 75 6e 64 |....k("S","Sound|
000001f0 20 4f 6e 22 29 0d 01 0e 1c f2 6b 28 22 44 65 6c | On").....k("Del|
00000200 65 74 65 22 2c 22 27 55 6e 70 61 75 73 65 27 22 |ete","'Unpause'"|
00000210 29 0d 01 18 08 ef 20 32 36 0d 01 22 0e ef 20 33 |)..... 26..".. 3|
00000220 31 2c 31 30 2c 32 37 0d 01 2c 0f f1 3b 22 50 72 |1,10,27..,..;"Pr|
00000230 65 73 73 20 22 3b 0d 01 36 07 fb 20 31 0d 01 40 |ess ";..6.. 1..@|
00000240 0e f1 3b 22 53 70 61 63 65 22 3b 0d 01 4a 07 fb |..;"Space";..J..|
00000250 20 32 0d 01 54 11 f1 3b 22 20 74 6f 20 6c 6f 61 | 2..T..;" to loa|
00000260 64 2e 22 0d 01 5e 0c 2a 46 58 20 31 35 2c 30 0d |d."..^.*FX 15,0.|
00000270 01 68 0c f5 20 fd 20 a5 3d 33 32 0d 01 72 10 2a |.h.. . .=32..r.*|
00000280 52 55 4e 20 45 6e 74 72 6f 70 79 0d 01 7c 05 e0 |RUN Entropy..|..|
00000290 0d 01 86 05 3a 0d 01 90 11 dd f2 6b 28 6b 24 2c |....:......k(k$,|
000002a0 64 6f 65 73 24 29 0d 01 9a 07 fb 20 31 0d 01 a4 |does$)..... 1...|
000002b0 0e f1 20 6b 24 3b 8a 31 32 29 3b 0d 01 ae 07 fb |.. k$;.12);.....|
000002c0 20 32 0d 01 b8 0b f1 3b 64 6f 65 73 24 0d 01 c2 | 2.....;does$...|
000002d0 05 e1 0d ff |....|
000002d4 
.