Home » Personal collection » Commodore disks » disk52a2_c16_progs.d64 » move
move
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 » Commodore disks » disk52a2_c16_progs.d64 |
| Filename: | move |
| Read OK: | ✔ |
| File size: | 012D bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Commodore disks » disk52a2_c16_progs.d64 » move
- Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape04a_c16_c60_computer_tape_1.wav » move
File contents
10 GRAPHIC 1,1
20 A=20:B=12
30 IF B<0 THEN B=0:GOTO 90
40 IF B>24 THEN B=24:GOTO 90
50 IF A<0 THEN A=0:GOTO 90
60 IF A>39 THEN A=39:GOTO 90
80 CHAR 1,A,B,"╳"
90 GETKEY A$
100 IF A$=";" THEN CHAR 0,A,B,"X":B=B-1:GOTO 30
110 IF A$="/" THEN CHAR 0,A,B,"X":B=B+1:GOTO 30
120 IF A$="Z" THEN CHAR 0,A,B,"X":A=A-1:GOTO 30
130 IF A$="X" THEN CHAR 0,A,B,"X":A=A+1:GOTO 30
140 GOTO 90
� 1,1 A�20:B�12 . � B�0 � B�0:� 90 E( � B�24 � B�24:� 90 Z2 � A�0 � A�0:� 90 q< � A�39 � A�39:� 90 �P � 1,A,B,"�" �Z �� A$ �d � A$�";" � � 0,A,B,"X":B�B�1:� 30 �n � A$�"/" � � 0,A,B,"X":B�B�1:� 30 �x � A$�"Z" � � 0,A,B,"X":A�A�1:� 30 #� � A$�"X" � � 0,A,B,"X":A�A�1:� 30 ,� � 90
KPJ@. 1,1@YPT@a.20:b.12@.P.@. b.0 . b.0:. 90@eP(@. b.24 . b.24:. 90@zP2@. a.0 . a.0:. 90@QP<@. a.39 . a.39:. 90@.Pp@. 1,a,b,"."@.Pz@.. a$@.PD@. a$.";" . . 0,a,b,"x":b.b.1:. 30@.PN@. a$."/" . . 0,a,b,"x":b.b.1:. 30@.PX@. a$."z" . . 0,a,b,"x":a.a.1:. 30@#Q.@. a$."x" . . 0,a,b,"x":a.a.1:. 30@,Q.@. 90@@@
00000000 0b 10 0a 00 de 20 31 2c 31 00 19 10 14 00 41 b2 |..... 1,1.....A.| 00000010 32 30 3a 42 b2 31 32 00 2e 10 1e 00 8b 20 42 b3 |20:B.12...... B.| 00000020 30 20 a7 20 42 b2 30 3a 89 20 39 30 00 45 10 28 |0 . B.0:. 90.E.(| 00000030 00 8b 20 42 b1 32 34 20 a7 20 42 b2 32 34 3a 89 |.. B.24 . B.24:.| 00000040 20 39 30 00 5a 10 32 00 8b 20 41 b3 30 20 a7 20 | 90.Z.2.. A.0 . | 00000050 41 b2 30 3a 89 20 39 30 00 71 10 3c 00 8b 20 41 |A.0:. 90.q.<.. A| 00000060 b1 33 39 20 a7 20 41 b2 33 39 3a 89 20 39 30 00 |.39 . A.39:. 90.| 00000070 81 10 50 00 e0 20 31 2c 41 2c 42 2c 22 d6 22 00 |..P.. 1,A,B,".".| 00000080 8b 10 5a 00 a1 f9 20 41 24 00 b1 10 64 00 8b 20 |..Z... A$...d.. | 00000090 41 24 b2 22 3b 22 20 a7 20 e0 20 30 2c 41 2c 42 |A$.";" . . 0,A,B| 000000a0 2c 22 58 22 3a 42 b2 42 ab 31 3a 89 20 33 30 00 |,"X":B.B.1:. 30.| 000000b0 d7 10 6e 00 8b 20 41 24 b2 22 2f 22 20 a7 20 e0 |..n.. A$."/" . .| 000000c0 20 30 2c 41 2c 42 2c 22 58 22 3a 42 b2 42 aa 31 | 0,A,B,"X":B.B.1| 000000d0 3a 89 20 33 30 00 fd 10 78 00 8b 20 41 24 b2 22 |:. 30...x.. A$."| 000000e0 5a 22 20 a7 20 e0 20 30 2c 41 2c 42 2c 22 58 22 |Z" . . 0,A,B,"X"| 000000f0 3a 41 b2 41 ab 31 3a 89 20 33 30 00 23 11 82 00 |:A.A.1:. 30.#...| 00000100 8b 20 41 24 b2 22 58 22 20 a7 20 e0 20 30 2c 41 |. A$."X" . . 0,A| 00000110 2c 42 2c 22 58 22 3a 41 b2 41 aa 31 3a 89 20 33 |,B,"X":A.A.1:. 3| 00000120 30 00 2c 11 8c 00 89 20 39 30 00 00 00 |0.,.... 90...| 0000012d
.