Home » Recent acquisitions » Acorn tapes » tape047d_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 » tape047d_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 » tape047d_acorn_computer_hits_2.wav » JBJ1
- Recent acquisitions » Acorn tapes » tape047c_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`<