Home » Personal collection » Acorn tapes » Commercial_Releases » box05_tape19c_acorn_play_it_again_sam_16_bbc.wav » VERTIGO2

VERTIGO2

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 » Commercial_Releases » box05_tape19c_acorn_play_it_again_sam_16_bbc.wav
Filename: VERTIGO2
Read OK:
File size: 020D bytes
Load address: 0E00
Exec address: 0E00
File contents
   10 MODE 5
   20 VDU 23;8202;0;0;0;
   21 ENVELOPE 3,129,-1,2,0,2,30,0,120,-10,-5,-3,120,120
   22 ENVELOPE 4,1,0,0,0,0,0,0,120,-3,-2,-1,120,120
   30 HIMEM=&3000
   40 PRINT'"Vertigo is loading"
   50 PROCflick(3,7)
   60 FOR l=1 TO 3
   80 NEXT
   85 VDU28,0,2,13,0
   90 *LOAD VERTTitle 5800
   95CLS
  100 PROCflick(1,1)
  110 PROCflick(2,3)
  120 PROCflick(3,7)
  130 FOR d=1 TO 10000:NEXT 
  140 MODE 4
  150 VDU 23;8202;0;0;0;
  155 VDU28,0,3,15,0
  160 *LOAD VertPanel 6A20
  170 *RUN VertLevels
  180 
  190 DEF PROCflick(a,b)
  200 FOR l=0 TO 21
  210 *FX 19
  220 VDU 19,a,l MOD 8,0,0,0
  230 FOR d=1 TO 300:NEXT
  240 NEXT
  250 VDU 19,a,b,0,0,0
  260 ENDPROC

 � 5
 � 23;8202;0;0;0;
0 � 3,129,-1,2,0,2,30,0,120,-10,-5,-3,120,120
+ � 4,1,0,0,0,0,0,0,120,-3,-2,-1,120,120
 �=&3000
( �'"Vertigo is loading"
2 �flick(3,7)
< � l=1 � 3
P �
U �28,0,2,13,0
Z *LOAD VERTTitle 5800
_�
d �flick(1,1)
n �flick(2,3)
x �flick(3,7)
� � d=1 � 10000:� 
� � 4
� � 23;8202;0;0;0;
� �28,0,3,15,0
� *LOAD VertPanel 6A20
� *RUN VertLevels
� 
� � �flick(a,b)
� � l=0 � 21
� *FX 19
� � 19,a,l � 8,0,0,0
� � d=1 � 300:�
� �
� � 19,a,b,0,0,0
 �
�
00000000  0d 00 0a 08 20 eb 20 35  0d 00 14 15 20 ef 20 32  |.... . 5.... . 2|
00000010  33 3b 38 32 30 32 3b 30  3b 30 3b 30 3b 0d 00 15  |3;8202;0;0;0;...|
00000020  30 20 e2 20 33 2c 31 32  39 2c 2d 31 2c 32 2c 30  |0 . 3,129,-1,2,0|
00000030  2c 32 2c 33 30 2c 30 2c  31 32 30 2c 2d 31 30 2c  |,2,30,0,120,-10,|
00000040  2d 35 2c 2d 33 2c 31 32  30 2c 31 32 30 0d 00 16  |-5,-3,120,120...|
00000050  2b 20 e2 20 34 2c 31 2c  30 2c 30 2c 30 2c 30 2c  |+ . 4,1,0,0,0,0,|
00000060  30 2c 30 2c 31 32 30 2c  2d 33 2c 2d 32 2c 2d 31  |0,0,120,-3,-2,-1|
00000070  2c 31 32 30 2c 31 32 30  0d 00 1e 0c 20 d3 3d 26  |,120,120.... .=&|
00000080  33 30 30 30 0d 00 28 1b  20 f1 27 22 56 65 72 74  |3000..(. .'"Vert|
00000090  69 67 6f 20 69 73 20 6c  6f 61 64 69 6e 67 22 0d  |igo is loading".|
000000a0  00 32 10 20 f2 66 6c 69  63 6b 28 33 2c 37 29 0d  |.2. .flick(3,7).|
000000b0  00 3c 0e 20 e3 20 6c 3d  31 20 b8 20 33 0d 00 50  |.<. . l=1 . 3..P|
000000c0  06 20 ed 0d 00 55 11 20  ef 32 38 2c 30 2c 32 2c  |. ...U. .28,0,2,|
000000d0  31 33 2c 30 0d 00 5a 19  20 2a 4c 4f 41 44 20 56  |13,0..Z. *LOAD V|
000000e0  45 52 54 54 69 74 6c 65  20 35 38 30 30 0d 00 5f  |ERTTitle 5800.._|
000000f0  05 db 0d 00 64 10 20 f2  66 6c 69 63 6b 28 31 2c  |....d. .flick(1,|
00000100  31 29 0d 00 6e 10 20 f2  66 6c 69 63 6b 28 32 2c  |1)..n. .flick(2,|
00000110  33 29 0d 00 78 10 20 f2  66 6c 69 63 6b 28 33 2c  |3)..x. .flick(3,|
00000120  37 29 0d 00 82 15 20 e3  20 64 3d 31 20 b8 20 31  |7).... . d=1 . 1|
00000130  30 30 30 30 3a ed 20 0d  00 8c 08 20 eb 20 34 0d  |0000:. .... . 4.|
00000140  00 96 15 20 ef 20 32 33  3b 38 32 30 32 3b 30 3b  |... . 23;8202;0;|
00000150  30 3b 30 3b 0d 00 9b 11  20 ef 32 38 2c 30 2c 33  |0;0;.... .28,0,3|
00000160  2c 31 35 2c 30 0d 00 a0  19 20 2a 4c 4f 41 44 20  |,15,0.... *LOAD |
00000170  56 65 72 74 50 61 6e 65  6c 20 36 41 32 30 0d 00  |VertPanel 6A20..|
00000180  aa 14 20 2a 52 55 4e 20  56 65 72 74 4c 65 76 65  |.. *RUN VertLeve|
00000190  6c 73 0d 00 b4 05 20 0d  00 be 12 20 dd 20 f2 66  |ls.... .... . .f|
000001a0  6c 69 63 6b 28 61 2c 62  29 0d 00 c8 0f 20 e3 20  |lick(a,b).... . |
000001b0  6c 3d 30 20 b8 20 32 31  0d 00 d2 0b 20 2a 46 58  |l=0 . 21.... *FX|
000001c0  20 31 39 0d 00 dc 17 20  ef 20 31 39 2c 61 2c 6c  | 19.... . 19,a,l|
000001d0  20 83 20 38 2c 30 2c 30  2c 30 0d 00 e6 12 20 e3  | . 8,0,0,0.... .|
000001e0  20 64 3d 31 20 b8 20 33  30 30 3a ed 0d 00 f0 06  | d=1 . 300:.....|
000001f0  20 ed 0d 00 fa 13 20 ef  20 31 39 2c 61 2c 62 2c  | ..... . 19,a,b,|
00000200  30 2c 30 2c 30 0d 01 04  06 20 e1 0d ff           |0,0,0.... ...|
0000020d
VERTIGO2.m0
VERTIGO2.m1
VERTIGO2.m2
VERTIGO2.m4
VERTIGO2.m5