!AWOct91/Goodies/Cheats/E-Type/!CHEAT-1

Home » Archimedes archive » Archimedes World » AW-1991-10.adf » October91 » !AWOct91/Goodies/Cheats/E-Type/!CHEAT-1

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 » Archimedes World » AW-1991-10.adf » October91
Filename:	!AWOct91/Goodies/Cheats/E-Type/!CHEAT-1
Read OK:	✔
File size:	05DB bytes
Load address:	0000
Exec address:	0000

File contents

   10 REM >$.!CHEAT
   20 :
   30 IF PAGE<>&69000 THEN PAGE=&69000:CHAIN "$.E-TYPE.!CHEAT-1"
   40 MODE 7
   50 :
   60 PRINT CHR$141;"�";CHR$157;"�       <C> THE FOX 1990"
   70 PRINT CHR$141;"�";CHR$157;"�       <C> THE FOX 1990"
   80 PRINT
   90 PRINT
  100 PRINT "�Please insert E-TYPE DISK 1."
  110 PRINT "�and press any key."
  120 D$=GET$
  130 ON ERROR VDU 7:PROCwrongdisk
  140 *MOUNT 0
  150 PRINT TAB(0,7);"�LOADING FILE."
  160 *LOAD $.!E-TYPE.GAMECODE 9000
  170 PRINT TAB(0,7);"              "
  180 ON ERROR CLS:REPORT:PRINT"�AT LINE�";ERL:END
  190 PRINT'' "�Do you want to cheat in                �E-TYPE      ? (Y/N)."
  200 A$=GET$
  210 IF A$="Y" OR A$="y" OR A$="N" OR A$="n" THEN 220 ELSE VDU7:GOTO 200
  220 IF A$="N" OR A$="n" THEN PROCno_change ELSE PROCchange
  230 :
  240 PRINT "�NOW SAVING FILE "
  250 *SAVE $.!E-TYPE.GAMECODE 9000 +3BF2C 9000 9000
  260 CLS
  270 PRINT CHR$141;"�";CHR$157;"�       <C> THE FOX 1990"
  280 PRINT CHR$141;"�";CHR$157;"�       <C> THE FOX 1990"
  290 PRINT''"�File has now been Saved."
  300 PRINT'"�PRESS 'E' TO RUN E-TYPE,"
  310 PRINT'"�OR PRESS 'D' FOR DESKTOP."
  320 A$=GET$
  330 IF A$<>"E" AND A$<>"e" AND A$<>"D" AND A$<>"d" THEN VDU 7:GOTO 320
  340 IF A$="E" OR A$="e" THEN *$.!BOOT
  350 *DESKTOP
  360 END
  370 :
  380 DEF PROCno_change
  390 ?&9F36=3
  400 ENDPROC
  410 :
  420 DEF PROCchange
  430 PRINT TAB(0,4);SPC(29);TAB(0,5);SPC(20);TAB(0,6);SPC(29);TAB(0,7);SPC(29)
  440 PRINT''"�Please enter the number of minutes you��want to take going around each track."
  450 PRINT' "�(1-9 minutes) ?."
  460 A1$=GET$
  470 IF A1$<"1" OR A1$>"9" THEN VDU 7:GOTO 430
  480 ?&9F36=VAL(A1$)
  490 ENDPROC
  500 :
  510 DEF PROCwrongdisk
  520 PRINT TAB(0,14);"�WRONG DISK!"
  530 PRINT TAB(0,15);"�INSERT CORRECT DISK AND"
  540 PRINT TAB(0,16);"�PRESS ANY KEY."
  550 A$=GET$
  560 PRINT TAB(0,14);SPC(20);TAB(0,15);SPC(26);TAB(0,16);SPC(20)
  570 ENDPROC


 � >$.!CHEAT
 :
1 � �<>&69000 � �=&69000:� "$.E-TYPE.!CHEAT-1"
( � 7
2 :
</ � �141;"�";�157;"�       <C> THE FOX 1990"
F/ � �141;"�";�157;"�       <C> THE FOX 1990"
P �
Z �
d& � "�Please insert E-TYPE DISK 1."
n � "�and press any key."
x	 D$=�
� � � � 7:�wrongdisk
�
 *MOUNT 0
� � �0,7);"�LOADING FILE."
�" *LOAD $.!E-TYPE.GAMECODE 9000
� � �0,7);"              "
� � � �:�:�"�AT LINE�";�:�
�H �'' "�Do you want to cheat in                �E-TYPE      ? (Y/N)."
�	 A$=�
�; � A$="Y" � A$="y" � A$="N" � A$="n" � �d\@ � �7:� �dH@
�- � A$="N" � A$="n" � �no_change � �change
� :
� � "�NOW SAVING FILE "
�3 *SAVE $.!E-TYPE.GAMECODE 9000 +3BF2C 9000 9000
 �
/ � �141;"�";�157;"�       <C> THE FOX 1990"
/ � �141;"�";�157;"�       <C> THE FOX 1990"
"# �''"�File has now been Saved."
," �'"�PRESS 'E' TO RUN E-TYPE,"
6# �'"�OR PRESS 'D' FOR DESKTOP."
@	 A$=�
J9 � A$<>"E" � A$<>"e" � A$<>"D" � A$<>"d" � � 7:� �D@A
T! � A$="E" � A$="e" � *$.!BOOT
^
 *DESKTOP
h �
r :
| � �no_change
�
 ?&9F36=3
� �
� :
� � �change
�6 � �0,4);�(29);�0,5);�(20);�0,6);�(29);�0,7);�(29)
�X �''"�Please enter the number of minutes you��want to take going around each track."
� �' "�(1-9 minutes) ?."
�
 A1$=�
�% � A1$<"1" � A1$>"9" � � 7:� �tnA
� ?&9F36=�(A1$)
� �
� :
� � �wrongdisk
 � �0,14);"�WRONG DISK!"
( � �0,15);"�INSERT CORRECT DISK AND"
 � �0,16);"�PRESS ANY KEY."
&	 A$=�
0- � �0,14);�(20);�0,15);�(26);�0,16);�(20)
: �
�

00000000  0d 00 0a 10 20 f4 20 3e  24 2e 21 43 48 45 41 54  |.... . >$.!CHEAT|
00000010  0d 00 14 06 20 3a 0d 00  1e 31 20 e7 20 90 3c 3e  |.... :...1 . .<>|
00000020  26 36 39 30 30 30 20 8c  20 d0 3d 26 36 39 30 30  |&69000 . .=&6900|
00000030  30 3a d7 20 22 24 2e 45  2d 54 59 50 45 2e 21 43  |0:. "$.E-TYPE.!C|
00000040  48 45 41 54 2d 31 22 0d  00 28 08 20 eb 20 37 0d  |HEAT-1"..(. . 7.|
00000050  00 32 06 20 3a 0d 00 3c  2f 20 f1 20 bd 31 34 31  |.2. :..</ . .141|
00000060  3b 22 81 22 3b bd 31 35  37 3b 22 83 20 20 20 20  |;".";.157;".    |
00000070  20 20 20 3c 43 3e 20 54  48 45 20 46 4f 58 20 31  |   <C> THE FOX 1|
00000080  39 39 30 22 0d 00 46 2f  20 f1 20 bd 31 34 31 3b  |990"..F/ . .141;|
00000090  22 81 22 3b bd 31 35 37  3b 22 83 20 20 20 20 20  |".";.157;".     |
000000a0  20 20 3c 43 3e 20 54 48  45 20 46 4f 58 20 31 39  |  <C> THE FOX 19|
000000b0  39 30 22 0d 00 50 06 20  f1 0d 00 5a 06 20 f1 0d  |90"..P. ...Z. ..|
000000c0  00 64 26 20 f1 20 22 86  50 6c 65 61 73 65 20 69  |.d& . ".Please i|
000000d0  6e 73 65 72 74 20 45 2d  54 59 50 45 20 44 49 53  |nsert E-TYPE DIS|
000000e0  4b 20 31 2e 22 0d 00 6e  1c 20 f1 20 22 86 61 6e  |K 1."..n. . ".an|
000000f0  64 20 70 72 65 73 73 20  61 6e 79 20 6b 65 79 2e  |d press any key.|
00000100  22 0d 00 78 09 20 44 24  3d be 0d 00 82 17 20 ee  |"..x. D$=..... .|
00000110  20 85 20 ef 20 37 3a f2  77 72 6f 6e 67 64 69 73  | . . 7:.wrongdis|
00000120  6b 0d 00 8c 0d 20 2a 4d  4f 55 4e 54 20 30 0d 00  |k.... *MOUNT 0..|
00000130  96 1d 20 f1 20 8a 30 2c  37 29 3b 22 81 4c 4f 41  |.. . .0,7);".LOA|
00000140  44 49 4e 47 20 46 49 4c  45 2e 22 0d 00 a0 22 20  |DING FILE."..." |
00000150  2a 4c 4f 41 44 20 24 2e  21 45 2d 54 59 50 45 2e  |*LOAD $.!E-TYPE.|
00000160  47 41 4d 45 43 4f 44 45  20 39 30 30 30 0d 00 aa  |GAMECODE 9000...|
00000170  1d 20 f1 20 8a 30 2c 37  29 3b 22 20 20 20 20 20  |. . .0,7);"     |
00000180  20 20 20 20 20 20 20 20  20 22 0d 00 b4 1d 20 ee  |         ".... .|
00000190  20 85 20 db 3a f6 3a f1  22 81 41 54 20 4c 49 4e  | . .:.:.".AT LIN|
000001a0  45 82 22 3b 9e 3a e0 0d  00 be 48 20 f1 27 27 20  |E.";.:....H .'' |
000001b0  22 81 44 6f 20 79 6f 75  20 77 61 6e 74 20 74 6f  |".Do you want to|
000001c0  20 63 68 65 61 74 20 69  6e 20 20 20 20 20 20 20  | cheat in       |
000001d0  20 20 20 20 20 20 20 20  20 82 45 2d 54 59 50 45  |         .E-TYPE|
000001e0  20 20 20 20 20 20 3f 20  28 59 2f 4e 29 2e 22 0d  |      ? (Y/N).".|
000001f0  00 c8 09 20 41 24 3d be  0d 00 d2 3b 20 e7 20 41  |... A$=....; . A|
00000200  24 3d 22 59 22 20 84 20  41 24 3d 22 79 22 20 84  |$="Y" . A$="y" .|
00000210  20 41 24 3d 22 4e 22 20  84 20 41 24 3d 22 6e 22  | A$="N" . A$="n"|
00000220  20 8c 20 8d 64 5c 40 20  8b 20 ef 37 3a e5 20 8d  | . .d\@ . .7:. .|
00000230  64 48 40 0d 00 dc 2d 20  e7 20 41 24 3d 22 4e 22  |dH@...- . A$="N"|
00000240  20 84 20 41 24 3d 22 6e  22 20 8c 20 f2 6e 6f 5f  | . A$="n" . .no_|
00000250  63 68 61 6e 67 65 20 8b  20 f2 63 68 61 6e 67 65  |change . .change|
00000260  0d 00 e6 06 20 3a 0d 00  f0 1a 20 f1 20 22 86 4e  |.... :.... . ".N|
00000270  4f 57 20 53 41 56 49 4e  47 20 46 49 4c 45 20 22  |OW SAVING FILE "|
00000280  0d 00 fa 33 20 2a 53 41  56 45 20 24 2e 21 45 2d  |...3 *SAVE $.!E-|
00000290  54 59 50 45 2e 47 41 4d  45 43 4f 44 45 20 39 30  |TYPE.GAMECODE 90|
000002a0  30 30 20 2b 33 42 46 32  43 20 39 30 30 30 20 39  |00 +3BF2C 9000 9|
000002b0  30 30 30 0d 01 04 06 20  db 0d 01 0e 2f 20 f1 20  |000.... ..../ . |
000002c0  bd 31 34 31 3b 22 81 22  3b bd 31 35 37 3b 22 83  |.141;".";.157;".|
000002d0  20 20 20 20 20 20 20 3c  43 3e 20 54 48 45 20 46  |       <C> THE F|
000002e0  4f 58 20 31 39 39 30 22  0d 01 18 2f 20 f1 20 bd  |OX 1990".../ . .|
000002f0  31 34 31 3b 22 81 22 3b  bd 31 35 37 3b 22 83 20  |141;".";.157;". |
00000300  20 20 20 20 20 20 3c 43  3e 20 54 48 45 20 46 4f  |      <C> THE FO|
00000310  58 20 31 39 39 30 22 0d  01 22 23 20 f1 27 27 22  |X 1990".."# .''"|
00000320  82 46 69 6c 65 20 68 61  73 20 6e 6f 77 20 62 65  |.File has now be|
00000330  65 6e 20 53 61 76 65 64  2e 22 0d 01 2c 22 20 f1  |en Saved."..," .|
00000340  27 22 86 50 52 45 53 53  20 27 45 27 20 54 4f 20  |'".PRESS 'E' TO |
00000350  52 55 4e 20 45 2d 54 59  50 45 2c 22 0d 01 36 23  |RUN E-TYPE,"..6#|
00000360  20 f1 27 22 83 4f 52 20  50 52 45 53 53 20 27 44  | .'".OR PRESS 'D|
00000370  27 20 46 4f 52 20 44 45  53 4b 54 4f 50 2e 22 0d  |' FOR DESKTOP.".|
00000380  01 40 09 20 41 24 3d be  0d 01 4a 39 20 e7 20 41  |.@. A$=...J9 . A|
00000390  24 3c 3e 22 45 22 20 80  20 41 24 3c 3e 22 65 22  |$<>"E" . A$<>"e"|
000003a0  20 80 20 41 24 3c 3e 22  44 22 20 80 20 41 24 3c  | . A$<>"D" . A$<|
000003b0  3e 22 64 22 20 8c 20 ef  20 37 3a e5 20 8d 44 40  |>"d" . . 7:. .D@|
000003c0  41 0d 01 54 21 20 e7 20  41 24 3d 22 45 22 20 84  |A..T! . A$="E" .|
000003d0  20 41 24 3d 22 65 22 20  8c 20 2a 24 2e 21 42 4f  | A$="e" . *$.!BO|
000003e0  4f 54 0d 01 5e 0d 20 2a  44 45 53 4b 54 4f 50 0d  |OT..^. *DESKTOP.|
000003f0  01 68 06 20 e0 0d 01 72  06 20 3a 0d 01 7c 11 20  |.h. ...r. :..|. |
00000400  dd 20 f2 6e 6f 5f 63 68  61 6e 67 65 0d 01 86 0d  |. .no_change....|
00000410  20 3f 26 39 46 33 36 3d  33 0d 01 90 06 20 e1 0d  | ?&9F36=3.... ..|
00000420  01 9a 06 20 3a 0d 01 a4  0e 20 dd 20 f2 63 68 61  |... :.... . .cha|
00000430  6e 67 65 0d 01 ae 36 20  f1 20 8a 30 2c 34 29 3b  |nge...6 . .0,4);|
00000440  89 28 32 39 29 3b 8a 30  2c 35 29 3b 89 28 32 30  |.(29);.0,5);.(20|
00000450  29 3b 8a 30 2c 36 29 3b  89 28 32 39 29 3b 8a 30  |);.0,6);.(29);.0|
00000460  2c 37 29 3b 89 28 32 39  29 0d 01 b8 58 20 f1 27  |,7);.(29)...X .'|
00000470  27 22 83 50 6c 65 61 73  65 20 65 6e 74 65 72 20  |'".Please enter |
00000480  74 68 65 20 6e 75 6d 62  65 72 20 6f 66 20 6d 69  |the number of mi|
00000490  6e 75 74 65 73 20 79 6f  75 83 83 77 61 6e 74 20  |nutes you..want |
000004a0  74 6f 20 74 61 6b 65 20  67 6f 69 6e 67 20 61 72  |to take going ar|
000004b0  6f 75 6e 64 20 65 61 63  68 20 74 72 61 63 6b 2e  |ound each track.|
000004c0  22 0d 01 c2 1b 20 f1 27  20 22 86 28 31 2d 39 20  |".... .' ".(1-9 |
000004d0  6d 69 6e 75 74 65 73 29  20 3f 2e 22 0d 01 cc 0a  |minutes) ?."....|
000004e0  20 41 31 24 3d be 0d 01  d6 25 20 e7 20 41 31 24  | A1$=....% . A1$|
000004f0  3c 22 31 22 20 84 20 41  31 24 3e 22 39 22 20 8c  |<"1" . A1$>"9" .|
00000500  20 ef 20 37 3a e5 20 8d  74 6e 41 0d 01 e0 12 20  | . 7:. .tnA.... |
00000510  3f 26 39 46 33 36 3d bb  28 41 31 24 29 0d 01 ea  |?&9F36=.(A1$)...|
00000520  06 20 e1 0d 01 f4 06 20  3a 0d 01 fe 11 20 dd 20  |. ..... :.... . |
00000530  f2 77 72 6f 6e 67 64 69  73 6b 0d 02 08 1c 20 f1  |.wrongdisk.... .|
00000540  20 8a 30 2c 31 34 29 3b  22 81 57 52 4f 4e 47 20  | .0,14);".WRONG |
00000550  44 49 53 4b 21 22 0d 02  12 28 20 f1 20 8a 30 2c  |DISK!"...( . .0,|
00000560  31 35 29 3b 22 82 49 4e  53 45 52 54 20 43 4f 52  |15);".INSERT COR|
00000570  52 45 43 54 20 44 49 53  4b 20 41 4e 44 22 0d 02  |RECT DISK AND"..|
00000580  1c 1f 20 f1 20 8a 30 2c  31 36 29 3b 22 82 50 52  |.. . .0,16);".PR|
00000590  45 53 53 20 41 4e 59 20  4b 45 59 2e 22 0d 02 26  |ESS ANY KEY."..&|
000005a0  09 20 41 24 3d be 0d 02  30 2d 20 f1 20 8a 30 2c  |. A$=...0- . .0,|
000005b0  31 34 29 3b 89 28 32 30  29 3b 8a 30 2c 31 35 29  |14);.(20);.0,15)|
000005c0  3b 89 28 32 36 29 3b 8a  30 2c 31 36 29 3b 89 28  |;.(26);.0,16);.(|
000005d0  32 30 29 0d 02 3a 06 20  e1 0d ff                 |20)..:. ...|
000005db

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .