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:
- Personal collection » Acorn ADFS disks » Electron » Data.ADF » Infinity/eT/REP5
- Personal collection » Acorn ADFS disks » Greaseweazled » adfs_Data.adf » Infinity/eT/REP5
- Personal collection » Acorn tapes » Own_Work » drawer_tl_tape03b_d60_acorn_repton_inf.wav » eT.REP5
- Personal collection » Acorn tapes » Own_Work » drawer_tl_tape03b_d60_acorn_repton_inf.wav » eT.REP5
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 ELLOW BLUE MAGEN KILLREPTON CHANFECT( FLASH( CHANGE( END SCORE( T KILLREPTON CHA SCORE( SOUND( FNDIF GOTO NOT KIILLREPTON CHANGE END SCORE( SOUNMBLE WALK RUN TYMOVE( STATE( LABTATE( LABEL EVEN
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
.