Home » Recent acquisitions » Acorn tapes » tape050c_acorn_play_it_again_sam_7_bbc.wav » S-II2
S-II2
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 » tape050c_acorn_play_it_again_sam_7_bbc.wav |
| Filename: | S-II2 |
| Read OK: | ✔ |
| File size: | 02F9 bytes |
| Load address: | 5000 |
| Exec address: | 802B |
Duplicates
There are 2 duplicate copies of this file in the archive:
- Recent acquisitions » Acorn tapes » tape050c_acorn_play_it_again_sam_7_bbc.wav » S-II2
- STH website » SuperiorReRelease » SuperiorReRelease_Snapper-Superior_Snapper-Superior.ssd » S-II2
- STH website » SuperiorReRelease » SuperiorReRelease_Snapper-PIASRR_B_Snapper-PIASRR_B.uef » S-II2
File contents
0REM ....Snapper.... V2
10REM
20REM Copyright (C) Acornsoft 1982
30REM
40*RU.S-II3
50MODE7
60VDU23;10,32,0;0;0;
70PROCheader("Acornsoft Snapper")
80PRINT
90PROCdouble(CHR$&86+"Instructions ")
100PRINTTAB(6,5);"Keys:"
110PROCjustify("Z - Left",7)
120PROCjustify("X - Right",9)
130PROCjustify("? - Down",11)
140PROCjustify("* - Up",13)
145PROCcentre("Sound ON or OFF Y/N ?",15)
146*FX15,0
147A$=GET$:IF A$="N" OR A$="n":?&262=1
155PROCcentre(CHR$&86+"Copyright (C) Acornsoft 1982 ",22)
160PROCcentre("Press SPACE BAR or Fire Button",17)
170PROCcentre("On Joystick To Start",19)
210*TAPE
220CALL&4500
230
240DEFPROCcentre(A$,vpos)PRINTTAB((20-LENA$DIV2),vpos);A$:ENDPROC
250
260DEFPROCheader(A$)VDU30:FORI=0TO1:PRINTCHR$&81;CHR$&9D;CHR$&83;CHR$&8D;:PROCcentre(A$,VPOS):NEXT:ENDPROC
270
280DEFPROCjustify(A$,vpos)PRINTTAB(15,vpos);A$:ENDPROC
290
300DEFPROCdouble(A$)FORI=0TO1:PROCcentre(CHR$&8D+A$,VPOS):NEXT:ENDPROC
� ....Snapper.... V2
�
"� Copyright (C) Acornsoft 1982
�
(
*RU.S-II3
2�7
<�23;10,32,0;0;0;
F �header("Acornsoft Snapper")
P�
Z"�double(�&86+"Instructions ")
d�6,5);"Keys:"
n�justify("Z - Left",7)
x�justify("X - Right",9)
��justify("? - Down",11)
��justify("* - Up",13)
�'�centre("Sound ON or OFF Y/N ?",15)
� *FX15,0
�"A$=�:� A$="N" � A$="n":?&262=1
�4�centre(�&86+"Copyright (C) Acornsoft 1982 ",22)
�0�centre("Press SPACE BAR or Fire Button",17)
�&�centre("On Joystick To Start",19)
� *TAPE
�
�&4500
�
�,��centre(A$,vpos)�(20-�A$�2),vpos);A$:�
�
B��header(A$)�30:�I=0�1:�&81;�&9D;�&83;�&8D;:�centre(A$,�):�:�
%��justify(A$,vpos)�15,vpos);A$:�
"
,-��double(A$)�I=0�1:�centre(�&8D+A$,�):�:�
� 00000000 0d 00 00 1d f4 20 20 20 20 20 20 2e 2e 2e 2e 53 |..... ....S|
00000010 6e 61 70 70 65 72 2e 2e 2e 2e 20 56 32 0d 00 0a |napper.... V2...|
00000020 05 f4 0d 00 14 22 f4 20 43 6f 70 79 72 69 67 68 |.....". Copyrigh|
00000030 74 20 28 43 29 20 41 63 6f 72 6e 73 6f 66 74 20 |t (C) Acornsoft |
00000040 31 39 38 32 0d 00 1e 05 f4 0d 00 28 0d 2a 52 55 |1982.......(.*RU|
00000050 2e 53 2d 49 49 33 0d 00 32 06 eb 37 0d 00 3c 14 |.S-II3..2..7..<.|
00000060 ef 32 33 3b 31 30 2c 33 32 2c 30 3b 30 3b 30 3b |.23;10,32,0;0;0;|
00000070 0d 00 46 20 f2 68 65 61 64 65 72 28 22 41 63 6f |..F .header("Aco|
00000080 72 6e 73 6f 66 74 20 53 6e 61 70 70 65 72 22 29 |rnsoft Snapper")|
00000090 0d 00 50 05 f1 0d 00 5a 22 f2 64 6f 75 62 6c 65 |..P....Z".double|
000000a0 28 bd 26 38 36 2b 22 49 6e 73 74 72 75 63 74 69 |(.&86+"Instructi|
000000b0 6f 6e 73 20 20 22 29 0d 00 64 12 f1 8a 36 2c 35 |ons ")..d...6,5|
000000c0 29 3b 22 4b 65 79 73 3a 22 0d 00 6e 1a f2 6a 75 |);"Keys:"..n..ju|
000000d0 73 74 69 66 79 28 22 5a 20 2d 20 4c 65 66 74 22 |stify("Z - Left"|
000000e0 2c 37 29 0d 00 78 1b f2 6a 75 73 74 69 66 79 28 |,7)..x..justify(|
000000f0 22 58 20 2d 20 52 69 67 68 74 22 2c 39 29 0d 00 |"X - Right",9)..|
00000100 82 1b f2 6a 75 73 74 69 66 79 28 22 3f 20 2d 20 |...justify("? - |
00000110 44 6f 77 6e 22 2c 31 31 29 0d 00 8c 19 f2 6a 75 |Down",11).....ju|
00000120 73 74 69 66 79 28 22 2a 20 2d 20 55 70 22 2c 31 |stify("* - Up",1|
00000130 33 29 0d 00 91 27 f2 63 65 6e 74 72 65 28 22 53 |3)...'.centre("S|
00000140 6f 75 6e 64 20 4f 4e 20 6f 72 20 4f 46 46 20 59 |ound ON or OFF Y|
00000150 2f 4e 20 3f 22 2c 31 35 29 0d 00 92 0b 2a 46 58 |/N ?",15)....*FX|
00000160 31 35 2c 30 0d 00 93 22 41 24 3d be 3a e7 20 41 |15,0..."A$=.:. A|
00000170 24 3d 22 4e 22 20 84 20 41 24 3d 22 6e 22 3a 3f |$="N" . A$="n":?|
00000180 26 32 36 32 3d 31 0d 00 9b 34 f2 63 65 6e 74 72 |&262=1...4.centr|
00000190 65 28 bd 26 38 36 2b 22 43 6f 70 79 72 69 67 68 |e(.&86+"Copyrigh|
000001a0 74 20 28 43 29 20 41 63 6f 72 6e 73 6f 66 74 20 |t (C) Acornsoft |
000001b0 31 39 38 32 20 22 2c 32 32 29 0d 00 a0 30 f2 63 |1982 ",22)...0.c|
000001c0 65 6e 74 72 65 28 22 50 72 65 73 73 20 53 50 41 |entre("Press SPA|
000001d0 43 45 20 42 41 52 20 6f 72 20 46 69 72 65 20 42 |CE BAR or Fire B|
000001e0 75 74 74 6f 6e 22 2c 31 37 29 0d 00 aa 26 f2 63 |utton",17)...&.c|
000001f0 65 6e 74 72 65 28 22 4f 6e 20 4a 6f 79 73 74 69 |entre("On Joysti|
00000200 63 6b 20 54 6f 20 53 74 61 72 74 22 2c 31 39 29 |ck To Start",19)|
00000210 0d 00 d2 09 2a 54 41 50 45 0d 00 dc 0a d6 26 34 |....*TAPE.....&4|
00000220 35 30 30 0d 00 e6 05 20 0d 00 f0 2c dd f2 63 65 |500.... ...,..ce|
00000230 6e 74 72 65 28 41 24 2c 76 70 6f 73 29 f1 8a 28 |ntre(A$,vpos)..(|
00000240 32 30 2d a9 41 24 81 32 29 2c 76 70 6f 73 29 3b |20-.A$.2),vpos);|
00000250 41 24 3a e1 0d 00 fa 05 20 0d 01 04 42 dd f2 68 |A$:..... ...B..h|
00000260 65 61 64 65 72 28 41 24 29 ef 33 30 3a e3 49 3d |eader(A$).30:.I=|
00000270 30 b8 31 3a f1 bd 26 38 31 3b bd 26 39 44 3b bd |0.1:..&81;.&9D;.|
00000280 26 38 33 3b bd 26 38 44 3b 3a f2 63 65 6e 74 72 |&83;.&8D;:.centr|
00000290 65 28 41 24 2c bc 29 3a ed 3a e1 0d 01 0e 05 20 |e(A$,.):.:..... |
000002a0 0d 01 18 25 dd f2 6a 75 73 74 69 66 79 28 41 24 |...%..justify(A$|
000002b0 2c 76 70 6f 73 29 f1 8a 31 35 2c 76 70 6f 73 29 |,vpos)..15,vpos)|
000002c0 3b 41 24 3a e1 0d 01 22 05 20 0d 01 2c 2d dd f2 |;A$:...". ..,-..|
000002d0 64 6f 75 62 6c 65 28 41 24 29 e3 49 3d 30 b8 31 |double(A$).I=0.1|
000002e0 3a f2 63 65 6e 74 72 65 28 bd 26 38 44 2b 41 24 |:.centre(.&8D+A$|
000002f0 2c bc 29 3a ed 3a e1 0d ff |,.):.:...|
000002f9 
S-II2.m0
S-II2.m1
S-II2.m2
S-II2.m4
S-II2.m5
.