Home » Personal collection » Acorn DFS disks » dfs_box03_disk05b_games_3_backup.scp » S.BIT1
S.BIT1
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 DFS disks » dfs_box03_disk05b_games_3_backup.scp |
| Filename: | S.BIT1 |
| Read OK: | ✔ |
| File size: | 02D4 bytes |
| Load address: | FF1900 |
| Exec address: | FF801F |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Acorn DFS disks » dfs_box03_disk05_games_3_backup.scp » S.BIT1
- Personal collection » Acorn DFS disks » dfs_box03_disk05b_games_3_backup.scp » S.BIT1
File contents
0REM ....Snapper.... V2
10REM
20REM Copyright (C) Acornsoft 1982
30REM
40*L. S.BIT2 1900
45*L. S.MOVE C00
46!&70=&0E001900:X%=&27:CALL&C30
50MODE7
60VDU23;10,32,0;0;0;
70PROCheader("Acornsoft Snapper")
80PRINT
90PROCdouble(CHR$&86+"Instructions ")
100PRINTTAB(6,6);"Keys:"
110PROCjustify("Z - Left",8)
120PROCjustify("X - Right",10)
130PROCjustify("? - Down",12)
140PROCjustify("* - Up",14)
150PROCcentre(CHR$&86+"Copyright (C) Acornsoft 1982 ",22)
160PROCcentre("Press SPACE BAR or Fire Button",17)
170PROCcentre("On Joystick To Start",19)
220CALL&3400
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
�
(*L. S.BIT2 1900
-*L. S.MOVE C00
. !&70=&0E001900:X%=&27:�&C30
2�7
<�23;10,32,0;0;0;
F �header("Acornsoft Snapper")
P�
Z"�double(�&86+"Instructions ")
d�6,6);"Keys:"
n�justify("Z - Left",8)
x �justify("X - Right",10)
��justify("? - Down",12)
��justify("* - Up",14)
�4�centre(�&86+"Copyright (C) Acornsoft 1982 ",22)
�0�centre("Press SPACE BAR or Fire Button",17)
�&�centre("On Joystick To Start",19)
�
�&3400
�
�,��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 13 2a 4c 2e |1982.......(.*L.|
00000050 20 53 2e 42 49 54 32 20 31 39 30 30 0d 00 2d 12 | S.BIT2 1900..-.|
00000060 2a 4c 2e 20 53 2e 4d 4f 56 45 20 43 30 30 0d 00 |*L. S.MOVE C00..|
00000070 2e 1f 21 26 37 30 3d 26 30 45 30 30 31 39 30 30 |..!&70=&0E001900|
00000080 3a 58 25 3d 26 32 37 3a d6 26 43 33 30 0d 00 32 |:X%=&27:.&C30..2|
00000090 06 eb 37 0d 00 3c 14 ef 32 33 3b 31 30 2c 33 32 |..7..<..23;10,32|
000000a0 2c 30 3b 30 3b 30 3b 0d 00 46 20 f2 68 65 61 64 |,0;0;0;..F .head|
000000b0 65 72 28 22 41 63 6f 72 6e 73 6f 66 74 20 53 6e |er("Acornsoft Sn|
000000c0 61 70 70 65 72 22 29 0d 00 50 05 f1 0d 00 5a 22 |apper")..P....Z"|
000000d0 f2 64 6f 75 62 6c 65 28 bd 26 38 36 2b 22 49 6e |.double(.&86+"In|
000000e0 73 74 72 75 63 74 69 6f 6e 73 20 20 22 29 0d 00 |structions ")..|
000000f0 64 12 f1 8a 36 2c 36 29 3b 22 4b 65 79 73 3a 22 |d...6,6);"Keys:"|
00000100 0d 00 6e 1a f2 6a 75 73 74 69 66 79 28 22 5a 20 |..n..justify("Z |
00000110 2d 20 4c 65 66 74 22 2c 38 29 0d 00 78 1c f2 6a |- Left",8)..x..j|
00000120 75 73 74 69 66 79 28 22 58 20 2d 20 52 69 67 68 |ustify("X - Righ|
00000130 74 22 2c 31 30 29 0d 00 82 1b f2 6a 75 73 74 69 |t",10).....justi|
00000140 66 79 28 22 3f 20 2d 20 44 6f 77 6e 22 2c 31 32 |fy("? - Down",12|
00000150 29 0d 00 8c 19 f2 6a 75 73 74 69 66 79 28 22 2a |).....justify("*|
00000160 20 2d 20 55 70 22 2c 31 34 29 0d 00 96 34 f2 63 | - Up",14)...4.c|
00000170 65 6e 74 72 65 28 bd 26 38 36 2b 22 43 6f 70 79 |entre(.&86+"Copy|
00000180 72 69 67 68 74 20 28 43 29 20 41 63 6f 72 6e 73 |right (C) Acorns|
00000190 6f 66 74 20 31 39 38 32 20 22 2c 32 32 29 0d 00 |oft 1982 ",22)..|
000001a0 a0 30 f2 63 65 6e 74 72 65 28 22 50 72 65 73 73 |.0.centre("Press|
000001b0 20 53 50 41 43 45 20 42 41 52 20 6f 72 20 46 69 | SPACE BAR or Fi|
000001c0 72 65 20 42 75 74 74 6f 6e 22 2c 31 37 29 0d 00 |re Button",17)..|
000001d0 aa 26 f2 63 65 6e 74 72 65 28 22 4f 6e 20 4a 6f |.&.centre("On Jo|
000001e0 79 73 74 69 63 6b 20 54 6f 20 53 74 61 72 74 22 |ystick To Start"|
000001f0 2c 31 39 29 0d 00 dc 0a d6 26 33 34 30 30 0d 00 |,19).....&3400..|
00000200 e6 05 20 0d 00 f0 2c dd f2 63 65 6e 74 72 65 28 |.. ...,..centre(|
00000210 41 24 2c 76 70 6f 73 29 f1 8a 28 32 30 2d a9 41 |A$,vpos)..(20-.A|
00000220 24 81 32 29 2c 76 70 6f 73 29 3b 41 24 3a e1 0d |$.2),vpos);A$:..|
00000230 00 fa 05 20 0d 01 04 42 dd f2 68 65 61 64 65 72 |... ...B..header|
00000240 28 41 24 29 ef 33 30 3a e3 49 3d 30 b8 31 3a f1 |(A$).30:.I=0.1:.|
00000250 bd 26 38 31 3b bd 26 39 44 3b bd 26 38 33 3b bd |.&81;.&9D;.&83;.|
00000260 26 38 44 3b 3a f2 63 65 6e 74 72 65 28 41 24 2c |&8D;:.centre(A$,|
00000270 bc 29 3a ed 3a e1 0d 01 0e 05 20 0d 01 18 25 dd |.):.:..... ...%.|
00000280 f2 6a 75 73 74 69 66 79 28 41 24 2c 76 70 6f 73 |.justify(A$,vpos|
00000290 29 f1 8a 31 35 2c 76 70 6f 73 29 3b 41 24 3a e1 |)..15,vpos);A$:.|
000002a0 0d 01 22 05 20 0d 01 2c 2d dd f2 64 6f 75 62 6c |..". ..,-..doubl|
000002b0 65 28 41 24 29 e3 49 3d 30 b8 31 3a f2 63 65 6e |e(A$).I=0.1:.cen|
000002c0 74 72 65 28 bd 26 38 44 2b 41 24 2c bc 29 3a ed |tre(.&8D+A$,.):.|
000002d0 3a e1 0d ff |:...|
000002d4 
S.BIT1.m0
S.BIT1.m1
S.BIT1.m2
S.BIT1.m4
S.BIT1.m5
.