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