ENVELOPE MAKER
FILE INFORMATION
FILENAME(S): ENVELOPE MAKER
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 16:59:41
APPEARS ON: 1 disk(s)
FILE HASH
3065a75af0e399924831a8169d82331c973052a054ec081a3fc81f7103ff4aea
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITIES | ENVELOPE MAKER | PRG | High Voltage Complete C64 Collection | 15 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 64 00 54 45 B2 31 3A 50 44 B2 34 3A |....d.TE.1:PD.4:|
00000010: 53 41 B2 37 00 2A 08 6E 00 97 35 33 32 38 30 2C |SA.7.*.n..53280,|
00000020: 2E 3A 97 35 33 32 38 31 2C 2E 00 4D 08 78 00 53 |.:.53281,..M.x.S|
00000030: 55 B2 34 39 31 35 32 3A 81 4A B2 53 55 A4 53 55 |U.49152:.J.SU.SU|
00000040: AA 37 36 3A 87 4E 3A 97 4A 2C 4E 3A 82 00 86 08 |.76:.N:.J,N:....|
00000050: 8C 00 A0 34 3A 9F 34 2C 50 44 2C 53 41 3A 42 24 |...4:.4,PD,SA:B$|
00000060: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00000070: 20 20 20 20 20 20 22 3A 42 24 B2 42 24 AA 42 24 | ":B$.B$.B$|
00000080: AA 42 24 AA 42 24 00 B6 08 96 00 99 22 93 11 0E |.B$.B$......"...|
00000090: 05 22 A3 31 33 29 22 C5 CE D6 C5 CC CF D0 C5 A0 |.".13)".........|
000000A0: CD C1 CB C5 D2 11 22 3A 81 4B B2 31 A4 36 3A 87 |......":.K.1.6:.|
000000B0: 57 28 4B 29 3A 82 00 EB 08 A0 00 54 24 28 31 29 |W(K):......T$(1)|
000000C0: B2 22 31 29 20 D3 54 41 4E 44 41 52 44 20 CC 45 |."1) .TANDARD .E|
000000D0: 54 54 45 52 22 3A 54 24 28 32 29 B2 22 32 29 20 |TTER":T$(2)."2) |
000000E0: C6 52 45 4E 43 48 20 C6 4F 4C 44 00 14 09 AA 00 |.RENCH .OLD.....|
000000F0: 99 22 11 11 22 A3 39 29 22 C3 48 4F 4F 53 45 20 |."..".9)".HOOSE |
00000100: 45 4E 56 45 4C 4F 50 45 20 54 59 50 45 3A 22 3A |ENVELOPE TYPE:":|
00000110: 8D 37 31 30 00 3B 09 B4 00 41 24 B2 22 22 3A A1 |.710.;...A$."":.|
00000120: 41 24 3A 8B 28 41 24 B3 B1 22 31 22 29 AF 28 41 |A$:.(A$.."1").(A|
00000130: 24 B3 B1 22 32 22 29 A7 31 38 30 00 6B 09 BE 00 |$.."2").180.k...|
00000140: 45 54 B2 C5 28 41 24 29 3A 54 24 28 45 54 29 B2 |ET..(A$):T$(ET).|
00000150: 22 12 22 AA 54 24 28 45 54 29 3A 99 22 91 91 91 |".".T$(ET):."...|
00000160: 91 91 91 91 91 22 3A 8D 37 31 30 00 A1 09 C8 00 |.....":.710.....|
00000170: 8B 45 54 B2 31 A7 57 28 31 29 B2 36 34 3A 57 28 |.ET.1.W(1).64:W(|
00000180: 32 29 B2 57 28 32 29 AB 34 3A 57 28 35 29 B2 57 |2).W(2).4:W(5).W|
00000190: 28 35 29 AB 35 3A 57 28 36 29 B2 57 28 36 29 AB |(5).5:W(6).W(6).|
000001A0: 32 00 C7 09 D2 00 8B 54 45 A7 57 28 31 29 B2 57 |2......TE.W(1).W|
000001B0: 28 31 29 AA 34 3A 8B 45 54 B2 31 A7 57 28 33 29 |(1).4:.ET.1.W(3)|
000001C0: B2 57 28 33 29 AB 32 00 DB 09 DC 00 81 4A B2 31 |.W(3).2......J.1|
000001D0: A4 34 3A 87 54 24 28 4A 29 3A 82 00 05 0A E6 00 |.4:.T$(J):......|
000001E0: 99 22 20 20 D5 53 45 20 44 45 46 41 55 4C 54 20 |." .SE DEFAULT |
000001F0: 52 45 54 55 52 4E 20 41 44 44 52 45 53 53 22 3B |RETURN ADDRESS";|
00000200: 3A 8D 36 38 30 00 15 0A F0 00 8B 41 24 B2 22 59 |:.680......A$."Y|
00000210: 22 A7 32 37 30 00 26 0A FA 00 8B 41 24 B3 B1 22 |".270.&....A$.."|
00000220: 4E 22 A7 32 33 30 00 3C 0A 04 01 50 24 B2 22 20 |N".230.<...P$." |
00000230: 52 45 54 55 52 4E 22 3A 8D 36 31 30 00 55 0A 0E |RETURN":.610.U..|
00000240: 01 81 4A B2 31 A4 34 3A 52 24 28 4A 29 B2 54 24 |..J.1.4:R$(J).T$|
00000250: 28 4A 29 3A 82 00 7A 0A 18 01 50 24 B2 22 22 3A |(J):..z...P$."":|
00000260: 8D 36 31 30 3A 81 4B B2 31 A4 34 3A 41 44 24 28 |.610:.K.1.4:AD$(|
00000270: 4B 29 B2 54 24 28 4B 29 3A 82 00 AF 0A 22 01 99 |K).T$(K):...."..|
00000280: 22 11 11 20 20 20 20 20 C3 45 4E 54 45 52 20 41 |".. .ENTER A|
00000290: 44 44 52 45 53 53 20 4C 49 4E 45 53 22 3B 3A 8D |DDRESS LINES";:.|
000002A0: 36 38 30 3A 43 46 B2 28 41 24 B2 22 59 22 29 00 |680:CF.(A$."Y").|
000002B0: BB 0A 2C 01 8B 43 46 A7 33 33 30 00 E6 0A 36 01 |..,..CF.330...6.|
000002C0: 43 49 B2 2E 3A 81 4A B2 31 A4 34 3A 8B C3 28 41 |CI..:.J.1.4:..(A|
000002D0: 44 24 28 4A 29 29 B1 43 49 A7 43 49 B2 C3 28 41 |D$(J)).CI.CI..(A|
000002E0: 44 24 28 4A 29 29 00 EC 0A 40 01 82 00 19 0B 4A |D$(J))...@.....J|
000002F0: 01 99 22 11 20 20 20 20 12 D0 52 45 53 53 20 41 |..". ..RESS A|
00000300: 4E 59 20 4B 45 59 20 54 4F 20 42 45 47 49 4E 20 |NY KEY TO BEGIN |
00000310: 50 52 49 4E 54 49 4E 47 2E 00 32 0B 54 01 41 24 |PRINTING..2.T.A$|
00000320: B2 22 22 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 33 |."":.A$:.A$."".3|
00000330: 34 30 00 4F 0B 5E 01 53 B2 35 3A 98 34 2C CA 28 |40.O.^.S.5:.4,.(|
00000340: 42 24 2C 31 2C 57 28 33 29 AA 53 AA 32 29 3B 00 |B$,1,W(3).S.2);.|
00000350: 6E 0B 68 01 81 4A B2 31 A4 57 28 31 29 AB 32 AC |n.h..J.1.W(1).2.|
00000360: 53 3A 98 34 2C 22 2D 22 3B 3A 82 3A 98 34 00 7C |S:.4,"-";:.:.4.||
00000370: 0B 72 01 81 4A B2 53 A4 31 A9 AB 31 00 AC 0B 7C |.r..J.S.1..1...||
00000380: 01 98 34 2C CA 28 42 24 2C 31 2C 4A AA 57 28 33 |..4,.(B$,1,J.W(3|
00000390: 29 29 22 2E 22 CA 28 42 24 2C 31 2C 57 28 31 29 |))".".(B$,1,W(1)|
000003A0: AB 32 AC 4A AA 32 29 22 2E 22 3A 82 00 E2 0B 86 |.2.J.2)".":.....|
000003B0: 01 81 4A B2 31 A4 57 28 34 29 AB 53 3A 98 34 2C |..J.1.W(4).S:.4,|
000003C0: CA 28 42 24 2C 31 2C 57 28 33 29 AA 31 29 22 3A |.(B$,1,W(3).1)":|
000003D0: 22 CA 28 42 24 2C 31 2C 57 28 31 29 29 22 3A 22 |".(B$,1,W(1))":"|
000003E0: 3A 82 00 06 0C 90 01 8D 36 36 30 3A 53 B2 57 28 |:.......660:S.W(|
000003F0: 33 29 3A 46 31 B2 53 3A 46 32 B2 53 3A 81 4A B2 |3):F1.S:F2.S:.J.|
00000400: 31 A4 57 28 32 29 00 3C 0C 9A 01 59 B2 31 AA 28 |1.W(2).<...Y.1.(|
00000410: AB 31 AC 28 4A B3 B2 53 29 29 AA 28 AB 31 AC 28 |.1.(J..S)).(.1.(|
00000420: 4A B3 B2 28 57 28 32 29 AB 53 29 29 29 3A 91 59 |J..(W(2).S))):.Y|
00000430: 89 34 34 30 2C 34 33 30 2C 34 32 30 00 5C 0C A4 |.440,430,420.\..|
00000440: 01 58 24 B2 22 3A 22 3A 8B 46 31 A7 58 24 B2 22 |.X$.":":.F1.X$."|
00000450: 2E 22 3A 58 B2 46 31 3A 89 34 35 30 00 76 0C AE |.":X.F1:.450.v..|
00000460: 01 98 34 2C 22 3A 22 CA 28 42 24 2C 31 2C 53 29 |..4,":".(B$,1,S)|
00000470: 3B 3A 89 34 36 30 00 95 0C B8 01 58 24 B2 22 3A |;:.460.....X$.":|
00000480: 22 3A 8B 46 32 A7 58 24 B2 22 2E 22 3A 58 B2 53 |":.F2.X$.".":X.S|
00000490: AB 46 32 AA 31 00 B5 0C C2 01 98 34 2C CA 28 42 |.F2.1......4,.(B|
000004A0: 24 2C 31 2C 58 29 22 2E 22 CA 28 42 24 2C 31 2C |$,1,X)".".(B$,1,|
000004B0: 53 AB 58 29 3B 00 E0 0C CC 01 5A 24 B2 22 22 3A |S.X);.....Z$."":|
000004C0: 8B 28 4A B1 31 29 AF 28 4A B3 36 29 A7 5A 24 B2 |.(J.1).(J.6).Z$.|
000004D0: 22 20 22 AA 52 24 28 4A AB 31 29 3A 89 35 30 30 |" ".R$(J.1):.500|
000004E0: 00 0B 0D D6 01 8B 28 4A B3 57 28 36 29 29 B0 28 |......(J.W(6)).(|
000004F0: 4A B1 57 28 36 29 AA 36 29 B0 28 B5 28 4A AD 32 |J.W(6).6).(.(J.2|
00000500: 29 B3 B1 4A AD 32 29 A7 35 30 30 00 39 0D E0 01 |)..J.2).500.9...|
00000510: 5A 24 B2 41 44 24 28 28 4A AB 57 28 36 29 29 AD |Z$.AD$((J.W(6)).|
00000520: 32 AA 31 29 3A 43 5A B2 C3 28 5A 24 29 3A 8B 43 |2.1):CZ..(Z$):.C|
00000530: 46 B2 2E A7 43 5A B2 43 49 00 5E 0D EA 01 58 B2 |F...CZ.CI.^...X.|
00000540: B5 28 28 57 28 31 29 AB 43 5A 29 AD 32 29 3A 5A |.((W(1).CZ).2):Z|
00000550: 24 B2 CA 28 42 24 2C 31 2C 58 29 AA 5A 24 00 8C |$..(B$,1,X).Z$..|
00000560: 0D F4 01 5A B2 C3 28 5A 24 29 3A 5A 24 B2 5A 24 |...Z..(Z$):Z$.Z$|
00000570: AA CA 28 42 24 2C 31 2C 57 28 31 29 AB 5A 29 3A |..(B$,1,W(1).Z):|
00000580: 98 34 2C 22 3A 22 5A 24 22 3A 22 3B 00 A6 0D FE |.4,":"Z$":";....|
00000590: 01 58 24 B2 22 3A 22 3A 91 59 89 35 34 30 2C 35 |.X$.":":.Y.540,5|
000005A0: 33 30 2C 35 32 30 00 C7 0D 08 02 8B 46 31 A7 58 |30,520......F1.X|
000005B0: 24 B2 22 2E 22 3A 58 B2 46 31 3A 46 31 B2 46 31 |$.".":X.F1:F1.F1|
000005C0: AB 31 3A 89 35 35 30 00 D4 0D 12 02 58 B2 2E 3A |.1:.550.....X..:|
000005D0: 89 35 35 30 00 F4 0D 1C 02 8B 46 32 A7 58 24 B2 |.550......F2.X$.|
000005E0: 22 2E 22 3A 58 B2 53 AB 46 32 AA 31 3A 46 32 B2 |".":X.S.F2.1:F2.|
000005F0: 46 32 AB 31 00 0A 0E 26 02 98 34 2C CA 28 42 24 |F2.1...&..4,.(B$|
00000600: 2C 31 2C 53 AB 58 29 3B 58 24 00 1F 0E 30 02 82 |,1,S.X);X$...0..|
00000610: 3A 8D 36 36 30 3A 81 4A B2 31 A4 57 28 35 29 00 |:.660:.J.1.W(5).|
00000620: 49 0E 3A 02 98 34 2C CA 28 42 24 2C 31 2C 57 28 |I.:..4,.(B$,1,W(|
00000630: 33 29 AA 31 29 22 3A 22 CA 28 42 24 2C 31 2C 57 |3).1)":".(B$,1,W|
00000640: 28 31 29 29 22 3A 22 3A 82 00 7F 0E 44 02 8D 36 |(1))":":....D..6|
00000650: 36 30 3A 81 4A B2 31 A4 36 3A 98 34 3A 82 3A 99 |60:.J.1.6:.4:.:.|
00000660: 22 11 20 20 20 20 20 20 20 20 20 20 CD 41 4B 45 |". .AKE|
00000670: 20 41 4E 4F 54 48 45 52 22 3B 3A 8D 36 38 30 00 | ANOTHER";:.680.|
00000680: 8F 0E 4E 02 8B 41 24 B2 22 59 22 A7 32 38 30 00 |..N..A$."Y".280.|
00000690: 9B 0E 58 02 98 34 3A A0 34 3A 80 00 DA 0E 62 02 |..X..4:.4:....b.|
000006A0: 99 22 11 11 22 3A 58 24 B2 22 C5 4E 54 45 52 22 |."..":X$.".NTER"|
000006B0: AA 50 24 AA 22 20 41 44 44 52 45 53 53 20 4C 49 |.P$." ADDRESS LI|
000006C0: 4E 45 53 3A 22 3A 99 A3 28 34 30 AB C3 28 58 24 |NES:":..(40..(X$|
000006D0: 29 29 AD 32 29 58 24 22 11 11 00 EE 0E 6C 02 5A |)).2)X$".....l.Z|
000006E0: B2 57 28 31 29 AB 31 3A 81 4A B2 31 A4 34 00 10 |.W(1).1:.J.1.4..|
000006F0: 0F 76 02 99 CA 28 C4 28 4A 29 2C 32 29 22 3E 20 |.v...(.(J),2)"> |
00000700: 22 3B 3A 9E 53 55 2C 54 24 28 4A 29 3A 99 3A 99 |";:.SU,T$(J):.:.|
00000710: 00 4B 0F 80 02 8B C3 28 54 24 28 4A 29 29 B1 5A |.K.....(T$(J)).Z|
00000720: A7 99 22 11 CC 49 4E 45 20 54 4F 4F 20 4C 4F 4E |.."..INE TOO LON|
00000730: 47 2C 20 4D 41 58 20 49 53 22 5A 22 43 48 41 52 |G, MAX IS"Z"CHAR|
00000740: 53 2E 20 D2 45 45 4E 54 45 52 2E 00 53 0F 8A 02 |S. .EENTER..S...|
00000750: 82 3A 8E 00 6A 0F 94 02 98 34 2C CA 28 42 24 2C |.:..j....4,.(B$,|
00000760: 31 2C 57 28 33 29 AA 32 29 3B 00 87 0F 9E 02 81 |1,W(3).2);......|
00000770: 4A B2 31 A4 57 28 31 29 3A 98 34 2C 22 2D 22 3B |J.1.W(1):.4,"-";|
00000780: 3A 82 3A 98 34 3A 8E 00 98 0F A8 02 99 22 20 5B |:.:.4:......." [|
00000790: 59 2F 4E 5D 3F 20 22 3B 00 BF 0F B2 02 41 24 B2 |Y/N]? ";.....A$.|
000007A0: 22 22 3A A1 41 24 3A 8B 28 41 24 B3 B1 22 59 22 |"":.A$:.(A$.."Y"|
000007B0: 29 AF 28 41 24 B3 B1 22 4E 22 29 A7 36 39 30 00 |).(A$.."N").690.|
000007C0: F5 0F BC 02 99 CA 28 22 59 45 53 4E 4F 20 22 2C |......("YESNO ",|
000007D0: AB 31 AC 28 41 24 B2 22 59 22 29 AB 34 AC 28 41 |.1.(A$."Y").4.(A|
000007E0: 24 B2 22 4E 22 29 2C 33 29 3A 81 4A B2 31 A4 38 |$."N"),3):.J.1.8|
000007F0: 30 3A 82 3A 8E 00 1C 10 C6 02 99 A3 31 31 29 22 |0:.:........11)"|
00000800: 11 11 22 54 24 28 31 29 3A 99 A3 31 31 29 22 11 |.."T$(1):..11)".|
00000810: 22 54 24 28 32 29 22 11 11 22 3A 8E 00 63 10 D0 |"T$(2)"..":..c..|
00000820: 02 83 33 32 2C 32 35 33 2C 31 37 34 2C 33 32 2C |..32,253,174,32,|
00000830: 31 33 39 2C 31 37 36 2C 31 33 33 2C 32 35 31 2C |139,176,133,251,|
00000840: 31 33 32 2C 32 35 32 2C 33 32 2C 31 34 33 2C 31 |132,252,32,143,1|
00000850: 37 33 2C 31 36 30 2C 30 2C 33 32 2C 32 30 37 2C |73,160,0,32,207,|
00000860: 32 35 35 00 AE 10 DA 02 83 32 30 31 2C 31 33 2C |255......201,13,|
00000870: 32 34 30 2C 36 2C 31 35 33 2C 30 2C 32 2C 32 30 |240,6,153,0,2,20|
00000880: 30 2C 32 30 38 2C 32 34 33 2C 31 39 32 2C 31 2C |0,208,243,192,1,|
00000890: 32 30 38 2C 38 2C 31 37 33 2C 30 2C 32 2C 32 30 |208,8,173,0,2,20|
000008A0: 31 2C 33 32 2C 32 30 38 2C 31 2C 31 33 36 00 F6 |1,32,208,1,136..|
000008B0: 10 E4 02 83 31 33 32 2C 32 35 33 2C 31 35 32 2C |....132,253,152,|
000008C0: 33 32 2C 31 32 35 2C 31 38 30 2C 31 36 35 2C 39 |32,125,180,165,9|
000008D0: 39 2C 31 36 30 2C 32 2C 31 34 35 2C 32 35 31 2C |9,160,2,145,251,|
000008E0: 31 33 36 2C 31 36 35 2C 39 38 2C 31 34 35 2C 32 |136,165,98,145,2|
000008F0: 35 31 2C 31 33 36 00 3F 11 EE 02 83 31 36 35 2C |51,136.?....165,|
00000900: 39 37 2C 31 34 35 2C 32 35 31 2C 31 36 35 2C 32 |97,145,251,165,2|
00000910: 35 33 2C 32 34 30 2C 31 30 2C 31 38 35 2C 30 2C |53,240,10,185,0,|
00000920: 32 2C 31 34 35 2C 39 38 2C 32 30 30 2C 31 39 36 |2,145,98,200,196|
00000930: 2C 32 35 33 2C 32 30 38 2C 32 34 36 2C 39 36 00 |,253,208,246,96.|
00000940: 55 11 F8 02 83 35 37 2C 32 36 2C 36 2C 31 33 2C |U....57,26,6,13,|
00000950: 31 39 2C 31 34 00 6C 11 0C 03 83 22 C4 41 56 49 |19,14.l....".AVI|
00000960: 44 20 CD 20 D7 49 4C 4C 49 41 4D 53 00 7D 11 16 |D . .ILLIAMS.}..|
00000970: 03 83 22 D0 CF 20 C2 4F 58 20 31 32 30 00 97 11 |..".. .OX 120...|
00000980: 20 03 83 22 D3 49 4E 47 4C 45 54 4F 4E 2C 20 CE | ..".INGLETON, .|
00000990: D3 D7 20 32 33 33 30 00 9F 11 2A 03 83 22 22 00 |.. 2330...*.."".|
000009A0: 00 00 |.. |
....D.TE.1:PD.4:SA.7.*.N..53280,.:.53281
,..M.X.SU.49152:.J.SU.SU.76:.N:.J,N:....
.. 4:.4,PD,SA:B$." ":
B$.B$.B$.B$.B$......"....".13)"ENVELOPE
MAKER.":.K.1.6:.W(K):.... .T$(1)."1) STA
NDARD LETTER":T$(2)."2) FRENCH FOLD.....
."..".9)"CHOOSE ENVELOPE TYPE:":.710.;..
.A$."":.A$:.(A$.."1").(A$.."2").180.K...
ET.E(A$):T$(ET).".".T$(ET):."........":.
710...H..ET.1.W(1).64:W(2).W(2).4:W(5).W
(5).5:W(6).W(6).2.G.R..TE.W(1).W(1).4:.E
T.1.W(3).W(3).2......J.1.4:.T$(J):......
." USE DEFAULT RETURN ADDRESS";:.680...
...A$."Y".270.&....A$.."N".230.<...P$."
RETURN":.610.U....J.1.4:R$(J).T$(J):..Z.
..P$."":.610:.K.1.4:AD$(K).T$(K):...."..
".. CENTER ADDRESS LINES";:.680:CF.(
A$."Y")...,..CF.330...6.CI..:.J.1.4:.C(A
D$(J)).CI.CI.C(AD$(J))...@.....J..".
.PRESS ANY KEY TO BEGIN PRINTING..2.T.A$
."":.A$:.A$."".340.O.^.S.5:.4,J(B$,1,W(3
).S.2);.N.H..J.1.W(1).2.S:.4,"-";:.:.4.|
.R..J.S.1..1...|..4,J(B$,1,J.W(3))"."J(B
$,1,W(1).2.J.2)".":.......J.1.W(4).S:.4,
J(B$,1,W(3).1)":"J(B$,1,W(1))":":.......
660:S.W(3):F1.S:F2.S:.J.1.W(2).<...Y.1.(
.1.(J..S)).(.1.(J..(W(2).S))):.Y.440,430
,420.\...X$.":":.F1.X$.".":X.F1:.450.V..
..4,":"J(B$,1,S);:.460.....X$.":":.F2.X$
.".":X.S.F2.1...B..4,J(B$,1,X)"."J(B$,1,
S.X);...L.Z$."":.(J.1).(J.6).Z$." ".R$(J
.1):.500...V..(J.W(6)).(J.W(6).6).(.(J.2
)..J.2).500.9...Z$.AD$((J.W(6)).2.1):CZ.
C(Z$):.CF...CZ.CI.^...X..((W(1).CZ).2):Z
$.J(B$,1,X).Z$.....Z.C(Z$):Z$.Z$.J(B$,1,
W(1).Z):.4,":"Z$":";.....X$.":":.Y.540,5
30,520.G....F1.X$.".":X.F1:F1.F1.1:.550.
T...X..:.550......F2.X$.".":X.S.F2.1:F2.
F2.1...&..4,J(B$,1,S.X);X$...0..:.660:.J
.1.W(5).I.:..4,J(B$,1,W(3).1)":"J(B$,1,W
(1))":":...D..660:.J.1.6:.4:.:.".
MAKE ANOTHER";:.680...N..A$."Y".280.
..X..4: 4:..Z.B.."..":X$."ENTER".P$." AD
DRESS LINES:":..(40.C(X$)).2)X$".....L.Z
.W(1).1:.J.1.4...V..J(D(J),2)"> ";:.SU,T
$(J):.:..K....C(T$(J)).Z..".LINE TOO LON
G, MAX IS"Z"CHARS. REENTER..S....:..J...
.4,J(B$,1,W(3).2);......J.1.W(1):.4,"-";
:.:.4:......." [Y/N]? ";.....A$."":.A$:.
(A$.."Y").(A$.."N").690......J("YESNO ",
.1.(A$."Y").4.(A$."N"),3):.J.1.80:.:....
F...11)".."T$(1):..11)"."T$(2)"..":..C.P
..32,253,174,32,139,176,133,251,132,252,
32,143,173,160,0,32,207,255...Z..201,13,
240,6,153,0,2,200,208,243,192,1,208,8,17
3,0,2,201,32,208,1,136......132,253,152,
32,125,180,165,99,160,2,145,251,136,165,
98,145,251,136.?....165,97,145,251,165,2
53,240,10,185,0,2,145,98,200,196,253,208
,246,96.U....57,26,6,13,19,14.L...."DAVI
D M WILLIAMS.}...."PO BOX 120... .."SING
LETON, NSW 2330...*..""...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL