Home » Archimedes archive » Archimedes World » AW-1991-08.adf » August91 » !AWAug91/Goodies/Cheats/Pysanki/!CHEAT-1
!AWAug91/Goodies/Cheats/Pysanki/!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/Pysanki/!CHEAT-1 |
| Read OK: | ✔ |
| File size: | 07AF 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 Pysanki 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�Pysanki�disk."
180 PRINT' "�3 - Take cheat off�Pysanki�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 Pysanki disk in drive 0"
360 PRINT "�and press a key."
370 G=GET
380 PRINT'"�Are you sure this is the�Pysanki�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.$.!Pysanki.Pysanki3 52000
430 *LOAD :0.$.!Pysanki.Pysanki2 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 ?&52278=0:?&524C4=0:?&19178=0:!&172EC=&F0000000
530 GOTO 550
540 ?&52278=1:?&524C4=1:?&19178=1:!&172EC=&0A000005
550 PRINT'"�Now saving relevant Code!."
560 *SAVE :0.$.!Pysanki.Pysanki3 52000 +1000 52000 52000
570 *SAVE :0.$.!Pysanki.Pysanki2 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'" �1 - �FASHION"
710 PRINT'" �2 - �VISUALS"
720 PRINT'" �3 - �GRAPHIC"
730 PRINT'" �4 - �DIAMOND"
740 PRINT'" �5 - �RAPPORT"
750 PRINT'" �6 - �SABBATH"
760 PRINT'" �7 - �CLINKER"
770 PRINT''
780 PRINT''"�Press any key for menu."
790 G$=GET$
800 ENDPROC
� >!CHEAT-1
:
� <C> THE FOX! 1991
( �
2 � LONDONDERRY
< �
F � N.IRELAND
P �
Z) � Cheat for Pysanki by 4th Dimension
d �
n :
x � 7
�
�logo
� �''
� � "�Press :-"
�! �''"�1 - Look at Passwords."
�) �' "�2 - Put cheat on�Pysanki�disk."
�+ �' "�3 - Take cheat off�Pysanki�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 �''
^/ � "�Please insert Pysanki disk in drive 0"
h � "�and press a key."
r G=�
|\ �'"�Are you sure this is the�Pysanki�disk ";"�(Y/N) If not press ESCAPE now and check"
� G=�
�! � G=�"Y" � G=�"y" � �tZA � �
�& �''"�Now loading relevant Code!."
�' *LOAD :0.$.!Pysanki.Pysanki3 52000
�' *LOAD :0.$.!Pysanki.Pysanki2 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
4 ?&52278=0:?&524C4=0:?&19178=0:!&172EC=&F0000000
� �TfB
4 ?&52278=1:?&524C4=1:?&19178=1:!&172EC=&0A000005
&$ �'"�Now saving relevant Code!."
09 *SAVE :0.$.!Pysanki.Pysanki3 52000 +1000 52000 52000
:: *SAVE :0.$.!Pysanki.Pysanki2 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!."
� �'" �1 - �FASHION"
� �'" �2 - �VISUALS"
� �'" �3 - �GRAPHIC"
� �'" �4 - �DIAMOND"
� �'" �5 - �RAPPORT"
� �'" �6 - �SABBATH"
� �'" �7 - �CLINKER"
�''
" �''"�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 29 20 f4 20 43 68 65 61 74 20 66 | ...Z) . Cheat f|
00000070 6f 72 20 50 79 73 61 6e 6b 69 20 62 79 20 34 74 |or Pysanki by 4t|
00000080 68 20 44 69 6d 65 6e 73 69 6f 6e 0d 00 64 06 20 |h Dimension..d. |
00000090 f4 0d 00 6e 06 20 3a 0d 00 78 08 20 eb 20 37 0d |...n. :..x. . 7.|
000000a0 00 82 0a 20 f2 6c 6f 67 6f 0d 00 8c 08 20 f1 27 |... .logo.... .'|
000000b0 27 0d 00 96 12 20 f1 20 22 82 50 72 65 73 73 20 |'.... . ".Press |
000000c0 3a 2d 22 0d 00 a0 21 20 f1 27 27 22 83 31 20 2d |:-"...! .''".1 -|
000000d0 20 4c 6f 6f 6b 20 61 74 20 50 61 73 73 77 6f 72 | Look at Passwor|
000000e0 64 73 2e 22 0d 00 aa 29 20 f1 27 20 22 83 32 20 |ds."...) .' ".2 |
000000f0 2d 20 50 75 74 20 63 68 65 61 74 20 6f 6e 81 50 |- Put cheat on.P|
00000100 79 73 61 6e 6b 69 83 64 69 73 6b 2e 22 0d 00 b4 |ysanki.disk."...|
00000110 2b 20 f1 27 20 22 83 33 20 2d 20 54 61 6b 65 20 |+ .' ".3 - Take |
00000120 63 68 65 61 74 20 6f 66 66 81 50 79 73 61 6e 6b |cheat off.Pysank|
00000130 69 83 64 69 73 6b 2e 22 0d 00 be 1b 20 f1 27 20 |i.disk.".... .' |
00000140 22 83 34 20 2d 20 45 6e 64 20 50 72 6f 67 72 61 |".4 - End Progra|
00000150 6d 2e 22 0d 00 c8 18 20 f1 20 27 27 22 86 50 72 |m.".... . ''".Pr|
00000160 65 73 73 20 28 31 2d 34 29 3f 22 0d 00 d2 09 20 |ess (1-4)?".... |
00000170 47 24 3d be 0d 00 dc 23 20 e7 20 47 24 3c 22 31 |G$=....# . G$<"1|
00000180 22 20 84 20 47 24 3e 22 34 22 20 8c 20 ef 20 37 |" . G$>"4" . . 7|
00000190 3a e5 20 8d 64 52 40 0d 00 e6 06 20 db 0d 00 f0 |:. .dR@.... ....|
000001a0 0a 20 f2 6c 6f 67 6f 0d 00 fa 21 20 e7 20 47 24 |. .logo...! . G$|
000001b0 3d 22 31 22 20 8c 20 f2 70 61 73 73 77 6f 72 64 |="1" . .password|
000001c0 73 3a e5 20 8d 54 4a 40 0d 01 04 23 20 e7 20 47 |s:. .TJ@...# . G|
000001d0 24 3d 22 32 22 20 8c 20 f2 63 68 65 61 74 28 22 |$="2" . .cheat("|
000001e0 4f 4e 22 29 3a e5 20 8d 54 4a 40 0d 01 0e 24 20 |ON"):. .TJ@...$ |
000001f0 e7 20 47 24 3d 22 33 22 20 8c 20 f2 63 68 65 61 |. G$="3" . .chea|
00000200 74 28 22 4f 46 46 22 29 3a e5 20 8d 54 4a 40 0d |t("OFF"):. .TJ@.|
00000210 01 18 18 20 f1 27 27 22 50 52 4f 47 52 41 4d 20 |... .''"PROGRAM |
00000220 45 4e 44 45 44 2e 22 0d 01 22 06 20 e0 0d 01 2c |ENDED."..". ...,|
00000230 06 20 3a 0d 01 36 12 20 dd 20 f2 63 68 65 61 74 |. :..6. . .cheat|
00000240 28 51 55 24 29 0d 01 40 06 20 db 0d 01 4a 0a 20 |(QU$)..@. ...J. |
00000250 f2 6c 6f 67 6f 0d 01 54 08 20 f1 27 27 0d 01 5e |.logo..T. .''..^|
00000260 2f 20 f1 20 22 86 50 6c 65 61 73 65 20 69 6e 73 |/ . ".Please ins|
00000270 65 72 74 20 50 79 73 61 6e 6b 69 20 64 69 73 6b |ert Pysanki disk|
00000280 20 69 6e 20 64 72 69 76 65 20 30 22 0d 01 68 1a | in drive 0"..h.|
00000290 20 f1 20 22 86 61 6e 64 20 70 72 65 73 73 20 61 | . ".and press a|
000002a0 20 6b 65 79 2e 22 0d 01 72 08 20 47 3d a5 0d 01 | key."..r. G=...|
000002b0 7c 5c 20 f1 27 22 83 41 72 65 20 79 6f 75 20 73 ||\ .'".Are you s|
000002c0 75 72 65 20 74 68 69 73 20 69 73 20 74 68 65 81 |ure this is the.|
000002d0 50 79 73 61 6e 6b 69 83 64 69 73 6b 20 20 22 3b |Pysanki.disk ";|
000002e0 22 82 28 59 2f 4e 29 20 49 66 20 6e 6f 74 20 70 |".(Y/N) If not p|
000002f0 72 65 73 73 20 45 53 43 41 50 45 20 6e 6f 77 20 |ress ESCAPE now |
00000300 61 6e 64 20 63 68 65 63 6b 22 0d 01 86 08 20 47 |and check".... G|
00000310 3d a5 0d 01 90 21 20 e7 20 47 3d 97 22 59 22 20 |=....! . G=."Y" |
00000320 84 20 47 3d 97 22 79 22 20 8c 20 8d 74 5a 41 20 |. G=."y" . .tZA |
00000330 8b 20 fa 0d 01 9a 26 20 f1 27 27 22 82 4e 6f 77 |. ....& .''".Now|
00000340 20 6c 6f 61 64 69 6e 67 20 72 65 6c 65 76 61 6e | loading relevan|
00000350 74 20 43 6f 64 65 21 2e 22 0d 01 a4 27 20 2a 4c |t Code!."...' *L|
00000360 4f 41 44 20 3a 30 2e 24 2e 21 50 79 73 61 6e 6b |OAD :0.$.!Pysank|
00000370 69 2e 50 79 73 61 6e 6b 69 33 20 35 32 30 30 30 |i.Pysanki3 52000|
00000380 0d 01 ae 27 20 2a 4c 4f 41 44 20 3a 30 2e 24 2e |...' *LOAD :0.$.|
00000390 21 50 79 73 61 6e 6b 69 2e 50 79 73 61 6e 6b 69 |!Pysanki.Pysanki|
000003a0 32 20 31 30 30 30 30 0d 01 b8 17 20 e7 20 51 55 |2 10000.... . QU|
000003b0 24 3d 22 4f 46 46 22 20 8c 20 8d 64 56 41 0d 01 |$="OFF" . .dVA..|
000003c0 c2 38 20 f1 20 27 22 81 44 6f 20 79 6f 75 20 77 |.8 . '".Do you w|
000003d0 61 6e 74 20 74 6f 20 70 75 74 20 63 68 65 61 74 |ant to put cheat|
000003e0 20 6f 6e 20 64 69 73 6b 20 20 20 22 27 22 81 28 | on disk "'".(|
000003f0 59 2f 4e 29 3f 22 0d 01 cc 0b 20 e5 20 8d 64 60 |Y/N)?".... . .d`|
00000400 41 0d 01 d6 38 20 f1 20 27 22 81 44 6f 20 79 6f |A...8 . '".Do yo|
00000410 75 20 77 61 6e 74 20 74 6f 20 74 61 6b 65 20 63 |u want to take c|
00000420 68 65 61 74 20 6f 66 66 20 64 69 73 6b 20 22 27 |heat off disk "'|
00000430 22 81 28 59 2f 4e 29 3f 22 0d 01 e0 09 20 47 24 |".(Y/N)?".... G$|
00000440 3d be 0d 01 ea 3c 20 e7 20 47 24 3d 22 59 22 20 |=....< . G$="Y" |
00000450 84 20 47 24 3d 22 79 22 20 84 20 47 24 3d 22 4e |. G$="y" . G$="N|
00000460 22 20 84 20 47 24 3d 22 6e 22 20 8c 20 8d 64 74 |" . G$="n" . .dt|
00000470 41 20 8b 20 ef 20 37 3a e5 20 8d 64 60 41 0d 01 |A . . 7:. .d`A..|
00000480 f4 18 20 e7 20 47 24 3d 22 4e 22 20 84 20 47 24 |.. . G$="N" . G$|
00000490 3d 22 6e 22 20 e1 0d 01 fe 17 20 e7 20 51 55 24 |="n" ..... . QU$|
000004a0 3d 22 4f 46 46 22 20 8c 20 8d 54 5c 42 0d 02 08 |="OFF" . .T\B...|
000004b0 34 20 3f 26 35 32 32 37 38 3d 30 3a 3f 26 35 32 |4 ?&52278=0:?&52|
000004c0 34 43 34 3d 30 3a 3f 26 31 39 31 37 38 3d 30 3a |4C4=0:?&19178=0:|
000004d0 21 26 31 37 32 45 43 3d 26 46 30 30 30 30 30 30 |!&172EC=&F000000|
000004e0 30 0d 02 12 0b 20 e5 20 8d 54 66 42 0d 02 1c 34 |0.... . .TfB...4|
000004f0 20 3f 26 35 32 32 37 38 3d 31 3a 3f 26 35 32 34 | ?&52278=1:?&524|
00000500 43 34 3d 31 3a 3f 26 31 39 31 37 38 3d 31 3a 21 |C4=1:?&19178=1:!|
00000510 26 31 37 32 45 43 3d 26 30 41 30 30 30 30 30 35 |&172EC=&0A000005|
00000520 0d 02 26 24 20 f1 27 22 83 4e 6f 77 20 73 61 76 |..&$ .'".Now sav|
00000530 69 6e 67 20 72 65 6c 65 76 61 6e 74 20 43 6f 64 |ing relevant Cod|
00000540 65 21 2e 22 0d 02 30 39 20 2a 53 41 56 45 20 3a |e!."..09 *SAVE :|
00000550 30 2e 24 2e 21 50 79 73 61 6e 6b 69 2e 50 79 73 |0.$.!Pysanki.Pys|
00000560 61 6e 6b 69 33 20 35 32 30 30 30 20 2b 31 30 30 |anki3 52000 +100|
00000570 30 20 35 32 30 30 30 20 35 32 30 30 30 0d 02 3a |0 52000 52000..:|
00000580 3a 20 2a 53 41 56 45 20 3a 30 2e 24 2e 21 50 79 |: *SAVE :0.$.!Py|
00000590 73 61 6e 6b 69 2e 50 79 73 61 6e 6b 69 32 20 31 |sanki.Pysanki2 1|
000005a0 30 30 30 30 20 2b 31 30 30 30 30 20 31 30 30 30 |0000 +10000 1000|
000005b0 30 20 31 30 30 30 30 0d 02 44 30 20 f1 22 85 43 |0 10000..D0 .".C|
000005c0 68 61 6e 67 65 20 63 6f 6d 70 6c 65 74 65 2e 4e |hange complete.N|
000005d0 6f 77 20 75 73 65 20 64 69 73 63 20 61 73 20 6e |ow use disc as n|
000005e0 6f 72 6d 61 6c 2e 22 0d 02 4e 21 20 f1 27 22 83 |ormal."..N! .'".|
000005f0 50 72 65 73 73 20 61 6e 79 20 6b 65 79 20 66 6f |Press any key fo|
00000600 72 20 6d 65 6e 75 2e 22 0d 02 58 08 20 47 3d a5 |r menu."..X. G=.|
00000610 0d 02 62 06 20 e1 0d 02 6c 0c 20 dd 20 f2 6c 6f |..b. ...l. . .lo|
00000620 67 6f 0d 02 76 32 20 f1 20 bd 31 34 31 3b 22 81 |go..v2 . .141;".|
00000630 22 3b bd 31 35 37 3b 22 20 20 83 20 20 20 20 20 |";.157;" . |
00000640 20 20 3c 43 3e 20 54 48 45 20 46 4f 58 21 20 31 | <C> THE FOX! 1|
00000650 39 39 31 22 0d 02 80 32 20 f1 20 bd 31 34 31 3b |991"...2 . .141;|
00000660 22 81 22 3b bd 31 35 37 3b 22 20 20 83 20 20 20 |".";.157;" . |
00000670 20 20 20 20 3c 43 3e 20 54 48 45 20 46 4f 58 21 | <C> THE FOX!|
00000680 20 31 39 39 31 22 0d 02 8a 06 20 e1 0d 02 94 11 | 1991".... .....|
00000690 20 dd 20 f2 70 61 73 73 77 6f 72 64 73 0d 02 9e | . .passwords...|
000006a0 06 20 db 0d 02 a8 0a 20 f2 6c 6f 67 6f 0d 02 b2 |. ..... .logo...|
000006b0 26 20 f1 27 22 82 48 65 72 65 20 61 72 65 20 61 |& .'".Here are a|
000006c0 6c 6c 20 74 68 65 20 50 61 73 73 77 6f 72 64 73 |ll the Passwords|
000006d0 21 2e 22 0d 02 bc 17 20 f1 27 22 20 83 31 20 2d |!.".... .'" .1 -|
000006e0 20 86 46 41 53 48 49 4f 4e 22 0d 02 c6 17 20 f1 | .FASHION".... .|
000006f0 27 22 20 83 32 20 2d 20 86 56 49 53 55 41 4c 53 |'" .2 - .VISUALS|
00000700 22 0d 02 d0 17 20 f1 27 22 20 83 33 20 2d 20 86 |".... .'" .3 - .|
00000710 47 52 41 50 48 49 43 22 0d 02 da 17 20 f1 27 22 |GRAPHIC".... .'"|
00000720 20 83 34 20 2d 20 86 44 49 41 4d 4f 4e 44 22 0d | .4 - .DIAMOND".|
00000730 02 e4 17 20 f1 27 22 20 83 35 20 2d 20 86 52 41 |... .'" .5 - .RA|
00000740 50 50 4f 52 54 22 0d 02 ee 17 20 f1 27 22 20 83 |PPORT".... .'" .|
00000750 36 20 2d 20 86 53 41 42 42 41 54 48 22 0d 02 f8 |6 - .SABBATH"...|
00000760 17 20 f1 27 22 20 83 37 20 2d 20 86 43 4c 49 4e |. .'" .7 - .CLIN|
00000770 4b 45 52 22 0d 03 02 08 20 f1 27 27 0d 03 0c 22 |KER".... .''..."|
00000780 20 f1 27 27 22 83 50 72 65 73 73 20 61 6e 79 20 | .''".Press any |
00000790 6b 65 79 20 66 6f 72 20 6d 65 6e 75 2e 22 0d 03 |key for menu."..|
000007a0 16 09 20 47 24 3d be 0d 03 20 06 20 e1 0d ff |.. G$=... . ...|
000007af 
.