INLAY MAKER

00000000: 01 08 20 08 0A 00 8F 20  2A 2A 2A 20 54 41 50 45  |.. .... *** TAPE|
00000010: 20 49 4E 4C 41 59 20 4D  41 4B 45 52 20 2A 2A 2A  | INLAY MAKER ***|
00000020: 00 46 08 14 00 8F 20 2A  2A 2A 20 42 59 20 49 41  |.F.... *** BY IA|
00000030: 49 4E 20 4D 55 52 52 41  59 20 28 43 29 20 31 39  |IN MURRAY (C) 19|
00000040: 38 36 20 2A 2A 2A 00 67  08 1E 00 8F 20 2A 2A 2A  |86 ***.g.... ***|
00000050: 20 46 4F 52 20 59 4F 55  52 20 43 4F 4D 4D 4F 44  | FOR YOUR COMMOD|
00000060: 4F 52 45 20 2A 2A 2A 00  A9 08 23 00 47 41 24 B2  |ORE ***...#.GA$.|
00000070: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00000080: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000090: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000A0: 20 20 20 20 20 20 20 20  22 00 B8 08 28 00 86 20  |        "...(.. |
000000B0: 45 24 28 32 2C 31 35 29  00 D0 08 32 00 97 20 35  |E$(2,15)...2.. 5|
000000C0: 33 32 38 30 2C 36 3A 97  20 35 33 32 38 31 2C 36  |3280,6:. 53281,6|
000000D0: 00 FF 08 3C 00 99 20 22  93 05 11 11 11 1D 1D 1D  |...<.. "........|
000000E0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 12 20 54 41 50 45  |........... TAPE|
000000F0: 20 49 4E 4C 41 59 20 4D  41 4B 45 52 20 92 22 00  | INLAY MAKER .".|
00000100: 1F 09 46 00 99 20 22 11  11 11 47 49 56 45 20 54  |..F.. "...GIVE T|
00000110: 41 50 45 20 4E 55 4D 42  45 52 20 3A 20 22 3B 00  |APE NUMBER : ";.|
00000120: 59 09 50 00 54 4E 24 B2  22 22 3A 85 20 54 4E 24  |Y.P.TN$."":. TN$|
00000130: 3A 54 4E B2 B5 28 C5 28  54 4E 24 29 29 3A 8B 20  |:TN..(.(TN$)):. |
00000140: 54 4E B1 39 39 20 A7 20  99 20 22 54 4F 4F 20 42  |TN.99 . . "TOO B|
00000150: 49 47 21 22 3A 89 20 37  30 00 6B 09 55 00 8B 20  |IG!":. 70.k.U.. |
00000160: 54 4E 24 B2 22 22 20 A7  20 37 30 00 88 09 5A 00  |TN$."" . 70...Z.|
00000170: 99 20 22 11 11 47 49 56  45 20 54 41 50 45 20 4E  |. "..GIVE TAPE N|
00000180: 41 4D 45 20 3A 20 22 3B  00 BB 09 64 00 54 4E 24  |AME : ";...d.TN$|
00000190: B2 22 22 3A 85 20 54 4E  24 3A 8B 20 C3 28 54 4E  |."":. TN$:. .(TN|
000001A0: 24 29 B1 32 35 20 A7 20  99 20 22 11 54 4F 4F 20  |$).25 . . ".TOO |
000001B0: 4C 4F 4E 47 21 22 3A 89  20 39 30 00 CD 09 69 00  |LONG!":. 90...i.|
000001C0: 8B 20 54 4E 24 B2 22 22  20 A7 20 37 30 00 E9 09  |. TN$."" . 70...|
000001D0: 6E 00 4E 4C B2 32 3A 8B  20 C3 28 54 4E 24 29 B1  |n.NL.2:. .(TN$).|
000001E0: 31 32 20 A7 20 4E 4C B2  31 00 F1 09 78 00 49 B2  |12 . NL.1...x.I.|
000001F0: 31 00 13 0A 82 00 99 20  22 11 11 47 49 56 45 20  |1...... "..GIVE |
00000200: 53 49 44 45 22 3B 49 3B  22 54 49 54 4C 45 20 3A  |SIDE";I;"TITLE :|
00000210: 20 22 3B 00 4D 0A 8C 00  54 24 28 49 29 B2 22 22  | ";.M...T$(I).""|
00000220: 3A 85 20 54 24 28 49 29  3A 8B 20 C3 28 54 24 28  |:. T$(I):. .(T$(|
00000230: 49 29 29 B1 34 32 20 A7  20 99 20 22 11 54 4F 4F  |I)).42 . . ".TOO|
00000240: 20 4C 4F 4E 47 21 22 3A  89 20 31 33 30 00 64 0A  | LONG!":. 130.d.|
00000250: 8E 00 8B 20 C3 28 54 24  28 49 29 29 B1 30 20 A7  |... .(T$(I)).0 .|
00000260: 20 31 35 30 00 73 0A 90  00 8B 20 49 B2 31 20 A7  | 150.s.... I.1 .|
00000270: 20 39 30 00 8D 0A 91 00  8B 20 4E 45 28 31 29 B2  | 90...... NE(1).|
00000280: 30 20 A7 20 49 B2 31 3A  89 20 31 33 30 00 A3 0A  |0 . I.1:. 130...|
00000290: 92 00 49 B2 31 3A 4A B2  4E 45 28 31 29 3A 89 20  |..I.1:J.NE(1):. |
000002A0: 32 30 30 00 D0 0A 96 00  99 20 22 11 11 48 4F 57  |200...... "..HOW|
000002B0: 20 4D 41 4E 59 20 45 4E  54 52 49 45 53 20 46 4F  | MANY ENTRIES FO|
000002C0: 52 20 53 49 44 45 22 3B  49 3B 22 49 4E 44 45 58  |R SIDE";I;"INDEX|
000002D0: 00 E3 0A A0 00 99 20 22  28 30 2D 31 30 29 20 3A  |...... "(0-10) :|
000002E0: 20 22 3B 00 1C 0B AA 00  4E 45 24 B2 22 22 3A 85  | ";.....NE$."":.|
000002F0: 20 4E 45 24 3A 4E 45 28  49 29 B2 C5 28 4E 45 24  | NE$:NE(I)..(NE$|
00000300: 29 3A 8B 20 4E 45 28 49  29 B3 30 20 B0 20 4E 45  |):. NE(I).0 . NE|
00000310: 28 49 29 B1 31 30 20 A7  20 31 35 30 00 2F 0B AF  |(I).10 . 150./..|
00000320: 00 8B 20 4E 45 24 B2 22  22 20 A7 20 31 33 30 00  |.. NE$."" . 130.|
00000330: 43 0B B4 00 8B 20 4E 45  28 49 29 B2 30 20 A7 20  |C.... NE(I).0 . |
00000340: 32 33 30 00 4B 0B BE 00  4A B2 31 00 73 0B C8 00  |230.K...J.1.s...|
00000350: 99 20 22 11 47 49 56 45  20 53 49 44 45 22 3B 49  |. ".GIVE SIDE";I|
00000360: 3B 22 45 4E 54 52 59 20  23 22 3B 4A 3B 22 20 3A  |;"ENTRY #";J;" :|
00000370: 20 22 3B 00 B3 0B D2 00  45 24 28 49 2C 4A 29 B2  | ";.....E$(I,J).|
00000380: 22 22 3A 85 20 45 24 28  49 2C 4A 29 3A 8B 20 C3  |"":. E$(I,J):. .|
00000390: 28 45 24 28 49 2C 4A 29  29 B1 35 30 20 A7 20 99  |(E$(I,J)).50 . .|
000003A0: 20 22 11 54 4F 4F 20 4C  4F 4E 47 21 22 3A 89 20  | ".TOO LONG!":. |
000003B0: 32 30 30 00 CB 0B D4 00  8B 20 45 24 28 49 2C 4A  |200...... E$(I,J|
000003C0: 29 B3 B1 22 22 20 A7 20  32 32 30 00 E3 0B D6 00  |).."" . 220.....|
000003D0: 8B 20 4A B1 31 20 A7 20  4A B2 4A AB 31 3A 89 20  |. J.1 . J.J.1:. |
000003E0: 32 30 30 00 ED 0B D8 00  89 20 31 35 30 00 08 0C  |200...... 150...|
000003F0: DC 00 4A B2 4A AA 31 3A  8B 20 4A B3 B2 4E 45 28  |..J.J.1:. J..NE(|
00000400: 49 29 20 A7 20 32 30 30  00 1E 0C E6 00 49 B2 49  |I) . 200.....I.I|
00000410: AA 31 3A 8B 20 49 B3 33  20 A7 20 31 33 30 00 4A  |.1:. I.3 . 130.J|
00000420: 0C EB 00 54 4C B2 31 3A  8B 20 C3 28 54 24 28 31  |...TL.1:. .(T$(1|
00000430: 29 29 B1 32 31 20 B0 20  C3 28 54 24 28 32 29 29  |)).21 . .(T$(2))|
00000440: B1 32 31 20 A7 20 54 4C  B2 30 00 7B 0C F0 00 99  |.21 . TL.0.{....|
00000450: 20 22 11 11 11 11 11 11  1D 1D 1D 1D 1D 1D 1D 1D  | "..............|
00000460: 1D 1D 50 52 45 53 53 20  12 20 53 50 41 43 45 20  |..PRESS . SPACE |
00000470: 92 20 54 4F 20 50 52 49  4E 54 22 00 96 0C FA 00  |. TO PRINT".....|
00000480: A1 20 41 24 3A 8B 20 41  24 B3 B1 C7 28 31 33 29  |. A$:. A$...(13)|
00000490: 20 A7 20 32 35 35 00 B8  0C FB 00 8B 20 4E 45 28  | . 255...... NE(|
000004A0: 32 29 B1 30 20 A7 20 49  B2 32 3A 4A B2 4E 45 28  |2).0 . I.2:J.NE(|
000004B0: 32 29 3A 89 20 32 30 30  00 C6 0C FC 00 49 B2 32  |2):. 200.....I.2|
000004C0: 3A 89 20 31 35 30 00 DA  0C FF 00 8B 20 41 24 B3  |:. 150...... A$.|
000004D0: B1 22 20 22 20 A7 20 32  35 30 00 02 0D 04 01 99  |." " . 250......|
000004E0: 20 22 11 11 11 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  | "..............|
000004F0: 1D 1D 1D B0 C0 C0 C0 C0  C0 C0 C0 C0 C0 C0 C0 C0  |................|
00000500: AE 22 00 27 0D 0E 01 99  20 22 1D 1D 1D 1D 1D 1D  |.".'.... "......|
00000510: 1D 1D 1D 1D 1D 1D 1D 1D  DD 20 20 50 52 49 4E 54  |.........  PRINT|
00000520: 49 4E 47 20 20 DD 22 00  4C 0D 18 01 99 20 22 1D  |ING  .".L.... ".|
00000530: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D AD C0 C0  |................|
00000540: C0 C0 C0 C0 C0 C0 C0 C0  C0 C0 BD 22 00 77 0D 22  |...........".w."|
00000550: 01 9F 20 34 2C 36 3A 9F  20 31 2C 36 2C 31 3A 9F  |.. 4,6:. 1,6,1:.|
00000560: 20 32 2C 36 2C 32 3A 9F  20 33 2C 36 2C 33 3A 9F  | 2,6,2:. 3,6,3:.|
00000570: 20 34 34 2C 36 2C 34 00  8A 0D 2C 01 98 32 2C 30  | 44,6,4...,..2,0|
00000580: 3A 8F 20 2A 20 42 4C 41  43 4B 00 A0 0D 36 01 98  |:. * BLACK...6..|
00000590: 34 34 2C 30 3A 8F 20 2A  20 55 50 52 49 47 48 54  |44,0:. * UPRIGHT|
000005A0: 00 B4 0D 40 01 98 31 2C  22 48 22 3A 8F 20 2A 20  |...@..1,"H":. * |
000005B0: 48 4F 4D 45 00 D2 0D 4A  01 98 31 2C 22 44 22 2C  |HOME...J..1,"D",|
000005C0: 34 36 39 2C 30 3A 8F 20  2A 20 54 4F 50 20 4C 49  |469,0:. * TOP LI|
000005D0: 4E 45 00 F6 0D 54 01 98  31 2C 22 44 22 2C 34 36  |NE...T..1,"D",46|
000005E0: 39 2C AB 35 30 35 3A 8F  20 2A 20 47 4F 54 4F 20  |9,.505:. * GOTO |
000005F0: 42 4F 54 54 4F 4D 00 18  0E 5E 01 98 31 2C 22 44  |BOTTOM...^..1,"D|
00000600: 22 2C 30 2C AB 35 30 35  3A 8F 20 2A 20 42 4F 54  |",0,.505:. * BOT|
00000610: 54 4F 4D 20 4C 49 4E 45  00 3C 0E 68 01 98 31 2C  |TOM LINE.<.h..1,|
00000620: 22 4D 22 2C 37 36 2C AB  35 30 35 3A 8F 20 2A 20  |"M",76,.505:. * |
00000630: 47 4F 54 4F 20 53 50 49  4E 45 20 31 00 58 0E 72  |GOTO SPINE 1.X.r|
00000640: 01 98 31 2C 22 44 22 2C  37 36 2C 30 3A 8F 20 2A  |..1,"D",76,0:. *|
00000650: 20 53 50 49 4E 45 20 31  00 7A 0E 7C 01 98 31 2C  | SPINE 1.z.|..1,|
00000660: 22 4D 22 2C 31 33 39 2C  30 3A 8F 20 2A 20 47 4F  |"M",139,0:. * GO|
00000670: 54 4F 20 53 50 49 4E 45  20 32 00 9A 0E 86 01 98  |TO SPINE 2......|
00000680: 31 2C 22 44 22 2C 31 33  39 2C AB 35 30 35 3A 8F  |1,"D",139,.505:.|
00000690: 20 2A 20 53 50 49 4E 45  20 32 00 AE 0E 90 01 98  | * SPINE 2......|
000006A0: 31 2C 22 48 22 3A 8F 20  2A 20 48 4F 4D 45 00 C4  |1,"H":. * HOME..|
000006B0: 0E 9A 01 98 33 2C 33 3A  8F 20 2A 20 31 30 20 43  |....3,3:. * 10 C|
000006C0: 48 41 52 53 00 D9 0E A4  01 98 34 3A 8F 20 2A 20  |HARS......4:. * |
000006D0: 4C 49 4E 45 20 46 45 45  44 00 EA 0E AE 01 98 32  |LINE FEED......2|
000006E0: 2C 33 3A 8F 20 2A 20 52  45 44 00 0E 0F B8 01 4E  |,3:. * RED.....N|
000006F0: 4D 24 B2 C4 28 54 4E 29  3A 8B 20 54 4E B3 31 30  |M$..(TN):. TN.10|
00000700: 20 A7 20 4E 4D 24 B2 4E  4D 24 AA 22 20 22 00 23  | . NM$.NM$." ".#|
00000710: 0F C2 01 98 34 2C 22 20  20 20 54 41 50 45 22 3B  |....4,"   TAPE";|
00000720: 4E 4D 24 00 35 0F CC 01  98 32 2C 31 3A 8F 20 2A  |NM$.5....2,1:. *|
00000730: 20 42 4C 55 45 00 4F 0F  D6 01 98 33 2C 4E 4C 3A  | BLUE.O....3,NL:|
00000740: 8F 20 2A 20 32 30 2F 34  30 20 43 48 41 52 53 00  |. * 20/40 CHARS.|
00000750: 66 0F E0 01 98 31 2C 22  48 22 3A 98 31 2C 22 4D  |f....1,"H":.1,"M|
00000760: 22 2C 30 2C 33 30 00 84  0F EA 01 8B 20 4E 4C B2  |",0,30...... NL.|
00000770: 32 20 A7 20 98 34 2C 22  20 20 20 20 20 20 20 22  |2 . .4,"       "|
00000780: 3B 54 4E 24 00 AC 0F F4  01 8B 20 4E 4C B2 31 20  |;TN$...... NL.1 |
00000790: A7 20 98 34 2C 22 20 20  20 20 20 20 20 20 20 20  |. .4,"          |
000007A0: 20 20 20 20 22 3B 54 4E  24 3A 98 34 00 BA 0F FE  |    ";TN$:.4....|
000007B0: 01 81 20 49 B2 31 20 A4  20 32 00 CD 0F 08 02 98  |.. I.1 . 2......|
000007C0: 32 2C 32 3A 8F 20 2A 20  47 52 45 45 4E 00 D8 0F  |2,2:. * GREEN...|
000007D0: 12 02 98 31 2C 22 48 22  00 F2 0F 1C 02 98 33 2C  |...1,"H"......3,|
000007E0: 54 4C 3A 8F 20 2A 20 34  30 2F 38 30 20 43 48 41  |TL:. * 40/80 CHA|
000007F0: 52 53 00 1F 10 26 02 8B  20 54 4C B2 31 20 A7 20  |RS...&.. TL.1 . |
00000800: 98 34 2C 22 20 20 20 20  20 20 20 20 20 20 20 20  |.4,"            |
00000810: 20 22 3B 49 3B 22 2D 20  22 3B 54 24 28 49 29 00  | ";I;"- ";T$(I).|
00000820: 5A 10 30 02 8B 20 54 4C  B2 30 20 A7 20 98 34 2C  |Z.0.. TL.0 . .4,|
00000830: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00000840: 20 20 20 20 20 20 20 20  20 20 20 20 22 3B 49 3B  |            ";I;|
00000850: 22 2D 20 22 3B 54 24 28  49 29 00 6E 10 3A 02 98  |"- ";T$(I).n.:..|
00000860: 33 2C 30 3A 8F 20 2A 20  38 30 20 64 0B 53 00 82  |3,0:. * 80 d.S..|
00000870: 10 44 02 8B 20 4E 45 28  49 29 B2 30 20 A7 20 36  |.D.. NE(I).0 . 6|
00000880: 32 35 00 95 10 4E 02 98  32 2C 30 3A 8F 20 2A 20  |25...N..2,0:. * |
00000890: 42 4C 41 43 4B 00 A7 10  58 02 81 20 4A B2 31 20  |BLACK...X.. J.1 |
000008A0: A4 20 4E 45 28 49 29 00  D5 10 62 02 98 34 2C 22  |. NE(I)...b..4,"|
000008B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000008C0: 20 20 20 20 20 20 20 20  20 20 20 20 22 3B 45 24  |            ";E$|
000008D0: 28 49 2C 4A 29 00 DD 10  6C 02 82 20 4A 00 EA 10  |(I,J)...l.. J...|
000008E0: 71 02 98 34 3A 98 34 3A  98 34 00 F2 10 76 02 82  |q..4:.4:.4...v..|
000008F0: 20 49 00 1C 11 80 02 4D  42 B2 28 31 30 AC 28 4E  | I.....MB.(10.(N|
00000900: 45 28 31 29 AA 4E 45 28  32 29 29 29 AA 28 32 30  |E(1).NE(2))).(20|
00000910: AC 28 54 4C AA 31 29 29  AA 31 36 30 00 3D 11 8A  |.(TL.1)).160.=..|
00000920: 02 53 50 24 B2 22 54 41  50 45 22 AA C4 28 54 4E  |.SP$."TAPE"..(TN|
00000930: 29 3A 50 53 24 B2 22 20  22 AA 54 4E 24 00 53 11  |):PS$." ".TN$.S.|
00000940: 94 02 98 33 2C 32 3A 8F  20 2A 20 32 30 20 43 48  |...3,2:. * 20 CH|
00000950: 41 52 53 00 64 11 9E 02  98 32 2C 33 3A 8F 20 2A  |ARS.d....2,3:. *|
00000960: 20 52 45 44 00 6E 11 A8  02 98 34 34 2C 31 00 85  | RED.n....44,1..|
00000970: 11 B2 02 98 31 2C 22 48  22 3A 98 31 2C 22 4D 22  |....1,"H":.1,"M"|
00000980: 2C 30 2C 4D 42 00 98 11  BC 02 81 20 49 B2 31 20  |,0,MB...... I.1 |
00000990: A4 20 C3 28 53 50 24 29  00 AF 11 C6 02 98 31 2C  |. .(SP$)......1,|
000009A0: 22 49 22 3A 98 31 2C 22  52 22 2C 30 2C 31 38 00  |"I":.1,"R",0,18.|
000009B0: C8 11 D0 02 98 34 2C 22  20 20 20 20 22 AA CA 28  |.....4,"    "..(|
000009C0: 53 50 24 2C 49 2C 31 29  00 D0 11 DA 02 82 20 49  |SP$,I,1)...... I|
000009D0: 00 E2 11 E4 02 98 32 2C  31 3A 8F 20 2A 20 42 4C  |......2,1:. * BL|
000009E0: 55 45 00 FC 11 EE 02 98  33 2C 4E 4C 3A 8F 20 2A  |UE......3,NL:. *|
000009F0: 20 32 30 2F 34 30 20 43  48 41 52 53 00 0F 12 F8  | 20/40 CHARS....|
00000A00: 02 81 20 49 B2 31 20 A4  20 C3 28 50 53 24 29 00  |.. I.1 . .(PS$).|
00000A10: 21 12 02 03 98 31 2C 22  4D 22 2C 30 2C 39 AC 4E  |!....1,"M",0,9.N|
00000A20: 4C 00 43 12 0C 03 8B 20  4E 4C B2 32 20 A7 20 98  |L.C.... NL.2 . .|
00000A30: 34 2C 22 20 20 20 20 22  AA CA 28 50 53 24 2C 49  |4,"    "..(PS$,I|
00000A40: 2C 31 29 00 69 12 16 03  8B 20 4E 4C B2 31 20 A7  |,1).i.... NL.1 .|
00000A50: 20 98 34 2C 22 20 20 20  20 20 20 20 20 22 AA CA  | .4,"        "..|
00000A60: 28 50 53 24 2C 49 2C 31  29 00 71 12 20 03 82 20  |(PS$,I,1).q. .. |
00000A70: 49 00 97 12 2A 03 4D 42  B2 28 28 31 38 AC C3 28  |I...*.MB.((18..(|
00000A80: 53 50 24 29 29 AA 28 39  AC 4E 4C AC C3 28 50 53  |SP$)).(9.NL..(PS|
00000A90: 24 29 29 29 AA 34 30 00  A7 12 34 03 98 31 2C 22  |$))).40...4..1,"|
00000AA0: 4D 22 2C 30 2C 4D 42 00  C7 12 3E 03 43 31 B2 32  |M",0,MB...>.C1.2|
00000AB0: 3A 43 32 B2 31 3A 98 33  2C 31 3A 8F 20 2A 20 34  |:C2.1:.3,1:. * 4|
00000AC0: 30 20 43 48 41 52 53 00  F0 12 48 03 8B 20 54 4C  |0 CHARS...H.. TL|
00000AD0: B2 30 20 A7 20 43 31 B2  31 3A 43 32 B2 32 3A 98  |.0 . C1.1:C2.2:.|
00000AE0: 33 2C 30 3A 8F 20 2A 20  38 30 20 43 48 41 52 53  |3,0:. * 80 CHARS|
00000AF0: 00 0C 13 52 03 46 24 B2  54 4E 24 AA C8 28 47 41  |...R.F$.TN$..(GA|
00000B00: 24 2C 32 36 AB C3 28 54  4E 24 29 29 00 3A 13 5C  |$,26..(TN$)).:.\|
00000B10: 03 47 24 B2 22 31 20 2D  20 22 AA 54 24 28 31 29  |.G$."1 - ".T$(1)|
00000B20: AA C8 28 47 41 24 2C 28  28 43 32 AC 32 32 29 AB  |..(GA$,((C2.22).|
00000B30: C3 28 54 24 28 31 29 29  29 29 00 68 13 66 03 48  |.(T$(1)))).h.f.H|
00000B40: 24 B2 22 32 20 2D 20 22  AA 54 24 28 32 29 AA C8  |$."2 - ".T$(2)..|
00000B50: 28 47 41 24 2C 28 28 43  32 AC 32 32 29 AB C3 28  |(GA$,((C2.22)..(|
00000B60: 54 24 28 32 29 29 29 29  00 81 13 70 03 8B 20 54  |T$(2))))...p.. T|
00000B70: 24 28 31 29 B3 B1 54 24  28 32 29 20 A7 20 39 31  |$(1)..T$(2) . 91|
00000B80: 30 00 A6 13 7A 03 47 24  B2 C9 28 47 24 2C C3 28  |0...z.G$..(G$,.(|
00000B90: 47 24 29 AB 34 29 3A 48  24 B2 C8 28 47 41 24 2C  |G$).4):H$..(GA$,|
00000BA0: 43 32 AC 32 32 29 00 BC  13 84 03 8B 20 54 24 28  |C2.22)...... T$(|
00000BB0: 31 29 B2 54 4E 24 20 A7  20 39 39 30 00 CF 13 8E  |1).TN$ . 990....|
00000BC0: 03 98 32 2C 32 3A 8F 20  2A 20 47 52 45 45 4E 00  |..2,2:. * GREEN.|
00000BD0: E3 13 98 03 81 20 49 B2  31 20 A4 20 28 32 32 AC  |..... I.1 . (22.|
00000BE0: 43 32 29 00 07 14 A2 03  50 52 24 B2 CA 28 48 24  |C2).....PR$..(H$|
00000BF0: 2C 49 2C 31 29 AA 22 20  22 AA CA 28 47 24 2C 49  |,I,1)." "..(G$,I|
00000C00: 2C 31 29 AA 22 20 22 00  22 14 AC 03 8B 20 43 31  |,1)." ".".... C1|
00000C10: B2 31 20 A7 20 50 52 24  B2 22 20 20 20 22 AA 50  |.1 . PR$."   ".P|
00000C20: 52 24 00 2D 14 B6 03 98  34 2C 50 52 24 00 3F 14  |R$.-....4,PR$.?.|
00000C30: C0 03 98 31 2C 22 4D 22  2C 30 2C 34 AC 43 31 00  |...1,"M",0,4.C1.|
00000C40: 47 14 CA 03 82 20 49 00  6E 14 D4 03 98 31 2C 22  |G.... I.n....1,"|
00000C50: 4D 22 2C 30 2C 32 36 32  3A 8B 20 43 31 B2 32 20  |M",0,262:. C1.2 |
00000C60: A7 20 98 31 2C 22 4D 22  2C 30 2C 32 37 33 00 84  |. .1,"M",0,273..|
00000C70: 14 DE 03 98 33 2C 31 3A  8F 20 2A 20 34 30 20 43  |....3,1:. * 40 C|
00000C80: 48 41 52 53 00 96 14 E8  03 98 32 2C 31 3A 8F 20  |HARS......2,1:. |
00000C90: 2A 20 42 4C 55 45 00 A5  14 F2 03 81 20 49 B2 31  |* BLUE...... I.1|
00000CA0: 20 A4 20 32 36 00 BD 14  FC 03 98 34 2C 22 20 20  | . 26......4,"  |
00000CB0: 20 20 22 3B CA 28 46 24  2C 49 2C 31 29 00 CC 14  |  ";.(F$,I,1)...|
00000CC0: 06 04 98 31 2C 22 4D 22  2C 30 2C 38 00 D4 14 10  |...1,"M",0,8....|
00000CD0: 04 82 20 49 00 DE 14 1A  04 98 34 34 2C 30 00 F7  |.. I......44,0..|
00000CE0: 14 24 04 98 34 3A 98 34  3A 98 34 3A 98 34 3A 98  |.$..4:.4:.4:.4:.|
00000CF0: 34 3A 98 34 3A 98 34 00  20 15 2E 04 99 20 22 11  |4:.4:.4. .... ".|
00000D00: 11 11 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 50 52  |..............PR|
00000D10: 49 4E 54 49 4E 47 20 43  4F 4D 50 4C 45 54 45 22  |INTING COMPLETE"|
00000D20: 00 46 15 38 04 99 20 22  11 11 11 41 4E 4F 54 48  |.F.8.. "...ANOTH|
00000D30: 45 52 20 49 4E 4C 41 59  20 43 41 52 44 20 28 59  |ER INLAY CARD (Y|
00000D40: 2F 4E 29 20 3F 22 00 61  15 42 04 A1 20 41 24 3A  |/N) ?".a.B.. A$:|
00000D50: 8B 20 41 24 B2 22 59 22  20 A7 20 9C 3A 89 20 33  |. A$."Y" . .:. 3|
00000D60: 30 00 76 15 4C 04 8B 20  41 24 B3 B1 22 4E 22 20  |0.v.L.. A$.."N" |
00000D70: A7 20 31 30 39 30 00 7C  15 56 04 80 00 00 00 13  |. 1090.|.V......|

.. .... *** TAPE INLAY MAKER ***.F.... *
** BY IAIN MURRAY (C) 1986 ***.G.... ***
 FOR YOUR COMMODORE ***...#.GA$."       
                                        
        "...(.. E$(2,15).P.2.. 53280,6:.
 53281,6...<.. "................... TAPE
 INLAY MAKER ."...F.. "...GIVE TAPE NUMB
ER : ";.Y.P.TN$."":. TN$:TN..(E(TN$)):. 
TN.99 . . "TOO BIG!":. 70.K.U.. TN$."" .
 70...Z.. "..GIVE TAPE NAME : ";...D.TN$
."":. TN$:. C(TN$).25 . . ".TOO LONG!":.
 90.M.I.. TN$."" . 70...N.NL.2:. C(TN$).
12 . NL.1...X.I.1...... "..GIVE SIDE";I;
"TITLE : ";.M...T$(I)."":. T$(I):. C(T$(
I)).42 . . ".TOO LONG!":. 130.D.... C(T$
(I)).0 . 150.S.... I.1 . 90...... NE(1).
0 . I.1:. 130.....I.1:J.NE(1):. 200.P...
. "..HOW MANY ENTRIES FOR SIDE";I;"INDEX
... .. "(0-10) : ";.....NE$."":. NE$:NE(
I).E(NE$):. NE(I).0 . NE(I).10 . 150./..
.. NE$."" . 130.C.... NE(I).0 . 230.K...
J.1.S.H.. ".GIVE SIDE";I;"ENTRY #";J;" :
 ";...R.E$(I,J)."":. E$(I,J):. C(E$(I,J)
).50 . . ".TOO LONG!":. 200.K.T.. E$(I,J
).."" . 220...V.. J.1 . J.J.1:. 200...X.
. 150.....J.J.1:. J..NE(I) . 200.....I.I
.1:. I.3 . 130.J...TL.1:. C(T$(1)).21 . 
C(T$(2)).21 . TL.0.{.... "..............
..PRESS . SPACE . TO PRINT"...... A$:. A
$..G(13) . 255...... NE(2).0 . I.2:J.NE(
2):. 200.F...I.2:. 150.Z.... A$.." " . 2
50...... "..............................
.".'.... "...............  PRINTING  .".
L.... "............................".W."
.. 4,6:. 1,6,1:. 2,6,2:. 3,6,3:. 44,6,4.
..,..2,0:. * BLACK. .6..44,0:. * UPRIGHT
...@..1,"H":. * HOME.R.J..1,"D",469,0:. 
* TOP LINE...T..1,"D",469,.505:. * GOTO 
BOTTOM...^..1,"D",0,.505:. * BOTTOM LINE
.<.H..1,"M",76,.505:. * GOTO SPINE 1.X.R
..1,"D",76,0:. * SPINE 1.Z.|..1,"M",139,
0:. * GOTO SPINE 2......1,"D",139,.505:.
 * SPINE 2......1,"H":. * HOME.D....3,3:
. * 10 CHARS.Y....4:. * LINE FEED......2
,3:. * RED.....NM$.D(TN):. TN.10 . NM$.N
M$." ".#.B..4,"   TAPE";NM$.5.L..2,1:. *
 BLUE.O.V..3,NL:. * 20/40 CHARS.F....1,"
H":.1,"M",0,30...... NL.2 . .4,"       "
;TN$...... NL.1 . .4,"              ";TN
$:.4...... I.1 . 2.M....2,2:. * GREEN.X.
...1,"H"......3,TL:. * 40/80 CHARS...&..
 TL.1 . .4,"             ";I;"- ";T$(I).
Z.0.. TL.0 . .4,"                       
    ";I;"- ";T$(I).N.:..3,0:. * 80 D.S..
.D.. NE(I).0 . 625...N..2,0:. * BLACK...
X.. J.1 . NE(I).U.B..4,"                
            ";E$(I,J)...L.. J...Q..4:.4:
.4...V.. I.....MB.(10.(NE(1).NE(2))).(20
.(TL.1)).160.=...SP$."TAPE".D(TN):PS$." 
".TN$.S....3,2:. * 20 CHARS.D....2,3:. *
 RED.N....44,1......1,"H":.1,"M",0,MB...
... I.1 . C(SP$)...F..1,"I":.1,"R",0,18.
H.P..4,"    ".J(SP$,I,1).P.Z.. I......2,
1:. * BLUE......3,NL:. * 20/40 CHARS....
.. I.1 . C(PS$).!....1,"M",0,9.NL.C.... 
NL.2 . .4,"    ".J(PS$,I,1).I.... NL.1 .
 .4,"        ".J(PS$,I,1).Q. .. I...*.MB
.((18.C(SP$)).(9.NL.C(PS$))).40...4..1,"
M",0,MB.G.>.C1.2:C2.1:.3,1:. * 40 CHARS.
..H.. TL.0 . C1.1:C2.2:.3,0:. * 80 CHARS
...R.F$.TN$.H(GA$,26.C(TN$)).:.\.G$."1 -
 ".T$(1).H(GA$,((C2.22).C(T$(1)))).H.F.H
$."2 - ".T$(2).H(GA$,((C2.22).C(T$(2))))
...P.. T$(1)..T$(2) . 910...Z.G$.I(G$,C(
G$).4):H$.H(GA$,C2.22)...... T$(1).TN$ .
 990.O....2,2:. * GREEN...... I.1 . (22.
C2).....PR$.J(H$,I,1)." ".J(G$,I,1)." ".
".... C1.1 . PR$."   ".PR$.-....4,PR$.?.
...1,"M",0,4.C1.G.J.. I.N.T..1,"M",0,262
:. C1.2 . .1,"M",0,273......3,1:. * 40 C
HARS......2,1:. * BLUE...... I.1 . 26...
...4,"    ";J(F$,I,1).L....1,"M",0,8.T..
.. I......44,0...$..4:.4:.4:.4:.4:.4:.4.
 .... "...............PRINTING COMPLETE"
.F.8.. "...ANOTHER INLAY CARD (Y/N) ?".A
.B.. A$:. A$."Y" . .:. 30.V.L.. A$.."N" 
. 1090.|.V......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL