Home » Personal collection » Acorn tapes » Commercial_Releases » box05_tape05b_acorn_computer_hits_3.wav » BRIAN
BRIAN
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_tape05b_acorn_computer_hits_3.wav |
| Filename: | BRIAN |
| Read OK: | ✔ |
| File size: | 0800 bytes |
| Load address: | 2000 |
| Exec address: | 2000 |
Duplicates
There are 3 duplicate copies of this file in the archive:
- Personal collection » Acorn ADFS disks » Zipped » zipped_disks » elk06 » supcol3/10HITS-3/BrianJacks/BRIAN1
- Personal collection » Acorn ADFS disks » Electron » Superior_collection_3.ADF » 10HITS-3/BrianJacks/BRIAN1
- Personal collection » Acorn tapes » Commercial_Releases » box05_tape05a_acorn_computer_hits_3.wav » BRIAN
- Personal collection » Acorn tapes » Commercial_Releases » box05_tape05b_acorn_computer_hits_3.wav » BRIAN
File contents
0ENVELOPE1,2,-1,1,-1,1,1,1,0,-3,0,-1,126,90:ENVELOPE2,1,0,0,0,0,0,200,0,0,0,-2,126,0:ENVELOPE3,1,0,0,0,1,1,1,0,-1,-3,-8,127,127:ENVELOPE4,1,0,0,0,1,1,1,0,-1,-3,-8,127,127:
10 Z%=PAGE+ 1400:P%=Z%+256
11R%=P%+256
20*T.
40MODE5
41VDU19,3,4,0,0,0
42VDU19,2,10,0,0,0
60*FX 9 5
70*FX 10 5
80COLOUR1
90PROCBOX(0,1279,940)
100FORA%=0 TO 256STEP4:A%!&C00=A%!Z%:NEXT
110VDU31,3,1:FORA%=224TO237:VDUA%:NEXT
120VDU31,3,2:FORA%=238TO251:VDUA%:NEXT
130PROCBOX(918,900,80)
140PROCpenny("presents",3)
150COLOUR3
161GCOL0,2
162PROCpenny("BRIAN JACKS",8)
163COLOUR2
170PROCpenny("SUPERSTAR",11)
171PROCpenny("CHALLENGE",14)
180COLOUR3
190PROCpenny("by D.Wainwright",16)
200PROCpenny("� 1985 Software",27)
210PROCpenny("Communications Ltd",29)
211GCOL0,1
220PROCBOX(200,1100,200)
230VDU28,2,24,16,20
240COLOUR1
250*RUN "JACKS"
260END
270DEFPROCBOX(A%,B%,C%)
280MOVE640-B%/2,A%:PLOT1,0,C%:PLOT1,B%,0:PLOT1,0,-C%:PLOT1,-B%,0
290ENDPROC
300DEFPROCpenny($&D00,A%):VDU31,10-LEN$&D00/2,A%:CALLP%:ENDPROC
311DEFPROCrhona($&D00,X%,Y%):VDU31,X%,Y%:CALLP%:ENDPROC
312DEFPROCdave(A$,X%,Y%):MOVEX%,1024-Y%*32:VDU5:PRINTA$:VDU4:ENDPROC
590ENDPROC
��1,2,-1,1,-1,1,1,1,0,-3,0,-1,126,90:�2,1,0,0,0,0,0,200,0,0,0,-2,126,0:�3,1,0,0,0,1,1,1,0,-1,-3,-8,127,127:�4,1,0,0,0,1,1,1,0,-1,-3,-8,127,127:
Z%=�+ 1400:P%=Z%+256
R%=P%+256
*T.
(�5
)�19,3,4,0,0,0
*�19,2,10,0,0,0
<*FX 9 5
F*FX 10 5
P�1
Z�BOX(0,1279,940)
d!�A%=0 � 256�4:A%!&C00=A%!Z%:�
n�31,3,1:�A%=224�237:�A%:�
x�31,3,2:�A%=238�251:�A%:�
��BOX(918,900,80)
��penny("presents",3)
��3
��0,2
��penny("BRIAN JACKS",8)
��2
��penny("SUPERSTAR",11)
��penny("CHALLENGE",14)
��3
� �penny("by D.Wainwright",16)
� �penny("� 1985 Software",27)
�#�penny("Communications Ltd",29)
��0,1
��BOX(200,1100,200)
��28,2,24,16,20
��1
�*RUN "JACKS"
�
��BOX(A%,B%,C%)
2�640-B%/2,A%:�1,0,C%:�1,B%,0:�1,0,-C%:�1,-B%,0
"�
,.��penny($&D00,A%):�31,10-�$&D00/2,A%:�P%:�
7)��rhona($&D00,X%,Y%):�31,X%,Y%:�P%:�
81��dave(A$,X%,Y%):�X%,1024-Y%*32:�5:�A$:�4:�
N�
�,BOX �, penny %,1024-Y%*32:�5:�A$:�4:�
N�
�D00,X%,Y%):�31,X%,Y%:�P%:�
81��dave(A$,X%,Y%):�X%,1024-Y%*32:�5:�A$:�4:�
N�
��R&FFF7
D RTS:]�
N�
�SR&FFF7
D RTS:]�
N�
� RTS:]�
N�
�R&FFF7
D RTS:]�
N�
�:LDY#E% � 256:JSR&FFF7
D RTS:]�
N�
�FF7
D RTS:]�
N�
�]�
N�
�D RTS:]�
N�
�D RTS:]�
N�
�BOX �penny -rhona [e ASS �( 2 �@ ENG OUdaBrhona ` ASS �E 2 �@ 2_rhona } ASS � 2 �@ C 2 ?? ���� �� ���>