JIMS LABELER
FILE INFORMATION
FILENAME(S): JIMS LABELER
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-11-30 18:12:59
APPEARS ON: 1 disk(s)
FILE HASH
d610af6460ab9688424b6bbe11b21dfbcb4f53e5dbf0309695736c7801ee46e7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JIM WHITAKER | JIMS LABELER | PRG | Sailor, Ganheden | 17 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 0A 00 97 35 33 32 38 30 2C 31 3A 97 |.......53280,1:.|
00000010: 35 33 32 38 31 2C 36 00 4C 08 64 00 99 22 93 05 |53281,6.L.d.."..|
00000020: 22 3A 99 22 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 20 |":." ******** |
00000030: 44 49 53 4B 20 4C 41 42 45 4C 45 52 20 43 3D 36 |DISK LABELER C=6|
00000040: 34 20 2A 2A 2A 2A 2A 2A 2A 2A 11 22 00 C0 08 6E |4 ********."...n|
00000050: 00 99 22 11 20 20 20 20 20 20 54 48 45 20 44 49 |..". THE DI|
00000060: 53 4B 20 4C 41 42 45 4C 45 52 20 50 52 4F 47 52 |SK LABELER PROGR|
00000070: 41 4D 20 59 4F 55 22 3A 99 22 20 20 20 20 20 20 |AM YOU":." |
00000080: 20 20 20 20 41 52 45 20 41 42 4F 55 54 20 54 4F | ARE ABOUT TO|
00000090: 20 55 54 49 4C 49 5A 45 22 3A 99 22 20 20 20 20 | UTILIZE":." |
000000A0: 20 20 53 55 50 50 4F 52 54 53 20 43 4F 4D 4D 4F | SUPPORTS COMMO|
000000B0: 44 4F 52 45 20 50 52 49 4E 54 45 52 53 21 21 22 |DORE PRINTERS!!"|
000000C0: 00 0F 09 82 00 99 22 11 11 20 20 20 20 20 20 20 |......".. |
000000D0: 20 20 54 48 45 20 4C 41 42 45 4C 53 20 54 48 41 | THE LABELS THA|
000000E0: 54 20 59 4F 55 20 55 53 45 22 3A 99 22 20 20 20 |T YOU USE":." |
000000F0: 20 20 20 20 20 20 4D 55 53 54 20 42 45 20 31 20 | MUST BE 1 |
00000100: 31 2F 32 20 58 20 34 20 49 4E 43 48 45 53 22 00 |1/2 X 4 INCHES".|
00000110: 80 09 87 00 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000120: 54 4F 20 41 4C 4C 4F 57 20 50 52 49 4E 54 49 4E |TO ALLOW PRINTIN|
00000130: 47 20 54 48 45 22 3A 99 22 20 20 20 20 20 20 20 |G THE":." |
00000140: 20 20 20 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 | INFORMATION |
00000150: 46 4F 52 20 53 49 44 45 22 3A 99 22 20 20 20 20 |FOR SIDE":." |
00000160: 20 20 20 20 20 4F 4E 45 20 28 31 29 20 41 4E 44 | ONE (1) AND|
00000170: 20 53 49 44 45 20 54 57 4F 20 28 32 29 21 21 22 | SIDE TWO (2)!!"|
00000180: 00 B6 09 96 00 99 22 11 11 11 11 11 22 3A 99 22 |......".....":."|
00000190: 20 20 20 20 20 2A 2A 2A 20 50 52 45 53 53 20 52 | *** PRESS R|
000001A0: 45 54 55 52 4E 20 54 4F 20 43 4F 4E 54 49 4E 55 |ETURN TO CONTINU|
000001B0: 45 20 2A 2A 2A 22 00 E3 09 A0 00 99 22 20 20 20 |E ***"......" |
000001C0: 20 20 2A 2A 2A 20 20 20 50 52 45 53 53 20 53 50 | *** PRESS SP|
000001D0: 41 43 45 42 41 52 20 54 4F 20 45 4E 44 20 20 2A |ACEBAR TO END *|
000001E0: 2A 2A 22 00 EC 09 AA 00 A1 20 4B 24 00 FE 09 B4 |**"...... K$....|
000001F0: 00 8B 20 4B 24 B2 C7 28 33 32 29 A7 20 80 00 15 |.. K$..(32). ...|
00000200: 0A BE 00 8B 20 4B 24 B3 B1 C7 28 31 33 29 A7 20 |.... K$...(13). |
00000210: 89 20 31 37 30 00 5B 0A C8 00 99 22 93 11 11 11 |. 170.[...."....|
00000220: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 |DO YOU WISH TO R|
00000230: 45 41 44 22 3A 99 22 20 54 48 45 20 44 49 52 45 |EAD":." THE DIRE|
00000240: 43 54 4F 52 59 20 4F 46 20 53 49 44 45 20 4F 4E |CTORY OF SIDE ON|
00000250: 45 20 3F 20 20 28 59 2F 4E 29 22 00 65 0A D2 00 |E ? (Y/N)".e...|
00000260: A1 20 41 4E 24 00 78 0A DC 00 8B 20 41 4E 24 B2 |. AN$.x.... AN$.|
00000270: 22 4E 22 A7 20 32 39 30 00 8B 0A E6 00 8B 20 41 |"N". 290...... A|
00000280: 4E 24 B2 22 59 22 A7 20 32 35 30 00 9F 0A F0 00 |N$."Y". 250.....|
00000290: 8B 20 41 4E 24 B3 B1 22 59 22 A7 20 32 31 30 00 |. AN$.."Y". 210.|
000002A0: F8 0A FA 00 99 22 93 11 11 45 4E 53 55 52 45 20 |....."...ENSURE |
000002B0: 44 49 53 4B 20 53 49 44 45 20 4F 4E 45 20 49 53 |DISK SIDE ONE IS|
000002C0: 20 49 4E 20 54 48 45 20 44 52 49 56 45 21 21 21 | IN THE DRIVE!!!|
000002D0: 22 3A 99 22 11 20 20 20 20 20 50 52 45 53 53 20 |":.". PRESS |
000002E0: 28 53 50 41 43 45 2D 42 41 52 29 20 54 4F 20 43 |(SPACE-BAR) TO C|
000002F0: 4F 4E 54 49 4E 55 45 22 00 02 0B 04 01 A1 20 54 |ONTINUE"...... T|
00000300: 54 24 00 19 0B 0E 01 8B 20 54 54 24 B3 B1 C7 28 |T$...... TT$...(|
00000310: 33 32 29 20 A7 20 32 36 30 00 24 0B 18 01 8D 20 |32) . 260.$.... |
00000320: 31 30 39 30 00 34 0B 22 01 42 24 B2 22 4A 49 4D |1090.4.".B$."JIM|
00000330: 20 57 2E 22 00 5D 0B 2C 01 57 57 24 B2 22 4C 4F | W.".].,.WW$."LO|
00000340: 41 44 22 AA C7 28 33 34 29 AA 22 2A 22 AA C7 28 |AD"..(34)."*"..(|
00000350: 33 34 29 AA C7 28 34 34 29 AA 22 38 22 00 90 0B |34)..(44)."8"...|
00000360: 36 01 58 58 24 B2 22 4C 4F 41 44 22 AA C7 28 33 |6.XX$."LOAD"..(3|
00000370: 34 29 AA 22 2A 22 AA C7 28 33 34 29 AA C7 28 34 |4)."*"..(34)..(4|
00000380: 34 29 AA 22 38 22 AA C7 28 34 34 29 AA 22 31 22 |4)."8"..(44)."1"|
00000390: 00 C8 0B 40 01 8F 20 50 52 49 4E 54 22 93 11 05 |...@.. PRINT"...|
000003A0: 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 20 44 49 53 4B | ******** DISK|
000003B0: 20 4C 41 42 45 4C 45 52 20 43 3D 36 34 20 2A 2A | LABELER C=64 **|
000003C0: 2A 2A 2A 2A 2A 2A 11 22 00 E6 0B 4A 01 45 45 24 |******."...J.EE$|
000003D0: B2 22 53 49 44 45 20 31 22 3A 46 46 24 B2 22 53 |."SIDE 1":FF$."S|
000003E0: 49 44 45 20 32 22 00 10 0C 54 01 99 22 11 45 4E |IDE 2"...T..".EN|
000003F0: 54 45 52 20 44 49 53 4B 20 4E 41 4D 45 20 28 53 |TER DISK NAME (S|
00000400: 49 44 45 20 31 29 20 3A 20 11 22 3A 85 20 41 24 |IDE 1) : .":. A$|
00000410: 00 23 0C 5E 01 8B 20 41 24 B2 22 20 22 20 A7 33 |.#.^.. A$." " .3|
00000420: 34 30 20 00 4F 0C 68 01 99 22 11 45 4E 54 45 52 |40 .O.h..".ENTER|
00000430: 20 4C 4F 41 44 20 49 4E 53 54 52 55 43 54 49 4F | LOAD INSTRUCTIO|
00000440: 4E 53 20 28 53 49 44 45 20 31 29 20 3A 20 22 00 |NS (SIDE 1) : ".|
00000450: 7E 0C 72 01 99 A3 35 29 2C 22 11 11 41 3D 4C 4F |~.r...5),"..A=LO|
00000460: 41 44 22 AA C7 28 33 34 29 3B 22 2A 22 3B AA C7 |AD"..(34);"*";..|
00000470: 28 33 34 29 AA C7 28 34 34 29 3B 22 38 22 00 B5 |(34)..(44);"8"..|
00000480: 0C 7C 01 99 A3 35 29 2C 22 42 3D 4C 4F 41 44 22 |.|...5),"B=LOAD"|
00000490: AA C7 28 33 34 29 3B 22 2A 22 3B AA C7 28 33 34 |..(34);"*";..(34|
000004A0: 29 AA C7 28 34 34 29 3B 22 38 22 AA C7 28 34 34 |)..(44);"8"..(44|
000004B0: 29 3B 22 31 22 00 E8 0C 86 01 99 A3 35 29 2C 22 |);"1".......5),"|
000004C0: 43 3D 4C 4F 41 44 22 AA C7 28 33 34 29 3B 22 46 |C=LOAD"..(34);"F|
000004D0: 49 4C 45 4E 41 4D 45 22 AA C7 28 33 34 29 AA C7 |ILENAME"..(34)..|
000004E0: 28 34 34 29 3B 22 38 22 00 25 0D 90 01 99 A3 35 |(44);"8".%.....5|
000004F0: 29 2C 22 44 3D 4C 4F 41 44 22 AA C7 28 33 34 29 |),"D=LOAD"..(34)|
00000500: AA 22 46 49 4C 45 4E 41 4D 45 22 AA C7 28 33 34 |."FILENAME"..(34|
00000510: 29 AA C7 28 34 34 29 3B 22 38 22 AA C7 28 34 34 |)..(44);"8"..(44|
00000520: 29 3B 22 31 22 00 3E 0D 9A 01 85 22 91 91 91 91 |);"1".>...."....|
00000530: 91 91 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 43 24 00 52 |..........";C$.R|
00000540: 0D A4 01 8B 20 43 24 B2 22 41 22 A7 43 24 B2 57 |.... C$."A".C$.W|
00000550: 57 24 00 66 0D AE 01 8B 20 43 24 B2 22 42 22 A7 |W$.f.... C$."B".|
00000560: 43 24 B2 58 58 24 00 81 0D B8 01 8B 20 43 24 B2 |C$.XX$...... C$.|
00000570: 22 43 22 20 A7 8D 31 30 35 30 3A 43 24 B2 59 59 |"C" ..1050:C$.YY|
00000580: 24 00 9C 0D C2 01 8B 20 43 24 B2 22 44 22 20 A7 |$...... C$."D" .|
00000590: 8D 31 30 35 30 3A 43 24 B2 5A 5A 24 00 AD 0D CC |.1050:C$.ZZ$....|
000005A0: 01 8B 20 43 24 B2 22 20 22 A7 33 36 30 00 C9 0D |.. C$." ".360...|
000005B0: CD 01 99 22 93 43 4F 50 59 20 50 52 4F 47 52 41 |...".COPY PROGRA|
000005C0: 4D 20 55 53 45 44 3A 20 22 00 EA 0D CE 01 85 22 |M USED: "......"|
000005D0: 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000005E0: 1D 1D 1D 1D 1D 22 3B 4B 45 24 00 FD 0D CF 01 8B |.....";KE$......|
000005F0: 20 4B 45 24 B2 22 20 22 A7 20 34 36 31 00 43 0E | KE$." ". 461.C.|
00000600: D6 01 99 22 93 11 11 11 44 4F 20 59 4F 55 20 57 |..."....DO YOU W|
00000610: 49 53 48 20 54 4F 20 52 45 41 44 22 3A 99 22 20 |ISH TO READ":." |
00000620: 54 48 45 20 44 49 52 45 43 54 4F 52 59 20 4F 46 |THE DIRECTORY OF|
00000630: 20 53 49 44 45 20 54 57 4F 20 3F 20 20 28 59 2F | SIDE TWO ? (Y/|
00000640: 4E 29 22 00 4D 0E E0 01 A1 20 41 4E 24 00 60 0E |N)".M.... AN$.`.|
00000650: EA 01 8B 20 41 4E 24 B2 22 4E 22 A7 20 35 36 30 |... AN$."N". 560|
00000660: 00 73 0E F4 01 8B 20 41 4E 24 B2 22 59 22 A7 20 |.s.... AN$."Y". |
00000670: 35 32 30 00 87 0E FE 01 8B 20 41 4E 24 B3 B1 22 |520...... AN$.."|
00000680: 59 22 A7 20 34 38 30 00 DF 0E 08 02 99 22 93 11 |Y". 480......"..|
00000690: 11 45 4E 53 55 52 45 20 44 49 53 4B 20 53 49 44 |.ENSURE DISK SID|
000006A0: 45 20 54 57 4F 20 49 53 20 49 4E 20 54 48 45 20 |E TWO IS IN THE |
000006B0: 44 52 49 56 45 21 21 21 22 3A 99 22 11 20 20 20 |DRIVE!!!":.". |
000006C0: 20 50 52 45 53 53 20 28 53 50 41 43 45 2D 42 41 | PRESS (SPACE-BA|
000006D0: 52 29 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 |R) TO CONTINUE".|
000006E0: E9 0E 12 02 A1 20 54 54 24 00 00 0F 1C 02 8B 20 |..... TT$...... |
000006F0: 54 54 24 B3 B1 C7 28 33 32 29 20 A7 20 35 33 30 |TT$...(32) . 530|
00000700: 00 0B 0F 26 02 8D 20 31 30 39 30 00 36 0F 30 02 |...&.. 1090.6.0.|
00000710: 99 22 11 11 45 4E 54 45 52 20 44 49 53 4B 20 4E |."..ENTER DISK N|
00000720: 41 4D 45 20 28 53 49 44 45 20 32 29 20 3A 20 20 |AME (SIDE 2) : |
00000730: 22 3A 85 20 4D 24 00 48 0F 3A 02 8B 20 4D 24 B2 |":. M$.H.:.. M$.|
00000740: 22 20 22 20 A7 35 36 30 00 73 0F 44 02 99 22 45 |" " .560.s.D.."E|
00000750: 4E 54 45 52 20 4C 4F 41 44 20 49 4E 53 54 52 55 |NTER LOAD INSTRU|
00000760: 43 54 49 4F 4E 53 20 28 53 49 44 45 20 32 29 20 |CTIONS (SIDE 2) |
00000770: 3A 20 22 00 A2 0F 4E 02 99 A3 35 29 2C 22 11 11 |: "...N...5),"..|
00000780: 41 3D 4C 4F 41 44 22 AA C7 28 33 34 29 3B 22 2A |A=LOAD"..(34);"*|
00000790: 22 3B AA C7 28 33 34 29 AA C7 28 34 34 29 3B 22 |";..(34)..(44);"|
000007A0: 38 22 00 D9 0F 58 02 99 A3 35 29 2C 22 42 3D 4C |8"...X...5),"B=L|
000007B0: 4F 41 44 22 AA C7 28 33 34 29 3B 22 2A 22 3B AA |OAD"..(34);"*";.|
000007C0: C7 28 33 34 29 AA C7 28 34 34 29 3B 22 38 22 AA |.(34)..(44);"8".|
000007D0: C7 28 34 34 29 3B 22 31 22 00 0C 10 62 02 99 A3 |.(44);"1"...b...|
000007E0: 35 29 2C 22 43 3D 4C 4F 41 44 22 AA C7 28 33 34 |5),"C=LOAD"..(34|
000007F0: 29 3B 22 46 49 4C 45 4E 41 4D 45 22 AA C7 28 33 |);"FILENAME"..(3|
00000800: 34 29 AA C7 28 34 34 29 3B 22 38 22 00 49 10 6C |4)..(44);"8".I.l|
00000810: 02 99 A3 35 29 2C 22 44 3D 4C 4F 41 44 22 AA C7 |...5),"D=LOAD"..|
00000820: 28 33 34 29 AA 22 46 49 4C 45 4E 41 4D 45 22 AA |(34)."FILENAME".|
00000830: C7 28 33 34 29 AA C7 28 34 34 29 3B 22 38 22 AA |.(34)..(44);"8".|
00000840: C7 28 34 34 29 3B 22 31 22 00 62 10 76 02 85 22 |.(44);"1".b.v.."|
00000850: 91 91 91 91 91 91 1D 1D 1D 1D 1D 1D 1D 1D 22 3B |..............";|
00000860: 4E 24 00 76 10 80 02 8B 20 4E 24 B2 22 41 22 A7 |N$.v.... N$."A".|
00000870: 4E 24 B2 57 57 24 00 8A 10 8A 02 8B 20 4E 24 B2 |N$.WW$...... N$.|
00000880: 22 42 22 A7 4E 24 B2 58 58 24 00 A5 10 94 02 8B |"B".N$.XX$......|
00000890: 20 4E 24 B2 22 43 22 20 A7 8D 31 30 35 30 3A 4E | N$."C" ..1050:N|
000008A0: 24 B2 59 59 24 00 C0 10 9E 02 8B 20 4E 24 B2 22 |$.YY$...... N$."|
000008B0: 44 22 20 A7 8D 31 30 35 30 3A 4E 24 B2 5A 5A 24 |D" ..1050:N$.ZZ$|
000008C0: 00 D1 10 A8 02 8B 20 4E 24 B2 22 20 22 A7 35 38 |...... N$." ".58|
000008D0: 30 00 ED 10 A9 02 99 22 93 43 4F 50 59 20 50 52 |0......".COPY PR|
000008E0: 4F 47 52 41 4D 20 55 53 45 44 3A 20 22 00 0E 11 |OGRAM USED: "...|
000008F0: AA 02 85 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
00000900: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 4A 45 24 00 21 |.........";JE$.!|
00000910: 11 AB 02 8B 20 4B 45 24 B2 22 20 22 A7 20 36 38 |.... KE$." ". 68|
00000920: 31 00 43 11 B2 02 99 22 11 11 11 11 11 22 3A 85 |1.C....".....":.|
00000930: 22 45 4E 54 45 52 20 44 49 53 4B 23 20 3A 20 22 |"ENTER DISK# : "|
00000940: 3B 44 24 00 54 11 BC 02 8B 20 44 24 B2 22 20 22 |;D$.T.... D$." "|
00000950: A7 36 39 30 00 5F 11 C6 02 99 22 93 9E 11 22 00 |.690._...."...".|
00000960: 67 11 D0 02 99 41 24 00 6F 11 DA 02 99 43 24 00 |g....A$.o....C$.|
00000970: 78 11 DB 02 99 4B 45 24 00 9A 11 E4 02 99 22 20 |x....KE$......" |
00000980: 20 22 3B 45 45 24 3B 22 20 20 2D 2D 20 20 44 49 | ";EE$;" -- DI|
00000990: 53 4B 20 23 3A 20 22 3B 44 24 00 C7 11 EE 02 99 |SK #: ";D$......|
000009A0: 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |"===============|
000009B0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000009C0: 3D 3D 3D 3D 3D 3D 22 00 CF 11 F8 02 99 4D 24 00 |======"......M$.|
000009D0: D7 11 02 03 99 4E 24 00 E0 11 03 03 99 4A 45 24 |.....N$......JE$|
000009E0: 00 0E 12 0C 03 99 22 20 20 22 3B 46 46 24 3B 22 |......" ";FF$;"|
000009F0: 20 20 2D 2D 20 20 20 20 20 20 20 20 20 20 20 20 | -- |
00000A00: 20 22 3B 22 20 28 22 3B 42 24 3B 22 29 22 00 14 | ";" (";B$;")"..|
00000A10: 12 16 03 99 00 2D 12 20 03 99 22 49 53 20 54 48 |.....-. .."IS TH|
00000A20: 49 53 20 43 4F 52 52 45 43 54 3F 20 22 00 36 12 |IS CORRECT? ".6.|
00000A30: 2A 03 A1 20 52 24 00 45 12 34 03 8B 52 24 B2 22 |*.. R$.E.4..R$."|
00000A40: 22 A7 38 31 30 00 55 12 3E 03 8B 52 24 B2 22 59 |".810.U.>..R$."Y|
00000A50: 22 A7 38 36 30 00 65 12 48 03 8B 52 24 B2 22 4E |".860.e.H..R$."N|
00000A60: 22 A7 33 30 30 00 76 12 52 03 8B 52 24 B3 B1 22 |".300.v.R..R$.."|
00000A70: 4E 22 A7 38 31 30 00 80 12 5C 03 9F 20 31 2C 34 |N".810...\.. 1,4|
00000A80: 00 88 12 66 03 9D 20 31 00 C0 12 68 03 8F 20 2A |...f.. 1...h.. *|
00000A90: 2A 20 52 45 4D 4F 56 45 20 52 45 4D 41 52 4B 20 |* REMOVE REMARK |
00000AA0: 4E 45 58 54 20 4C 49 4E 45 20 46 4F 52 20 20 43 |NEXT LINE FOR C|
00000AB0: 4F 4D 50 52 45 53 53 20 50 52 49 4E 54 20 2A 2A |OMPRESS PRINT **|
00000AC0: 00 10 13 6B 03 8F 20 50 52 49 4E 54 23 31 2C 43 |...k.. PRINT#1,C|
00000AD0: 48 52 24 28 33 31 29 3B 43 48 52 24 28 32 37 29 |HR$(31);CHR$(27)|
00000AE0: 3B 43 48 52 24 28 37 37 29 3B 43 48 52 24 28 32 |;CHR$(77);CHR$(2|
00000AF0: 37 29 3B 43 48 52 24 28 31 35 29 3B 43 48 52 24 |7);CHR$(15);CHR$|
00000B00: 28 32 37 29 22 33 22 3B 43 48 52 24 28 32 35 29 |(27)"3";CHR$(25)|
00000B10: 00 1A 13 70 03 98 31 2C 41 24 00 24 13 7A 03 98 |...p..1,A$.$.z..|
00000B20: 31 2C 43 24 00 2F 13 7B 03 98 31 2C 4B 45 24 00 |1,C$./.{..1,KE$.|
00000B30: 52 13 84 03 98 31 2C 22 20 20 22 3B 45 45 24 3B |R....1," ";EE$;|
00000B40: 22 20 2D 2D 20 20 44 49 53 4B 20 23 3A 20 22 3B |" -- DISK #: ";|
00000B50: 44 24 00 81 13 8E 03 98 31 2C 22 3D 3D 3D 3D 3D |D$......1,"=====|
00000B60: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000B70: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000B80: 22 00 8B 13 98 03 98 31 2C 4D 24 00 95 13 A2 03 |"......1,M$.....|
00000B90: 98 31 2C 4E 24 00 A0 13 A3 03 98 31 2C 4A 45 24 |.1,N$......1,JE$|
00000BA0: 00 D0 13 AC 03 98 31 2C 22 20 20 22 3B 46 46 24 |......1," ";FF$|
00000BB0: 3B 22 20 2D 2D 20 20 20 20 20 20 20 20 20 20 20 |;" -- |
00000BC0: 20 20 20 20 22 3B 22 28 22 3B 42 24 3B 22 29 22 | ";"(";B$;")"|
00000BD0: 00 D7 13 B1 03 98 31 00 DE 13 B6 03 A0 31 00 04 |......1......1..|
00000BE0: 14 C0 03 99 22 44 4F 20 59 4F 55 20 57 49 53 48 |...."DO YOU WISH|
00000BF0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 3F 20 28 59 | TO CONTINUE? (Y|
00000C00: 2F 4E 29 22 00 0D 14 CA 03 A1 20 51 24 00 27 14 |/N)"...... Q$.'.|
00000C10: D4 03 8B 20 51 24 B2 C7 28 38 39 29 20 A7 20 A0 |... Q$..(89) . .|
00000C20: 31 3A 89 31 30 31 30 00 3D 14 DE 03 8B 20 51 24 |1:.1010.=.... Q$|
00000C30: B3 B1 C7 28 37 38 29 20 A7 39 37 30 20 00 46 14 |...(78) .970 .F.|
00000C40: E8 03 A0 31 3A 80 00 4F 14 F2 03 99 22 93 22 00 |...1:..O....".".|
00000C50: 62 14 FC 03 81 20 44 B2 30 A4 35 3A 99 22 93 22 |b.... D.0.5:."."|
00000C60: 3A 99 00 8E 14 06 04 99 22 9E 50 4C 45 41 53 45 |:.......".PLEASE|
00000C70: 20 45 4E 53 55 52 45 20 50 52 49 4E 54 45 52 20 | ENSURE PRINTER |
00000C80: 49 53 20 52 45 41 44 59 21 21 22 3A 82 44 00 97 |IS READY!!":.D..|
00000C90: 14 10 04 89 32 30 30 00 BC 14 1A 04 99 22 11 11 |....200......"..|
00000CA0: 11 11 11 11 22 3A 85 22 45 4E 54 45 52 20 46 49 |....":."ENTER FI|
00000CB0: 4C 45 4E 41 4D 45 3A 20 22 3B 51 24 00 E4 14 24 |LENAME: ";Q$...$|
00000CC0: 04 59 59 24 B2 22 4C 4F 41 44 22 AA C7 28 33 34 |.YY$."LOAD"..(34|
00000CD0: 29 AA 51 24 AA C7 28 33 34 29 AA C7 28 34 34 29 |).Q$..(34)..(44)|
00000CE0: AA 22 38 22 00 16 15 2E 04 5A 5A 24 B2 22 4C 4F |."8".....ZZ$."LO|
00000CF0: 41 44 22 AA C7 28 33 34 29 AA 51 24 AA C7 28 33 |AD"..(34).Q$..(3|
00000D00: 34 29 AA C7 28 34 34 29 AA 22 38 22 AA C7 28 34 |4)..(44)."8"..(4|
00000D10: 34 29 AA 22 31 22 00 1C 15 38 04 8E 00 25 15 42 |4)."1"...8...%.B|
00000D20: 04 99 22 93 22 00 5E 15 4C 04 9E 35 37 38 31 32 |..".".^.L..57812|
00000D30: 22 24 22 2C 38 3A 97 34 33 2C 31 3A 97 34 34 2C |"$",8:.43,1:.44,|
00000D40: 31 39 32 3A 97 37 36 38 2C 31 37 34 3A 97 37 36 |192:.768,174:.76|
00000D50: 39 2C 31 36 37 3A 9E 34 37 30 30 33 2C 31 00 93 |9,167:.47003,1..|
00000D60: 15 51 04 97 37 38 32 2C 31 39 32 3A 9E 36 35 34 |.Q..782,192:.654|
00000D70: 39 33 3A 9E 34 32 32 39 31 3A 9B 3A 97 34 34 2C |93:.42291:.:.44,|
00000D80: 38 3A 97 37 36 38 2C 31 33 39 3A 97 37 36 39 2C |8:.768,139:.769,|
00000D90: 32 32 37 00 9B 15 52 04 99 3A 99 00 C3 15 56 04 |227...R..:....V.|
00000DA0: 99 A3 35 29 22 50 52 45 53 53 20 28 53 50 41 43 |..5)"PRESS (SPAC|
00000DB0: 45 2D 42 41 52 29 20 54 4F 20 43 4F 4E 54 49 4E |E-BAR) TO CONTIN|
00000DC0: 55 45 22 00 CD 15 60 04 A1 20 54 54 24 00 E3 15 |UE"...`.. TT$...|
00000DD0: 6A 04 8B 20 54 54 24 B3 B1 C7 28 33 32 29 A7 31 |j.. TT$...(32).1|
00000DE0: 31 32 30 00 E9 15 74 04 8E 00 00 00 |120...t..... |
.......53280,1:.53281,6.L.D.."..":." *
******* DISK LABELER C=64 ********."...N
..". THE DISK LABELER PROGRAM YOU":
." ARE ABOUT TO UTILIZE":."
SUPPORTS COMMODORE PRINTERS!!"......".
. THE LABELS THAT YOU USE":."
MUST BE 1 1/2 X 4 INCHES"......"
TO ALLOW PRINTING THE":."
INFORMATION FOR SIDE":." ONE
(1) AND SIDE TWO (2)!!"......".....":."
*** PRESS RETURN TO CONTINUE ***"..
. .." *** PRESS SPACEBAR TO END *
**"...... K$...... K$.G(32). ....... K$.
.G(13). . 170.[.H.."....DO YOU WISH TO R
EAD":." THE DIRECTORY OF SIDE ONE ? (Y/
N)".E.R.. AN$.X.... AN$."N". 290...... A
N$."Y". 250...... AN$.."Y". 210......"..
.ENSURE DISK SIDE ONE IS IN THE DRIVE!!!
":.". PRESS (SPACE-BAR) TO CONTINUE"
...... TT$...... TT$..G(32) . 260.$....
1090.4.".B$."JIM W.".].,.WW$."LOAD".G(34
)."*".G(34).G(44)."8"...6.XX$."LOAD".G(3
4)."*".G(34).G(44)."8".G(44)."1".H.@.. P
RINT"... ******** DISK LABELER C=64 **
******."...J.EE$."SIDE 1":FF$."SIDE 2"..
.T..".ENTER DISK NAME (SIDE 1) : .":. A$
.#.^.. A$." " .340 .O.H..".ENTER LOAD IN
STRUCTIONS (SIDE 1) : ".~.R...5),"..A=LO
AD".G(34);"*";.G(34).G(44);"8"...|...5),
"B=LOAD".G(34);"*";.G(34).G(44);"8".G(44
);"1".......5),"C=LOAD".G(34);"FILENAME"
.G(34).G(44);"8".%.....5),"D=LOAD".G(34)
."FILENAME".G(34).G(44);"8".G(44);"1".>.
..."..............";C$.R.... C$."A".C$.W
W$.F.... C$."B".C$.XX$...... C$."C" ..10
50:C$.YY$...B.. C$."D" ..1050:C$.ZZ$...L
.. C$." ".360.I.M..".COPY PROGRAM USED:
"...N..".....................";KE$...O..
KE$." ". 461.C.V.."....DO YOU WISH TO R
EAD":." THE DIRECTORY OF SIDE TWO ? (Y/
N)".M.... AN$.`.... AN$."N". 560.S.... A
N$."Y". 520...... AN$.."Y". 480......"..
.ENSURE DISK SIDE TWO IS IN THE DRIVE!!!
":.". PRESS (SPACE-BAR) TO CONTINUE".
..... TT$...... TT$..G(32) . 530...&.. 1
090.6.0.."..ENTER DISK NAME (SIDE 2) :
":. M$.H.:.. M$." " .560.S.D.."ENTER LOA
D INSTRUCTIONS (SIDE 2) : "...N...5),"..
A=LOAD".G(34);"*";.G(34).G(44);"8".Y.X..
.5),"B=LOAD".G(34);"*";.G(34).G(44);"8".
G(44);"1"...B...5),"C=LOAD".G(34);"FILEN
AME".G(34).G(44);"8".I.L...5),"D=LOAD".G
(34)."FILENAME".G(34).G(44);"8".G(44);"1
".B.V.."..............";N$.V.... N$."A".
N$.WW$...... N$."B".N$.XX$...... N$."C"
..1050:N$.YY$...... N$."D" ..1050:N$.ZZ$
.Q.... N$." ".580......".COPY PROGRAM US
ED: "......".....................";JE$.!
.... KE$." ". 681.C....".....":."ENTER D
ISK# : ";D$.T.... D$." ".690._.F.."...".
G.P..A$.O.Z..C$.X....KE$......" ";EE$;"
-- DISK #: ";D$.G...."===============
======================".O....M$.W....N$.
.....JE$......" ";FF$;" --
";" (";B$;")".......-. .."IS THIS CORRE
CT? ".6.*.. R$.E.4..R$."".810.U.>..R$."Y
".860.E.H..R$."N".300.V.R..R$.."N".810..
.\.. 1,4...F.. 1...H.. ** REMOVE REMARK
NEXT LINE FOR COMPRESS PRINT **...K.. P
RINT#1,CHR$(31);CHR$(27);CHR$(77);CHR$(2
7);CHR$(15);CHR$(27)"3";CHR$(25)...P..1,
A$.$.Z..1,C$./.{..1,KE$.R....1," ";EE$;
" -- DISK #: ";D$......1,"=============
========================"......1,M$.....
.1,N$. ....1,JE$.P....1," ";FF$;" --
";"(";B$;")".W....1..... 1..
...."DO YOU WISH TO CONTINUE? (Y/N)"...J
.. Q$.'.T.. Q$.G(89) . 1:.1010.=.... Q$
..G(78) .970 .F... 1:..O....".".B.... D.
0.5:.".":.......".PLEASE ENSURE PRINTER
IS READY!!":.D......200......"......":."
ENTER FILENAME: ";Q$...$.YY$."LOAD".G(34
).Q$.G(34).G(44)."8".....ZZ$."LOAD".G(34
).Q$.G(34).G(44)."8".G(44)."1"...8...%.B
..".".^.L..57812"$",8:.43,1:.44,192:.768
,174:.769,167:.47003,1...Q..782,192:.654
93:.42291:.:.44,8:.768,139:.769,227...R.
.:..C.V...5)"PRESS (SPACE-BAR) TO CONTIN
UE".M.`.. TT$...J.. TT$..G(32).1120...T.
....
> CLICK IMAGE PREVIEW FOR FULL MODAL