Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape10b_d46_c16_ghost_maze.wav » momory
momory
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 tapes » Commodore_16 » drawer_br_tape10b_d46_c16_ghost_maze.wav |
| Filename: | momory |
| Read OK: | ✔ |
| File size: | 018C bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 INPUT"UP KEY"; U$
20 INPUT"DOWN KEY"; D$
30 IF U$=D$ THEN RUN
40 PAGE=0
50 CLR:SCNCLR:FOR A=1 TO 25:PRINT:NEXT
55 IF A<0 THEN 120
60 PRINT">";A;
70 PRINTTAB(5);PEEK(A);TAB(9);PEEK(A+1);TAB(13);PEEK(A+2);TAB(17);PEEK(A+3);
80 POKE 4071,PEEK(A+3)
90 POKE 4070,PEEK(A+2)
100 POKE4069,PEEK(A+1)
110 POKE4068,PEEK(A)
115 PRINT
120 GETKEY MN$
130 IF MN$=D$ THEN GOTO 160
140 IF MN$=U$ THEN GOTO 180
150 IF MN$="0" THEN 200
155 GOTO 120
160 A=A-4
165 IF A<0 THEN A=0
170 GOTO 55
180 A=A+4
190 GOTO 55
200 INPUT A
210 GOTO 60
�"UP KEY"; U$ ' �"DOWN KEY"; D$ 7 � U$�D$ � � B( PAGE�0 Y2 �:�:� A�1 � 25:�:� i7 � A�0 � 120 u< �">";A; �F ��5);�(A);�9);�(A�1);�13);�(A�2);�17);�(A�3); �P � 4071,�(A�3) �Z � 4070,�(A�2) �d �4069,�(A�1) �n �4068,�(A) �s � �x �� MN$ � � MN$�D$ � � 160 &� � MN$�U$ � � 180 :� � MN$�"0" � 200 D� � 120 N� A�A�4 ^� � A�0 � A�0 g� � 55 q� A�A�4 z� � 55 �� � A �� � 60
SPJ@."up key"; u$@'PT@."down key"; d$@7P.@. u$.d$ . .@bP(@page.0@yP2@.:.:. a.1 . 25:.:.@IP7@. a.0 . 120@UP<@.">";a;@.Pf@..5);.(a);.9);.(a.1);.13);.(a.2);.17);.(a.3);@.Pp@. 4071,.(a.3)@.Pz@. 4070,.(a.2)@.PD@.4069,.(a.1)@.PN@.4068,.(a)@.PS@.@.PX@.. mn$@QQ.@. mn$.d$ . . 160@&Q.@. mn$.u$ . . 180@:Q.@. mn$."0" . 200@dQ.@. 120@nQ.@a.a.4@.Q.@. a.0 . a.0@GQ.@. 55@QQ.@a.a.4@ZQ.@. 55@.Q.@. a@.Q.@. 60@@@
00000000 13 10 0a 00 85 22 55 50 20 4b 45 59 22 3b 20 55 |....."UP KEY"; U| 00000010 24 00 27 10 14 00 85 22 44 4f 57 4e 20 4b 45 59 |$.'...."DOWN KEY| 00000020 22 3b 20 44 24 00 37 10 1e 00 8b 20 55 24 b2 44 |"; D$.7.... U$.D| 00000030 24 20 a7 20 8a 00 42 10 28 00 50 41 47 45 b2 30 |$ . ..B.(.PAGE.0| 00000040 00 59 10 32 00 9c 3a e8 3a 81 20 41 b2 31 20 a4 |.Y.2..:.:. A.1 .| 00000050 20 32 35 3a 99 3a 82 00 69 10 37 00 8b 20 41 b3 | 25:.:..i.7.. A.| 00000060 30 20 a7 20 31 32 30 00 75 10 3c 00 99 22 3e 22 |0 . 120.u.<..">"| 00000070 3b 41 3b 00 a7 10 46 00 99 a3 35 29 3b c2 28 41 |;A;...F...5);.(A| 00000080 29 3b a3 39 29 3b c2 28 41 aa 31 29 3b a3 31 33 |);.9);.(A.1);.13| 00000090 29 3b c2 28 41 aa 32 29 3b a3 31 37 29 3b c2 28 |);.(A.2);.17);.(| 000000a0 41 aa 33 29 3b 00 b9 10 50 00 97 20 34 30 37 31 |A.3);...P.. 4071| 000000b0 2c c2 28 41 aa 33 29 00 cb 10 5a 00 97 20 34 30 |,.(A.3)...Z.. 40| 000000c0 37 30 2c c2 28 41 aa 32 29 00 dc 10 64 00 97 34 |70,.(A.2)...d..4| 000000d0 30 36 39 2c c2 28 41 aa 31 29 00 eb 10 6e 00 97 |069,.(A.1)...n..| 000000e0 34 30 36 38 2c c2 28 41 29 00 f1 10 73 00 99 00 |4068,.(A)...s...| 000000f0 fc 10 78 00 a1 f9 20 4d 4e 24 00 11 11 82 00 8b |..x... MN$......| 00000100 20 4d 4e 24 b2 44 24 20 a7 20 89 20 31 36 30 00 | MN$.D$ . . 160.| 00000110 26 11 8c 00 8b 20 4d 4e 24 b2 55 24 20 a7 20 89 |&.... MN$.U$ . .| 00000120 20 31 38 30 00 3a 11 96 00 8b 20 4d 4e 24 b2 22 | 180.:.... MN$."| 00000130 30 22 20 a7 20 32 30 30 00 44 11 9b 00 89 20 31 |0" . 200.D.... 1| 00000140 32 30 00 4e 11 a0 00 41 b2 41 ab 34 00 5e 11 a5 |20.N...A.A.4.^..| 00000150 00 8b 20 41 b3 30 20 a7 20 41 b2 30 00 67 11 aa |.. A.0 . A.0.g..| 00000160 00 89 20 35 35 00 71 11 b4 00 41 b2 41 aa 34 00 |.. 55.q...A.A.4.| 00000170 7a 11 be 00 89 20 35 35 00 82 11 c8 00 85 20 41 |z.... 55...... A| 00000180 00 8b 11 d2 00 89 20 36 30 00 00 00 |...... 60...| 0000018c
.