Home » Personal collection » Acorn ADFS disks » Electron_User_Group » EUG_15.ADF » Vertigo

Vertigo

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 ADFS disks » Electron_User_Group » EUG_15.ADF
Filename: Vertigo
Read OK:
File size: 032E bytes
Load address: FFFFFB00
Exec address: FFFF8023
Duplicates

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

File contents
    4*TAPE
    5IF PAGE>&E00 THEN OSCLI"KEY0 FORI=0 TO TOP-PAGE STEP4:I!&E00=I!PAGE:N.|MPA.=&E00|MO.|MRUN|M":OSCLI"FX138,0,128":END
   10REM Vertigo Cheat
   20REM By James Treadwell
   30REM HeadFirst PD 1992
   40MODE6
   50PRINT''"Vertigo Cheat"
   60PRINT  "-------------"
   70PRINT
   80PRINT "Infinite Lives (Y/N)?";
   90A$=GET$
  100IF A$="Y" THEN IL=1:GOTO130
  110IF A$="N" THEN IL=0:GOTO130
  120VDU7:GOTO90
  130PRINTA$
  140PRINT "Infinite Time (Y/N)?";
  150A$=GET$
  160IF A$="N" THEN IT=0:GOTO190
  170IF A$="Y" THEN IT=1:GOTO190
  180VDU7:GOTO150
  190PRINTA$
  200PRINT''"Forward tape to second file - VERTIGO"
  210PRINT
  220VDU11
  240PROCass
  250*KEY0 LO."VERTIGO"|M31GOTO140|M220*L. VERTLEV|M221CALL&110|MRUN|M
  260*FX 138,0,128
  270END
  280DEFPROCass
  290?&70=IL:?&71=IT
  300FORI=0TO2STEP2
  310P%=&110
  320[OPTI
  330LDA&70:CMP#0:BEQp2
  340LDA#&75:STA&1799:LDA#&79:STA&179B
  350.p2
  360LDA&71:CMP#0:BEQend
  370LDA#&EA:STA&137B:STA&137C
  380.end JMP&6507
  390]
  400NEXT
  410ENDPROC
	*TAPE
f� �>&E00 � �"KEY0 FORI=0 TO TOP-PAGE STEP4:I!&E00=I!PAGE:N.|MPA.=&E00|MO.|MRUN|M":�"FX138,0,128":�

� Vertigo Cheat
� By James Treadwell
� HeadFirst PD 1992
(�6
2�''"Vertigo Cheat"
<�  "-------------"
F�
P� "Infinite Lives (Y/N)?";
ZA$=�
d� A$="Y" � IL=1:�tB@
n� A$="N" � IL=0:�tB@
x�7:�DZ@
��A$
�� "Infinite Time (Y/N)?";
�A$=�
�� A$="N" � IT=0:�t~@
�� A$="Y" � IT=1:�t~@
��7:�tV@
��A$
�.�''"Forward tape to second file - VERTIGO"
��
��11
��ass
�E*KEY0 LO."VERTIGO"|M31GOTO140|M220*L. VERTLEV|M221CALL&110|MRUN|M
*FX 138,0,128
�
	��ass
"?&70=IL:?&71=IT
,�I=0�2�2
6P%=&110
@	[OPTI
JLDA&70:CMP#0:BEQp2
T%LDA#&75:STA&1799:LDA#&79:STA&179B
^.p2
hLDA&71:CMP#0:BEQend
rLDA#&EA:STA&137B:STA&137C
|.end JMP&6507
�]
��
��
�
00000000  0d 00 04 09 2a 54 41 50  45 0d 00 05 66 e7 20 90  |....*TAPE...f. .|
00000010  3e 26 45 30 30 20 8c 20  ff 22 4b 45 59 30 20 46  |>&E00 . ."KEY0 F|
00000020  4f 52 49 3d 30 20 54 4f  20 54 4f 50 2d 50 41 47  |ORI=0 TO TOP-PAG|
00000030  45 20 53 54 45 50 34 3a  49 21 26 45 30 30 3d 49  |E STEP4:I!&E00=I|
00000040  21 50 41 47 45 3a 4e 2e  7c 4d 50 41 2e 3d 26 45  |!PAGE:N.|MPA.=&E|
00000050  30 30 7c 4d 4f 2e 7c 4d  52 55 4e 7c 4d 22 3a ff  |00|MO.|MRUN|M":.|
00000060  22 46 58 31 33 38 2c 30  2c 31 32 38 22 3a e0 0d  |"FX138,0,128":..|
00000070  00 0a 13 f4 20 56 65 72  74 69 67 6f 20 43 68 65  |.... Vertigo Che|
00000080  61 74 0d 00 14 18 f4 20  42 79 20 4a 61 6d 65 73  |at..... By James|
00000090  20 54 72 65 61 64 77 65  6c 6c 0d 00 1e 17 f4 20  | Treadwell..... |
000000a0  48 65 61 64 46 69 72 73  74 20 50 44 20 31 39 39  |HeadFirst PD 199|
000000b0  32 0d 00 28 06 eb 36 0d  00 32 16 f1 27 27 22 56  |2..(..6..2..''"V|
000000c0  65 72 74 69 67 6f 20 43  68 65 61 74 22 0d 00 3c  |ertigo Cheat"..<|
000000d0  16 f1 20 20 22 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..  "-----------|
000000e0  2d 2d 22 0d 00 46 05 f1  0d 00 50 1e f1 20 22 49  |--"..F....P.. "I|
000000f0  6e 66 69 6e 69 74 65 20  4c 69 76 65 73 20 28 59  |nfinite Lives (Y|
00000100  2f 4e 29 3f 22 3b 0d 00  5a 08 41 24 3d be 0d 00  |/N)?";..Z.A$=...|
00000110  64 19 e7 20 41 24 3d 22  59 22 20 8c 20 49 4c 3d  |d.. A$="Y" . IL=|
00000120  31 3a e5 8d 74 42 40 0d  00 6e 19 e7 20 41 24 3d  |1:..tB@..n.. A$=|
00000130  22 4e 22 20 8c 20 49 4c  3d 30 3a e5 8d 74 42 40  |"N" . IL=0:..tB@|
00000140  0d 00 78 0c ef 37 3a e5  8d 44 5a 40 0d 00 82 07  |..x..7:..DZ@....|
00000150  f1 41 24 0d 00 8c 1d f1  20 22 49 6e 66 69 6e 69  |.A$..... "Infini|
00000160  74 65 20 54 69 6d 65 20  28 59 2f 4e 29 3f 22 3b  |te Time (Y/N)?";|
00000170  0d 00 96 08 41 24 3d be  0d 00 a0 19 e7 20 41 24  |....A$=...... A$|
00000180  3d 22 4e 22 20 8c 20 49  54 3d 30 3a e5 8d 74 7e  |="N" . IT=0:..t~|
00000190  40 0d 00 aa 19 e7 20 41  24 3d 22 59 22 20 8c 20  |@..... A$="Y" . |
000001a0  49 54 3d 31 3a e5 8d 74  7e 40 0d 00 b4 0c ef 37  |IT=1:..t~@.....7|
000001b0  3a e5 8d 74 56 40 0d 00  be 07 f1 41 24 0d 00 c8  |:..tV@.....A$...|
000001c0  2e f1 27 27 22 46 6f 72  77 61 72 64 20 74 61 70  |..''"Forward tap|
000001d0  65 20 74 6f 20 73 65 63  6f 6e 64 20 66 69 6c 65  |e to second file|
000001e0  20 2d 20 56 45 52 54 49  47 4f 22 0d 00 d2 05 f1  | - VERTIGO".....|
000001f0  0d 00 dc 07 ef 31 31 0d  00 f0 08 f2 61 73 73 0d  |.....11.....ass.|
00000200  00 fa 45 2a 4b 45 59 30  20 4c 4f 2e 22 56 45 52  |..E*KEY0 LO."VER|
00000210  54 49 47 4f 22 7c 4d 33  31 47 4f 54 4f 31 34 30  |TIGO"|M31GOTO140|
00000220  7c 4d 32 32 30 2a 4c 2e  20 56 45 52 54 4c 45 56  ||M220*L. VERTLEV|
00000230  7c 4d 32 32 31 43 41 4c  4c 26 31 31 30 7c 4d 52  ||M221CALL&110|MR|
00000240  55 4e 7c 4d 0d 01 04 11  2a 46 58 20 31 33 38 2c  |UN|M....*FX 138,|
00000250  30 2c 31 32 38 0d 01 0e  05 e0 0d 01 18 09 dd f2  |0,128...........|
00000260  61 73 73 0d 01 22 13 3f  26 37 30 3d 49 4c 3a 3f  |ass..".?&70=IL:?|
00000270  26 37 31 3d 49 54 0d 01  2c 0c e3 49 3d 30 b8 32  |&71=IT..,..I=0.2|
00000280  88 32 0d 01 36 0b 50 25  3d 26 31 31 30 0d 01 40  |.2..6.P%=&110..@|
00000290  09 5b 4f 50 54 49 0d 01  4a 16 4c 44 41 26 37 30  |.[OPTI..J.LDA&70|
000002a0  3a 43 4d 50 23 30 3a 42  45 51 70 32 0d 01 54 25  |:CMP#0:BEQp2..T%|
000002b0  4c 44 41 23 26 37 35 3a  53 54 41 26 31 37 39 39  |LDA#&75:STA&1799|
000002c0  3a 4c 44 41 23 26 37 39  3a 53 54 41 26 31 37 39  |:LDA#&79:STA&179|
000002d0  42 0d 01 5e 07 2e 70 32  0d 01 68 17 4c 44 41 26  |B..^..p2..h.LDA&|
000002e0  37 31 3a 43 4d 50 23 30  3a 42 45 51 65 6e 64 0d  |71:CMP#0:BEQend.|
000002f0  01 72 1d 4c 44 41 23 26  45 41 3a 53 54 41 26 31  |.r.LDA#&EA:STA&1|
00000300  33 37 42 3a 53 54 41 26  31 33 37 43 0d 01 7c 11  |37B:STA&137C..|.|
00000310  2e 65 6e 64 20 4a 4d 50  26 36 35 30 37 0d 01 86  |.end JMP&6507...|
00000320  05 5d 0d 01 90 05 ed 0d  01 9a 05 e1 0d ff        |.]............|
0000032e
Vertigo.m0
Vertigo.m1
Vertigo.m2
Vertigo.m4
Vertigo.m5