> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 0A 00 97 35 33 32 38 30 2C 32 3A 97 |.......53280,2:.|
00000010: 35 33 32 38 31 2C 31 35 00 4D 08 14 00 99 22 93 |53281,15.M....".|
00000020: 90 11 11 11 11 11 11 11 11 11 11 20 20 50 52 45 |........... PRE|
00000030: 53 53 20 12 31 92 20 46 4F 52 20 47 52 41 50 48 |SS .1. FOR GRAPH|
00000040: 49 43 53 20 4C 41 42 45 4C 53 11 11 22 00 7D 08 |ICS LABELS..".}.|
00000050: 1E 00 99 22 20 20 50 52 45 53 53 20 12 32 92 20 |..." PRESS .2. |
00000060: 46 4F 52 20 45 4E 48 41 4E 43 45 44 20 50 52 49 |FOR ENHANCED PRI|
00000070: 4E 54 49 4E 47 20 4C 41 42 45 4C 53 22 00 99 08 |NTING LABELS"...|
00000080: 28 00 A1 50 24 3A 50 B2 C5 28 50 24 29 3A 8B 50 |(..P$:P..(P$):.P|
00000090: B3 31 B0 50 B1 32 A7 34 30 00 D6 08 32 00 99 22 |.1.P.2.40...2.."|
000000A0: 93 22 3A 8D 36 33 30 3A 58 24 B2 22 12 20 20 20 |.":.630:X$.". |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 22 00 FE 08 3C 00 99 22 13 1C 11 | "...<.."...|
000000E0: 11 11 11 11 11 11 11 22 3B 3A 81 49 B2 38 A4 31 |.......";:.I.8.1|
000000F0: 32 3A 99 58 24 3B 3A 82 3A 99 22 92 90 22 00 1A |2:.X$;:.:.".."..|
00000100: 09 46 00 8B 50 B2 32 A7 99 22 13 1D 1D 1D 1D 1D |.F..P.2.."......|
00000110: 1D 1D 1D 1D 1C 12 20 20 92 22 00 52 09 50 00 99 |...... .".R.P..|
00000120: 22 13 12 1C 20 92 90 22 3A 8D 36 38 30 3A 99 43 |"... ..":.680:.C|
00000130: 50 24 22 20 20 20 28 31 29 20 20 44 45 53 49 47 |P$" (1) DESIG|
00000140: 4E 20 41 20 53 50 45 43 49 41 4C 20 4C 41 42 45 |N A SPECIAL LABE|
00000150: 4C 22 00 9B 09 5A 00 99 22 11 20 20 20 28 32 29 |L"...Z..". (2)|
00000160: 20 20 4C 4F 41 44 20 41 20 4C 41 42 45 4C 20 46 | LOAD A LABEL F|
00000170: 52 4F 4D 20 44 49 53 4B 22 3A 99 22 11 20 20 20 |ROM DISK":.". |
00000180: 28 33 29 20 20 43 48 41 4E 47 45 20 54 48 45 20 |(3) CHANGE THE |
00000190: 4C 41 42 45 4C 20 41 42 4F 56 45 00 C8 09 64 00 |LABEL ABOVE...d.|
000001A0: 99 22 11 20 20 20 28 34 29 20 20 53 41 56 45 20 |.". (4) SAVE |
000001B0: 54 48 45 20 4C 41 42 45 4C 20 41 42 4F 56 45 20 |THE LABEL ABOVE |
000001C0: 54 4F 20 44 49 53 4B 22 00 0E 0A 6E 00 99 22 11 |TO DISK"...n..".|
000001D0: 20 20 20 28 35 29 20 20 50 52 49 4E 54 20 54 48 | (5) PRINT TH|
000001E0: 45 20 4C 41 42 45 4C 20 41 42 4F 56 45 22 3A 99 |E LABEL ABOVE":.|
000001F0: 22 11 20 20 20 20 20 20 20 20 20 12 45 4E 54 45 |". .ENTE|
00000200: 52 20 59 4F 55 52 20 43 48 4F 49 43 45 92 00 2B |R YOUR CHOICE..+|
00000210: 0A 78 00 A1 4D 24 3A 4D B2 C5 28 4D 24 29 3A 8B |.x..M$:M..(M$):.|
00000220: 4D B3 31 B0 4D B1 35 A7 31 32 30 00 42 0A 82 00 |M.1.M.5.120.B...|
00000230: 91 4D 89 35 35 30 2C 34 36 30 2C 35 35 30 2C 33 |.M.550,460,550,3|
00000240: 37 30 00 5A 0A 8C 00 8F 20 2A 20 50 52 49 4E 54 |70.Z.... * PRINT|
00000250: 20 52 4F 55 54 49 4E 45 20 2A 00 91 0A 96 00 8D | ROUTINE *......|
00000260: 36 38 30 3A 99 43 50 24 22 11 11 11 50 4F 53 49 |680:.CP$"...POSI|
00000270: 54 49 4F 4E 20 54 48 45 20 4C 41 42 45 4C 20 49 |TION THE LABEL I|
00000280: 4E 20 54 48 45 20 50 52 49 4E 54 45 52 20 53 4F |N THE PRINTER SO|
00000290: 22 00 C0 0A A0 00 99 22 54 48 41 54 20 54 48 45 |"......"THAT THE|
000002A0: 20 54 4F 50 20 4F 46 20 54 48 45 20 4C 41 42 45 | TOP OF THE LABE|
000002B0: 4C 20 49 53 20 41 54 20 54 48 45 20 54 4F 50 22 |L IS AT THE TOP"|
000002C0: 00 EA 0A AA 00 99 22 4F 46 20 54 48 45 20 50 52 |......"OF THE PR|
000002D0: 49 4E 54 48 45 41 44 20 41 4E 44 20 50 52 45 53 |INTHEAD AND PRES|
000002E0: 53 20 52 45 54 55 52 4E 2E 22 00 01 0B B4 00 A1 |S RETURN."......|
000002F0: 58 24 3A 8B 58 24 B3 B1 C7 28 31 33 29 A7 31 38 |X$:.X$...(13).18|
00000300: 30 00 23 0B BE 00 9F 33 2C 33 3A 9F 34 2C 34 3A |0.#....3,3:.4,4:|
00000310: 9F 36 2C 34 2C 36 3A 98 36 2C C7 28 31 32 29 3A |.6,4,6:.6,.(12):|
00000320: 59 B2 34 00 42 0B C8 00 8B 50 B2 31 A7 58 B2 31 |Y.4.B....P.1.X.1|
00000330: 30 32 36 3A 81 49 B2 30 A4 37 3A 81 4A B2 33 A4 |026:.I.0.7:.J.3.|
00000340: 33 38 00 6C 0B D2 00 8B 50 B2 32 A7 58 B2 31 30 |38.l....P.2.X.10|
00000350: 33 35 3A 81 49 B2 30 A4 37 3A 50 49 24 B2 C7 28 |35:.I.0.7:PI$..(|
00000360: 31 34 29 3A 81 4A B2 31 32 A4 32 39 00 88 0B DC |14):.J.12.29....|
00000370: 00 53 49 B2 C2 28 58 29 3A 8B 53 49 B3 31 32 38 |.SI..(X):.SI.128|
00000380: AF 59 B2 33 A7 59 B2 32 00 9C 0B E6 00 8B 53 49 |.Y.3.Y.2......SI|
00000390: B1 31 32 37 AF 59 B2 34 A7 59 B2 31 00 B2 0B F0 |.127.Y.4.Y.1....|
000003A0: 00 8B 53 49 B1 31 32 37 A7 53 49 B2 53 49 AB 31 |..SI.127.SI.SI.1|
000003B0: 32 38 00 CA 0B FA 00 8B 53 49 B2 31 32 37 A7 53 |28......SI.127.S|
000003C0: 49 B2 31 39 31 3A 89 32 35 30 00 DE 0B 04 01 8B |I.191:.250......|
000003D0: 53 49 B1 39 35 A7 53 49 B2 53 49 AA 33 32 00 F2 |SI.95.SI.SI.32..|
000003E0: 0B 0E 01 8B 53 49 B1 36 33 A7 53 49 B2 53 49 AA |....SI.63.SI.SI.|
000003F0: 33 32 00 06 0C 18 01 8B 53 49 B3 33 32 A7 53 49 |32......SI.32.SI|
00000400: B2 53 49 AA 36 34 00 2B 0C 22 01 53 49 24 B2 C7 |.SI.64.+.".SI$..|
00000410: 28 53 49 29 3A 8B 59 B2 31 A7 53 49 24 B2 C7 28 |(SI):.Y.1.SI$..(|
00000420: 31 38 29 AA 53 49 24 3A 59 B2 33 00 47 0C 2C 01 |18).SI$:Y.3.G.,.|
00000430: 8B 59 B2 32 A7 53 49 24 B2 C7 28 31 34 36 29 AA |.Y.2.SI$..(146).|
00000440: 53 49 24 3A 59 B2 34 00 5F 0C 36 01 50 49 24 B2 |SI$:Y.4._.6.PI$.|
00000450: 50 49 24 AA 53 49 24 3A 58 B2 58 AA 31 3A 82 00 |PI$.SI$:X.X.1:..|
00000460: 88 0C 40 01 98 34 2C C7 28 31 35 29 50 49 24 C7 |..@..4,.(15)PI$.|
00000470: 28 38 29 3A 50 49 24 B2 22 22 3A 8B 20 50 B2 31 |(8):PI$."":. P.1|
00000480: 20 A7 20 58 B2 58 AA 34 00 98 0C 4A 01 8B 50 B2 | . X.X.4...J..P.|
00000490: 32 A7 58 B2 58 AA 32 32 00 AB 0C 54 01 59 B2 34 |2.X.X.22...T.Y.4|
000004A0: 3A 82 3A 98 34 2C C7 28 31 30 29 00 CD 0C 5E 01 |:.:.4,.(10)...^.|
000004B0: A0 33 3A A0 34 3A A0 36 3A 9F 31 30 2C 34 2C 31 |.3:.4:.6:.10,4,1|
000004C0: 30 3A 98 31 30 3A A0 31 30 3A 89 37 30 00 E4 0C |0:.10:.10:.70...|
000004D0: 68 01 8F 20 2A 20 53 41 56 45 20 52 4F 55 54 49 |h.. * SAVE ROUTI|
000004E0: 4E 45 20 2A 00 08 0D 72 01 8D 36 38 30 3A 99 43 |NE *...r..680:.C|
000004F0: 50 24 3A 85 22 53 41 56 45 20 46 49 4C 45 20 4E |P$:."SAVE FILE N|
00000500: 41 4D 45 22 3B 4E 46 24 00 17 0D 7C 01 8B 4E 46 |AME";NF$...|..NF|
00000510: 24 B2 22 22 A7 37 30 00 37 0D 86 01 9F 33 2C 33 |$."".70.7....3,3|
00000520: 3A 9F 38 2C 38 2C 38 2C 22 30 3A 22 AA 4E 46 24 |:.8,8,8,"0:".NF$|
00000530: AA 22 2C 53 2C 57 22 00 56 0D 90 01 8B 50 B2 31 |.",S,W".V....P.1|
00000540: A7 58 B2 31 30 32 36 3A 81 49 B2 30 A4 37 3A 81 |.X.1026:.I.0.7:.|
00000550: 4A B2 33 A4 33 38 00 76 0D 9A 01 8B 50 B2 32 A7 |J.3.38.v....P.2.|
00000560: 58 B2 31 30 33 35 3A 81 49 B2 30 A4 37 3A 81 4A |X.1035:.I.0.7:.J|
00000570: B2 31 32 A4 32 39 00 99 0D A4 01 59 B2 C2 28 58 |.12.29.....Y..(X|
00000580: 29 3A 98 38 2C 59 3A 58 B2 58 AA 31 3A 82 3A 8B |):.8,Y:X.X.1:.:.|
00000590: 50 B2 31 A7 58 B2 58 AA 34 00 A9 0D AE 01 8B 50 |P.1.X.X.4......P|
000005A0: B2 32 A7 58 B2 58 AA 32 32 00 B9 0D B8 01 82 3A |.2.X.X.22......:|
000005B0: A0 33 3A A0 38 3A 89 37 30 00 D0 0D C2 01 8F 20 |.3:.8:.70...... |
000005C0: 2A 20 4C 4F 41 44 20 52 4F 55 54 49 4E 45 20 2A |* LOAD ROUTINE *|
000005D0: 00 F4 0D CC 01 8D 36 38 30 3A 99 43 50 24 3A 85 |......680:.CP$:.|
000005E0: 22 4C 4F 41 44 20 46 49 4C 45 20 4E 41 4D 45 22 |"LOAD FILE NAME"|
000005F0: 3B 4E 46 24 00 03 0E D6 01 8B 4E 46 24 B2 22 22 |;NF$......NF$.""|
00000600: A7 37 30 00 23 0E E0 01 9F 33 2C 33 3A 9F 38 2C |.70.#....3,3:.8,|
00000610: 38 2C 38 2C 22 30 3A 22 AA 4E 46 24 AA 22 2C 53 |8,8,"0:".NF$.",S|
00000620: 2C 52 22 00 42 0E EA 01 8B 50 B2 31 A7 58 B2 31 |,R".B....P.1.X.1|
00000630: 30 32 36 3A 81 49 B2 30 A4 37 3A 81 4A B2 33 A4 |026:.I.0.7:.J.3.|
00000640: 33 38 00 62 0E F4 01 8B 50 B2 32 A7 58 B2 31 30 |38.b....P.2.X.10|
00000650: 33 35 3A 81 49 B2 30 A4 37 3A 81 4A B2 31 32 A4 |35:.I.0.7:.J.12.|
00000660: 32 39 00 8C 0E FE 01 84 38 2C 59 24 3A 59 B2 C5 |29......8,Y$:Y..|
00000670: 28 59 24 29 3A 97 58 2C 59 3A 58 B2 58 AA 31 3A |(Y$):.X,Y:X.X.1:|
00000680: 82 3A 8B 50 B2 31 A7 58 B2 58 AA 34 00 9C 0E 08 |.:.P.1.X.X.4....|
00000690: 02 8B 50 B2 32 A7 58 B2 58 AA 32 32 00 AC 0E 12 |..P.2.X.X.22....|
000006A0: 02 82 3A A0 33 3A A0 38 3A 89 37 30 00 C5 0E 1C |..:.3:.8:.70....|
000006B0: 02 8F 20 2A 20 44 45 53 49 47 4E 20 41 20 4C 41 |.. * DESIGN A LA|
000006C0: 42 45 4C 20 2A 00 FE 0E 26 02 8D 36 38 30 3A 99 |BEL *...&..680:.|
000006D0: 43 50 24 22 11 11 11 11 43 45 4E 54 45 52 20 59 |CP$"....CENTER Y|
000006E0: 4F 55 52 20 4C 41 42 45 4C 20 49 4E 20 54 48 45 |OUR LABEL IN THE|
000006F0: 20 42 4C 4F 43 4B 20 41 42 4F 56 45 2E 22 00 2E | BLOCK ABOVE."..|
00000700: 0F 30 02 99 22 11 52 45 4D 45 4D 42 45 52 20 54 |.0..".REMEMBER T|
00000710: 4F 20 4C 45 41 56 45 20 53 50 41 43 45 53 20 42 |O LEAVE SPACES B|
00000720: 45 54 57 45 45 4E 20 4C 49 4E 45 53 2E 22 00 51 |ETWEEN LINES.".Q|
00000730: 0F 3A 02 99 22 11 50 52 45 53 53 20 12 52 45 54 |.:..".PRESS .RET|
00000740: 55 52 4E 92 20 57 48 45 4E 20 44 4F 4E 45 2E 13 |URN. WHEN DONE..|
00000750: 22 00 5E 0F 44 02 8B 4D B2 33 89 36 30 30 00 67 |".^.D..M.3.600.g|
00000760: 0F 4E 02 8D 36 33 30 00 7C 0F 58 02 8B 50 B2 31 |.N..630.|.X..P.1|
00000770: A7 85 22 13 22 3B 4C 24 3A 89 37 30 00 9A 0F 62 |..".";L$:.70...b|
00000780: 02 8B 50 B2 32 A7 85 22 13 1D 1D 1D 1D 1D 1D 1D |..P.2.."........|
00000790: 1D 1D 22 3B 4C 24 3A 89 37 30 00 BD 0F 6C 02 8F |..";L$:.70...l..|
000007A0: 20 2A 20 53 55 42 52 4F 55 54 49 4E 45 20 46 4F | * SUBROUTINE FO|
000007B0: 52 20 54 4F 50 20 4C 49 4E 45 53 20 2A 00 FC 0F |R TOP LINES *...|
000007C0: 76 02 8B 50 B2 31 A7 58 24 B2 22 12 1C 20 20 92 |v..P.1.X$.".. .|
000007D0: 90 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000007E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007F0: 20 20 20 20 20 12 1C 20 20 92 90 22 00 3B 10 80 | .. ..".;..|
00000800: 02 8B 50 B2 32 A7 58 24 B2 22 12 1C 20 20 20 20 |..P.2.X$.".. |
00000810: 20 20 20 20 20 20 20 92 90 20 20 20 20 20 20 20 | .. |
00000820: 20 20 20 20 20 20 20 20 20 20 20 12 1C 20 20 20 | .. |
00000830: 20 20 20 20 20 20 20 20 92 90 22 00 58 10 8A 02 | ..".X...|
00000840: 99 22 13 22 3B 3A 81 49 B2 30 A4 37 3A 99 58 24 |.".";:.I.0.7:.X$|
00000850: 3B 3A 82 3A 99 22 13 22 00 5E 10 94 02 8E 00 84 |;:.:.".".^......|
00000860: 10 9E 02 8F 20 2A 20 53 55 42 52 4F 55 54 49 4E |.... * SUBROUTIN|
00000870: 45 20 46 4F 52 20 42 4F 54 54 4F 4D 20 4C 49 4E |E FOR BOTTOM LIN|
00000880: 45 53 20 2A 00 CB 10 A8 02 43 50 24 B2 22 13 11 |ES *.....CP$."..|
00000890: 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 58 24 |............":X$|
000008A0: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
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 22 00 E5 10 B2 02 | ".....|
000008D0: 99 43 50 24 3B 3A 81 49 B2 31 33 A4 32 33 3A 99 |.CP$;:.I.13.23:.|
000008E0: 58 24 3B 3A 82 00 17 11 BC 02 99 22 20 20 20 20 |X$;:......." |
000008F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000910: 20 20 20 13 22 3A 8E 00 00 00 | .":.... |
.......53280,2:.53281,15.M....".........
... PRESS .1. FOR GRAPHICS LABELS..".}.
..." PRESS .2. FOR ENHANCED PRINTING LA
BELS"...(..P$:P.E(P$):.P.1.P.2.40.V.2.."
.":.630:X$.".
"...<.."..........";:.I.8.1
2:.X$;:.:.".."...F..P.2.."............
.".R.P.."... ..":.680:.CP$" (1) DESIG
N A SPECIAL LABEL"...Z..". (2) LOAD A
LABEL FROM DISK":.". (3) CHANGE THE
LABEL ABOVE.H.D..". (4) SAVE THE LABE
L ABOVE TO DISK"...N..". (5) PRINT TH
E LABEL ABOVE":.". .ENTER YOUR C
HOICE..+.X..M$:M.E(M$):.M.1.M.5.120.B...
.M.550,460,550,370.Z.... * PRINT ROUTINE
*......680:.CP$"...POSITION THE LABEL I
N THE PRINTER SO"... .."THAT THE TOP OF
THE LABEL IS AT THE TOP"......"OF THE PR
INTHEAD AND PRESS RETURN."......X$:.X$..
G(13).180.#....3,3:.4,4:.6,4,6:.6,G(12):
Y.4.B.H..P.1.X.1026:.I.0.7:.J.3.38.L.R..
P.2.X.1035:.I.0.7:PI$.G(14):.J.12.29....
.SI.B(X):.SI.128.Y.3.Y.2......SI.127.Y.4
.Y.1......SI.127.SI.SI.128.J....SI.127.S
I.191:.250......SI.95.SI.SI.32......SI.6
3.SI.SI.32......SI.32.SI.SI.64.+.".SI$.G
(SI):.Y.1.SI$.G(18).SI$:Y.3.G.,..Y.2.SI$
.G(146).SI$:Y.4._.6.PI$.PI$.SI$:X.X.1:..
..@..4,G(15)PI$G(8):PI$."":. P.1 . X.X.4
...J..P.2.X.X.22...T.Y.4:.:.4,G(10).M.^.
3: 4: 6:.10,4,10:.10: 10:.70...H.. * SA
VE ROUTINE *...R..680:.CP$:."SAVE FILE N
AME";NF$...|..NF$."".70.7....3,3:.8,8,8,
"0:".NF$.",S,W".V....P.1.X.1026:.I.0.7:.
J.3.38.V....P.2.X.1035:.I.0.7:.J.12.29..
...Y.B(X):.8,Y:X.X.1:.:.P.1.X.X.4......P
.2.X.X.22......: 3: 8:.70.P.B.. * LOAD R
OUTINE *...L..680:.CP$:."LOAD FILE NAME"
;NF$...V..NF$."".70.#....3,3:.8,8,8,"0:"
.NF$.",S,R".B....P.1.X.1026:.I.0.7:.J.3.
38.B....P.2.X.1035:.I.0.7:.J.12.29......
8,Y$:Y.E(Y$):.X,Y:X.X.1:.:.P.1.X.X.4....
..P.2.X.X.22......: 3: 8:.70.E.... * DES
IGN A LABEL *...&..680:.CP$"....CENTER Y
OUR LABEL IN THE BLOCK ABOVE."...0..".RE
MEMBER TO LEAVE SPACES BETWEEN LINES.".Q
.:..".PRESS .RETURN. WHEN DONE..".^.D..M
.3.600.G.N..630.|.X..P.1..".";L$:.70...B
..P.2.."..........";L$:.70...L.. * SUBRO
UTINE FOR TOP LINES *...V..P.1.X$.".. .
. ..
..".;....P.2.X$.".. ..
.. ..".X....".";:.I
.0.7:.X$;:.:.".".^.......... * SUBROUTIN
E FOR BOTTOM LINES *.K...CP$."..........
....":X$."
"......CP$;:.I.13.23:.X$;:....
..."
.":....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL