DISK LABEL 11
FILE INFORMATION
FILENAME(S): DISK LABEL 11
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-10-19 22:48:31
APPEARS ON: 1 disk(s)
FILE HASH
a4a78e24539e384618a8e0f44e9a4ccbc022c96b96ae42bda0d6f20b31937d9f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES U38 | DISK LABEL 11 | PRG | Radd Maxx | 14 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 01 00 86 41 24 28 31 30 30 29 3A 8D |.......A$(100):.|
00000010: 33 30 30 30 00 1E 08 02 00 8D 34 30 30 30 00 28 |3000......4000.(|
00000020: 08 03 00 8D 35 30 30 30 00 44 08 0A 00 54 31 B2 |....5000.D...T1.|
00000030: 30 3A 9F 31 2C 38 2C 30 2C 22 24 30 22 3A 9F 34 |0:.1,8,0,"$0":.4|
00000040: 2C 34 2C 31 00 52 08 14 00 A1 23 31 2C 41 24 2C |,4,1.R....#1,A$,|
00000050: 42 24 00 60 08 1E 00 A1 23 31 2C 41 24 2C 42 24 |B$.`....#1,A$,B$|
00000060: 00 6E 08 28 00 A1 23 31 2C 41 24 2C 42 24 00 76 |.n.(..#1,A$,B$.v|
00000070: 08 32 00 43 B2 30 00 8D 08 3C 00 8B 20 41 24 B3 |.2.C.0...<.. A$.|
00000080: B1 22 22 20 A7 20 43 B2 C6 28 41 24 29 00 AA 08 |."" . C..(A$)...|
00000090: 46 00 8B 20 42 24 B3 B1 22 22 20 A7 20 43 B2 43 |F.. B$.."" . C.C|
000000A0: AA C6 28 42 24 29 AC 32 35 36 00 B8 08 4D 00 8B |..(B$).256...M..|
000000B0: 5A B2 31 A7 8D 35 30 30 00 CD 08 4F 00 5A B2 5A |Z.1..500...O.Z.Z|
000000C0: AA 31 3A 8B 5A B2 35 34 A7 8D 36 30 30 00 E6 08 |.1:.Z.54..600...|
000000D0: 5A 00 A1 23 31 2C 42 24 3A 8B 20 53 54 B3 B1 30 |Z..#1,B$:. ST..0|
000000E0: 20 A7 20 31 38 30 00 FB 08 64 00 8B 20 42 24 B3 | . 180...d.. B$.|
000000F0: B1 C7 28 33 34 29 20 A7 20 39 30 00 34 09 6E 00 |..(34) . 90.4.n.|
00000100: A1 23 31 2C 42 24 3A 8B 20 42 24 B3 B1 C7 28 33 |.#1,B$:. B$...(3|
00000110: 34 29 AF 42 24 B3 B1 C7 28 34 34 29 AF 42 24 B3 |4).B$...(44).B$.|
00000120: B1 C7 28 31 33 29 A7 53 24 B2 53 24 AA 42 24 3A |..(13).S$.S$.B$:|
00000130: 89 31 31 30 00 41 09 6F 00 8B 5A B2 31 A7 31 31 |.110.A.o..Z.1.11|
00000140: 34 00 4E 09 70 00 41 24 28 5A 29 B2 53 24 00 5D |4.N.p.A$(Z).S$.]|
00000150: 09 72 00 8B 5A B2 31 A7 4E 24 B2 53 24 00 6D 09 |.r..Z.1.N$.S$.m.|
00000160: 73 00 43 24 B2 22 22 3A 53 24 B2 22 22 00 7B 09 |s.C$."":S$."".{.|
00000170: 74 00 8B 5A B3 B1 31 A7 31 34 30 00 8B 09 75 00 |t..Z..1.140...u.|
00000180: 98 34 2C 4E 24 3B C7 28 31 30 29 00 AB 09 8C 00 |.4,N$;.(10).....|
00000190: 43 24 B2 43 24 AA 42 24 3A A1 23 31 2C 42 24 3A |C$.C$.B$:.#1,B$:|
000001A0: 8B 42 24 B3 B1 22 22 A7 31 34 30 00 C6 09 A0 00 |.B$.."".140.....|
000001B0: A1 20 54 24 3A 8B 20 54 24 B3 B1 22 22 20 A7 20 |. T$:. T$.."" . |
000001C0: 8D 20 32 30 30 30 00 D6 09 AA 00 8B 20 53 54 B2 |. 2000...... ST.|
000001D0: 30 20 A7 20 33 30 00 16 0A B4 00 54 32 B2 28 5A |0 . 30.....T2.(Z|
000001E0: AB 31 29 AD 33 3A 81 52 B2 32 A4 54 32 AA 31 3A |.1).3:.R.2.T2.1:|
000001F0: 98 34 2C 41 24 28 52 29 3B C7 28 39 29 3B 41 24 |.4,A$(R);.(9);A$|
00000200: 28 52 AA 54 32 29 3B C7 28 39 29 3B 41 24 28 52 |(R.T2);.(9);A$(R|
00000210: AA 32 AC 54 32 29 00 2E 0A B6 00 98 34 2C C7 28 |.2.T2)......4,.(|
00000220: 31 30 29 3A 82 3A 98 34 2C C7 28 31 30 29 00 4F |10):.:.4,.(10).O|
00000230: 0A BE 00 98 20 34 2C CA 28 C4 28 43 29 2C 32 29 |.... 4,.(.(C),2)|
00000240: 3B 22 20 42 4C 4F 43 4B 53 20 46 52 45 45 22 00 |;" BLOCKS FREE".|
00000250: 5A 0A C8 00 A0 31 3A A0 20 34 00 73 0A D2 00 81 |Z....1:. 4.s....|
00000260: 52 B2 30 A4 39 39 3A 41 24 28 52 29 B2 22 22 3A |R.0.99:A$(R)."":|
00000270: 82 3A 8E 00 79 0A F4 01 8F 00 A9 0A FE 01 98 20 |.:..y.......... |
00000280: 34 2C C7 28 32 37 29 3B 22 40 22 3B C7 28 32 37 |4,.(27);"@";.(27|
00000290: 29 3B 22 53 22 3B C7 28 31 29 3B C7 28 32 37 29 |);"S";.(1);.(27)|
000002A0: 22 57 22 3B C7 28 30 29 3B 00 C1 0A 1C 02 98 20 |"W";.(0);...... |
000002B0: 34 2C C7 28 32 37 29 3B 22 41 22 3B C7 28 35 29 |4,.(27);"A";.(5)|
000002C0: 3B 00 F2 0A 26 02 98 34 2C C7 28 32 37 29 3B C7 |;...&..4,.(27);.|
000002D0: 28 36 38 29 C7 28 31 38 29 C7 28 33 36 29 C7 28 |(68).(18).(36).(|
000002E0: 30 29 3A 98 34 2C C7 28 32 37 29 22 42 22 C7 28 |0):.4,.(27)"B".(|
000002F0: 33 29 00 F8 0A 57 02 8E 00 1E 0B 58 02 8F 20 2A |3)...W.....X.. *|
00000300: 2A 2A 2A 2A 20 4E 45 57 20 4C 41 42 45 4C 20 52 |**** NEW LABEL R|
00000310: 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A 00 34 |OUTINE *******.4|
00000320: 0B 62 02 81 54 B2 31 A4 34 3A 98 34 2C C7 28 31 |.b..T.1.4:.4,.(1|
00000330: 30 29 3A 82 00 6E 0B 6C 02 98 20 34 2C C7 28 32 |0):..n.l.. 4,.(2|
00000340: 37 29 3B 22 40 22 3B C7 28 32 37 29 3B 22 45 22 |7);"@";.(27);"E"|
00000350: 3B C7 28 32 37 29 3B 22 41 22 3B C7 28 35 29 3B |;.(27);"A";.(5);|
00000360: C7 28 32 37 29 3B 22 57 22 3B C7 28 30 29 00 A5 |.(27);"W";.(0)..|
00000370: 0B 76 02 5A B2 32 3A 57 38 B2 28 33 30 AB C3 28 |.v.Z.2:W8.(30..(|
00000380: 4E 24 29 29 AD 32 3A 81 B2 31 A4 57 38 3A 4E 24 |N$)).2:..1.W8:N$|
00000390: B2 22 20 22 AA 4E 24 3A 82 3A 98 34 2C 4E 24 3B |." ".N$:.:.4,N$;|
000003A0: C7 28 31 30 29 00 AE 0B 80 02 8D 35 30 30 00 B4 |.(10)......500..|
000003B0: 0B BB 02 8E 00 DA 0B BC 02 8F 20 2A 2A 2A 2A 2A |.......... *****|
000003C0: 20 4E 45 57 20 44 49 53 4B 20 4C 41 42 45 4C 20 | NEW DISK LABEL |
000003D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E6 0B C6 02 9F |**********......|
000003E0: 20 34 2C 34 2C 31 00 FE 0B CB 02 98 20 34 2C C7 | 4,4,1...... 4,.|
000003F0: 28 32 37 29 3B 22 41 22 3B C7 28 35 29 3B 00 18 |(27);"A";.(5);..|
00000400: 0C D0 02 81 54 B2 31 A4 32 30 AB 54 32 3A 98 34 |....T.1.20.T2:.4|
00000410: 2C C7 28 31 30 29 3A 82 00 24 0C DA 02 5A B2 30 |,.(10):..$...Z.0|
00000420: 3A 4A B2 31 00 2A 0C 1F 03 8E 00 71 0C E8 03 99 |:J.1.*.....q....|
00000430: 22 93 11 11 11 11 11 20 20 20 54 48 49 53 20 50 |"...... THIS P|
00000440: 52 4F 47 52 41 4D 20 50 52 49 4E 54 53 20 41 20 |ROGRAM PRINTS A |
00000450: 44 49 53 4B 20 4C 41 42 45 4C 2E 20 49 54 20 50 |DISK LABEL. IT P|
00000460: 52 49 4E 54 53 20 41 20 48 45 41 44 45 52 20 22 |RINTS A HEADER "|
00000470: 3B 00 B8 0C F2 03 99 22 4C 49 4E 45 20 41 4E 44 |;......"LINE AND|
00000480: 20 31 36 20 53 55 42 53 43 52 49 50 54 20 20 20 | 16 SUBSCRIPT |
00000490: 4C 49 4E 45 53 2E 20 49 46 20 59 4F 55 52 20 44 |LINES. IF YOUR D|
000004A0: 49 53 4B 20 47 4F 45 53 20 42 45 59 4F 4E 44 20 |ISK GOES BEYOND |
000004B0: 54 48 45 53 45 20 22 3B 00 01 0D FC 03 99 22 20 |THESE ";......" |
000004C0: 20 4C 49 4D 49 54 53 2C 20 49 54 20 57 49 4C 4C | LIMITS, IT WILL|
000004D0: 20 54 48 45 4E 20 47 4F 20 54 4F 20 54 48 45 20 | THEN GO TO THE |
000004E0: 4E 45 58 54 20 4C 41 42 2D 45 4C 2C 20 52 45 50 |NEXT LAB-EL, REP|
000004F0: 52 49 4E 54 20 54 48 45 20 48 45 41 44 45 52 22 |RINT THE HEADER"|
00000500: 3B 00 4D 0D 06 04 99 22 2C 20 41 4E 44 20 54 48 |;.M....", AND TH|
00000510: 45 4E 20 43 4F 4E 54 49 4E 2D 55 45 53 20 4F 4E |EN CONTIN-UES ON|
00000520: 2E 20 59 4F 55 20 4D 55 53 54 20 53 45 54 20 54 |. YOU MUST SET T|
00000530: 48 45 20 46 49 52 53 54 20 4C 41 42 45 4C 20 20 |HE FIRST LABEL |
00000540: 20 20 43 4F 52 52 45 43 54 4C 59 22 3B 00 96 0D | CORRECTLY";...|
00000550: 10 04 99 22 2E 20 49 46 20 54 48 45 20 46 49 52 |...". IF THE FIR|
00000560: 53 54 20 4C 41 42 45 4C 20 49 53 20 4F 46 46 2C |ST LABEL IS OFF,|
00000570: 20 20 20 54 48 45 4E 20 41 4C 4C 20 46 4F 4C 4C | THEN ALL FOLL|
00000580: 4F 57 49 4E 47 20 4C 41 42 45 4C 53 20 57 49 4C |OWING LABELS WIL|
00000590: 4C 20 42 45 22 3B 00 DF 0D 1A 04 99 22 20 4F 46 |L BE";......" OF|
000005A0: 46 2E 20 20 54 48 45 20 20 4C 41 42 45 4C 53 20 |F. THE LABELS |
000005B0: 41 52 45 20 52 49 47 48 54 20 4A 55 53 54 49 46 |ARE RIGHT JUSTIF|
000005C0: 49 45 44 2E 20 59 4F 55 20 20 20 20 4E 45 45 44 |IED. YOU NEED|
000005D0: 20 4F 4E 4C 59 20 41 44 4A 55 53 54 20 22 3B 00 | ONLY ADJUST ";.|
000005E0: 04 0E 24 04 99 22 54 48 45 20 52 49 47 48 54 20 |..$.."THE RIGHT |
000005F0: 48 41 4E 44 20 54 52 41 43 54 4F 52 20 46 45 45 |HAND TRACTOR FEE|
00000600: 44 2E 20 22 00 2D 0E 2E 04 99 22 11 20 20 20 20 |D. ".-....". |
00000610: 20 20 20 28 48 49 54 20 41 4E 59 20 4B 45 59 20 | (HIT ANY KEY |
00000620: 54 4F 20 43 4F 4E 54 49 4E 55 45 29 22 00 53 0E |TO CONTINUE)".S.|
00000630: 38 04 99 22 11 20 20 20 20 20 20 20 20 20 20 28 |8..". (|
00000640: 48 49 54 20 27 46 2D 37 27 20 54 4F 20 53 54 4F |HIT 'F-7' TO STO|
00000650: 50 29 22 00 67 0E 42 04 A1 55 24 3A 8B 55 24 B2 |P)".g.B..U$:.U$.|
00000660: 22 22 A7 31 30 39 30 00 75 0E 47 04 8B 55 24 B2 |"".1090.u.G..U$.|
00000670: 22 88 22 A7 80 00 7B 0E 4B 04 8E 00 92 0E D0 07 |"."...{.K.......|
00000680: 8B 20 54 24 B2 22 51 22 20 A7 20 A0 31 3A A0 34 |. T$."Q" . .1:.4|
00000690: 3A 8E 00 AA 0E DA 07 A1 20 54 24 3A 8B 20 54 24 |:....... T$:. T$|
000006A0: B2 22 22 20 A7 20 32 30 30 30 00 B0 0E E4 07 8E |."" . 2000......|
000006B0: 00 D5 0E B8 0B 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000006D0: 2A 2A 2A 2A 2A 00 FA 0E C2 0B 8F 20 2A 2A 2A 2A |*****...... ****|
000006E0: 2A 20 54 49 54 4C 45 20 50 41 47 45 20 52 4F 55 |* TITLE PAGE ROU|
000006F0: 54 49 4E 45 20 2A 2A 2A 2A 2A 00 1F 0F CC 0B 8F |TINE *****......|
00000700: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000710: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000720: 63 0F D6 0B 97 35 33 32 38 31 2C 30 3A 97 35 33 |c....53281,0:.53|
00000730: 32 38 30 2C 36 3A 99 22 93 9E 23 23 23 23 23 23 |280,6:."..######|
00000740: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000750: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000760: 23 23 22 00 94 0F E0 0B 99 22 91 23 20 20 20 20 |##"......".# |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000790: 20 20 23 22 00 C5 0F EA 0B 99 22 91 23 20 20 20 | #"......".# |
000007A0: 20 20 2A 2A 20 20 20 4C 41 42 45 4C 20 50 52 49 | ** LABEL PRI|
000007B0: 4E 54 45 52 20 23 32 20 20 20 20 2A 2A 20 20 20 |NTER #2 ** |
000007C0: 20 20 20 23 22 00 F6 0F F4 0B 99 22 91 23 20 20 | #"......".# |
000007D0: 20 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 23 22 00 27 10 FE 0B 99 22 91 23 20 | #".'....".# |
00000800: 20 20 20 20 20 20 20 20 20 46 4F 52 20 54 48 45 | FOR THE|
00000810: 20 43 4F 4D 4D 4F 44 4F 52 45 20 20 20 20 20 20 | COMMODORE |
00000820: 20 20 20 20 20 23 22 00 58 10 08 0C 99 22 91 23 | #".X....".#|
00000830: 20 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 20 20 20 20 | |
00000850: 20 20 20 20 20 20 23 22 00 89 10 12 0C 99 22 91 | #"......".|
00000860: 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |# |
00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000880: 20 20 20 20 20 20 20 23 22 00 BA 10 1C 0C 99 22 | #"......"|
00000890: 91 23 20 20 20 20 20 20 20 20 20 20 20 20 A6 A6 |.# ..|
000008A0: 20 20 20 20 20 A6 20 20 20 A6 20 20 20 20 20 20 | . . |
000008B0: 20 20 20 20 20 20 20 20 23 22 00 EB 10 26 0C 99 | #"...&..|
000008C0: 22 91 23 20 20 41 55 54 48 4F 52 20 20 20 A6 20 |".# AUTHOR . |
000008D0: 20 20 20 20 20 20 A6 20 20 20 A6 20 20 20 20 20 | . . |
000008E0: 20 20 20 20 20 20 20 20 20 23 22 00 1C 11 30 0C | #"...0.|
000008F0: 99 22 91 23 20 20 20 20 20 20 20 20 20 20 A6 20 |.".# . |
00000900: 20 20 20 20 20 20 20 A6 20 20 20 A6 20 20 20 20 | . . |
00000910: 20 20 20 20 20 20 20 20 20 20 23 22 00 4D 11 3A | #".M.:|
00000920: 0C 99 22 91 23 20 20 20 20 20 20 20 20 20 20 A6 |..".# .|
00000930: 20 20 20 20 20 20 20 20 A6 20 20 20 A6 20 20 20 | . . |
00000940: 20 20 20 20 20 20 20 20 20 20 20 23 22 00 7E 11 | #".~.|
00000950: 44 0C 99 22 91 23 20 20 20 20 20 20 20 20 20 20 |D..".# |
00000960: A6 A6 A6 A6 A6 A6 20 20 20 A6 A6 A6 A6 A6 A6 A6 |...... .......|
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 23 22 00 AF | #"..|
00000980: 11 4E 0C 99 22 91 23 20 20 20 20 20 20 20 20 20 |.N..".# |
00000990: 20 A6 20 20 20 20 A6 20 20 20 20 20 20 20 A6 20 | . . . |
000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 23 22 00 | #".|
000009B0: E0 11 58 0C 99 22 91 23 20 20 20 20 20 20 20 20 |..X..".# |
000009C0: 20 20 A6 20 20 20 20 A6 20 20 20 20 20 20 20 A6 | . . .|
000009D0: 20 20 20 54 4F 4D 20 20 20 20 20 20 20 20 23 22 | TOM #"|
000009E0: 00 11 12 62 0C 99 22 91 23 20 20 20 20 20 20 20 |...b..".# |
000009F0: 20 20 20 A6 A6 A6 A6 A6 A6 20 20 20 20 20 20 20 | ...... |
00000A00: A6 20 20 20 20 20 20 4B 45 4E 4E 45 44 59 20 23 |. KENNEDY #|
00000A10: 22 00 42 12 6C 0C 99 22 91 23 20 20 20 20 20 20 |".B.l..".# |
00000A20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A40: 23 22 00 73 12 76 0C 99 22 91 23 20 20 20 20 20 |#".s.v..".# |
00000A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A70: 20 23 22 00 A4 12 80 0C 99 22 91 23 20 20 20 20 | #"......".# |
00000A80: 20 20 20 4F 4E 20 45 50 53 4F 4E 20 4F 52 20 47 | ON EPSON OR G|
00000A90: 45 4D 49 4E 49 2D 31 30 20 20 20 20 20 20 20 20 |EMINI-10 |
00000AA0: 20 20 23 22 00 D5 12 8A 0C 99 22 91 23 20 20 20 | #"......".# |
00000AB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AD0: 20 20 20 23 22 00 06 13 94 0C 99 22 91 23 20 20 | #"......".# |
00000AE0: 20 20 20 20 20 20 20 20 20 20 20 20 50 52 49 4E | PRIN|
00000AF0: 54 45 52 53 20 20 20 20 20 20 20 20 20 20 20 20 |TERS |
00000B00: 20 20 20 20 23 22 00 37 13 9E 0C 99 22 91 23 20 | #".7....".# |
00000B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B30: 20 20 20 20 20 23 22 00 68 13 A8 0C 99 22 91 23 | #".h....".#|
00000B40: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000B50: 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 |################|
00000B60: 23 23 23 23 23 23 23 22 00 90 13 B2 0C 99 22 20 |#######"......" |
00000B70: 20 20 20 20 20 20 28 48 49 54 20 41 4E 59 20 4B | (HIT ANY K|
00000B80: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 29 22 |EY TO CONTINUE)"|
00000B90: 00 A4 13 BC 0C A1 52 24 3A 8B 52 24 B2 22 22 A7 |......R$:.R$."".|
00000BA0: 33 32 36 30 00 AA 13 E3 0C 8E 00 CF 13 A0 0F 8F |3260............|
00000BB0: 20 2A 2A 2A 2A 20 49 4E 53 54 52 55 43 54 49 4F | **** INSTRUCTIO|
00000BC0: 4E 53 20 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 00 |NS ROUTINE ****.|
00000BD0: FD 13 AA 0F 99 22 93 11 11 11 11 11 20 20 20 20 |....."...... |
00000BE0: 20 20 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 | DO YOU WANT I|
00000BF0: 4E 53 54 52 55 43 54 49 4F 4E 53 3F 22 00 1B 14 |NSTRUCTIONS?"...|
00000C00: B4 0F 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |...". |
00000C10: 20 20 20 20 20 28 59 2C 4E 29 22 00 3D 14 BE 0F | (Y,N)".=...|
00000C20: A1 20 44 24 3A 8B 44 24 B3 20 B1 22 59 22 20 AF |. D$:.D$. ."Y" .|
00000C30: 44 24 B3 20 B1 22 4E 22 A7 34 30 33 30 00 4E 14 |D$. ."N".4030.N.|
00000C40: C8 0F 8B 44 24 B2 22 4E 22 A7 34 30 39 30 00 58 |...D$."N".4090.X|
00000C50: 14 D2 0F 8D 31 30 30 30 00 8F 14 FA 0F 99 22 93 |....1000......".|
00000C60: 11 11 11 11 11 20 20 20 20 20 43 48 45 43 4B 20 |..... CHECK |
00000C70: 50 52 49 4E 54 45 52 20 28 4F 4E 20 4C 49 4E 45 |PRINTER (ON LINE|
00000C80: 3F 29 22 3A 81 54 B2 31 A4 31 30 30 30 3A 82 00 |?)":.T.1.1000:..|
00000C90: 95 14 03 10 8E 00 BA 14 88 13 8F 20 2A 2A 2A 2A |........... ****|
00000CA0: 2A 20 43 4F 4E 54 52 4F 4C 20 52 4F 55 54 49 4E |* CONTROL ROUTIN|
00000CB0: 45 20 2A 2A 2A 2A 2A 2A 2A 2A 00 C8 14 8D 13 8B |E ********......|
00000CC0: 5A B1 30 A7 8D 37 30 30 00 D7 14 8E 13 8B 4A B2 |Z.0..700......J.|
00000CD0: 31 A7 89 35 30 31 35 00 E3 14 92 13 9F 20 34 2C |1..5015...... 4,|
00000CE0: 34 2C 30 00 0F 15 97 13 98 20 34 2C C7 28 32 37 |4,0...... 4,.(27|
00000CF0: 29 3B 22 40 22 3B C7 28 32 37 29 3B 22 45 22 3B |);"@";.(27);"E";|
00000D00: C7 28 32 37 29 3B 22 41 22 3B C7 28 35 29 3B 00 |.(27);"A";.(5);.|
00000D10: 1B 15 9C 13 98 20 34 3A A0 20 34 00 35 15 A6 13 |..... 4:. 4.5...|
00000D20: 99 22 93 11 11 20 20 20 49 4E 53 45 52 54 20 44 |."... INSERT D|
00000D30: 49 53 4B 20 22 00 45 15 AB 13 81 54 B2 30 A4 31 |ISK ".E....T.0.1|
00000D40: 30 30 30 3A 82 00 71 15 B0 13 99 22 11 11 20 20 |000:..q....".. |
00000D50: 20 4C 41 42 45 4C 53 20 4F 4E 20 4C 45 46 54 20 | LABELS ON LEFT |
00000D60: 53 49 44 45 20 4F 46 20 50 52 49 4E 54 45 52 3F |SIDE OF PRINTER?|
00000D70: 22 00 81 15 B5 13 81 54 B2 30 A4 31 30 30 30 3A |"......T.0.1000:|
00000D80: 82 00 A6 15 BA 13 99 22 11 11 20 20 20 43 48 45 |.......".. CHE|
00000D90: 43 4B 20 50 52 49 4E 54 45 52 20 28 4F 4E 20 4C |CK PRINTER (ON L|
00000DA0: 49 4E 45 3F 29 22 00 B6 15 BF 13 81 54 B2 30 A4 |INE?)"......T.0.|
00000DB0: 31 30 30 30 3A 82 00 D4 15 C4 13 99 22 11 11 20 |1000:.......".. |
00000DC0: 20 20 48 49 54 20 46 37 20 57 48 45 4E 20 52 45 | HIT F7 WHEN RE|
00000DD0: 41 44 59 22 00 EB 15 CE 13 A1 20 51 24 3A 8B 51 |ADY"...... Q$:.Q|
00000DE0: 24 B3 B1 22 88 22 A7 35 30 37 30 00 21 16 D8 13 |$..".".5070.!...|
00000DF0: 99 22 93 11 11 11 11 11 11 11 11 11 11 20 20 20 |."........... |
00000E00: 20 50 4C 45 41 53 45 20 53 54 41 4E 44 20 42 59 | PLEASE STAND BY|
00000E10: 20 50 52 49 4E 54 49 4E 47 20 4C 41 42 45 4C 21 | PRINTING LABEL!|
00000E20: 22 00 4E 16 E2 13 8D 31 30 20 3A 99 22 93 11 11 |".N....10 :."...|
00000E30: 11 20 20 20 50 52 49 4E 54 20 41 4E 4F 54 48 45 |. PRINT ANOTHE|
00000E40: 52 20 44 49 53 4B 20 4C 41 42 45 4C 3F 22 00 66 |R DISK LABEL?".f|
00000E50: 16 EC 13 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
00000E60: 28 59 2C 4E 29 22 00 84 16 F6 13 A1 52 24 3A 8B |(Y,N)"......R$:.|
00000E70: 52 24 B3 B1 22 59 22 AF 52 24 B3 B1 22 4E 22 A7 |R$.."Y".R$.."N".|
00000E80: 35 31 31 30 00 95 16 00 14 8B 52 24 B2 22 59 22 |5110......R$."Y"|
00000E90: A7 35 30 30 30 00 B3 16 0A 14 97 35 33 32 38 31 |.5000......53281|
00000EA0: 2C 31 3A 97 35 33 32 38 30 2C 32 3A 99 22 93 1C |,1:.53280,2:."..|
00000EB0: 22 3A 80 00 00 00 |":.... |
.......A$(100):.3000......4000.(....5000
.D...T1.0:.1,8,0,"$0":.4,4,1.R....#1,A$,
B$.`....#1,A$,B$.N.(..#1,A$,B$.V.2.C.0..
.<.. A$.."" . C.F(A$)...F.. B$.."" . C.C
.F(B$).256...M..Z.1..500.M.O.Z.Z.1:.Z.54
..600...Z..#1,B$:. ST..0 . 180...D.. B$.
.G(34) . 90.4.N..#1,B$:. B$..G(34).B$..G
(44).B$..G(13).S$.S$.B$:.110.A.O..Z.1.11
4.N.P.A$(Z).S$.].R..Z.1.N$.S$.M.S.C$."":
S$."".{.T..Z..1.140...U..4,N$;G(10).....
C$.C$.B$:.#1,B$:.B$.."".140.F. .. T$:. T
$.."" . . 2000.V.... ST.0 . 30.....T2.(Z
.1).3:.R.2.T2.1:.4,A$(R);G(9);A$(R.T2);G
(9);A$(R.2.T2)......4,G(10):.:.4,G(10).O
.... 4,J(D(C),2);" BLOCKS FREE".Z.H. 1:
4.S.R..R.0.99:A$(R)."":.:..Y..........
4,G(27);"@";G(27);"S";G(1);G(27)"W";G(0)
;.A.... 4,G(27);"A";G(5);...&..4,G(27);G
(68)G(18)G(36)G(0):.4,G(27)"B"G(3)...W..
...X.. ***** NEW LABEL ROUTINE *******.4
.B..T.1.4:.4,G(10):..N.L.. 4,G(27);"@";G
(27);"E";G(27);"A";G(5);G(27);"W";G(0)..
.V.Z.2:W8.(30.C(N$)).2:..1.W8:N$." ".N$:
.:.4,N$;G(10)......500.......Z.... *****
NEW DISK LABEL **********...F.. 4,4,1..
.K.. 4,G(27);"A";G(5);...P..T.1.20.T2:.4
,G(10):..$.Z.Z.0:J.1.*.....Q...."......
THIS PROGRAM PRINTS A DISK LABEL. IT P
RINTS A HEADER ";......"LINE AND 16 SUBS
CRIPT LINES. IF YOUR DISK GOES BEYOND
THESE ";......" LIMITS, IT WILL THEN GO
TO THE NEXT LAB-EL, REPRINT THE HEADER"
;.M....", AND THEN CONTIN-UES ON. YOU MU
ST SET THE FIRST LABEL CORRECTLY";...
...". IF THE FIRST LABEL IS OFF, THEN
ALL FOLLOWING LABELS WILL BE";......" OF
F. THE LABELS ARE RIGHT JUSTIFIED. YOU
NEED ONLY ADJUST ";...$.."THE RIGHT
HAND TRACTOR FEED. ".-....". (HIT
ANY KEY TO CONTINUE)".S.8..". (
HIT 'F-7' TO STOP)".G.B..U$:.U$."".1090.
U.G..U$."."...{.K.....P.. T$."Q" . 1: 4
:....Z.. T$:. T$."" . 2000.......U.... *
*****************************...B.. ****
* TITLE PAGE ROUTINE *****...L.. *******
***********************.C.V..53281,0:.53
280,6:."..##############################
##########"......".#
#".E....".# ** L
ABEL PRINTER #2 ** #"......".#
#".'
....".# FOR THE COMMODORE
#".X....".#
#"......".#
#"......".#
.. . . #"...&..
".# AUTHOR . . .
#"...0..".# . . .
#".M.:..".# .
. . #".~.D..".#
...... ....... #"...N..".#
. . . #".
..X..".# . . . TOM
#"...B..".# ......
. KENNEDY #".B.L..".#
#".S.V..".#
#".....
.".# ON EPSON OR GEMINI-10
#".U....".#
#"......".# PRIN
TERS #".7....".#
#".H....".#
#######################################"
......" (HIT ANY KEY TO CONTINUE)"
......R$:.R$."".3260.......O. .. **** IN
STRUCTIONS ROUTINE ****......"......
DO YOU WANT INSTRUCTIONS?"......".
(Y,N)".=.... D$:.D$. ."Y" .
D$. ."N".4030.N.H..D$."N".4090.X.R..1000
......"...... CHECK PRINTER (ON LINE
?)":.T.1.1000:............. ***** CONTRO
L ROUTINE ********.H....Z.0..700.W....J.
1..5015...... 4,4,0...... 4,G(27);"@";G(
27);"E";G(27);"A";G(5);...... 4: 4.5...
."... INSERT DISK ".E....T.0.1000:..Q.
...".. LABELS ON LEFT SIDE OF PRINTER?
"......T.0.1000:.......".. CHECK PRINT
ER (ON LINE?)"......T.0.1000:..T.D.."..
HIT F7 WHEN READY"...N.. Q$:.Q$..".".5
070.!.X.."........... PLEASE STAND BY
PRINTING LABEL!".N....10 :.".... PRIN
T ANOTHER DISK LABEL?".F...."
(Y,N)"......R$:.R$.."Y".R$.."N".5110....
..R$."Y".5000......53281,1:.53280,2:."..
":....
> CLICK IMAGE PREVIEW FOR FULL MODAL