Home » Recent acquisitions » Acorn tapes » tape047c_acorn_computer_hits_2.wav » JBJ1
JBJ1
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 » Recent acquisitions » Acorn tapes » tape047c_acorn_computer_hits_2.wav |
| Filename: | JBJ1 |
| Read OK: | ✔ |
| File size: | 0900 bytes |
| Load address: | 1800 |
| Exec address: | 1800 |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Recent acquisitions » Acorn tapes » tape047c_acorn_computer_hits_2.wav » JBJ1
- Recent acquisitions » Acorn tapes » tape047d_acorn_computer_hits_2.wav » JBJ1
- AEW website » english » english_tapes_Jet-Boot-Jack_JetBootJack_E.uef » JBJ1
File contents
0REM
1ONERRORRUN
3*T.
40ENVELOPE1,2,6,6,6,2,2,2,100,0,0,0,0,0:ENVELOPE3,2,1,1,1,50,50,50,120,0,0,0,0,0:ENVELOPE4,5,-3,-3,-3,40,40,40,126,0,0,0,0,0:VDU23,65,0,0,0,0,0,0,0,0
70FORN%=0TO&100 STEP4:!(&C00+N%)=!(&2000+N%):NEXT:Z%=&D00
80B$="":FORN=128 TO 145:B$=B$+CHR$(N):NEXT:Z%=&D00
90MODE1:VDU23,1,0,0,0,0,0,0,0,0:PRINTTAB(5,10);"JOYSTICK OR KEYBOARD (J/K) ?":COLOUR2:PRINTTAB(4,12) "FIRST BYTE JOYSTICK INTERFACE"
120IF INKEY(-71) THEN ?&E00=0:GOTO130
121IF INKEY(-70) THEN ?&E00=1:GOTO130
122GOTO120
130FORN%=&0TO&100STEP4:!(&C00+N%)=!(&1F00+N%):NEXT
131*FX20,0
132REM "
140MODE5:VDU23,1,0,0,0,0,0,0,0,0
150VDU19,3,6,0,0,0,0
160VDU19,2,2,0,0,0,0
170Z%=PAGE-3072
180COLOUR3:PROCDB(0,5,B$)
190VDU5
200MOVE1168,1020-128-32:GCOL3,6:PRINTCHR$152:VDU4
220VDU23,65,0,0,0,0,0,0,0,0
230FORN%=&0TO&100STEP4::!(&C00+N%)=!(&2000+N%):NEXT
208COLOUR1:PRINTTAB(3,3)"JON WILLIAMS[S"
250COLOUR2:PRINTTAB(3,8)"PROGRAMMED BY"
260COLOUR2:PRINTTAB(4,10)"D.WOODHOUSE"
270IF?&E00=1 THEN COLOUR1:PRINTTAB(1,14)"JOYSTICK SELECTED":GOTO360
290C%=3:C1%=5
300COLOUR4:PRINTTAB(0,12)"KEYS:"
310COLOURC%:PRINTTAB(5,12)"[Z[";:COLOURC1%:PRINT;" LEFT"
320COLOURC%:PRINTTAB(5,14)"[X[";:COLOURC1%:PRINT;" RIGHT"
330COLOURC%:PRINTTAB(5,16)"[/[";:COLOURC1%:PRINT;" JUMP"
340COLOURC%:PRINTTAB(5,18)"[:[";:COLOURC1%:PRINT;" ACTIVATE"
350COLOURC%:PRINTTAB(2,20)"RETURN";:COLOURC1%:PRINT;" DUCK"
360COLOUR2:PRINTTAB(3,26) "COPYRIGHT \]^_"
370PRINTTAB(1,28)" ENGLISH SOFTWARE":REM
380 REM
390COLOUR3
400*FX20,0
410VDU28,4,24,19,22
420VDU23,1,0,0,0,0,0,0,0,0
430FORN%=0TO&50:?(&D00+N%)=?(&1E80+N%):NEXT:CALL&D00:REM"
460DEFPROCDB(X,Y,A$)
470LOCALS%:FORS%=1TOLEN(A$):?&80=ASC(MID$(A$,S%)):A%=10:X%=&80:Y%=0:CALL&FFF1:VDU23,255,?&81,?&81,?&82,?&82,?&83,?&83,?&84,?&84:PRINTTAB(X+S%,Y)CHR$255:VDU23,255,?&85,?&85,?&86,?&86,?&87,?&87,?&88,?&88:PRINTTAB(X+S%,Y+1)CHR$255:NEXT:ENDPROC
� � *T. (��1,2,6,6,6,2,2,2,100,0,0,0,0,0:�3,2,1,1,1,50,50,50,120,0,0,0,0,0:�4,5,-3,-3,-3,40,40,40,126,0,0,0,0,0:�23,65,0,0,0,0,0,0,0,0 F2�N%=0�&100 �4:!(&C00+N%)=!(&2000+N%):�:Z%=&D00 P+B$="":�N=128 � 145:B$=B$+�(N):�:Z%=&D00 Zn�1:�23,1,0,0,0,0,0,0,0,0:�5,10);"JOYSTICK OR KEYBOARD (J/K) ?":�2:�4,12) "FIRST BYTE JOYSTICK INTERFACE" x� �(-71) � ?&E00=0:�tB@ y� �(-70) � ?&E00=1:�tB@ z �Dx@ �-�N%=&0�&100�4:!(&C00+N%)=!(&1F00+N%):� �*FX20,0 �� " ��5:�23,1,0,0,0,0,0,0,0,0 ��19,3,6,0,0,0,0 ��19,2,2,0,0,0,0 � Z%=�-3072 ��3:�DB(0,5,B$) ��5 �&�1168,1020-128-32:�3,6:�152:�4 ��23,65,0,0,0,0,0,0,0,0 �.�N%=&0�&100�4::!(&C00+N%)=!(&2000+N%):� �!�1:�3,3)"JON WILLIAMS[S" � �2:�3,8)"PROGRAMMED BY" �2:�4,10)"D.WOODHOUSE" 2�?&E00=1 � �1:�1,14)"JOYSTICK SELECTED":�DhA "C%=3:C1%=5 ,�4:�0,12)"KEYS:" 6(�C%:�5,12)"[Z[";:�C1%:�;" LEFT" @(�C%:�5,14)"[X[";:�C1%:�;" RIGHT" J(�C%:�5,16)"[/[";:�C1%:�;" JUMP" T+�C%:�5,18)"[:[";:�C1%:�;" ACTIVATE" ^+�C%:�2,20)"RETURN";:�C1%:�;" DUCK" h#�2:�3,26) "COPYRIGHT \]^_" r%�1,28)" ENGLISH SOFTWARE":� | � ��3 �*FX20,0 ��28,4,24,19,22 ��23,1,0,0,0,0,0,0,0,0 �0�N%=0�&50:?(&D00+N%)=?(&1E80+N%):�:�&D00:�" ���DB(X,Y,A$) ־�S%:�S%=1��(A$):?&80=�(�A$,S%)):A%=10:X%=&80:Y%=0:�&FFF1:�23,255,?&81,?&81,?&82,?&82,?&83,?&83,?&84,?&84:�X+S%,Y)�255:�23,255,?&85,?&85,?&86,?&86,?&87,?&87,?&88,?&88:�X+S%,Y+1)�255:�:� �, � ������������������ DB � DB � � $ ������������������ 1% 1% JBJ3 . JBJ3 T. �'' !&�7)"English Software presents " (Y�131,157,13��� �آ� ��X ��������L R. JBJ2 JBJ2 R. JBJ3 � �آ+���X ��������3� ����XL R. JBJ2 L. JBJ3 1" � ��~}y�����߿?��� ?<x����s����χ���9��?q������Ç�?������ s?����Ϗ��=}�=<?���������?���������� � p /- ��````` <fnjn`<