Home » Personal collection » Acorn tapes » Commercial_Releases » box06_tape18a_acorn_gunsmoke.wav » SCREEN
SCREEN
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 » box06_tape18a_acorn_gunsmoke.wav |
Filename: | SCREEN |
Read OK: | ✔ |
File size: | 1500 bytes |
Load address: | 0E00 |
Exec address: | 0E00 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- AEW website » sinvasion » sinvasion_5_25_discs_Gunsmoke_HD-GUNS.ssd » SCREEN
- AEW website » sinvasion » sinvasion_tapes_Gunsmoke_Gunsmoke_E.uef » SCREEN
- Personal collection » Acorn tapes » Commercial_Releases » box06_tape18b_acorn_gunsmoke.wav » SCREEN
- Personal collection » Acorn tapes » Commercial_Releases » box06_tape18a_acorn_gunsmoke.wav » SCREEN
File contents
10VDU23,224,18,148,89,74,42,50,20,24 20VDU23,225,0,0,0,128,145,165,102,66 30 P%=&D00 40[ 50 OPT0 60 LDA#&5F:STA&71:LDA#&12:STA&73:LDA#&80:STA&70:LDA#&00:STA&72:LDY#0 70.MC1 LDA(&72),Y:STA(&70),Y 80 CLC:LDA&70:ADC#1:STA&70:LDA&71:ADC#0:STA&71 90 CLC:LDA&72:ADC#1:STA&72:LDA&73:ADC#0:STA&73 100 CMP#&22:BNE MC1:LDA&72:CMP#&40:BNE MC1:RTS 110] 120MODE5:VDU23,0,10,32,0;0;0; 140CALL&D00:VDU24,0;0;1279;446;:GCOL0,130:CLG:VDU26 150PROCcloud(5,910,810,220,300,16,200) 160PROCcloud(5,900,790,910,950,16,200) 170VDU5:GCOL0,0:FORI=1TO20:MOVERND(1280),RND(75)+375:VDU225:NEXT 180FORI=1TO10:MOVERND(1280),RND(80)+270:VDU224:NEXT 190VDU4:VDU28,0,2,19,1:COLOUR3:COLOUR128:CHAIN"" 200DEFPROCcloud(X,A,B,C,D,INC,REV) 210GCOL0,7 220S=0:FORI=A TO B STEP-4:MOVE C-ABS(RND(X)),I:DRAW D+ABS(RND(X)),I:IF S=0:X=X+INC 230IFS=1:X=X-INC 240IFX>REV:S=1 250NEXT:ENDPROC
$�23,224,18,148,89,74,42,50,20,24 $�23,225,0,0,0,128,145,165,102,66 P%=&D00 ([ 2 OPT0 <F LDA#&5F:STA&71:LDA#&12:STA&73:LDA#&80:STA&70:LDA#&00:STA&72:LDY#0 F.MC1 LDA(&72),Y:STA(&70),Y P0 CLC:LDA&70:ADC#1:STA&70:LDA&71:ADC#0:STA&71 Z0 CLC:LDA&72:ADC#1:STA&72:LDA&73:ADC#0:STA&73 d/ CMP#&22:BNE MC1:LDA&72:CMP#&40:BNE MC1:RTS n] x�5:�23,0,10,32,0;0;0; �(�&D00:�24,0;0;1279;446;:�0,130:�:�26 �$�cloud(5,910,810,220,300,16,200) �$�cloud(5,900,790,910,950,16,200) �-�5:�0,0:�I=1�20:�(1280),�(75)+375:�225:� �%�I=1�10:�(1280),�(80)+270:�224:� ��4:�28,0,2,19,1:�3:�128:�"" ���cloud(X,A,B,C,D,INC,REV) ��0,7 �>S=0:�I=A � B �-4:� C-�(�(X)),I:� D+�(�(X)),I:� S=0:X=X+INC ��S=1:X=X-INC ��X>REV:S=1 ��:� �: C1 �Q : cloud _� � * N 7NC 0 EV X � 1 �0 I%=X%:� (�=&E00:�21 �&