Multiple names: LABEL MAKER, 14.LABEL MAKER
FILE INFORMATION
FILENAME(S):
• LABEL MAKER<br>• 14.LABEL MAKER
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 01:07:53
APPEARS ON: 4 disk(s)
FILE HASH
f5377e4745d4904d3c2f79743925ea5fee9e9f38f20019501886c0aeaf3b0a37
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D F UE | LABEL MAKER | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 8 | DOWNLOAD FILE |
| U TILITEIS | 14.LABEL MAKER | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 0 | DOWNLOAD FILE |
| FREESOFT DISK NR | LABEL MAKER | PRG | Treasure Chest - Wolfgang Rauprich | 15 | 8 | DOWNLOAD FILE |
| FREEWARE DISK NR | 14.LABEL MAKER | PRG | Treasure Chest - Wolfgang Rauprich | 28 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 00 00 8F 20 2A 2A 2A 4C 41 42 45 4C |....... ***LABEL| 00000010: 20 4D 41 4B 45 52 20 56 31 2E 30 2A 2A 2A 00 3D | MAKER V1.0***.=| 00000020: 08 64 00 8F 20 2A 2A 2A 49 4E 49 54 49 41 4C 49 |.d.. ***INITIALI| 00000030: 5A 45 20 52 4F 55 54 49 4E 45 2A 2A 2A 00 6F 08 |ZE ROUTINE***.o.| 00000040: 6E 00 97 20 35 33 32 38 30 2C 31 32 3A 97 20 35 |n.. 53280,12:. 5| 00000050: 33 32 38 31 2C 31 32 3A 97 20 36 34 36 2C 31 3A |3281,12:. 646,1:| 00000060: 97 20 35 33 32 37 32 2C 32 33 3A 99 22 93 22 00 |. 53272,23:.".".| 00000070: B2 08 78 00 99 20 22 12 CC C1 C2 C5 CC A0 CD C1 |..x.. ".........| 00000080: CB C5 D2 92 20 46 4F 52 20 54 48 45 20 C3 4F 4D |.... FOR THE .OM| 00000090: 4D 4F 44 4F 52 45 20 36 34 20 20 20 20 20 20 20 |MODORE 64 | 000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 000000B0: 3A 99 00 CD 08 82 00 99 20 22 D4 55 52 4E 20 4F |:....... ".URN O| 000000C0: 4E 20 50 52 49 4E 54 45 52 2E 22 3A 99 00 05 09 |N PRINTER.":....| 000000D0: 8C 00 99 20 22 C5 4E 54 45 52 20 41 20 4D 41 58 |... ".NTER A MAX| 000000E0: 49 4D 55 4D 20 4F 46 20 32 36 20 43 48 41 52 41 |IMUM OF 26 CHARA| 000000F0: 43 54 45 52 53 20 4F 4E 20 41 20 20 20 4C 49 4E |CTERS ON A LIN| 00000100: 45 2E 22 3A 99 00 33 09 96 00 99 20 22 D4 4F 20 |E.":..3.... ".O | 00000110: 41 4C 49 47 4E 20 4C 41 42 45 4C 53 2C 20 45 4E |ALIGN LABELS, EN| 00000120: 54 45 52 20 58 58 58 20 41 54 20 4E 41 4D 45 3A |TER XXX AT NAME:| 00000130: 22 3A 99 00 5F 09 A0 00 99 20 22 D4 4F 20 45 58 |":.._.... ".O EX| 00000140: 49 54 20 50 52 4F 47 52 41 4D 2C 20 45 4E 54 45 |IT PROGRAM, ENTE| 00000150: 52 20 C5 20 41 54 20 4E 41 4D 45 3A 22 3A 99 00 |R . AT NAME:":..| 00000160: 9A 09 AA 00 99 3A 99 20 22 D0 52 45 53 53 20 41 |.....:. ".RESS A| 00000170: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN| 00000180: 55 45 2E 22 3A 97 20 31 39 38 2C 30 3A 92 20 31 |UE.":. 198,0:. 1| 00000190: 39 38 2C 31 3A 89 20 31 38 30 00 A6 09 B4 00 9C |98,1:. 180......| 000001A0: 3A 99 20 22 93 22 00 B2 09 BE 00 97 20 31 39 38 |:. "."...... 198| 000001B0: 2C 30 00 BE 09 C8 00 9F 20 34 2C 34 2C 37 00 D8 |,0...... 4,4,7..| 000001C0: 09 D2 00 8F 20 2A 2A 2A 49 4E 50 55 54 20 52 4F |.... ***INPUT RO| 000001D0: 55 54 49 4E 45 2A 2A 2A 00 E6 09 DC 00 99 20 22 |UTINE***...... "| 000001E0: CE 41 4D 45 3A 22 00 EF 09 E6 00 85 20 41 24 00 |.AME:"...... A$.| 000001F0: 06 0A F0 00 8B 20 C3 28 41 24 29 B1 32 36 20 A7 |..... .(A$).26 .| 00000200: 20 8D 20 38 39 30 00 1E 0A FA 00 8B 20 C3 28 41 | . 890...... .(A| 00000210: 24 29 B3 B2 32 36 20 A7 20 89 20 32 37 30 00 28 |$)..26 . . 270.(| 00000220: 0A 04 01 89 20 32 32 30 00 47 0A 0E 01 8B 20 41 |.... 220.G.... A| 00000230: 24 B2 22 C5 22 20 B0 20 41 24 B2 22 45 22 20 A7 |$."." . A$."E" .| 00000240: 20 89 20 31 30 33 30 00 73 0A 18 01 8B 20 C8 28 | . 1030.s.... .(| 00000250: 41 24 2C 33 29 B2 22 D8 D8 D8 22 20 B0 20 C8 28 |A$,3)."..." . .(| 00000260: 41 24 2C 33 29 B2 22 58 58 58 22 20 A7 20 89 20 |A$,3)."XXX" . . | 00000270: 38 30 30 00 7D 0A 22 01 42 24 B2 22 22 00 AF 0A |800.}.".B$.""...| 00000280: 2C 01 99 20 22 C3 4F 4D 50 41 4E 59 20 28 49 46 |,.. ".OMPANY (IF| 00000290: 20 4E 4F 20 43 4F 4D 50 41 4E 59 20 50 52 45 53 | NO COMPANY PRES| 000002A0: 53 20 3C 12 52 45 54 55 52 4E 92 3E 29 3A 22 00 |S <.RETURN.>):".| 000002B0: B8 0A 36 01 85 20 42 24 00 CF 0A 40 01 8B 20 C3 |..6.. B$...@.. .| 000002C0: 28 42 24 29 B1 32 36 20 A7 20 8D 20 38 39 30 00 |(B$).26 . . 890.| 000002D0: E7 0A 4A 01 8B 20 C3 28 42 24 29 B3 B2 32 36 20 |..J.. .(B$)..26 | 000002E0: A7 20 89 20 33 36 30 00 FE 0A 54 01 8B 20 C3 28 |. . 360...T.. .(| 000002F0: 42 24 29 B1 32 36 20 A7 20 42 24 B2 22 22 00 08 |B$).26 . B$.""..| 00000300: 0B 5E 01 89 20 33 30 30 00 19 0B 68 01 99 20 22 |.^.. 300...h.. "| 00000310: C1 44 44 52 45 53 53 3A 22 00 22 0B 72 01 85 20 |.DDRESS:".".r.. | 00000320: 43 24 00 39 0B 7C 01 8B 20 C3 28 43 24 29 B1 32 |C$.9.|.. .(C$).2| 00000330: 36 20 A7 20 8D 20 38 39 30 00 51 0B 86 01 8B 20 |6 . . 890.Q.... | 00000340: C3 28 43 24 29 B3 B2 32 36 20 A7 20 89 20 34 31 |.(C$)..26 . . 41| 00000350: 30 00 5B 0B 90 01 89 20 33 36 30 00 69 0B 9A 01 |0.[.... 360.i...| 00000360: 99 20 22 C3 49 54 59 3A 22 00 72 0B A4 01 85 20 |. ".ITY:".r.... | 00000370: 44 24 00 89 0B AE 01 8B 20 C3 28 44 24 29 B1 31 |D$...... .(D$).1| 00000380: 36 20 A7 20 8D 20 39 33 30 00 A1 0B B8 01 8B 20 |6 . . 930...... | 00000390: C3 28 44 24 29 B3 B2 31 36 20 A7 20 89 20 34 36 |.(D$)..16 . . 46| 000003A0: 30 00 AB 0B C2 01 89 20 34 31 30 00 D5 0B CC 01 |0...... 410.....| 000003B0: 99 22 D3 54 41 54 45 20 12 D5 53 45 20 32 20 4C |.".TATE ..SE 2 L| 000003C0: 45 54 54 45 52 20 41 42 42 52 45 56 49 41 54 49 |ETTER ABBREVIATI| 000003D0: 4F 4E 3A 92 22 00 DE 0B D6 01 85 20 45 24 00 F4 |ON:."...... E$..| 000003E0: 0B E0 01 8B 20 C3 28 45 24 29 B1 32 20 A7 20 8D |.... .(E$).2 . .| 000003F0: 20 39 37 30 00 0A 0C EA 01 8B 20 C3 28 45 24 29 | 970...... .(E$)| 00000400: B2 32 20 A7 20 89 20 35 31 30 00 14 0C F4 01 89 |.2 . . 510......| 00000410: 20 34 36 30 00 25 0C FE 01 99 22 DA 49 50 20 43 | 460.%....".IP C| 00000420: 4F 44 45 3A 22 00 2E 0C 08 02 85 20 46 24 00 46 |ODE:"...... F$.F| 00000430: 0C 12 02 8B 20 C3 28 46 24 29 B3 B1 35 20 A7 20 |.... .(F$)..5 . | 00000440: 8D 20 31 30 30 30 00 5C 0C 1C 02 8B 20 C3 28 46 |. 1000.\.... .(F| 00000450: 24 29 B2 35 20 A7 20 89 20 35 36 30 00 66 0C 26 |$).5 . . 560.f.&| 00000460: 02 89 20 35 31 30 00 87 0C 30 02 8F 20 2A 2A 2A |.. 510...0.. ***| 00000470: 53 43 52 45 45 4E 20 50 52 49 4E 54 20 52 4F 55 |SCREEN PRINT ROU| 00000480: 54 49 4E 45 2A 2A 2A 00 91 0C 3A 02 99 20 22 93 |TINE***...:.. ".| 00000490: 22 00 AA 0C 44 02 99 20 41 24 3A 8B 20 42 24 B3 |"...D.. A$:. B$.| 000004A0: B1 22 22 20 A7 20 99 20 42 24 00 CB 0C 4E 02 99 |."" . . B$...N..| 000004B0: 20 43 24 3A 99 20 44 24 3B 22 2C 20 22 3B 45 24 | C$:. D$;", ";E$| 000004C0: 3B 22 20 22 3B 46 24 3A 99 3A 99 00 D7 0C 58 02 |;" ";F$:.:....X.| 000004D0: 97 20 31 39 38 2C 30 00 F8 0C 62 02 99 20 22 12 |. 198,0...b.. ".| 000004E0: C9 D3 A0 D4 C8 C9 D3 A0 C3 CF D2 D2 C5 C3 D4 3F |...............?| 000004F0: 20 28 59 2F 4E 29 92 22 00 11 0D 6C 02 A1 20 5A | (Y/N)."...l.. Z| 00000500: 24 3A 8B 20 5A 24 B2 22 22 20 A7 20 89 20 36 32 |$:. Z$."" . . 62| 00000510: 30 00 19 0D 76 02 99 3A 99 00 2E 0D 80 02 8B 20 |0...v..:....... | 00000520: 5A 24 B2 22 4E 22 20 A7 20 89 20 31 36 30 00 44 |Z$."N" . . 160.D| 00000530: 0D 8A 02 8B 20 5A 24 B3 B1 22 59 22 20 A7 20 89 |.... Z$.."Y" . .| 00000540: 20 35 37 30 00 4C 0D 94 02 99 3A 99 00 6C 0D 9E | 570.L....:..l..| 00000550: 02 8F 20 2A 2A 2A 4C 41 42 45 4C 20 50 52 49 4E |.. ***LABEL PRIN| 00000560: 54 20 52 4F 55 54 49 4E 45 2A 2A 2A 00 98 0D A8 |T ROUTINE***....| 00000570: 02 85 20 22 23 20 4F 46 20 4C 41 42 45 4C 53 20 |.. "# OF LABELS | 00000580: 46 4F 52 20 54 48 49 53 20 49 4E 46 4F 52 4D 41 |FOR THIS INFORMA| 00000590: 54 49 4F 4E 3A 22 3B 4C 00 A6 0D B2 02 81 20 54 |TION:";L...... T| 000005A0: B2 31 20 A4 20 4C 00 B4 0D BC 02 98 34 2C 22 20 |.1 . L......4," | 000005B0: 22 3B 41 24 00 C4 0D C6 02 8B 20 42 24 B2 22 22 |";A$...... B$.""| 000005C0: A7 37 33 30 00 D2 0D D0 02 98 34 2C 22 20 22 3B |.730......4," ";| 000005D0: 42 24 00 E0 0D DA 02 98 34 2C 22 20 22 3B 43 24 |B$......4," ";C$| 000005E0: 00 FD 0D E4 02 98 34 2C 22 20 22 3B 44 24 3B 22 |......4," ";D$;"| 000005F0: 2C 20 22 3B 45 24 3B 22 20 22 3B 46 24 00 07 0E |, ";E$;" ";F$...| 00000600: EE 02 98 34 3A 98 34 00 18 0E F8 02 8B 20 42 24 |...4:.4...... B$| 00000610: B2 22 22 20 A7 20 98 34 00 20 0E 02 03 82 20 54 |."" . .4. .... T| 00000620: 00 2C 0E 0C 03 A0 20 34 2C 34 2C 37 00 36 0E 16 |.,.... 4,4,7.6..| 00000630: 03 89 20 31 36 30 00 5A 0E 20 03 8F 20 2A 2A 2A |.. 160.Z. .. ***| 00000640: 4C 41 42 45 4C 20 41 4C 49 47 4E 4D 45 4E 54 20 |LABEL ALIGNMENT | 00000650: 52 4F 55 54 49 4E 45 2A 2A 2A 00 7F 0E 2A 03 98 |ROUTINE***...*..| 00000660: 34 2C 22 20 58 58 58 58 58 58 58 58 58 58 58 58 |4," XXXXXXXXXXXX| 00000670: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 22 00 |XXXXXXXXXXXXXX".| 00000680: A4 0E 34 03 98 34 2C 22 20 58 58 58 58 58 58 58 |..4..4," XXXXXXX| 00000690: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 |XXXXXXXXXXXXXXXX| 000006A0: 58 58 58 22 00 C9 0E 3E 03 98 34 2C 22 20 58 58 |XXX"...>..4," XX| 000006B0: 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 58 |XXXXXXXXXXXXXXXX| 000006C0: 58 58 58 58 58 58 58 58 22 00 EE 0E 48 03 98 34 |XXXXXXXX"...H..4| 000006D0: 2C 22 20 58 58 58 58 58 58 58 58 58 58 58 58 58 |," XXXXXXXXXXXXX| 000006E0: 58 58 58 58 58 58 58 58 58 58 58 58 58 22 00 F8 |XXXXXXXXXXXXX"..| 000006F0: 0E 52 03 98 34 3A 98 34 00 04 0F 5C 03 A0 20 34 |.R..4:.4...\.. 4| 00000700: 2C 34 2C 37 00 0E 0F 66 03 89 20 31 36 30 00 31 |,4,7...f.. 160.1| 00000710: 0F 70 03 8F 20 2A 2A 2A 45 52 52 4F 52 20 4D 45 |.p.. ***ERROR ME| 00000720: 53 53 41 47 45 20 52 4F 55 54 49 4E 45 53 2A 2A |SSAGE ROUTINES**| 00000730: 2A 00 66 0F 7A 03 8F 20 2A 45 52 52 4F 52 20 4D |*.f.z.. *ERROR M| 00000740: 45 53 53 41 47 45 20 46 4F 52 20 4E 41 4D 45 2C |ESSAGE FOR NAME,| 00000750: 20 43 4F 4D 50 41 4E 59 2C 20 41 4E 44 20 41 44 | COMPANY, AND AD| 00000760: 44 52 45 53 53 2A 00 8A 0F 84 03 99 20 22 CC 49 |DRESS*...... ".I| 00000770: 4E 45 20 49 53 20 4F 56 45 52 20 32 36 20 43 48 |NE IS OVER 26 CH| 00000780: 41 52 41 43 54 45 52 53 2E 22 00 B2 0F 8E 03 99 |ARACTERS."......| 00000790: 20 22 D5 53 45 20 41 42 42 52 45 56 49 41 54 49 | ".SE ABBREVIATI| 000007A0: 4F 4E 53 20 41 4E 44 20 52 45 2D 45 4E 54 45 52 |ONS AND RE-ENTER| 000007B0: 2E 22 00 B8 0F 98 03 8E 00 D7 0F A2 03 8F 20 2A |."............ *| 000007C0: 45 52 52 4F 52 20 4D 45 53 53 41 47 45 20 46 4F |ERROR MESSAGE FO| 000007D0: 52 20 43 49 54 59 2A 00 FB 0F AC 03 99 20 22 C3 |R CITY*...... ".| 000007E0: 49 54 59 20 49 53 20 4F 56 45 52 20 31 36 20 43 |ITY IS OVER 16 C| 000007F0: 48 41 52 41 43 54 45 52 53 2E 22 00 23 10 B6 03 |HARACTERS.".#...| 00000800: 99 20 22 D5 53 45 20 41 42 42 52 45 56 49 41 54 |. ".SE ABBREVIAT| 00000810: 49 4F 4E 53 20 41 4E 44 20 52 45 2D 45 4E 54 45 |IONS AND RE-ENTE| 00000820: 52 2E 22 00 29 10 C0 03 8E 00 49 10 CA 03 8F 20 |R.".).....I.... | 00000830: 2A 45 52 52 4F 52 20 4D 45 53 53 41 47 45 20 46 |*ERROR MESSAGE F| 00000840: 4F 52 20 53 54 41 54 45 2A 00 64 10 D4 03 99 20 |OR STATE*.d.... | 00000850: 22 C4 4F 4E 27 54 20 55 53 45 20 41 20 50 45 52 |".ON'T USE A PER| 00000860: 49 4F 44 22 00 6A 10 DE 03 8E 00 8D 10 E8 03 8F |IOD".j..........| 00000870: 20 2A 45 52 52 4F 52 20 4D 45 53 53 41 47 45 20 | *ERROR MESSAGE | 00000880: 46 4F 52 20 5A 49 50 20 43 4F 44 45 2A 00 AC 10 |FOR ZIP CODE*...| 00000890: F2 03 99 20 22 D5 53 45 20 35 20 4E 55 4D 42 45 |... ".SE 5 NUMBE| 000008A0: 52 20 5A 49 50 20 43 4F 44 45 2E 22 00 B2 10 FC |R ZIP CODE."....| 000008B0: 03 8E 00 CB 10 06 04 8F 20 2A 2A 2A 45 58 49 54 |........ ***EXIT| 000008C0: 20 52 4F 55 54 49 4E 45 2A 2A 2A 00 FC 10 10 04 | ROUTINE***.....| 000008D0: 99 20 22 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 |. ".O YOU WANT T| 000008E0: 4F 20 45 58 49 54 20 54 4F 20 C2 C1 D3 C9 C3 3F |O EXIT TO .....?| 000008F0: 20 28 59 2F 4E 29 22 3A 85 20 5A 24 00 12 11 1A | (Y/N)":. Z$....| 00000900: 04 8B 20 5A 24 B2 22 4E 22 20 A7 20 89 20 31 30 |.. Z$."N" . . 10| 00000910: 38 30 00 29 11 24 04 8B 20 5A 24 B3 B1 22 59 22 |80.).$.. Z$.."Y"| 00000920: 20 A7 20 89 20 31 30 34 30 00 35 11 2E 04 9E 20 | . . 1040.5.... | 00000930: 36 34 37 33 38 00 3B 11 38 04 80 00 00 00 |64738.;.8..... |
....... ***LABEL MAKER V1.0***.=.D.. ***
INITIALIZE ROUTINE***.O.N.. 53280,12:. 5
3281,12:. 646,1:. 53272,23:."."...X.. ".
LABEL MAKER. FOR THE COMMODORE 64
":..M.... "TURN ON PRINTE
R.":....... "ENTER A MAXIMUM OF 26 CHARA
CTERS ON A LINE.":..3.... "TO ALIGN LA
BELS, ENTER XXX AT NAME:":.._. .. "TO EX
IT PROGRAM, ENTER E AT NAME:":.......:.
"PRESS ANY KEY TO CONTINUE.":. 198,0:. 1
98,1:. 180......:. "."...... 198,0...H..
4,4,7.X.R.. ***INPUT ROUTINE***...... "
NAME:"...... A$...... C(A$).26 . . 890..
.... C(A$)..26 . . 270.(.... 220.G.... A
$."E" . A$."E" . . 1030.S.... H(A$,3)."X
XX" . H(A$,3)."XXX" . . 800.}.".B$.""...
,.. "COMPANY (IF NO COMPANY PRESS <.RETU
RN.>):"...6.. B$.O.@.. C(B$).26 . . 890.
..J.. C(B$)..26 . . 360...T.. C(B$).26 .
B$.""...^.. 300...H.. "ADDRESS:".".R..
C$.9.|.. C(C$).26 . . 890.Q.... C(C$)..2
6 . . 410.[.... 360.I.... "CITY:".R....
D$...... C(D$).16 . . 930...... C(D$)..1
6 . . 460...B.. 410.U.L.."STATE .USE 2 L
ETTER ABBREVIATION:."...V.. E$...... C(E
$).2 . . 970...... C(E$).2 . . 510......
460.%...."ZIP CODE:"...... F$.F.... C(F
$)..5 . . 1000.\.... C(F$).5 . . 560.F.&
.. 510...0.. ***SCREEN PRINT ROUTINE***.
..:.. "."...D.. A$:. B$.."" . . B$.K.N..
C$:. D$;", ";E$;" ";F$:.:..W.X.. 198,0.
..B.. ".IS THIS CORRECT? (Y/N)."...L.. Z
$:. Z$."" . . 620...V..:....... Z$."N" .
. 160.D.... Z$.."Y" . . 570.L....:..L..
.. ***LABEL PRINT ROUTINE***...... "# OF
LABELS FOR THIS INFORMATION:";L...... T
.1 . L......4," ";A$.D.F.. B$."".730.R.P
..4," ";B$...Z..4," ";C$......4," ";D$;"
, ";E$;" ";F$......4:.4...... B$."" . .4
. .... T.,... 4,4,7.6.... 160.Z. .. ***
LABEL ALIGNMENT ROUTINE***..*..4," XXXX
XXXXXXXXXXXXXXXXXXXXXX"...4..4," XXXXXXX
XXXXXXXXXXXXXXXXXXX".I.>..4," XXXXXXXXXX
XXXXXXXXXXXXXXXX"...H..4," XXXXXXXXXXXXX
XXXXXXXXXXXXX"...R..4:.4...\. 4,4,7...F
.. 160.1.P.. ***ERROR MESSAGE ROUTINES**
*.F.Z.. *ERROR MESSAGE FOR NAME, COMPANY
, AND ADDRESS*...... "LINE IS OVER 26 CH
ARACTERS."...... "USE ABBREVIATIONS AND
RE-ENTER.".......W.... *ERROR MESSAGE FO
R CITY*...... "CITY IS OVER 16 CHARACTER
S.".#.... "USE ABBREVIATIONS AND RE-ENTE
R.".).....I.J.. *ERROR MESSAGE FOR STATE
*.D.T.. "DON'T USE A PERIOD".J..........
*ERROR MESSAGE FOR ZIP CODE*...... "USE
5 NUMBER ZIP CODE.".......K.... ***EXIT
ROUTINE***...... "DO YOU WANT TO EXIT T
O BASIC? (Y/N)":. Z$...... Z$."N" . . 10
80.).$.. Z$.."Y" . . 1040.5.... 64738.;.
8.....
> CLICK IMAGE PREVIEW FOR FULL MODAL