_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

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 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL