Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape07b_c16_d90_ages_b.wav » secret-1
secret-1
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-1 |
| Read OK: | ✔ |
| File size: | 021F bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
0 SCNCLR
1 COLOR 0,2:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
2 COLOR 1,1:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
3 GRAPHIC 2,1
4 COLOR 0,6
5 PRINT" MENU"
6 PRINT" 1. DRAW LINES"
7 PRINT" 2. FILL IN"
8 PRINT" 3. TEST"
9 PRINT" 4. CLEAR";
10 GETKEY A$
11 IF A$="1"THEN 16
12 IF A$="2"THEN
13 IF A$="3"THEN
14 IF A$="4"THEN RUN
15 PRINT:GOTO 5
16 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"START OF LINE"
17 INPUT"ROW DOWN 1-260";A$
18 INPUT"ROW ACROSS 1-300";B$
19 PRINT"END OF LINE"
20 INPUT"ROW DOWN 1-260";C$
21 INPUT"ROW ACROSS 1-300";D$
22 IF A$>260 THEN 16
23 IF C$>260 THEN 16
24 IF B$>300 THEN 16
25 IF D$>300 THEN 16
� % � 0,2:�:�:�:�:�:�:�:�:�:� C � 1,1:�:�:�:�:�:�:�:�:�:� M � 2,1 W � 0,6 t �" MENU" � �" 1. DRAW LINES" � �" 2. FILL IN" � �" 3. TEST" � �" 4. CLEAR"; � �� A$ � A$�"1"� 16 � A$�"2"� " � A$�"3"� 2 � A$�"4"� � < �:� 5 [ �:�:�:�:�:�"START OF LINE" t �"ROW DOWN 1-260";A$ � �"ROW ACROSS 1-300";B$ � �"END OF LINE" � �"ROW DOWN 1-260";C$ � �"ROW ACROSS 1-300";D$ � � A$�260 � 16 � � C$�260 � 16 � B$�300 � 16 � D$�300 � 16
GP@@.@%PA@. 0,2:.:.:.:.:.:.:.:.:.:.@cPB@. 1,1:.:.:.:.:.:.:.:.:.:.@mPC@. 2,1@wPD@. 0,6@TPE@." menu"@.PF@." 1. draw lines"@.PG@." 2. fill in"@.PH@." 3. test"@.PI@." 4. clear";@.PJ@.. a$@FQK@. a$."1". 16@TQL@. a$."2".@"QM@. a$."3".@2QN@. a$."4". .@<QO@.:. 5@[QP@.:.:.:.:.:."start of line"@TQQ@."row down 1-260";a$@.QR@."row across 1-300";b$@.QS@."end of line"@.QT@."row down 1-260";c$@.QU@."row across 1-300";d$@.QV@. a$.260 . 16@.QW@. c$.260 . 16@LRX@. b$.300 . 16@.RY@. d$.300 . 16@@@
00000000 07 10 00 00 e8 00 25 10 01 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 02 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 03 00 de 20 32 2c 31 00 57 10 04 00 |..M.... 2,1.W...| 00000050 e7 20 30 2c 36 00 74 10 05 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 06 00 99 22 20 20 20 20 20 20 20 |U"......" | 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 07 00 99 22 20 20 20 20 20 20 |ES"......" | 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 08 00 99 22 20 20 20 20 20 20 20 20 |"......" | 000000c0 20 20 20 20 33 2e 20 54 45 53 54 22 00 eb 10 09 | 3. TEST"....| 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 0a 00 a1 f9 |. CLEAR";.......| 000000f0 20 41 24 00 06 11 0b 00 8b 20 41 24 b2 22 31 22 | A$...... A$."1"| 00000100 a7 20 31 36 00 14 11 0c 00 8b 20 41 24 b2 22 32 |. 16...... A$."2| 00000110 22 a7 00 22 11 0d 00 8b 20 41 24 b2 22 33 22 a7 |"..".... A$."3".| 00000120 00 32 11 0e 00 8b 20 41 24 b2 22 34 22 a7 20 8a |.2.... A$."4". .| 00000130 00 3c 11 0f 00 99 3a 89 20 35 00 5b 11 10 00 99 |.<....:. 5.[....| 00000140 3a 99 3a 99 3a 99 3a 99 3a 99 22 53 54 41 52 54 |:.:.:.:.:."START| 00000150 20 4f 46 20 4c 49 4e 45 22 00 74 11 11 00 85 22 | OF LINE".t...."| 00000160 52 4f 57 20 44 4f 57 4e 20 31 2d 32 36 30 22 3b |ROW DOWN 1-260";| 00000170 41 24 00 8f 11 12 00 85 22 52 4f 57 20 41 43 52 |A$......"ROW ACR| 00000180 4f 53 53 20 31 2d 33 30 30 22 3b 42 24 00 a2 11 |OSS 1-300";B$...| 00000190 13 00 99 22 45 4e 44 20 4f 46 20 4c 49 4e 45 22 |..."END OF LINE"| 000001a0 00 bb 11 14 00 85 22 52 4f 57 20 44 4f 57 4e 20 |......"ROW DOWN | 000001b0 31 2d 32 36 30 22 3b 43 24 00 d6 11 15 00 85 22 |1-260";C$......"| 000001c0 52 4f 57 20 41 43 52 4f 53 53 20 31 2d 33 30 30 |ROW ACROSS 1-300| 000001d0 22 3b 44 24 00 e8 11 16 00 8b 20 41 24 b1 32 36 |";D$...... A$.26| 000001e0 30 20 a7 20 31 36 00 fa 11 17 00 8b 20 43 24 b1 |0 . 16...... C$.| 000001f0 32 36 30 20 a7 20 31 36 00 0c 12 18 00 8b 20 42 |260 . 16...... B| 00000200 24 b1 33 30 30 20 a7 20 31 36 00 1e 12 19 00 8b |$.300 . 16......| 00000210 20 44 24 b1 33 30 30 20 a7 20 31 36 00 00 00 | D$.300 . 16...| 0000021f
.