Home » Personal collection » Acorn tapes » Own_Work » drawer_tl_tape03b_d60_acorn_repton_inf.wav » eT.REP5

eT.REP5

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 tapes » Own_Work » drawer_tl_tape03b_d60_acorn_repton_inf.wav
Filename: eT.REP5
Read OK:
File size: 08C6 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 3 duplicate copies of this file in the archive:

File contents
WOOZY
       
No� Space

� �
�RockOK
�SpiritOK
�MonsterOK
�Squash
�FungusOK
�� Repton

� �
�Under
�Transport
�FungusOK
�SpiritOK
�MonsterOK
�� WALL

� �
�Solid

�� Transporter

� �
�Under
�Squash
�RockOK
�SpiritOK
�FungusOK
�MonsterOK

�� Garage

� �

�Solid

�� �
�Deadly
�Under
�CLeft
�CRight
�� Rock

� �
�Solid
�HPush
�CLeft
�CRight
�Copy
�Transport

� �
ʂS)
ʅ � Repton
̅ �
΋
̈
ʈ
ʅ RockOK
̛S)
ʇ
̅ CLeft
΂SW)
΅ RockOK
ЂW)
Ѕ RockOK
қW)
ҍ
Ј
Έ
̈

̂S)
̅ CRight
΂SE)
΅ RockOK
ЂE)
Ѕ RockOK
қE)
Ј
Έ
̈
ʈ

�� �
�Solid
�HPush
�VPush
�Transport
ʕ
�Copy

� �
�S)
� � Space
ɛS)
�
ɂE)
Ʌ � Space
ʛE)
ɇ
ʂW)
ʅ � Space
˛W)
ʇ
˂N)
˅ � Space
̛N)
ˇ
̎100)
̄Space)
ˈ
ʈ
Ɉ
�


�� �
�Solid
�� �
�Solid
�� �
�Solid
�� �
�Solid

�� �
�Solid
�CLeft
�� �
�Solid
�CRight
�� �
�Solid


�� Radio

� �
�Solid
�HPush
�VPush

�� Monster

� �
ʠ
ʕ
�Deadly
�Copy
�Transport
�FungusOK
�Squash
�RockOK

� �
ʅ �75%)
ʅ �
̂S)
̅ MonsterOK
ΛS)
΍
̇
Ή checklr
̈
ʇ
̅ �
΂N)
΅ MonsterOK
ЛN)
Ѝ
Έ
̈
ʈ

� checklr

ʅ �
̂W)
̅ MonsterOK
ΛW)
΍
̈
ʇ
̅ �
΂E)
΅ MonsterOK
ЛE)
Έ
̈
ʈ
Ɉ

� �
ʅ � Rock
̎20)
̑134)
ʈ

�� Plug

� �
�Solid
�VPush
�HPush
ʕ

�� �
�Solid

� �
ʂE)
ʅ � On
̂W)
̅ � Space
΂N)
΅ Copy
В�)
Є�,W)
ЄOff,E)
Έ
̈
ʈ
�� On

� �
�Solid
�� �
�Solid


�� Off

� �
�Solid
�� No2

� �
�Solid
�HPush
�VPush
�Copy
ʕ

�










�� Egg

� �
�Solid
  HPush

� �
ʅ �0)
̂S)
̅ � Space
Μ1)
Α4)
̈
ʇ
̂S)
̅ � Space
ΛS)
̇
΄BrokenEgg)
Α194)
̈
ʈ
�� �

Solid
Copy
HPush
VPush

� �
�W)
� � No2

˂E)
˅ � Zero
Ύ250)
΄Diamond)

ˈ
�

�� �
�Copy
�Solid
�VPush
�HPush

�� �
�Solid
�HPush
�VPush
ʕ

� �
�N)
ʅ � Garage
̎150)
̄WALL)
ʈ

�� Zero

� �
�Solid
�HPush
�VPush
�Copy
ʕ

�� �
�Solid
�VPush
�HPush
ʕ

� �
�N)
� � Plug
ɂS)
Ʌ � Radio
ʎ175)
ʄDiamond)
Ɉ
ɂS)
Ʌ � Repton
ʋ
Ɉ
�

�� Diamond

� �
�CLeft
�CRight

� �
ʅ � Repton
̎5)
̏242)
ʈ

�� BrokenEgg

� �
�Solid
�Deadly

� �
ʅ �5)
̐
̅ �0)
΄Monster)
̈
ʈ
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�
�rection
 
CPX #ra
~CMP #&D0
ELLOWBLUEMAGENKILLREPTONCHANFECT(FLASH(CHANGE(ENDSCORE(TKILLREPTONCHASCORE(SOUND(FNDIFGOTONOTKIILLREPTONCHANGEENDSCORE(SOUNMBLEWALKRUNTYMOVE(STATE(LABTATE(LABELEVEN
00000000  57 4f 4f 5a 59 0d 20 20  20 20 20 20 20 0d 4e 6f  |WOOZY.       .No|
00000010  80 20 53 70 61 63 65 0d  0d 83 20 98 0d ca 52 6f  |. Space... ...Ro|
00000020  63 6b 4f 4b 0d ca 53 70  69 72 69 74 4f 4b 0d ca  |ckOK..SpiritOK..|
00000030  4d 6f 6e 73 74 65 72 4f  4b 0d ca 53 71 75 61 73  |MonsterOK..Squas|
00000040  68 0d ca 46 75 6e 67 75  73 4f 4b 0d fe 80 20 52  |h..FungusOK... R|
00000050  65 70 74 6f 6e 0d 0d 83  20 98 0d ca 55 6e 64 65  |epton... ...Unde|
00000060  72 0d ca 54 72 61 6e 73  70 6f 72 74 0d ca 46 75  |r..Transport..Fu|
00000070  6e 67 75 73 4f 4b 0d ca  53 70 69 72 69 74 4f 4b  |ngusOK..SpiritOK|
00000080  0d ca 4d 6f 6e 73 74 65  72 4f 4b 0d fe 80 20 57  |..MonsterOK... W|
00000090  41 4c 4c 0d 0d 83 20 98  0d ca 53 6f 6c 69 64 0d  |ALL... ...Solid.|
000000a0  0d fe 80 20 54 72 61 6e  73 70 6f 72 74 65 72 0d  |... Transporter.|
000000b0  0d 83 20 98 0d ca 55 6e  64 65 72 0d ca 53 71 75  |.. ...Under..Squ|
000000c0  61 73 68 0d ca 52 6f 63  6b 4f 4b 0d ca 53 70 69  |ash..RockOK..Spi|
000000d0  72 69 74 4f 4b 0d ca 46  75 6e 67 75 73 4f 4b 0d  |ritOK..FungusOK.|
000000e0  ca 4d 6f 6e 73 74 65 72  4f 4b 0d 0d fe 80 20 47  |.MonsterOK.... G|
000000f0  61 72 61 67 65 0d 0d 83  20 98 0d 0d ca 53 6f 6c  |arage... ....Sol|
00000100  69 64 0d 0d fe 83 20 98  0d ca 44 65 61 64 6c 79  |id.... ...Deadly|
00000110  0d ca 55 6e 64 65 72 0d  ca 43 4c 65 66 74 0d ca  |..Under..CLeft..|
00000120  43 52 69 67 68 74 0d fe  80 20 52 6f 63 6b 0d 0d  |CRight... Rock..|
00000130  83 20 98 0d ca 53 6f 6c  69 64 0d ca 48 50 75 73  |. ...Solid..HPus|
00000140  68 0d ca 43 4c 65 66 74  0d ca 43 52 69 67 68 74  |h..CLeft..CRight|
00000150  0d ca 43 6f 70 79 0d ca  54 72 61 6e 73 70 6f 72  |..Copy..Transpor|
00000160  74 0d 0d 83 20 99 0d ca  82 53 29 0d ca 85 20 9f  |t... ....S)... .|
00000170  20 52 65 70 74 6f 6e 0d  cc 85 20 86 0d ce 8b 0d  | Repton... .....|
00000180  cc 88 0d ca 88 0d ca 85  20 52 6f 63 6b 4f 4b 0d  |........ RockOK.|
00000190  cc 9b 53 29 0d ca 87 0d  cc 85 20 43 4c 65 66 74  |..S)...... CLeft|
000001a0  0d ce 82 53 57 29 0d ce  85 20 52 6f 63 6b 4f 4b  |...SW)... RockOK|
000001b0  0d d0 82 57 29 0d d0 85  20 52 6f 63 6b 4f 4b 0d  |...W)... RockOK.|
000001c0  d2 9b 57 29 0d d2 8d 0d  d0 88 0d ce 88 0d cc 88  |..W)............|
000001d0  0d 0d cc 82 53 29 0d cc  85 20 43 52 69 67 68 74  |....S)... CRight|
000001e0  0d ce 82 53 45 29 0d ce  85 20 52 6f 63 6b 4f 4b  |...SE)... RockOK|
000001f0  0d d0 82 45 29 0d d0 85  20 52 6f 63 6b 4f 4b 0d  |...E)... RockOK.|
00000200  d2 9b 45 29 0d d0 88 0d  ce 88 0d cc 88 0d ca 88  |..E)............|
00000210  0d 0d fe 83 20 98 0d ca  53 6f 6c 69 64 0d ca 48  |.... ...Solid..H|
00000220  50 75 73 68 0d ca 56 50  75 73 68 0d ca 54 72 61  |Push..VPush..Tra|
00000230  6e 73 70 6f 72 74 0d ca  95 0d ca 43 6f 70 79 0d  |nsport.....Copy.|
00000240  0d 83 20 99 0d 82 53 29  0d 85 20 9f 20 53 70 61  |.. ...S).. . Spa|
00000250  63 65 0d c9 9b 53 29 0d  87 0d c9 82 45 29 0d c9  |ce...S).....E)..|
00000260  85 20 9f 20 53 70 61 63  65 0d ca 9b 45 29 0d c9  |. . Space...E)..|
00000270  87 0d ca 82 57 29 0d ca  85 20 9f 20 53 70 61 63  |....W)... . Spac|
00000280  65 0d cb 9b 57 29 0d ca  87 0d cb 82 4e 29 0d cb  |e...W)......N)..|
00000290  85 20 9f 20 53 70 61 63  65 0d cc 9b 4e 29 0d cb  |. . Space...N)..|
000002a0  87 0d cc 8e 31 30 30 29  0d cc 84 53 70 61 63 65  |....100)...Space|
000002b0  29 0d cb 88 0d ca 88 0d  c9 88 0d 88 0d 0d 0d fe  |)...............|
000002c0  83 20 98 0d ca 53 6f 6c  69 64 0d fe 83 20 98 0d  |. ...Solid... ..|
000002d0  ca 53 6f 6c 69 64 0d fe  83 20 98 0d ca 53 6f 6c  |.Solid... ...Sol|
000002e0  69 64 0d fe 83 20 98 0d  ca 53 6f 6c 69 64 0d 0d  |id... ...Solid..|
000002f0  fe 83 20 98 0d ca 53 6f  6c 69 64 0d ca 43 4c 65  |.. ...Solid..CLe|
00000300  66 74 0d fe 83 20 98 0d  ca 53 6f 6c 69 64 0d ca  |ft... ...Solid..|
00000310  43 52 69 67 68 74 0d fe  83 20 98 0d ca 53 6f 6c  |CRight... ...Sol|
00000320  69 64 0d 0d 0d fe 80 20  52 61 64 69 6f 0d 0d 83  |id..... Radio...|
00000330  20 98 0d ca 53 6f 6c 69  64 0d ca 48 50 75 73 68  | ...Solid..HPush|
00000340  0d ca 56 50 75 73 68 0d  0d fe 80 20 4d 6f 6e 73  |..VPush.... Mons|
00000350  74 65 72 0d 0d 83 20 98  0d ca a0 0d ca 95 0d ca  |ter... .........|
00000360  44 65 61 64 6c 79 0d ca  43 6f 70 79 0d ca 54 72  |Deadly..Copy..Tr|
00000370  61 6e 73 70 6f 72 74 0d  ca 46 75 6e 67 75 73 4f  |ansport..FungusO|
00000380  4b 0d ca 53 71 75 61 73  68 0d ca 52 6f 63 6b 4f  |K..Squash..RockO|
00000390  4b 0d 0d 83 20 99 0d ca  85 20 93 37 35 25 29 0d  |K... .... .75%).|
000003a0  ca 85 20 ab 0d cc 82 53  29 0d cc 85 20 4d 6f 6e  |.. ....S)... Mon|
000003b0  73 74 65 72 4f 4b 0d ce  9b 53 29 0d ce 8d 0d cc  |sterOK...S).....|
000003c0  87 0d ce 89 20 63 68 65  63 6b 6c 72 0d cc 88 0d  |.... checklr....|
000003d0  ca 87 0d cc 85 20 a9 0d  ce 82 4e 29 0d ce 85 20  |..... ....N)... |
000003e0  4d 6f 6e 73 74 65 72 4f  4b 0d d0 9b 4e 29 0d d0  |MonsterOK...N)..|
000003f0  8d 0d ce 88 0d cc 88 0d  ca 88 0d 0d 9d 20 63 68  |............. ch|
00000400  65 63 6b 6c 72 0d 0d ca  85 20 aa 0d cc 82 57 29  |ecklr.... ....W)|
00000410  0d cc 85 20 4d 6f 6e 73  74 65 72 4f 4b 0d ce 9b  |... MonsterOK...|
00000420  57 29 0d ce 8d 0d cc 88  0d ca 87 0d cc 85 20 a8  |W)............ .|
00000430  0d ce 82 45 29 0d ce 85  20 4d 6f 6e 73 74 65 72  |...E)... Monster|
00000440  4f 4b 0d d0 9b 45 29 0d  ce 88 0d cc 88 0d ca 88  |OK...E).........|
00000450  0d c9 88 0d 0d 83 20 9a  0d ca 85 20 81 20 52 6f  |...... .... . Ro|
00000460  63 6b 0d cc 8e 32 30 29  0d cc 91 31 33 34 29 0d  |ck...20)...134).|
00000470  ca 88 0d 0d fe 80 20 50  6c 75 67 0d 0d 83 20 98  |...... Plug... .|
00000480  0d ca 53 6f 6c 69 64 0d  ca 56 50 75 73 68 0d ca  |..Solid..VPush..|
00000490  48 50 75 73 68 0d ca 95  0d 0d fe 83 20 98 0d ca  |HPush....... ...|
000004a0  53 6f 6c 69 64 0d 0d 83  20 99 0d ca 82 45 29 0d  |Solid... ....E).|
000004b0  ca 85 20 9f 20 4f 6e 0d  cc 82 57 29 0d cc 85 20  |.. . On...W)... |
000004c0  9f 20 53 70 61 63 65 0d  ce 82 4e 29 0d ce 85 20  |. Space...N)... |
000004d0  43 6f 70 79 0d d0 92 a7  29 0d d0 84 9f 2c 57 29  |Copy....)....,W)|
000004e0  0d d0 84 4f 66 66 2c 45  29 0d ce 88 0d cc 88 0d  |...Off,E).......|
000004f0  ca 88 0d fe 80 20 4f 6e  0d 0d 83 20 98 0d ca 53  |..... On... ...S|
00000500  6f 6c 69 64 0d fe 83 20  98 0d ca 53 6f 6c 69 64  |olid... ...Solid|
00000510  0d 0d 0d fe 80 20 4f 66  66 0d 0d 83 20 98 0d ca  |..... Off... ...|
00000520  53 6f 6c 69 64 0d fe 80  20 4e 6f 32 0d 0d 83 20  |Solid... No2... |
00000530  98 0d ca 53 6f 6c 69 64  0d ca 48 50 75 73 68 0d  |...Solid..HPush.|
00000540  ca 56 50 75 73 68 0d ca  43 6f 70 79 0d ca 95 0d  |.VPush..Copy....|
00000550  0d fe 0d 0d 0d 0d 0d 0d  0d 0d 0d 0d 0d fe 80 20  |............... |
00000560  45 67 67 0d 0d 83 20 98  0d ca 53 6f 6c 69 64 0d  |Egg... ...Solid.|
00000570  20 20 48 50 75 73 68 0d  0d 83 20 99 0d ca 85 20  |  HPush... .... |
00000580  9c 30 29 0d cc 82 53 29  0d cc 85 20 9f 20 53 70  |.0)...S)... . Sp|
00000590  61 63 65 0d ce 9c 31 29  0d ce 91 34 29 0d cc 88  |ace...1)...4)...|
000005a0  0d ca 87 0d cc 82 53 29  0d cc 85 20 9f 20 53 70  |......S)... . Sp|
000005b0  61 63 65 0d ce 9b 53 29  0d cc 87 0d ce 84 42 72  |ace...S)......Br|
000005c0  6f 6b 65 6e 45 67 67 29  0d ce 91 31 39 34 29 0d  |okenEgg)...194).|
000005d0  cc 88 0d ca 88 0d fe 83  20 98 0d 0d 53 6f 6c 69  |........ ...Soli|
000005e0  64 0d 43 6f 70 79 0d 48  50 75 73 68 0d 56 50 75  |d.Copy.HPush.VPu|
000005f0  73 68 0d 0d 83 20 99 0d  82 57 29 0d 85 20 9f 20  |sh... ...W).. . |
00000600  4e 6f 32 0d 0d cb 82 45  29 0d cb 85 20 9f 20 5a  |No2....E)... . Z|
00000610  65 72 6f 0d ce 8e 32 35  30 29 0d ce 84 44 69 61  |ero...250)...Dia|
00000620  6d 6f 6e 64 29 0d 0d cb  88 0d 88 0d 0d fe 83 20  |mond).......... |
00000630  98 0d ca 43 6f 70 79 0d  ca 53 6f 6c 69 64 0d ca  |...Copy..Solid..|
00000640  56 50 75 73 68 0d ca 48  50 75 73 68 0d 0d fe 83  |VPush..HPush....|
00000650  20 98 0d ca 53 6f 6c 69  64 0d ca 48 50 75 73 68  | ...Solid..HPush|
00000660  0d ca 56 50 75 73 68 0d  ca 95 0d 0d 83 20 99 0d  |..VPush...... ..|
00000670  82 4e 29 0d ca 85 20 9f  20 47 61 72 61 67 65 0d  |.N)... . Garage.|
00000680  cc 8e 31 35 30 29 0d cc  84 57 41 4c 4c 29 0d ca  |..150)...WALL)..|
00000690  88 0d 0d fe 80 20 5a 65  72 6f 0d 0d 83 20 98 0d  |..... Zero... ..|
000006a0  ca 53 6f 6c 69 64 0d ca  48 50 75 73 68 0d ca 56  |.Solid..HPush..V|
000006b0  50 75 73 68 0d ca 43 6f  70 79 0d ca 95 0d 0d fe  |Push..Copy......|
000006c0  83 20 98 0d ca 53 6f 6c  69 64 0d ca 56 50 75 73  |. ...Solid..VPus|
000006d0  68 0d ca 48 50 75 73 68  0d ca 95 0d 0d 83 20 99  |h..HPush...... .|
000006e0  0d 82 4e 29 0d 85 20 9f  20 50 6c 75 67 0d c9 82  |..N).. . Plug...|
000006f0  53 29 0d c9 85 20 9f 20  52 61 64 69 6f 0d ca 8e  |S)... . Radio...|
00000700  31 37 35 29 0d ca 84 44  69 61 6d 6f 6e 64 29 0d  |175)...Diamond).|
00000710  c9 88 0d c9 82 53 29 0d  c9 85 20 9f 20 52 65 70  |.....S)... . Rep|
00000720  74 6f 6e 0d ca 8b 0d c9  88 0d 88 0d 0d fe 80 20  |ton............ |
00000730  44 69 61 6d 6f 6e 64 0d  0d 83 20 98 0d ca 43 4c  |Diamond... ...CL|
00000740  65 66 74 0d ca 43 52 69  67 68 74 0d 0d 83 20 9a  |eft..CRight... .|
00000750  0d ca 85 20 81 20 52 65  70 74 6f 6e 0d cc 8e 35  |... . Repton...5|
00000760  29 0d cc 8f 32 34 32 29  0d ca 88 0d 0d fe 80 20  |)...242)....... |
00000770  42 72 6f 6b 65 6e 45 67  67 0d 0d 83 20 98 0d ca  |BrokenEgg... ...|
00000780  53 6f 6c 69 64 0d ca 44  65 61 64 6c 79 0d 0d 83  |Solid..Deadly...|
00000790  20 99 0d ca 85 20 9e 35  29 0d cc 90 0d cc 85 20  | .... .5)...... |
000007a0  9c 30 29 0d ce 84 4d 6f  6e 73 74 65 72 29 0d cc  |.0)...Monster)..|
000007b0  88 0d ca 88 0d fe 0d fe  0d fe 0d fe 0d fe 0d fe  |................|
000007c0  0d fe 0d fe 0d fe 0d fe  0d fe 0d fe 0d fe 0d fe  |................|
000007d0  0d fe 0d fe 0d fe 72 65  63 74 69 6f 6e 0d 17 20  |......rection.. |
000007e0  0a 43 50 58 20 23 00 00  00 00 00 00 00 08 00 00  |.CPX #..........|
000007f0  00 00 00 00 00 00 72 61  0d 18 7e 0c 43 4d 50 20  |......ra..~.CMP |
00000800  23 26 44 30 0d 18 45 4c  4c 4f 57 00 42 4c 55 45  |#&D0..ELLOW.BLUE|
00000810  00 4d 41 47 45 4e 00 4b  49 4c 4c 52 45 50 54 4f  |.MAGEN.KILLREPTO|
00000820  4e 00 43 48 41 4e 46 45  43 54 28 00 46 4c 41 53  |N.CHANFECT(.FLAS|
00000830  48 28 00 43 48 41 4e 47  45 28 00 45 4e 44 00 53  |H(.CHANGE(.END.S|
00000840  43 4f 52 45 28 00 54 00  4b 49 4c 4c 52 45 50 54  |CORE(.T.KILLREPT|
00000850  4f 4e 00 43 48 41 00 53  43 4f 52 45 28 00 53 4f  |ON.CHA.SCORE(.SO|
00000860  55 4e 44 28 00 46 4e 44  49 46 00 47 4f 54 4f 00  |UND(.FNDIF.GOTO.|
00000870  4e 4f 54 00 4b 49 49 4c  4c 52 45 50 54 4f 4e 00  |NOT.KIILLREPTON.|
00000880  43 48 41 4e 47 45 00 45  4e 44 00 53 43 4f 52 45  |CHANGE.END.SCORE|
00000890  28 00 53 4f 55 4e 4d 42  4c 45 00 57 41 4c 4b 00  |(.SOUNMBLE.WALK.|
000008a0  52 55 4e 00 54 59 4d 4f  56 45 28 00 53 54 41 54  |RUN.TYMOVE(.STAT|
000008b0  45 28 00 4c 41 42 54 41  54 45 28 00 4c 41 42 45  |E(.LABTATE(.LABE|
000008c0  4c 00 45 56 45 4e                                 |L.EVEN|
000008c6
Sprite 0
  NAME Space
  
  DEFINE TYPE
    RockOK
    SpiritOK
    MonsterOK
    Squash
    FungusOK
  
Sprite 1
  NAME Repton
  
  DEFINE TYPE
    Under
    Transport
    FungusOK
    SpiritOK
    MonsterOK
  
Sprite 2
  NAME WALL
  
  DEFINE TYPE
    Solid
  
  
Sprite 3
  NAME Transporter
  
  DEFINE TYPE
    Under
    Squash
    RockOK
    SpiritOK
    FungusOK
    MonsterOK
  
  
Sprite 4
  NAME Garage
  
  DEFINE TYPE
  
    Solid
  
  
Sprite 5
  DEFINE TYPE
    Deadly
    Under
    CLeft
    CRight
  
Sprite 6
  NAME Rock
  
  DEFINE TYPE
    Solid
    HPush
    CLeft
    CRight
    Copy
    Transport
  
  DEFINE ACTION
    LOOK(S)
    IF CONTENTS Repton
      IF MOVING
        KILLREPTON
      ENDIF
    ENDIF
    IF RockOK
      MOVE(S)
    ELSE
      IF CLeft
        LOOK(SW)
        IF RockOK
          LOOK(W)
          IF RockOK
            MOVE(W)
            END
          ENDIF
        ENDIF
      ENDIF
  
      LOOK(S)
      IF CRight
        LOOK(SE)
        IF RockOK
          LOOK(E)
          IF RockOK
            MOVE(E)
          ENDIF
        ENDIF
      ENDIF
    ENDIF
  
  
Sprite 7
  DEFINE TYPE
    Solid
    HPush
    VPush
    Transport
    One
    Copy
  
  DEFINE ACTION
  LOOK(S)
  IF CONTENTS Space
   MOVE(S)
  ELSE
   LOOK(E)
   IF CONTENTS Space
    MOVE(E)
   ELSE
    LOOK(W)
    IF CONTENTS Space
     MOVE(W)
    ELSE
     LOOK(N)
     IF CONTENTS Space
      MOVE(N)
     ELSE
      SCORE(100)
      CREATE(Space)
     ENDIF
    ENDIF
   ENDIF
  ENDIF
  
  
  
Sprite 8
  DEFINE TYPE
    Solid
  
Sprite 9
  DEFINE TYPE
    Solid
  
Sprite 10
  DEFINE TYPE
    Solid
  
Sprite 11
  DEFINE TYPE
    Solid
  
  
Sprite 12
  DEFINE TYPE
    Solid
    CLeft
  
Sprite 13
  DEFINE TYPE
    Solid
    CRight
  
Sprite 14
  DEFINE TYPE
    Solid
  
  
  
Sprite 15
  NAME Radio
  
  DEFINE TYPE
    Solid
    HPush
    VPush
  
  
Sprite 16
  NAME Monster
  
  DEFINE TYPE
    Animate
    One
    Deadly
    Copy
    Transport
    FungusOK
    Squash
    RockOK
  
  DEFINE ACTION
    IF CHANCE(75%)
    IF NORTHOF
      LOOK(S)
      IF MonsterOK
        MOVE(S)
        END
      ELSE
        GOTO checklr
      ENDIF
    ELSE
      IF SOUTHOF
        LOOK(N)
        IF MonsterOK
          MOVE(N)
          END
        ENDIF
      ENDIF
    ENDIF
  
  LABEL checklr
  
    IF EASTOF
      LOOK(W)
      IF MonsterOK
        MOVE(W)
        END
      ENDIF
    ELSE
      IF WESTOF
        LOOK(E)
        IF MonsterOK
          MOVE(E)
        ENDIF
      ENDIF
    ENDIF
   ENDIF
  
  DEFINE HITS
    IF HITBY Rock
      SCORE(20)
      EFFECT(134)
    ENDIF
  
  
Sprite 17
  NAME Plug
  
  DEFINE TYPE
    Solid
    VPush
    HPush
    One
  
  
Sprite 18
  DEFINE TYPE
    Solid
  
  DEFINE ACTION
    LOOK(E)
    IF CONTENTS On
      LOOK(W)
      IF CONTENTS Space
        LOOK(N)
        IF Copy
          FLASH(WHITE)
          CREATE(CONTENTS,W)
          CREATE(Off,E)
        ENDIF
      ENDIF
    ENDIF
  
Sprite 19
  NAME On
  
  DEFINE TYPE
    Solid
  
Sprite 20
  DEFINE TYPE
    Solid
  
  
  
Sprite 21
  NAME Off
  
  DEFINE TYPE
    Solid
  
Sprite 22
  NAME No2
  
  DEFINE TYPE
    Solid
    HPush
    VPush
    Copy
    One
  
  
Sprite 23
  
  
  
  
  
  
  
  
  
  
  
  
Sprite 24
  NAME Egg
  
  DEFINE TYPE
    Solid
    HPush
  
  DEFINE ACTION
    IF STATE(0)
      LOOK(S)
      IF CONTENTS Space
        STATE(1)
        EFFECT(4)
      ENDIF
    ELSE
      LOOK(S)
      IF CONTENTS Space
        MOVE(S)
      ELSE
        CREATE(BrokenEgg)
        EFFECT(194)
      ENDIF
    ENDIF
  
Sprite 25
  DEFINE TYPE
  
  Solid
  Copy
  HPush
  VPush
  
  DEFINE ACTION
  LOOK(W)
  IF CONTENTS No2
  
     LOOK(E)
     IF CONTENTS Zero
        SCORE(250)
        CREATE(Diamond)
  
     ENDIF
  ENDIF
  
  
Sprite 26
  DEFINE TYPE
    Copy
    Solid
    VPush
    HPush
  
  
Sprite 27
  DEFINE TYPE
    Solid
    HPush
    VPush
    One
  
  DEFINE ACTION
  LOOK(N)
    IF CONTENTS Garage
      SCORE(150)
      CREATE(WALL)
    ENDIF
  
  
Sprite 28
  NAME Zero
  
  DEFINE TYPE
    Solid
    HPush
    VPush
    Copy
    One
  
  
Sprite 29
  DEFINE TYPE
    Solid
    VPush
    HPush
    One
  
  DEFINE ACTION
  LOOK(N)
  IF CONTENTS Plug
   LOOK(S)
   IF CONTENTS Radio
    SCORE(175)
    CREATE(Diamond)
   ENDIF
   LOOK(S)
   IF CONTENTS Repton
    KILLREPTON
   ENDIF
  ENDIF
  
  
Sprite 30
  NAME Diamond
  
  DEFINE TYPE
    CLeft
    CRight
  
  DEFINE HITS
    IF HITBY Repton
      SCORE(5)
      SOUND(242)
    ENDIF
  
  
Sprite 31
  NAME BrokenEgg
  
  DEFINE TYPE
    Solid
    Deadly
  
  DEFINE ACTION
    IF EVENT(5)
      FLIP
      IF STATE(0)
        CREATE(Monster)
      ENDIF
    ENDIF
  
Sprite 32
  
  
Sprite 33
  
  
Sprite 34
  
  
Sprite 35
  
  
Sprite 36
  
  
Sprite 37
  
  
Sprite 38
  
  
Sprite 39
  
  
Sprite 40
  
  
Sprite 41
  
  
Sprite 42
  
  
Sprite 43
  
  
Sprite 44
  
  
Sprite 45
  
  
Sprite 46
  
  
Sprite 47
  
  
Sprite 48
  rection
   CPX #ra
  ~CMP #&D0
  ELLOWBLUEMAGENKILLREPTONCHANFECT(FLASH(CHANGE(ENDSCORE(TKILLREPTONCHASCORE(SOUND(FNDIFGOTONOTKIILLREPTONCHANGEENDSCORE(SOUNMBLEWALKRUNTYMOVE(STATE(LABTATE(LABELEVEN
eT.REP5.m0
eT.REP5.m1
eT.REP5.m2
eT.REP5.m4
eT.REP5.m5