PS/PM CONVERT

00000000: 01 08 28 08 0A 00 8F 20  50 52 49 4E 54 20 53 48  |..(.... PRINT SH|
00000010: 4F 50 2F 50 52 49 4E 54  4D 41 53 54 45 52 20 43  |OP/PRINTMASTER C|
00000020: 4F 4E 56 45 52 54 45 52  00 47 08 14 00 8F 20 42  |ONVERTER.G.... B|
00000030: 59 20 42 52 49 41 4E 20  48 45 59 42 4F 45 52 20  |Y BRIAN HEYBOER |
00000040: 34 2F 32 36 2F 38 36 00  6B 08 1E 00 8F 20 43 4C  |4/26/86.k.... CL|
00000050: 45 41 52 57 41 54 45 52  20 43 4F 4D 4D 4F 44 4F  |EARWATER COMMODO|
00000060: 52 45 20 43 4C 55 42 20  42 42 53 00 8B 08 28 00  |RE CLUB BBS...(.|
00000070: 8F 20 53 59 53 4F 50 20  20 20 54 45 4C 3A 20 38  |. SYSOP   TEL: 8|
00000080: 31 33 2F 35 34 35 2D 34  38 38 34 00 A3 08 32 00  |13/545-4884...2.|
00000090: 8F 20 51 2D 4C 49 4E 4B  20 49 44 3A 20 4D 4F 53  |. Q-LINK ID: MOS|
000000A0: 46 45 54 00 C7 08 3C 00  8F 20 54 48 49 53 20 50  |FET...<.. THIS P|
000000B0: 52 4F 47 52 41 4D 20 49  53 20 50 55 42 4C 49 43  |ROGRAM IS PUBLIC|
000000C0: 20 44 4F 4D 41 49 4E 00  0F 09 46 00 5A 24 B2 C7  | DOMAIN...F.Z$..|
000000D0: 28 30 29 3A 51 24 B2 C7  28 33 34 29 3A 4D 58 B2  |(0):Q$..(34):MX.|
000000E0: 31 34 30 3A 46 4C 24 B2  5A 24 AA 5A 24 AA 5A 24  |140:FL$.Z$.Z$.Z$|
000000F0: AA 5A 24 AA 5A 24 AA 5A  24 AA 5A 24 AA 5A 24 AA  |.Z$.Z$.Z$.Z$.Z$.|
00000100: 5A 24 AA 5A 24 AA 5A 24  AA C7 28 31 33 39 29 00  |Z$.Z$.Z$..(139).|
00000110: 27 09 50 00 20 97 35 33  32 38 30 2C 31 35 3A 97  |'.P. .53280,15:.|
00000120: 35 33 32 38 31 2C 31 00  38 09 5A 00 20 99 C7 28  |53281,1.8.Z. ..(|
00000130: 31 34 29 3B C7 28 38 29  00 4B 09 64 00 86 46 24  |14);.(8).K.d..F$|
00000140: 28 4D 58 29 2C 4F 24 28  4D 58 29 00 7F 09 6E 00  |(MX),O$(MX)...n.|
00000150: 99 22 93 95 11 D0 D2 C9  CE D4 20 D3 C8 CF D0 2F  |."........ ..../|
00000160: D0 D2 C9 CE D4 CD C1 D3  D4 C5 D2 A0 C7 D2 C1 D0  |................|
00000170: C8 C9 C3 A0 C3 CF CE D6  C5 D2 D4 C5 D2 22 3B 00  |.............";.|
00000180: AF 09 78 00 99 22 20 9C  11 20 C2 59 20 C2 52 49  |..x.." .. .Y .RI|
00000190: 41 4E 20 C8 45 59 42 4F  45 52 20 28 D1 2D CC 49  |AN .EYBOER (.-.I|
000001A0: 4E 4B 20 C9 C4 3A 20 CD  CF D3 C6 C5 D4 29 22 00  |NK ..: ......)".|
000001B0: DE 09 82 00 99 22 11 11  1F 20 20 20 20 D4 48 49  |....."...    .HI|
000001C0: 53 20 50 52 4F 47 52 41  4D 20 43 4F 4E 56 45 52  |S PROGRAM CONVER|
000001D0: 54 53 20 D0 52 49 4E 54  20 D3 48 4F 50 22 00 0C  |TS .RINT .HOP"..|
000001E0: 0A 8C 00 99 22 20 20 D3  49 44 45 20 C1 20 28 CE  |...."  .IDE . (.|
000001F0: 4F 4E 2D C3 C2 CD 20 D0  52 49 4E 54 45 52 29 20  |ON-... .RINTER) |
00000200: 47 52 41 50 48 49 43 53  20 54 4F 22 00 39 0A 96  |GRAPHICS TO".9..|
00000210: 00 99 22 20 20 20 D0 52  49 4E 54 CD 41 53 54 45  |.."   .RINT.ASTE|
00000220: 52 20 46 4F 52 4D 41 54  20 41 4E 44 20 D0 52 49  |R FORMAT AND .RI|
00000230: 4E 54 CD 41 53 54 45 52  22 00 67 0A A0 00 99 22  |NT.ASTER".g...."|
00000240: 20 20 C1 52 54 20 C7 41  4C 4C 45 52 59 20 4F 52  |  .RT .ALLERY OR|
00000250: 20 C4 41 54 41 20 C4 49  53 4B 20 47 52 41 50 48  | .ATA .ISK GRAPH|
00000260: 49 43 53 20 54 4F 22 00  93 0A AA 00 99 22 20 20  |ICS TO"......"  |
00000270: 20 20 20 20 20 D0 52 49  4E 54 20 D3 48 4F 50 20  |     .RINT .HOP |
00000280: 28 D3 49 44 45 20 C1 29  20 46 4F 52 4D 41 54 2E  |(.IDE .) FORMAT.|
00000290: 20 20 22 00 C1 0A B4 00  99 22 11 1C 20 20 20 20  |  "......"..    |
000002A0: 20 20 D4 48 49 53 20 50  52 4F 47 52 41 4D 20 49  |  .HIS PROGRAM I|
000002B0: 53 20 D0 55 42 4C 49 43  20 C4 4F 4D 41 49 4E 2E  |S .UBLIC .OMAIN.|
000002C0: 22 00 F3 0A BE 00 99 22  11 90 D0 52 49 4E 54 20  |"......"...RINT |
000002D0: D3 48 4F 50 20 49 53 20  41 20 54 52 41 44 45 4D  |.HOP IS A TRADEM|
000002E0: 41 52 4B 20 4F 46 20 C2  52 4F 44 45 52 42 55 4E  |ARK OF .RODERBUN|
000002F0: 44 2E 22 00 1E 0B C8 00  99 22 20 20 20 20 20 20  |D."......"      |
00000300: D0 52 49 4E 54 CD 41 53  54 45 52 20 49 53 20 41  |.RINT.ASTER IS A|
00000310: 20 54 52 41 44 45 4D 41  52 4B 20 4F 46 22 00 40  | TRADEMARK OF".@|
00000320: 0B D2 00 99 22 20 20 20  20 20 20 20 20 20 20 20  |...."           |
00000330: 20 20 D5 4E 49 53 4F 4E  20 D7 4F 52 4C 44 2E 22  |  .NISON .ORLD."|
00000340: 00 6D 0B DC 00 99 22 1E  11 11 11 20 20 20 20 20  |.m...."....     |
00000350: 20 20 D0 52 45 53 53 20  41 4E 59 20 4B 45 59 20  |  .RESS ANY KEY |
00000360: 54 4F 20 43 4F 4E 54 49  4E 55 45 2E 22 00 80 0B  |TO CONTINUE."...|
00000370: E6 00 A1 41 24 3A 8B 41  24 B2 22 22 A7 32 33 30  |...A$:.A$."".230|
00000380: 00 B4 0B F0 00 99 22 93  95 11 D0 D2 C9 CE D4 20  |......"........ |
00000390: D3 C8 CF D0 2F D0 D2 C9  CE D4 CD C1 D3 D4 C5 D2  |..../...........|
000003A0: A0 C7 D2 C1 D0 C8 C9 C3  A0 C3 CF CE D6 C5 D2 D4  |................|
000003B0: C5 D2 22 3B 00 D3 0B FA  00 99 22 20 11 90 D4 59  |..";......" ...Y|
000003C0: 50 45 20 4F 46 20 43 4F  4E 56 45 52 53 49 4F 4E  |PE OF CONVERSION|
000003D0: 3A 11 22 00 FD 0B 04 01  99 22 20 20 20 20 20 31  |:."......"     1|
000003E0: 20 3D 20 D0 52 49 4E 54  20 D3 48 4F 50 20 54 4F  | = .RINT .HOP TO|
000003F0: 20 D0 52 49 4E 54 CD 41  53 54 45 52 22 00 27 0C  | .RINT.ASTER".'.|
00000400: 0E 01 99 22 20 20 20 20  20 32 20 3D 20 D0 52 49  |..."     2 = .RI|
00000410: 4E 54 CD 41 53 54 45 52  20 54 4F 20 D0 52 49 4E  |NT.ASTER TO .RIN|
00000420: 54 20 D3 48 4F 50 22 00  5C 0C 18 01 85 22 20 11  |T .HOP".\...." .|
00000430: D7 48 49 43 48 22 3B 43  54 3A 8B 43 54 B3 B1 31  |.HICH";CT:.CT..1|
00000440: AF 43 54 B3 B1 32 A7 99  22 C3 48 4F 4F 53 45 20  |.CT..2..".HOOSE |
00000450: 31 20 4F 52 20 32 22 3A  89 32 38 30 00 7D 0C 22  |1 OR 2":.280.}."|
00000460: 01 85 22 11 20 D3 4F 55  52 43 45 20 C4 52 49 56  |..". .OURCE .RIV|
00000470: 45 20 3F 20 1E 38 9D 9D  9D 22 3B 53 44 00 A4 0C  |E ? .8...";SD...|
00000480: 2C 01 85 22 90 11 20 C4  45 53 54 49 4E 41 54 49  |,..".. .ESTINATI|
00000490: 4F 4E 20 C4 52 49 56 45  20 3F 20 1E 38 9D 9D 9D  |ON .RIVE ? .8...|
000004A0: 22 3B 44 44 00 B6 0C 36  01 8B 20 53 44 B3 B1 44  |";DD...6.. SD..D|
000004B0: 44 20 A7 33 36 30 00 E2  0C 40 01 99 22 11 20 D0  |D .360...@..". .|
000004C0: 4C 45 41 53 45 20 49 4E  53 45 52 54 20 54 48 45  |LEASE INSERT THE|
000004D0: 20 44 49 53 4B 45 54 54  45 20 49 4E 54 4F 20 54  | DISKETTE INTO T|
000004E0: 48 45 00 10 0D 4A 01 99  22 20 44 49 53 4B 20 44  |HE...J.." DISK D|
000004F0: 52 49 56 45 20 41 4E 44  20 50 52 45 53 53 20 54  |RIVE AND PRESS T|
00000500: 48 45 20 12 D2 C5 D4 D5  D2 CE 92 20 4B 45 59 2E  |HE ........ KEY.|
00000510: 00 3D 0D 54 01 99 22 20  C3 4F 4E 56 45 52 54 45  |.=.T.." .ONVERTE|
00000520: 44 20 50 52 4F 47 52 41  4D 53 20 57 49 4C 4C 20  |D PROGRAMS WILL |
00000530: 42 45 20 57 52 49 54 54  45 4E 20 4F 4E 00 6F 0D  |BE WRITTEN ON.o.|
00000540: 5E 01 99 22 20 53 41 4D  45 20 44 49 53 4B 3B 20  |^.." SAME DISK; |
00000550: 44 4F 4E 27 54 20 57 52  49 54 45 20 50 52 4F 54  |DON'T WRITE PROT|
00000560: 45 43 54 20 44 49 53 4B  2E 22 3A 89 33 39 30 00  |ECT DISK.":.390.|
00000570: 98 0D 68 01 99 22 11 20  D0 4C 45 41 53 45 20 49  |..h..". .LEASE I|
00000580: 4E 53 45 52 54 20 54 48  45 20 53 4F 55 52 43 45  |NSERT THE SOURCE|
00000590: 20 44 49 53 4B 20 49 4E  00 C3 0D 72 01 99 22 44  | DISK IN...r.."D|
000005A0: 52 49 56 45 22 53 44 22  41 4E 44 20 54 48 45 20  |RIVE"SD"AND THE |
000005B0: 44 45 53 54 49 4E 41 54  49 4F 4E 20 44 49 53 4B  |DESTINATION DISK|
000005C0: 20 49 4E 00 F1 0D 7C 01  99 22 44 52 49 56 45 22  | IN...|.."DRIVE"|
000005D0: 44 44 22 2E 20 20 D0 52  45 53 53 20 12 D2 C5 D4  |DD".  .RESS ....|
000005E0: D5 D2 CE 92 20 57 48 45  4E 20 52 45 41 44 59 2E  |.... WHEN READY.|
000005F0: 22 00 08 0E 86 01 A1 41  24 3A 8B 41 24 B3 B1 C7  |"......A$:.A$...|
00000600: 28 31 33 29 A7 33 39 30  00 2D 0E 90 01 9F 31 35  |(13).390.-....15|
00000610: 2C 53 44 2C 31 35 2C 22  49 30 22 3A 44 4E B2 31  |,SD,15,"I0":DN.1|
00000620: 35 3A 8D 37 37 30 3A 8B  45 A7 38 32 30 00 52 0E  |5:.770:.E.820.R.|
00000630: 9A 01 9F 31 34 2C 44 44  2C 31 35 2C 22 49 30 22  |...14,DD,15,"I0"|
00000640: 3A 44 4E B2 31 34 3A 8D  37 37 30 3A 8B 45 A7 38  |:DN.14:.770:.E.8|
00000650: 32 30 00 83 0E A4 01 85  22 90 11 20 C6 49 4C 45  |20......".. .ILE|
00000660: 4E 41 4D 45 53 20 54 4F  20 4D 41 54 43 48 20 3F  |NAMES TO MATCH ?|
00000670: 20 2A 9D 9D 9D 22 3B 46  24 3A 46 24 B2 46 24 AA  | *...";F$:F$.F$.|
00000680: 22 2A 22 00 9E 0E AE 01  9F 31 2C 38 2C 30 2C 22  |"*"......1,8,0,"|
00000690: 24 30 3A 22 AA 46 24 3A  8D 37 37 30 3A 99 00 D4  |$0:".F$:.770:...|
000006A0: 0E B8 01 8B 45 A7 99 22  11 1D 1D 1D 1D 12 9A 20  |....E.."....... |
000006B0: 49 4D 50 4F 53 53 49 42  4C 45 20 54 4F 20 52 45  |IMPOSSIBLE TO RE|
000006C0: 41 44 20 44 49 52 45 43  54 4F 52 59 20 92 22 3A  |AD DIRECTORY .":|
000006D0: 89 38 32 30 00 F5 0E C2  01 99 A3 31 30 29 3B 22  |.820.......10);"|
000006E0: 27 1C C3 90 27 20 54 4F  20 43 4F 4E 56 45 52 54  |'...' TO CONVERT|
000006F0: 20 46 49 4C 45 00 16 0F  CC 01 99 A3 31 30 29 3B  | FILE.......10);|
00000700: 22 27 1C D2 90 27 20 54  4F 20 52 45 4A 45 43 54  |"'...' TO REJECT|
00000710: 20 46 49 4C 45 22 00 3B  0F D6 01 99 A3 31 30 29  | FILE".;.....10)|
00000720: 3B 22 27 1C C2 90 27 20  54 4F 20 42 45 47 49 4E  |;"'...' TO BEGIN|
00000730: 20 43 4F 4E 56 45 52 53  49 4F 4E 00 57 0F E0 01  | CONVERSION.W...|
00000740: 99 A3 31 30 29 3B 22 27  1C C1 90 27 20 54 4F 20  |..10);"'...' TO |
00000750: 41 42 4F 52 54 11 22 00  69 0F EA 01 A1 23 31 2C  |ABORT.".i....#1,|
00000760: 41 24 2C 42 24 3A 4E B2  30 00 82 0F F4 01 A1 23  |A$,B$:N.0......#|
00000770: 31 2C 41 24 2C 42 24 3A  8B 42 24 B2 22 22 89 37  |1,A$,B$:.B$."".7|
00000780: 34 30 00 9C 0F FE 01 A1  23 31 2C 41 24 2C 42 24  |40......#1,A$,B$|
00000790: 3A 46 24 B2 22 22 3A 4F  24 B2 22 22 00 B9 0F 08  |:F$."":O$.""....|
000007A0: 02 8B 41 24 B3 B1 C7 28  33 29 20 B0 42 24 B3 B1  |..A$...(3) .B$..|
000007B0: 22 22 A7 20 42 46 B2 AB  31 00 CF 0F 12 02 A1 23  |"". BF..1......#|
000007C0: 31 2C 41 24 3A 8B 36 34  AF 53 54 89 37 34 30 00  |1,A$:.64.ST.740.|
000007D0: DF 0F 1C 02 8B 41 24 B3  B1 51 24 89 35 33 30 00  |.....A$..Q$.530.|
000007E0: F5 0F 26 02 A1 23 31 2C  41 24 3A 8B 41 24 B2 51  |..&..#1,A$:.A$.Q|
000007F0: 24 A7 35 39 30 00 28 10  30 02 46 24 B2 46 24 AA  |$.590.(.0.F$.F$.|
00000800: 41 24 3A 8B 20 41 24 B3  B1 22 22 A7 41 B2 C6 28  |A$:. A$.."".A..(|
00000810: 41 24 29 3A 8B 41 B1 39  36 A7 41 B2 41 AB 33 32  |A$):.A.96.A.A.32|
00000820: 3A 41 24 B2 C7 28 41 29  00 51 10 3A 02 8B 20 41  |:A$..(A).Q.:.. A|
00000830: 24 B2 22 20 22 B0 41 24  B2 22 2E 22 B0 41 24 B2  |$." ".A$.".".A$.|
00000840: 22 5C 22 B0 41 24 B2 22  5E 22 A7 41 24 B2 22 2D  |"\".A$."^".A$."-|
00000850: 22 00 63 10 44 02 4F 24  B2 4F 24 AA 41 24 3A 89  |".c.D.O$.O$.A$:.|
00000860: 35 35 30 00 7B 10 4E 02  A1 23 31 2C 41 24 3A 8B  |550.{.N..#1,A$:.|
00000870: 41 24 B3 B1 22 20 22 89  35 39 30 00 92 10 58 02  |A$.." ".590...X.|
00000880: A1 23 31 2C 54 24 3A 8B  54 24 B2 22 20 22 89 36  |.#1,T$:.T$." ".6|
00000890: 30 30 00 A9 10 62 02 A1  23 31 2C 41 24 3A 8B 41  |00...b..#1,A$:.A|
000008A0: 24 B3 B1 22 22 89 36 31  30 00 C8 10 6C 02 8B 20  |$.."".610...l.. |
000008B0: 42 46 20 B0 20 54 24 B3  B1 22 50 22 20 A7 20 42  |BF . T$.."P" . B|
000008C0: 46 B2 30 3A 89 35 30 30  00 E9 10 76 02 8B 20 43  |F.0:.500...v.. C|
000008D0: 54 B2 32 20 AF 20 C9 28  46 24 2C 34 29 B3 B1 22  |T.2 . .(F$,4).."|
000008E0: 2E 47 52 41 22 A7 35 30  30 00 00 11 80 02 99 A3  |.GRA".500.......|
000008F0: 32 29 51 24 3B 46 24 3B  51 24 3B A3 32 31 29 3B  |2)Q$;F$;Q$;.21);|
00000900: 00 23 11 8A 02 99 22 5F  20 12 43 3A 52 3A 42 3A  |.#...."_ .C:R:B:|
00000910: 41 3F 92 9D 9D 9D 9D 9D  9D 9D 9D 22 3B 3A 47 46  |A?.........";:GF|
00000920: B2 AB 31 00 36 11 94 02  A1 41 24 3A 8B 41 24 B2  |..1.6....A$:.A$.|
00000930: 22 22 89 36 36 30 00 58  11 9E 02 8B 41 24 B2 22  |"".660.X....A$."|
00000940: 52 22 A7 99 22 9A 52 45  4A 45 43 54 20 46 49 4C  |R"..".REJECT FIL|
00000950: 45 90 22 3A 89 35 30 30  00 7F 11 A8 02 8B 41 24  |E.":.500......A$|
00000960: B2 22 42 22 A7 99 22 9A  42 45 47 49 4E 20 43 4F  |."B"..".BEGIN CO|
00000970: 4E 56 45 52 53 49 4F 4E  90 22 3A 89 37 34 30 00  |NVERSION.":.740.|
00000980: A6 11 B2 02 8B 41 24 B2  22 41 22 A7 99 22 9A 41  |.....A$."A"..".A|
00000990: 42 4F 52 54 20 43 4F 4E  56 45 52 53 49 4F 4E 90  |BORT CONVERSION.|
000009A0: 22 3A 89 38 32 30 00 B7  11 BC 02 8B 41 24 B3 B1  |":.820......A$..|
000009B0: 22 43 22 89 36 36 30 00  E6 11 C6 02 4E B2 4E AA  |"C".660.....N.N.|
000009C0: 31 3A 46 24 28 4E 29 B2  46 24 3A 4F 24 28 4E 29  |1:F$(N).F$:O$(N)|
000009D0: B2 4F 24 3A 99 22 9A 43  4F 4E 56 45 52 54 20 46  |.O$:.".CONVERT F|
000009E0: 49 4C 45 90 20 22 00 F4  11 D0 02 8B 4E B3 4D 58  |ILE. "......N.MX|
000009F0: 89 35 30 30 00 15 12 DA  02 99 22 11 20 12 CD 41  |.500......". ..A|
00000A00: 58 49 4D 55 4D 20 4F 46  22 3B 4D 58 3B 22 46 49  |XIMUM OF";MX;"FI|
00000A10: 4C 45 53 2E 22 00 52 12  E4 02 8B 20 A8 20 47 46  |LES.".R.... . GF|
00000A20: 20 A7 20 99 22 11 1C 20  20 20 CE 4F 20 4D 41 54  | . ."..   .O MAT|
00000A30: 43 48 49 4E 47 20 47 52  41 50 48 49 43 53 20 4E  |CHING GRAPHICS N|
00000A40: 41 4D 45 53 20 46 4F 55  4E 44 21 90 22 3A 47 46  |AMES FOUND!.":GF|
00000A50: B2 30 00 89 12 EE 02 A0  31 3A 99 22 11 1D 1D 1D  |.0......1:."....|
00000A60: 1D 1D 1D 1D 1D 1D 1D 1D  22 3B 4E 3B 22 46 49 4C  |........";N;"FIL|
00000A70: 45 53 20 54 4F 20 43 4F  4E 56 45 52 54 20 11 22  |ES TO CONVERT ."|
00000A80: 3A 8B 4E B2 30 A7 38 32  30 00 9C 12 F8 02 91 20  |:.N.0.820...... |
00000A90: 43 54 20 89 38 37 30 2C  31 30 38 30 00 AF 12 02  |CT .870,1080....|
00000AA0: 03 84 44 4E 2C 45 2C 45  24 2C 45 31 2C 45 32 00  |..DN,E,E$,E1,E2.|
00000AB0: BA 12 0C 03 8B 45 B2 30  A7 8E 00 EA 12 16 03 45  |.....E.0.......E|
00000AC0: 45 24 B2 CA 28 C4 28 45  29 2C 32 29 3A 45 31 24  |E$..(.(E),2):E1$|
00000AD0: B2 CA 28 C4 28 45 31 29  2C 32 29 3A 45 32 24 B2  |..(.(E1),2):E2$.|
00000AE0: CA 28 C4 28 45 32 29 2C  32 29 00 F6 12 20 03 8B  |.(.(E2),2)... ..|
00000AF0: 45 B2 36 33 A7 8E 00 27  13 2A 03 99 3A 99 22 11  |E.63...'.*..:.".|
00000B00: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1C 22 3B 45 45 24  |...........";EE$|
00000B10: 3B 22 2C 22 3B 45 24 3B  22 2C 22 3B 45 31 24 3B  |;",";E$;",";E1$;|
00000B20: 22 2C 22 3B 45 32 24 00  3C 13 34 03 A0 31 35 3A  |",";E2$.<.4..15:|
00000B30: A0 31 34 3A A0 31 3A A0  38 3A A0 39 00 6D 13 3E  |.14:.1:.8:.9.m.>|
00000B40: 03 85 22 11 1D 1D 1D 1D  1D 1D 20 CD 4F 52 45 20  |.."....... .ORE |
00000B50: 50 52 4F 47 52 41 4D 53  20 54 4F 20 43 4F 4E 56  |PROGRAMS TO CONV|
00000B60: 45 52 54 3F 20 59 9D 9D  9D 22 3B 41 24 00 7D 13  |ERT? Y...";A$.}.|
00000B70: 48 03 8B 41 24 B2 22 59  22 A7 32 34 30 00 9B 13  |H..A$."Y".240...|
00000B80: 52 03 99 A3 31 32 29 22  11 C5 CE C4 20 CF C6 20  |R...12)".... .. |
00000B90: C3 CF CE D6 C5 D2 D3 C9  CF CE 22 00 A7 13 5C 03  |.........."...\.|
00000BA0: 99 22 09 90 22 3A 80 00  E0 13 66 03 81 20 49 B2  |."..":....f.. I.|
00000BB0: 31 A4 4E 3A 98 31 35 2C  22 49 30 22 3A 98 31 34  |1.N:.15,"I0":.14|
00000BC0: 2C 22 49 30 22 3A 9F 38  2C 53 44 2C 38 2C 46 24  |,"I0":.8,SD,8,F$|
00000BD0: 28 49 29 AA 22 2C 50 2C  52 22 3A 44 4E B2 31 35  |(I).",P,R":DN.15|
00000BE0: 00 FB 13 70 03 8D 20 37  37 30 3A A1 23 38 2C 41  |...p.. 770:.#8,A|
00000BF0: 24 2C 42 24 3A 99 46 24  28 49 29 00 38 14 7A 03  |$,B$:.F$(I).8.z.|
00000C00: 8B 20 41 24 B3 B1 22 22  B0 42 24 B3 B1 C7 28 38  |. A$.."".B$...(8|
00000C10: 38 29 A7 99 A3 31 38 29  22 91 1C CE 4F 54 20 41  |8)...18)"...OT A|
00000C20: 20 D0 52 49 4E 54 20 D3  48 4F 50 20 C6 49 4C 45  | .RINT .HOP .ILE|
00000C30: 2E 90 22 3A 89 39 38 30  00 5D 14 84 03 99 A3 31  |..":.980.].....1|
00000C40: 38 29 3B 22 91 1F 2D 2D  3E 20 90 22 C8 28 4F 24  |8);"..--> .".(O$|
00000C50: 28 49 29 2C 31 32 29 22  2E 47 52 41 22 00 80 14  |(I),12)".GRA"...|
00000C60: 8E 03 9F 39 2C 44 44 2C  39 2C C8 28 4F 24 28 49  |...9,DD,9,.(O$(I|
00000C70: 29 2C 31 32 29 AA 22 2E  47 52 41 2C 50 2C 57 22  |),12).".GRA,P,W"|
00000C80: 00 99 14 98 03 44 4E B2  31 34 3A 8D 37 37 30 3A  |.....DN.14:.770:|
00000C90: 8B 20 45 20 A7 31 30 31  30 00 C7 14 A2 03 98 39  |. E .1010......9|
00000CA0: 2C C7 28 38 30 29 3B C7  28 31 31 39 29 3B C7 28  |,.(80);.(119);.(|
00000CB0: 38 38 29 3B 5A 24 3B C7  28 35 32 29 3B 5A 24 3B  |88);Z$;.(52);Z$;|
00000CC0: C7 28 31 38 30 29 3B 00  E2 14 AC 03 81 20 4A B2  |.(180);...... J.|
00000CD0: 31 A4 35 32 3A 4C 24 B2  22 22 3A 81 4B B2 31 A4  |1.52:L$."":.K.1.|
00000CE0: 31 31 00 FA 14 B6 03 A1  23 38 2C 41 24 3A 8B 41  |11......#8,A$:.A|
00000CF0: 24 B2 22 22 A7 41 24 B2  5A 24 00 1F 15 C0 03 4C  |$."".A$.Z$.....L|
00000D00: 24 B2 4C 24 AA 41 24 3A  82 3A 4C 24 B2 C7 28 31  |$.L$.A$:.:L$..(1|
00000D10: 33 39 29 AA 4C 24 3A 98  39 2C 4C 24 3B 3A 82 00  |39).L$:.9,L$;:..|
00000D20: 4C 15 CA 03 98 39 2C 5A  24 3B 5A 24 3B 5A 24 3B  |L....9,Z$;Z$;Z$;|
00000D30: 5A 24 3B C7 28 31 33 39  29 3B 3A 81 4A B2 31 A4  |Z$;.(139);:.J.1.|
00000D40: 31 30 3A 98 39 2C 46 4C  24 3B 3A 82 00 56 15 D4  |10:.9,FL$;:..V..|
00000D50: 03 A0 38 3A A0 39 00 70  15 DE 03 44 4E B2 31 35  |..8:.9.p...DN.15|
00000D60: 3A 8D 37 37 30 3A 44 4E  B2 31 34 3A 8D 37 37 30  |:.770:DN.14:.770|
00000D70: 00 7B 15 E8 03 82 3A 89  38 32 30 00 A0 15 F2 03  |.{....:.820.....|
00000D80: 99 22 1C C6 49 4C 45 20  C5 58 49 53 54 53 2E 20  |."..ILE .XISTS. |
00000D90: 20 90 C5 4E 54 45 52 20  4E 45 57 20 4E 41 4D 45  | ..NTER NEW NAME|
00000DA0: 00 C2 15 FC 03 99 22 20  28 31 32 20 43 48 41 52  |......" (12 CHAR|
00000DB0: 41 43 54 45 52 53 20 4D  41 58 49 4D 55 4D 2C 20  |ACTERS MAXIMUM, |
00000DC0: 4E 4F 00 EA 15 06 04 99  22 20 53 50 41 43 45 53  |NO......" SPACES|
00000DD0: 2C 20 50 45 52 49 4F 44  53 2C 20 27 5C 27 53 2C  |, PERIODS, '\'S,|
00000DE0: 20 4F 52 20 27 5E 27 53  29 3B 00 13 16 10 04 99  | OR '^'S);......|
00000DF0: 22 20 50 52 45 53 53 20  12 D2 C5 D4 D5 D2 CE 92  |" PRESS ........|
00000E00: 20 54 4F 20 53 4B 49 50  3A 22 3A 4F 24 28 49 29  | TO SKIP:":O$(I)|
00000E10: B2 22 22 00 2E 16 1A 04  85 20 4F 24 28 49 29 3A  |.""...... O$(I):|
00000E20: 8B 20 4F 24 28 49 29 B2  22 22 A7 39 38 30 00 64  |. O$(I)."".980.d|
00000E30: 16 24 04 8B 20 C9 28 4F  24 28 49 29 2C 34 29 B2  |.$.. .(O$(I),4).|
00000E40: 22 2E 47 52 41 22 20 A7  20 4F 24 28 49 29 B2 C8  |".GRA" . O$(I)..|
00000E50: 28 4F 24 28 49 29 2C 28  C3 28 4F 24 28 49 29 29  |(O$(I),(.(O$(I))|
00000E60: AB 34 29 29 00 70 16 2E  04 A0 39 3A 89 39 30 30  |.4)).p....9:.900|
00000E70: 00 A9 16 38 04 81 20 49  B2 31 A4 4E 3A 98 31 35  |...8.. I.1.N:.15|
00000E80: 2C 22 49 30 22 3A 98 31  34 2C 22 49 30 22 3A 9F  |,"I0":.14,"I0":.|
00000E90: 38 2C 53 44 2C 38 2C 46  24 28 49 29 AA 22 2C 50  |8,SD,8,F$(I).",P|
00000EA0: 2C 52 22 3A 44 4E B2 31  35 00 C3 16 42 04 8D 37  |,R":DN.15...B..7|
00000EB0: 37 30 3A A1 23 38 2C 41  24 2C 42 24 3A 99 46 24  |70:.#8,A$,B$:.F$|
00000EC0: 28 49 29 00 F9 16 4C 04  8B 41 24 B3 B1 C7 28 38  |(I)...L..A$...(8|
00000ED0: 30 29 A7 99 A3 31 38 29  22 91 1C CE 4F 54 20 41  |0)...18)"...OT A|
00000EE0: 20 D0 52 49 4E 54 CD 41  53 54 45 52 20 46 49 4C  | .RINT.ASTER FIL|
00000EF0: 45 90 22 3A 89 31 31 38  30 00 17 17 56 04 4F 24  |E.":.1180...V.O$|
00000F00: 28 49 29 B2 C8 28 4F 24  28 49 29 2C C3 28 4F 24  |(I)..(O$(I),.(O$|
00000F10: 28 49 29 29 AB 34 29 00  45 17 60 04 99 A3 31 38  |(I)).4).E.`...18|
00000F20: 29 3B 22 91 1F 2D 2D 3E  90 20 22 4F 24 28 49 29  |);"..-->. "O$(I)|
00000F30: 3A 9F 39 2C 44 44 2C 39  2C 4F 24 28 49 29 AA 22  |:.9,DD,9,O$(I)."|
00000F40: 2C 50 2C 57 22 00 5E 17  6A 04 44 4E B2 31 34 3A  |,P,W".^.j.DN.14:|
00000F50: 8D 37 37 30 3A 8B 20 45  20 A7 31 32 31 30 00 86  |.770:. E .1210..|
00000F60: 17 74 04 3A A1 23 38 2C  41 24 2C 41 24 2C 41 24  |.t.:.#8,A$,A$,A$|
00000F70: 2C 41 24 2C 41 24 2C 41  24 3A 98 39 2C 5A 24 3B  |,A$,A$,A$:.9,Z$;|
00000F80: C7 28 38 38 29 3B 00 A1  17 7E 04 81 20 4A B2 31  |.(88);...~.. J.1|
00000F90: A4 35 32 3A 4C 24 B2 22  22 3A 81 4B B2 31 A4 31  |.52:L$."":.K.1.1|
00000FA0: 31 00 B9 17 88 04 A1 23  38 2C 41 24 3A 8B 41 24  |1......#8,A$:.A$|
00000FB0: B2 22 22 A7 41 24 B2 5A  24 00 D8 17 92 04 4C 24  |."".A$.Z$.....L$|
00000FC0: B2 4C 24 AA 41 24 3A 82  3A A1 23 38 2C 41 24 3A  |.L$.A$:.:.#8,A$:|
00000FD0: 98 39 2C 4C 24 3B 3A 82  00 E2 17 9C 04 A0 38 3A  |.9,L$;:.......8:|
00000FE0: A0 39 00 FC 17 A6 04 44  4E B2 31 35 3A 8D 37 37  |.9.....DN.15:.77|
00000FF0: 30 3A 44 4E B2 31 34 3A  8D 37 37 30 00 07 18 B0  |0:DN.14:.770....|
00001000: 04 82 3A 89 38 32 30 00  2C 18 BA 04 99 22 1C C6  |..:.820.,...."..|
00001010: 49 4C 45 20 C5 58 49 53  54 53 2E 20 20 90 C5 4E  |ILE .XISTS.  ..N|
00001020: 54 45 52 20 4E 45 57 20  4E 41 4D 45 00 56 18 C4  |TER NEW NAME.V..|
00001030: 04 99 22 20 28 31 36 20  43 48 41 52 41 43 54 45  |.." (16 CHARACTE|
00001040: 52 53 20 4D 41 58 49 4D  55 4D 2C 20 4C 4F 57 45  |RS MAXIMUM, LOWE|
00001050: 52 20 43 41 53 45 00 7C  18 CE 04 99 22 20 4F 4E  |R CASE.|...." ON|
00001060: 4C 59 2C 20 53 54 41 52  54 49 4E 47 20 57 49 54  |LY, STARTING WIT|
00001070: 48 20 41 20 4C 45 54 54  45 52 29 3B 00 A5 18 D8  |H A LETTER);....|
00001080: 04 99 22 20 50 52 45 53  53 20 12 D2 C5 D4 D5 D2  |.." PRESS ......|
00001090: CE 92 20 54 4F 20 53 4B  49 50 3A 22 3A 4F 24 28  |.. TO SKIP:":O$(|
000010A0: 49 29 B2 22 22 00 C0 18  E2 04 85 4F 24 28 49 29  |I).""......O$(I)|
000010B0: 3A 8B 20 4F 24 28 49 29  B2 22 22 A7 31 31 38 30  |:. O$(I)."".1180|
000010C0: 00 CD 18 EC 04 A0 39 3A  89 31 31 32 30 00 00 00  |......9:.1120...|

..(.... PRINT SHOP/PRINTMASTER CONVERTER
.G.... BY BRIAN HEYBOER 4/26/86.K.... CL
EARWATER COMMODORE CLUB BBS...(.. SYSOP 
  TEL: 813/545-4884...2.. Q-LINK ID: MOS
FET.G.<.. THIS PROGRAM IS PUBLIC DOMAIN.
..F.Z$.G(0):Q$.G(34):MX.140:FL$.Z$.Z$.Z$
.Z$.Z$.Z$.Z$.Z$.Z$.Z$.Z$.G(139).'.P. .53
280,15:.53281,1.8.Z. .G(14);G(8).K.D..F$
(MX),O$(MX)..N.."...PRINT SHOP/PRINTMAS
TER GRAPHIC CONVERTER";...X.." .. BY BRI
AN HEYBOER (Q-LINK ID: MOSFET)"......"..
.    THIS PROGRAM CONVERTS PRINT SHOP"..
...."  SIDE A (NON-CBM PRINTER) GRAPHICS
 TO".9...."   PRINTMASTER FORMAT AND PRI
NTMASTER".G. .."  ART GALLERY OR DATA DI
SK GRAPHICS TO"......"       PRINT SHOP 
(SIDE A) FORMAT.  ".A...."..      THIS P
ROGRAM IS PUBLIC DOMAIN."......"..PRINT 
SHOP IS A TRADEMARK OF BRODERBUND."...H.
."      PRINTMASTER IS A TRADEMARK OF".@
.R.."             UNISON WORLD.".M....".
...       PRESS ANY KEY TO CONTINUE."...
...A$:.A$."".230......"...PRINT SHOP/PRI
NTMASTER GRAPHIC CONVERTER";.S...." ..TY
PE OF CONVERSION:."......"     1 = PRINT
 SHOP TO PRINTMASTER".'...."     2 = PRI
NTMASTER TO PRINT SHOP".\...." .WHICH";C
T:.CT..1.CT..2.."CHOOSE 1 OR 2":.280.}."
..". SOURCE DRIVE ? .8...";SD...,..".. D
ESTINATION DRIVE ? .8...";DD...6.. SD..D
D .360...@..". PLEASE INSERT THE DISKETT
E INTO THE...J.." DISK DRIVE AND PRESS T
HE .RETURN. KEY..=.T.." CONVERTED PROGRA
MS WILL BE WRITTEN ON.O.^.." SAME DISK; 
DON'T WRITE PROTECT DISK.":.390...H..". 
PLEASE INSERT THE SOURCE DISK IN.C.R.."D
RIVE"SD"AND THE DESTINATION DISK IN...|.
."DRIVE"DD".  PRESS .RETURN. WHEN READY.
"......A$:.A$..G(13).390.-....15,SD,15,"
I0":DN.15:.770:.E.820.R....14,DD,15,"I0"
:DN.14:.770:.E.820......".. FILENAMES TO
 MATCH ? *...";F$:F$.F$."*"......1,8,0,"
$0:".F$:.770:..T....E.."....... IMPOSSIB
LE TO READ DIRECTORY .":.820...B...10);"
'.C.' TO CONVERT FILE...L...10);"'.R.' T
O REJECT FILE".;.V...10);"'.B.' TO BEGIN
 CONVERSION.W.....10);"'.A.' TO ABORT.".
I....#1,A$,B$:N.0......#1,A$,B$:.B$."".7
40......#1,A$,B$:F$."":O$.""......A$..G(
3) .B$.."". BF..1.O....#1,A$:.64.ST.740.
.....A$..Q$.530...&..#1,A$:.A$.Q$.590.(.
0.F$.F$.A$:. A$.."".A.F(A$):.A.96.A.A.32
:A$.G(A).Q.:.. A$." ".A$.".".A$."\".A$."
^".A$."-".C.D.O$.O$.A$:.550.{.N..#1,A$:.
A$.." ".590...X..#1,T$:.T$." ".600...B..
#1,A$:.A$.."".610.H.L.. BF . T$.."P" . B
F.0:.500...V.. CT.2 . I(F$,4)..".GRA".50
0.......2)Q$;F$;Q$;.21);.#...."_ .C:R:B:
A?.........";:GF..1.6....A$:.A$."".660.X
....A$."R"..".REJECT FILE.":.500.....A$
."B"..".BEGIN CONVERSION.":.740......A$.
"A"..".ABORT CONVERSION.":.820......A$..
"C".660...F.N.N.1:F$(N).F$:O$(N).O$:.".C
ONVERT FILE. "...P..N.MX.500...Z..". .MA
XIMUM OF";MX;"FILES.".R.... . GF . .".. 
  NO MATCHING GRAPHICS NAMES FOUND!.":GF
.0..... 1:."............";N;"FILES TO CO
NVERT .":.N.0.820...... CT .870,1080....
..DN,E,E$,E1,E2......E.0.......EE$.J(D(E
),2):E1$.J(D(E1),2):E2$.J(D(E2),2)... ..
E.63...'.*..:."............";EE$;",";E$;
",";E1$;",";E2$.<.4. 15: 14: 1: 8: 9.M.>
.."....... MORE PROGRAMS TO CONVERT? Y..
.";A$.}.H..A$."Y".240...R...12)".END OF 
CONVERSION"...\.."..":....F.. I.1.N:.15,
"I0":.14,"I0":.8,SD,8,F$(I).",P,R":DN.15
...P.. 770:.#8,A$,B$:.F$(I).8.Z.. A$..""
.B$..G(88)...18)"..NOT A PRINT SHOP FILE
..":.980.].....18);"..--> ."H(O$(I),12)"
.GRA"......9,DD,9,H(O$(I),12).".GRA,P,W"
.....DN.14:.770:. E .1010.G....9,G(80);G
(119);G(88);Z$;G(52);Z$;G(180);...... J.
1.52:L$."":.K.1.11......#8,A$:.A$."".A$.
Z$.....L$.L$.A$:.:L$.G(139).L$:.9,L$;:..
L.J..9,Z$;Z$;Z$;Z$;G(139);:.J.1.10:.9,FL
$;:..V.T. 8: 9.P...DN.15:.770:DN.14:.770
.{....:.820. ....".FILE EXISTS.  .ENTER 
NEW NAME.B...." (12 CHARACTERS MAXIMUM, 
NO......" SPACES, PERIODS, '\'S, OR '^'S
);......" PRESS .RETURN. TO SKIP:":O$(I)
.""...... O$(I):. O$(I)."".980.D.$.. I(O
$(I),4).".GRA" . O$(I).H(O$(I),(C(O$(I))
.4)).P... 9:.900...8.. I.1.N:.15,"I0":.1
4,"I0":.8,SD,8,F$(I).",P,R":DN.15.C.B..7
70:.#8,A$,B$:.F$(I)...L..A$..G(80)...18)
"..NOT A PRINTMASTER FILE.":.1180...V.O$
(I).H(O$(I),C(O$(I)).4).E.`...18);"..-->
. "O$(I):.9,DD,9,O$(I).",P,W".^.J.DN.14:
.770:. E .1210...T.:.#8,A$,A$,A$,A$,A$,A
$:.9,Z$;G(88);...~.. J.1.52:L$."":.K.1.1
1......#8,A$:.A$."".A$.Z$.X...L$.L$.A$:.
:.#8,A$:.9,L$;:...... 8: 9.....DN.15:.77
0:DN.14:.770......:.820.,....".FILE EXIS
TS.  .ENTER NEW NAME.V.D.." (16 CHARACTE
RS MAXIMUM, LOWER CASE.|.N.." ONLY, STAR
TING WITH A LETTER);...X.." PRESS .RETUR
N. TO SKIP:":O$(I).""......O$(I):. O$(I)
."".1180.M... 9:.1120...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL