Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape07b_c16_d90_ages_b.wav » secret-2
secret-2
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_tape07b_c16_d90_ages_b.wav |
| Filename: | secret-2 |
| Read OK: | ✔ |
| File size: | 0327 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 SCNCLR
20 COLOR 0,2:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
30 COLOR 1,1:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
40 GRAPHIC 2,1
50 COLOR 0,6
60 PRINT" MENU"
70 PRINT" 1. DRAW LINES"
80 PRINT" 2. FILL IN"
90 PRINT" 3. TEST"
100 PRINT" 4. CLEAR";
110 GETKEY A$
120 IF A$="1"THEN 170
130 IF A$="3"THEN
140 IF A$="4"THEN RUN
150 IF A$="%"THEN GOSUB 340
160 PRINT:GOTO 60
170 COLOR 0,2:SCNCLR:COLOR 0,6:PRINT"START OF LINE"
180 INPUT"ROW DOWN 1-190";A$
190 IF A$="HELP"THEN GOSUB 340
200 INPUT"ROW ACROSS 1-400";B$
210 IF A$="HELP"THEN GOSUB 340
220 COLOR 0,2:SCNCLR:COLOR 0,6
230 PRINT"END OF LINE"
240 INPUT"ROW DOWN 1-190";C$
250 IF A$="HELP"THEN GOSUB 340
260 INPUT"ROW ACROSS 1-400";D$
270 IF A$="HELP"THEN GOSUB 340
280 INPUT"DO YOU WANT BLACK OR WHITE";E$
290 IF E$="BLACK"THEN A=1
300 IF E$="WHITE"THEN A=0
310 IF E$="HELP"THEN GOSUB 340
320 DRAW A,A$,B$ TO C$,D$
330 GOTO 50
340 COLOR 1,1
350 COLOR 0,1
360 COLOR 4,1
370 GETKEY Z$
380 COLOR 4,15,6
390 COLOR 0,6
400 COLOR 1,1
410 RETURN
� % � 0,2:�:�:�:�:�:�:�:�:�:� C � 1,1:�:�:�:�:�:�:�:�:�:� M( � 2,1 W2 � 0,6 t< �" MENU" �F �" 1. DRAW LINES" �P �" 2. FILL IN" �Z �" 3. TEST" �d �" 4. CLEAR"; �n �� A$ x � A$�"1"� 170 � � A$�"3"� %� � A$�"4"� � 9� � A$�"%"� � 340 D� �:� 60 g� � 0,2:�:� 0,6:�"START OF LINE" �� �"ROW DOWN 1-190";A$ �� � A$�"HELP"� � 340 �� �"ROW ACROSS 1-400";B$ �� � A$�"HELP"� � 340 �� � 0,2:�:� 0,6 �� �"END OF LINE" � �"ROW DOWN 1-190";C$ � � A$�"HELP"� � 340 9�"ROW ACROSS 1-400";D$ P� A$�"HELP"� � 340 u�"DO YOU WANT BLACK OR WHITE";E$ �"� E$�"BLACK"� A�1 �,� E$�"WHITE"� A�0 �6� E$�"HELP"� � 340 �@� A,A$,B$ � C$,D$ �J� 50 �T� 1,1 �^� 0,1 �h� 4,1 �r�� Z$ |� 4,15,6 �� 0,6 �� 1,1 &��
GPJ@.@%PT@. 0,2:.:.:.:.:.:.:.:.:.:.@cP.@. 1,1:.:.:.:.:.:.:.:.:.:.@mP(@. 2,1@wP2@. 0,6@TP<@." menu"@.Pf@." 1. draw lines"@.Pp@." 2. fill in"@.Pz@." 3. test"@.PD@." 4. clear";@.PN@.. a$@GQX@. a$."1". 170@UQ.@. a$."3".@%Q.@. a$."4". .@9Q.@. a$."%". . 340@dQ.@.:. 60@GQ.@. 0,2:.:. 0,6:."start of line"@.Q.@."row down 1-190";a$@.Q.@. a$."help". . 340@.Q.@."row across 1-400";b$@.Q.@. a$."help". . 340@.Q.@. 0,2:.:. 0,6@.Q.@."end of line"@GR.@."row down 1-190";c$@.R.@. a$."help". . 340@9RDA."row across 1-400";d$@pRNA. a$."help". . 340@URXA."do you want black or white";e$@.R"A. e$."black". a.1@.R,A. e$."white". a.0@.R6A. e$."help". . 340@.R@A. a,a$,b$ . c$,d$@.RjA. 50@.RtA. 1,1@.R.A. 0,1@.RHA. 4,1@.RRA.. z$@LS.A. 4,15,6@VS.A. 0,6@ S.A. 1,1@&S.A.@@@
00000000 07 10 0a 00 e8 00 25 10 14 00 e7 20 30 2c 32 3a |......%.... 0,2:| 00000010 99 3a 99 3a 99 3a 99 3a 99 3a 99 3a 99 3a 99 3a |.:.:.:.:.:.:.:.:| 00000020 99 3a 99 00 43 10 1e 00 e7 20 31 2c 31 3a 99 3a |.:..C.... 1,1:.:| 00000030 99 3a 99 3a 99 3a 99 3a 99 3a 99 3a 99 3a 99 3a |.:.:.:.:.:.:.:.:| 00000040 99 00 4d 10 28 00 de 20 32 2c 31 00 57 10 32 00 |..M.(.. 2,1.W.2.| 00000050 e7 20 30 2c 36 00 74 10 3c 00 99 22 20 20 20 20 |. 0,6.t.<.." | 00000060 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 45 4e | MEN| 00000070 55 22 00 95 10 46 00 99 22 20 20 20 20 20 20 20 |U"...F.." | 00000080 20 20 20 20 20 31 2e 20 44 52 41 57 20 4c 49 4e | 1. DRAW LIN| 00000090 45 53 22 00 b3 10 50 00 99 22 20 20 20 20 20 20 |ES"...P.." | 000000a0 20 20 20 20 20 20 32 2e 20 46 49 4c 4c 20 49 4e | 2. FILL IN| 000000b0 22 00 ce 10 5a 00 99 22 20 20 20 20 20 20 20 20 |"...Z.." | 000000c0 20 20 20 20 33 2e 20 54 45 53 54 22 00 eb 10 64 | 3. TEST"...d| 000000d0 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 34 |.." 4| 000000e0 2e 20 43 4c 45 41 52 22 3b 00 f5 10 6e 00 a1 f9 |. CLEAR";...n...| 000000f0 20 41 24 00 07 11 78 00 8b 20 41 24 b2 22 31 22 | A$...x.. A$."1"| 00000100 a7 20 31 37 30 00 15 11 82 00 8b 20 41 24 b2 22 |. 170...... A$."| 00000110 33 22 a7 00 25 11 8c 00 8b 20 41 24 b2 22 34 22 |3"..%.... A$."4"| 00000120 a7 20 8a 00 39 11 96 00 8b 20 41 24 b2 22 25 22 |. ..9.... A$."%"| 00000130 a7 20 8d 20 33 34 30 00 44 11 a0 00 99 3a 89 20 |. . 340.D....:. | 00000140 36 30 00 67 11 aa 00 e7 20 30 2c 32 3a e8 3a e7 |60.g.... 0,2:.:.| 00000150 20 30 2c 36 3a 99 22 53 54 41 52 54 20 4f 46 20 | 0,6:."START OF | 00000160 4c 49 4e 45 22 00 80 11 b4 00 85 22 52 4f 57 20 |LINE"......"ROW | 00000170 44 4f 57 4e 20 31 2d 31 39 30 22 3b 41 24 00 97 |DOWN 1-190";A$..| 00000180 11 be 00 8b 20 41 24 b2 22 48 45 4c 50 22 a7 20 |.... A$."HELP". | 00000190 8d 20 33 34 30 00 b2 11 c8 00 85 22 52 4f 57 20 |. 340......"ROW | 000001a0 41 43 52 4f 53 53 20 31 2d 34 30 30 22 3b 42 24 |ACROSS 1-400";B$| 000001b0 00 c9 11 d2 00 8b 20 41 24 b2 22 48 45 4c 50 22 |...... A$."HELP"| 000001c0 a7 20 8d 20 33 34 30 00 db 11 dc 00 e7 20 30 2c |. . 340...... 0,| 000001d0 32 3a e8 3a e7 20 30 2c 36 00 ee 11 e6 00 99 22 |2:.:. 0,6......"| 000001e0 45 4e 44 20 4f 46 20 4c 49 4e 45 22 00 07 12 f0 |END OF LINE"....| 000001f0 00 85 22 52 4f 57 20 44 4f 57 4e 20 31 2d 31 39 |.."ROW DOWN 1-19| 00000200 30 22 3b 43 24 00 1e 12 fa 00 8b 20 41 24 b2 22 |0";C$...... A$."| 00000210 48 45 4c 50 22 a7 20 8d 20 33 34 30 00 39 12 04 |HELP". . 340.9..| 00000220 01 85 22 52 4f 57 20 41 43 52 4f 53 53 20 31 2d |.."ROW ACROSS 1-| 00000230 34 30 30 22 3b 44 24 00 50 12 0e 01 8b 20 41 24 |400";D$.P.... A$| 00000240 b2 22 48 45 4c 50 22 a7 20 8d 20 33 34 30 00 75 |."HELP". . 340.u| 00000250 12 18 01 85 22 44 4f 20 59 4f 55 20 57 41 4e 54 |...."DO YOU WANT| 00000260 20 42 4c 41 43 4b 20 4f 52 20 57 48 49 54 45 22 | BLACK OR WHITE"| 00000270 3b 45 24 00 8b 12 22 01 8b 20 45 24 b2 22 42 4c |;E$...".. E$."BL| 00000280 41 43 4b 22 a7 20 41 b2 31 00 a1 12 2c 01 8b 20 |ACK". A.1...,.. | 00000290 45 24 b2 22 57 48 49 54 45 22 a7 20 41 b2 30 00 |E$."WHITE". A.0.| 000002a0 b8 12 36 01 8b 20 45 24 b2 22 48 45 4c 50 22 a7 |..6.. E$."HELP".| 000002b0 20 8d 20 33 34 30 00 ce 12 40 01 e5 20 41 2c 41 | . 340...@.. A,A| 000002c0 24 2c 42 24 20 a4 20 43 24 2c 44 24 00 d7 12 4a |$,B$ . C$,D$...J| 000002d0 01 89 20 35 30 00 e1 12 54 01 e7 20 31 2c 31 00 |.. 50...T.. 1,1.| 000002e0 eb 12 5e 01 e7 20 30 2c 31 00 f5 12 68 01 e7 20 |..^.. 0,1...h.. | 000002f0 34 2c 31 00 ff 12 72 01 a1 f9 20 5a 24 00 0c 13 |4,1...r... Z$...| 00000300 7c 01 e7 20 34 2c 31 35 2c 36 00 16 13 86 01 e7 ||.. 4,15,6......| 00000310 20 30 2c 36 00 20 13 90 01 e7 20 31 2c 31 00 26 | 0,6. .... 1,1.&| 00000320 13 9a 01 8e 00 00 00 |.......| 00000327
.