Home » Archimedes archive » Archimedes World » AW-1991-08.adf » August91 » !AWAug91/Goodies/Cheats/ManAtArms/!CHEAT-1
!AWAug91/Goodies/Cheats/ManAtArms/!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-08.adf » August91 |
| Filename: | !AWAug91/Goodies/Cheats/ManAtArms/!CHEAT-1 |
| Read OK: | ✔ |
| File size: | 073A bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
10 REM >!CHEAT-1
20 :
30 REM <C> THE FOX! 1991
40 REM
50 REM LONDONDERRY
60 REM
70 REM N.IRELAND
80 REM
90 REM Cheat for ManAtArms by 4th Dimension
100 REM
110 :
120 MODE 7
130 PROClogo
140 PRINT''
150 PRINT "�Press :-"
160 PRINT''"�1 - Look at Passwords."
170 PRINT' "�2 - Put cheat on�ManAtArms�disk."
180 PRINT' "�3 - Take cheat off�ManAtArms�disk."
190 PRINT' "�4 - End Program."
200 PRINT ''"�Press (1-4)?"
210 G$=GET$
220 IF G$<"1" OR G$>"4" THEN VDU 7:GOTO 210
230 CLS
240 PROClogo
250 IF G$="1" THEN PROCpasswords:GOTO 10
260 IF G$="2" THEN PROCcheat("ON"):GOTO 10
270 IF G$="3" THEN PROCcheat("OFF"):GOTO 10
280 PRINT''"PROGRAM ENDED."
290 END
300 :
310 DEF PROCcheat(QU$)
320 CLS
330 PROClogo
340 PRINT''
350 PRINT "�Please insert ManAtArms disk in drive 0";
360 PRINT "�and press a key."
370 G=GET
380 PRINT'"�Are you sure this is the�ManAtArms�disk";"�(Y/N) If not press ESCAPE now and check"
390 G=GET
400 IF G=ASC"Y" OR G=ASC"y" THEN 410 ELSE STOP
410 PRINT''"�Now loading relevant Code!."
420 *LOAD :0.$.!ManAtArms.Castle3 52000
430 *LOAD :0.$.!ManAtArms.Castle2 10000
440 IF QU$="OFF" THEN 470
450 PRINT '"�Do you want to put cheat on disk "'"�(Y/N)?"
460 GOTO 480
470 PRINT '"�Do you want to take cheat off disk "'"�(Y/N)?"
480 G$=GET$
490 IF G$="Y" OR G$="y" OR G$="N" OR G$="n" THEN 500 ELSE VDU 7:GOTO 480
500 IF G$="N" OR G$="n" ENDPROC
510 IF QU$="OFF" THEN 540
520 ?&521F4=0:?&19198=0
530 GOTO 550
540 ?&521F4=1:?&19198=1
550 PRINT'"�Now saving relevant Code!."
560 *SAVE :0.$.!ManAtArms.Castle3 52000 +1000 52000 52000
570 *SAVE :0.$.!ManAtArms.Castle2 10000 +10000 10000 10000
580 PRINT"�Change complete. Now use disc as normal"
590 PRINT'"�Press any key for menu."
600 G=GET
610 ENDPROC
620 DEF PROClogo
630 PRINT CHR$141;"�";CHR$157;" � <C> THE FOX! 1991"
640 PRINT CHR$141;"�";CHR$157;" � <C> THE FOX! 1991"
650 ENDPROC
660 DEF PROCpasswords
670 CLS
680 PROClogo
690 PRINT'"�Here are all the Passwords!."
700 PRINT'"�Castle�1 - �INCUBUS"
710 PRINT'"�Castle�2 - �STRANGE"
720 PRINT'"�Castle�3 - �PULSARS"
730 PRINT''
740 PRINT''"�Press any key for menu."
750 G$=GET$
760 ENDPROC
� >!CHEAT-1
:
� <C> THE FOX! 1991
( �
2 � LONDONDERRY
< �
F � N.IRELAND
P �
Z+ � Cheat for ManAtArms by 4th Dimension
d �
n :
x � 7
�
�logo
� �''
� � "�Press :-"
�! �''"�1 - Look at Passwords."
�+ �' "�2 - Put cheat on�ManAtArms�disk."
�- �' "�3 - Take cheat off�ManAtArms�disk."
� �' "�4 - End Program."
� � ''"�Press (1-4)?"
� G$=�
�# � G$<"1" � G$>"4" � � 7:� �dR@
� �
�
�logo
�! � G$="1" � �passwords:� �TJ@
# � G$="2" � �cheat("ON"):� �TJ@
$ � G$="3" � �cheat("OFF"):� �TJ@
�''"PROGRAM ENDED."
" �
, :
6 � �cheat(QU$)
@ �
J
�logo
T �''
^2 � "�Please insert ManAtArms disk in drive 0";
h � "�and press a key."
r G=�
|\ �'"�Are you sure this is the�ManAtArms�disk";"�(Y/N) If not press ESCAPE now and check"
� G=�
�! � G=�"Y" � G=�"y" � �tZA � �
�& �''"�Now loading relevant Code!."
�( *LOAD :0.$.!ManAtArms.Castle3 52000
�( *LOAD :0.$.!ManAtArms.Castle2 10000
� � QU$="OFF" � �dVA
�8 � '"�Do you want to put cheat on disk "'"�(Y/N)?"
� � �d`A
�8 � '"�Do you want to take cheat off disk "'"�(Y/N)?"
� G$=�
�< � G$="Y" � G$="y" � G$="N" � G$="n" � �dtA � � 7:� �d`A
� � G$="N" � G$="n" �
� � QU$="OFF" � �T\B
?&521F4=0:?&19198=0
� �TfB
?&521F4=1:?&19198=1
&$ �'"�Now saving relevant Code!."
0: *SAVE :0.$.!ManAtArms.Castle3 52000 +1000 52000 52000
:; *SAVE :0.$.!ManAtArms.Castle2 10000 +10000 10000 10000
D0 �"�Change complete. Now use disc as normal"
N! �'"�Press any key for menu."
X G=�
b �
l � �logo
v2 � �141;"�";�157;" � <C> THE FOX! 1991"
�2 � �141;"�";�157;" � <C> THE FOX! 1991"
� �
� � �passwords
� �
�
�logo
�& �'"�Here are all the Passwords!."
� �'"�Castle�1 - �INCUBUS"
� �'"�Castle�2 - �STRANGE"
� �'"�Castle�3 - �PULSARS"
� �''
�" �''"�Press any key for menu."
� G$=�
� �
� 00000000 0d 00 0a 10 20 f4 20 3e 21 43 48 45 41 54 2d 31 |.... . >!CHEAT-1|
00000010 0d 00 14 06 20 3a 0d 00 1e 18 20 f4 20 3c 43 3e |.... :.... . <C>|
00000020 20 54 48 45 20 46 4f 58 21 20 31 39 39 31 0d 00 | THE FOX! 1991..|
00000030 28 06 20 f4 0d 00 32 12 20 f4 20 4c 4f 4e 44 4f |(. ...2. . LONDO|
00000040 4e 44 45 52 52 59 0d 00 3c 06 20 f4 0d 00 46 10 |NDERRY..<. ...F.|
00000050 20 f4 20 4e 2e 49 52 45 4c 41 4e 44 0d 00 50 06 | . N.IRELAND..P.|
00000060 20 f4 0d 00 5a 2b 20 f4 20 43 68 65 61 74 20 66 | ...Z+ . Cheat f|
00000070 6f 72 20 4d 61 6e 41 74 41 72 6d 73 20 62 79 20 |or ManAtArms by |
00000080 34 74 68 20 44 69 6d 65 6e 73 69 6f 6e 0d 00 64 |4th Dimension..d|
00000090 06 20 f4 0d 00 6e 06 20 3a 0d 00 78 08 20 eb 20 |. ...n. :..x. . |
000000a0 37 0d 00 82 0a 20 f2 6c 6f 67 6f 0d 00 8c 08 20 |7.... .logo.... |
000000b0 f1 27 27 0d 00 96 12 20 f1 20 22 82 50 72 65 73 |.''.... . ".Pres|
000000c0 73 20 3a 2d 22 0d 00 a0 21 20 f1 27 27 22 83 31 |s :-"...! .''".1|
000000d0 20 2d 20 4c 6f 6f 6b 20 61 74 20 50 61 73 73 77 | - Look at Passw|
000000e0 6f 72 64 73 2e 22 0d 00 aa 2b 20 f1 27 20 22 83 |ords."...+ .' ".|
000000f0 32 20 2d 20 50 75 74 20 63 68 65 61 74 20 6f 6e |2 - Put cheat on|
00000100 81 4d 61 6e 41 74 41 72 6d 73 83 64 69 73 6b 2e |.ManAtArms.disk.|
00000110 22 0d 00 b4 2d 20 f1 27 20 22 83 33 20 2d 20 54 |"...- .' ".3 - T|
00000120 61 6b 65 20 63 68 65 61 74 20 6f 66 66 81 4d 61 |ake cheat off.Ma|
00000130 6e 41 74 41 72 6d 73 83 64 69 73 6b 2e 22 0d 00 |nAtArms.disk."..|
00000140 be 1b 20 f1 27 20 22 83 34 20 2d 20 45 6e 64 20 |.. .' ".4 - End |
00000150 50 72 6f 67 72 61 6d 2e 22 0d 00 c8 18 20 f1 20 |Program.".... . |
00000160 27 27 22 86 50 72 65 73 73 20 28 31 2d 34 29 3f |''".Press (1-4)?|
00000170 22 0d 00 d2 09 20 47 24 3d be 0d 00 dc 23 20 e7 |".... G$=....# .|
00000180 20 47 24 3c 22 31 22 20 84 20 47 24 3e 22 34 22 | G$<"1" . G$>"4"|
00000190 20 8c 20 ef 20 37 3a e5 20 8d 64 52 40 0d 00 e6 | . . 7:. .dR@...|
000001a0 06 20 db 0d 00 f0 0a 20 f2 6c 6f 67 6f 0d 00 fa |. ..... .logo...|
000001b0 21 20 e7 20 47 24 3d 22 31 22 20 8c 20 f2 70 61 |! . G$="1" . .pa|
000001c0 73 73 77 6f 72 64 73 3a e5 20 8d 54 4a 40 0d 01 |sswords:. .TJ@..|
000001d0 04 23 20 e7 20 47 24 3d 22 32 22 20 8c 20 f2 63 |.# . G$="2" . .c|
000001e0 68 65 61 74 28 22 4f 4e 22 29 3a e5 20 8d 54 4a |heat("ON"):. .TJ|
000001f0 40 0d 01 0e 24 20 e7 20 47 24 3d 22 33 22 20 8c |@...$ . G$="3" .|
00000200 20 f2 63 68 65 61 74 28 22 4f 46 46 22 29 3a e5 | .cheat("OFF"):.|
00000210 20 8d 54 4a 40 0d 01 18 18 20 f1 27 27 22 50 52 | .TJ@.... .''"PR|
00000220 4f 47 52 41 4d 20 45 4e 44 45 44 2e 22 0d 01 22 |OGRAM ENDED.".."|
00000230 06 20 e0 0d 01 2c 06 20 3a 0d 01 36 12 20 dd 20 |. ...,. :..6. . |
00000240 f2 63 68 65 61 74 28 51 55 24 29 0d 01 40 06 20 |.cheat(QU$)..@. |
00000250 db 0d 01 4a 0a 20 f2 6c 6f 67 6f 0d 01 54 08 20 |...J. .logo..T. |
00000260 f1 27 27 0d 01 5e 32 20 f1 20 22 86 50 6c 65 61 |.''..^2 . ".Plea|
00000270 73 65 20 69 6e 73 65 72 74 20 4d 61 6e 41 74 41 |se insert ManAtA|
00000280 72 6d 73 20 64 69 73 6b 20 69 6e 20 64 72 69 76 |rms disk in driv|
00000290 65 20 30 22 3b 0d 01 68 1a 20 f1 20 22 86 61 6e |e 0";..h. . ".an|
000002a0 64 20 70 72 65 73 73 20 61 20 6b 65 79 2e 22 0d |d press a key.".|
000002b0 01 72 08 20 47 3d a5 0d 01 7c 5c 20 f1 27 22 83 |.r. G=...|\ .'".|
000002c0 41 72 65 20 79 6f 75 20 73 75 72 65 20 74 68 69 |Are you sure thi|
000002d0 73 20 69 73 20 74 68 65 81 4d 61 6e 41 74 41 72 |s is the.ManAtAr|
000002e0 6d 73 83 64 69 73 6b 22 3b 22 82 28 59 2f 4e 29 |ms.disk";".(Y/N)|
000002f0 20 49 66 20 6e 6f 74 20 70 72 65 73 73 20 45 53 | If not press ES|
00000300 43 41 50 45 20 6e 6f 77 20 61 6e 64 20 63 68 65 |CAPE now and che|
00000310 63 6b 22 0d 01 86 08 20 47 3d a5 0d 01 90 21 20 |ck".... G=....! |
00000320 e7 20 47 3d 97 22 59 22 20 84 20 47 3d 97 22 79 |. G=."Y" . G=."y|
00000330 22 20 8c 20 8d 74 5a 41 20 8b 20 fa 0d 01 9a 26 |" . .tZA . ....&|
00000340 20 f1 27 27 22 82 4e 6f 77 20 6c 6f 61 64 69 6e | .''".Now loadin|
00000350 67 20 72 65 6c 65 76 61 6e 74 20 43 6f 64 65 21 |g relevant Code!|
00000360 2e 22 0d 01 a4 28 20 2a 4c 4f 41 44 20 3a 30 2e |."...( *LOAD :0.|
00000370 24 2e 21 4d 61 6e 41 74 41 72 6d 73 2e 43 61 73 |$.!ManAtArms.Cas|
00000380 74 6c 65 33 20 35 32 30 30 30 0d 01 ae 28 20 2a |tle3 52000...( *|
00000390 4c 4f 41 44 20 3a 30 2e 24 2e 21 4d 61 6e 41 74 |LOAD :0.$.!ManAt|
000003a0 41 72 6d 73 2e 43 61 73 74 6c 65 32 20 31 30 30 |Arms.Castle2 100|
000003b0 30 30 0d 01 b8 17 20 e7 20 51 55 24 3d 22 4f 46 |00.... . QU$="OF|
000003c0 46 22 20 8c 20 8d 64 56 41 0d 01 c2 38 20 f1 20 |F" . .dVA...8 . |
000003d0 27 22 81 44 6f 20 79 6f 75 20 77 61 6e 74 20 74 |'".Do you want t|
000003e0 6f 20 70 75 74 20 63 68 65 61 74 20 6f 6e 20 64 |o put cheat on d|
000003f0 69 73 6b 20 20 20 22 27 22 81 28 59 2f 4e 29 3f |isk "'".(Y/N)?|
00000400 22 0d 01 cc 0b 20 e5 20 8d 64 60 41 0d 01 d6 38 |".... . .d`A...8|
00000410 20 f1 20 27 22 81 44 6f 20 79 6f 75 20 77 61 6e | . '".Do you wan|
00000420 74 20 74 6f 20 74 61 6b 65 20 63 68 65 61 74 20 |t to take cheat |
00000430 6f 66 66 20 64 69 73 6b 20 22 27 22 81 28 59 2f |off disk "'".(Y/|
00000440 4e 29 3f 22 0d 01 e0 09 20 47 24 3d be 0d 01 ea |N)?".... G$=....|
00000450 3c 20 e7 20 47 24 3d 22 59 22 20 84 20 47 24 3d |< . G$="Y" . G$=|
00000460 22 79 22 20 84 20 47 24 3d 22 4e 22 20 84 20 47 |"y" . G$="N" . G|
00000470 24 3d 22 6e 22 20 8c 20 8d 64 74 41 20 8b 20 ef |$="n" . .dtA . .|
00000480 20 37 3a e5 20 8d 64 60 41 0d 01 f4 18 20 e7 20 | 7:. .d`A.... . |
00000490 47 24 3d 22 4e 22 20 84 20 47 24 3d 22 6e 22 20 |G$="N" . G$="n" |
000004a0 e1 0d 01 fe 17 20 e7 20 51 55 24 3d 22 4f 46 46 |..... . QU$="OFF|
000004b0 22 20 8c 20 8d 54 5c 42 0d 02 08 18 20 3f 26 35 |" . .T\B.... ?&5|
000004c0 32 31 46 34 3d 30 3a 3f 26 31 39 31 39 38 3d 30 |21F4=0:?&19198=0|
000004d0 0d 02 12 0b 20 e5 20 8d 54 66 42 0d 02 1c 18 20 |.... . .TfB.... |
000004e0 3f 26 35 32 31 46 34 3d 31 3a 3f 26 31 39 31 39 |?&521F4=1:?&1919|
000004f0 38 3d 31 0d 02 26 24 20 f1 27 22 83 4e 6f 77 20 |8=1..&$ .'".Now |
00000500 73 61 76 69 6e 67 20 72 65 6c 65 76 61 6e 74 20 |saving relevant |
00000510 43 6f 64 65 21 2e 22 0d 02 30 3a 20 2a 53 41 56 |Code!."..0: *SAV|
00000520 45 20 3a 30 2e 24 2e 21 4d 61 6e 41 74 41 72 6d |E :0.$.!ManAtArm|
00000530 73 2e 43 61 73 74 6c 65 33 20 35 32 30 30 30 20 |s.Castle3 52000 |
00000540 2b 31 30 30 30 20 35 32 30 30 30 20 35 32 30 30 |+1000 52000 5200|
00000550 30 0d 02 3a 3b 20 2a 53 41 56 45 20 3a 30 2e 24 |0..:; *SAVE :0.$|
00000560 2e 21 4d 61 6e 41 74 41 72 6d 73 2e 43 61 73 74 |.!ManAtArms.Cast|
00000570 6c 65 32 20 31 30 30 30 30 20 2b 31 30 30 30 30 |le2 10000 +10000|
00000580 20 31 30 30 30 30 20 31 30 30 30 30 0d 02 44 30 | 10000 10000..D0|
00000590 20 f1 22 85 43 68 61 6e 67 65 20 63 6f 6d 70 6c | .".Change compl|
000005a0 65 74 65 2e 20 4e 6f 77 20 75 73 65 20 64 69 73 |ete. Now use dis|
000005b0 63 20 61 73 20 6e 6f 72 6d 61 6c 22 0d 02 4e 21 |c as normal"..N!|
000005c0 20 f1 27 22 83 50 72 65 73 73 20 61 6e 79 20 6b | .'".Press any k|
000005d0 65 79 20 66 6f 72 20 6d 65 6e 75 2e 22 0d 02 58 |ey for menu."..X|
000005e0 08 20 47 3d a5 0d 02 62 06 20 e1 0d 02 6c 0c 20 |. G=...b. ...l. |
000005f0 dd 20 f2 6c 6f 67 6f 0d 02 76 32 20 f1 20 bd 31 |. .logo..v2 . .1|
00000600 34 31 3b 22 81 22 3b bd 31 35 37 3b 22 20 20 83 |41;".";.157;" .|
00000610 20 20 20 20 20 20 20 3c 43 3e 20 54 48 45 20 46 | <C> THE F|
00000620 4f 58 21 20 31 39 39 31 22 0d 02 80 32 20 f1 20 |OX! 1991"...2 . |
00000630 bd 31 34 31 3b 22 81 22 3b bd 31 35 37 3b 22 20 |.141;".";.157;" |
00000640 20 83 20 20 20 20 20 20 20 3c 43 3e 20 54 48 45 | . <C> THE|
00000650 20 46 4f 58 21 20 31 39 39 31 22 0d 02 8a 06 20 | FOX! 1991".... |
00000660 e1 0d 02 94 11 20 dd 20 f2 70 61 73 73 77 6f 72 |..... . .passwor|
00000670 64 73 0d 02 9e 06 20 db 0d 02 a8 0a 20 f2 6c 6f |ds.... ..... .lo|
00000680 67 6f 0d 02 b2 26 20 f1 27 22 82 48 65 72 65 20 |go...& .'".Here |
00000690 61 72 65 20 61 6c 6c 20 74 68 65 20 50 61 73 73 |are all the Pass|
000006a0 77 6f 72 64 73 21 2e 22 0d 02 bc 1d 20 f1 27 22 |words!.".... .'"|
000006b0 81 43 61 73 74 6c 65 83 31 20 2d 20 86 49 4e 43 |.Castle.1 - .INC|
000006c0 55 42 55 53 22 0d 02 c6 1d 20 f1 27 22 81 43 61 |UBUS".... .'".Ca|
000006d0 73 74 6c 65 83 32 20 2d 20 86 53 54 52 41 4e 47 |stle.2 - .STRANG|
000006e0 45 22 0d 02 d0 1d 20 f1 27 22 81 43 61 73 74 6c |E".... .'".Castl|
000006f0 65 83 33 20 2d 20 86 50 55 4c 53 41 52 53 22 0d |e.3 - .PULSARS".|
00000700 02 da 08 20 f1 27 27 0d 02 e4 22 20 f1 27 27 22 |... .''..." .''"|
00000710 83 50 72 65 73 73 20 61 6e 79 20 6b 65 79 20 66 |.Press any key f|
00000720 6f 72 20 6d 65 6e 75 2e 22 0d 02 ee 09 20 47 24 |or menu.".... G$|
00000730 3d be 0d 02 f8 06 20 e1 0d ff |=..... ...|
0000073a 
.