PS-DOODLE
FILE INFORMATION
FILENAME(S): PS-DOODLE
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-10-20 14:31:41
APPEARS ON: 1 disk(s)
FILE HASH
955d3aa9ec465400249eda5318c65f9965d4d2dc1f8b9f0f3d4207cee0ed998c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0094GR | PS-DOODLE | PRG | Treasure Chest - Klaus Der Suhler | 31 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 0A 00 8B 4C A7 34 36 30 00 2E 08 14 |.......L.460....|
00000010: 00 97 35 33 32 38 30 2C 2E 3A 97 35 33 32 38 31 |..53280,.:.53281|
00000020: 2C 2E 3A 99 C7 28 31 34 32 29 C7 28 38 29 00 3B |,.:..(142).(8).;|
00000030: 08 1E 00 51 24 B2 C7 28 33 34 29 00 75 08 28 00 |...Q$..(34).u.(.|
00000040: 99 22 93 11 11 11 11 20 20 20 20 20 20 20 20 05 |."..... .|
00000050: 22 51 24 22 50 52 49 4E 54 20 53 48 4F 50 22 51 |"Q$"PRINT SHOP"Q|
00000060: 24 22 9F 20 54 4F 20 05 22 51 24 22 44 4F 4F 44 |$". TO ."Q$"DOOD|
00000070: 4C 45 22 51 24 00 A4 08 32 00 99 A6 31 33 29 22 |LE"Q$...2...13)"|
00000080: 99 46 49 4C 45 20 43 4F 4E 56 45 52 54 45 52 22 |.FILE CONVERTER"|
00000090: 3A 99 A6 31 34 29 22 1F 56 45 52 53 49 4F 4E 20 |:..14)".VERSION |
000000A0: 31 2E 30 30 00 D5 08 3C 00 99 A6 31 34 29 22 11 |1.00...<...14)".|
000000B0: 1F 42 59 20 9F 4B 49 4D 20 4D 4F 53 45 52 22 3A |.BY .KIM MOSER":|
000000C0: 99 A6 31 33 29 22 9A 46 45 42 52 55 41 52 59 2C |..13)".FEBRUARY,|
000000D0: 20 31 39 38 35 00 03 09 46 00 99 3A 99 22 20 1E | 1985...F..:." .|
000000E0: 20 20 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 | THIS PROGRA|
000000F0: 4D 20 49 53 20 50 55 42 4C 49 43 20 44 4F 4D 41 |M IS PUBLIC DOMA|
00000100: 49 4E 2E 00 34 09 50 00 99 22 49 54 20 4D 41 59 |IN..4.P.."IT MAY|
00000110: 20 42 45 20 43 4F 50 49 45 44 20 41 4E 44 20 44 | BE COPIED AND D|
00000120: 49 53 54 52 49 42 55 54 45 44 20 46 52 45 45 4C |ISTRIBUTED FREEL|
00000130: 59 2E 22 3B 00 60 09 5A 00 99 22 20 20 20 50 4C |Y.";.`.Z.." PL|
00000140: 45 41 53 45 20 44 4F 20 4E 4F 54 20 41 4C 54 45 |EASE DO NOT ALTE|
00000150: 52 20 49 54 20 49 4E 20 41 4E 59 20 57 41 59 2E |R IT IN ANY WAY.|
00000160: 00 8E 09 64 00 99 22 11 20 20 4E 4F 20 47 55 41 |...d..". NO GUA|
00000170: 52 41 4E 54 45 45 53 20 41 52 45 20 4D 41 44 45 |RANTEES ARE MADE|
00000180: 20 52 45 47 41 52 44 49 4E 47 20 54 48 45 00 BF | REGARDING THE..|
00000190: 09 6E 00 99 22 20 50 45 52 46 4F 52 4D 41 4E 43 |.n.." PERFORMANC|
000001A0: 45 20 4F 52 20 51 55 41 4C 49 54 59 20 4F 46 20 |E OR QUALITY OF |
000001B0: 54 48 49 53 20 50 52 4F 47 52 41 4D 2E 22 3B 00 |THIS PROGRAM.";.|
000001C0: EE 09 78 00 99 22 49 4E 20 4F 54 48 45 52 20 57 |..x.."IN OTHER W|
000001D0: 4F 52 44 53 2C 20 55 53 45 20 49 54 20 41 54 20 |ORDS, USE IT AT |
000001E0: 59 4F 55 52 20 4F 57 4E 20 52 49 53 4B 2E 00 21 |YOUR OWN RISK..!|
000001F0: 0A 82 00 99 22 11 20 20 20 20 20 20 20 20 20 1F |....". .|
00000200: 50 52 45 53 53 20 12 9A 52 45 54 55 52 4E 92 1F |PRESS ..RETURN..|
00000210: 20 54 4F 20 42 45 47 49 4E 22 3A 97 31 39 38 2C | TO BEGIN":.198,|
00000220: 2E 00 43 0A 8C 00 9E 35 35 37 33 3A 8F 22 14 14 |..C....5573:."..|
00000230: 14 14 14 14 14 14 14 14 14 14 50 4F 4B 45 31 39 |..........POKE19|
00000240: 38 2C 2E 00 56 0A 96 00 A1 41 24 3A 8B 41 24 B2 |8,..V....A$:.A$.|
00000250: 22 22 A7 31 35 30 00 85 0A A0 00 99 22 93 11 11 |"".150......"...|
00000260: 9A 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |.THIS PROGRAM WI|
00000270: 4C 4C 20 43 4F 4E 56 45 52 54 20 46 49 4C 45 53 |LL CONVERT FILES|
00000280: 20 46 52 4F 4D 00 BF 0A AA 00 99 22 11 9F 22 51 | FROM......".."Q|
00000290: 24 22 54 48 45 20 50 52 49 4E 54 20 53 48 4F 50 |$"THE PRINT SHOP|
000002A0: 22 51 24 22 9A 20 49 4E 54 4F 20 46 49 4C 45 53 |"Q$". INTO FILES|
000002B0: 20 57 48 49 43 48 20 43 41 4E 20 42 45 22 3B 00 | WHICH CAN BE";.|
000002C0: F5 0A B4 00 99 22 11 55 53 45 44 20 57 49 54 48 |.....".USED WITH|
000002D0: 20 9F 22 51 24 22 44 4F 4F 44 4C 45 22 51 24 22 | ."Q$"DOODLE"Q$"|
000002E0: 9A 2E 20 20 59 4F 55 20 57 49 4C 4C 20 42 45 20 |.. YOU WILL BE |
000002F0: 41 53 4B 45 44 00 26 0B BE 00 99 22 11 46 4F 52 |ASKED.&....".FOR|
00000300: 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 41 20 9F | THE NAME OF A .|
00000310: 50 52 49 4E 54 20 53 48 4F 50 9A 20 46 49 4C 45 |PRINT SHOP. FILE|
00000320: 20 57 48 49 43 48 00 54 0B C8 00 99 22 11 45 58 | WHICH.T....".EX|
00000330: 49 53 54 53 2C 20 41 4E 44 20 46 4F 52 20 54 48 |ISTS, AND FOR TH|
00000340: 45 20 4E 41 4D 45 20 4F 46 20 41 20 9F 44 4F 4F |E NAME OF A .DOO|
00000350: 44 4C 45 9A 00 82 0B D2 00 99 22 11 46 49 4C 45 |DLE.......".FILE|
00000360: 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 52 45 | YOU WANT TO CRE|
00000370: 41 54 45 2E 20 20 54 48 49 53 20 50 52 4F 47 52 |ATE. THIS PROGR|
00000380: 41 4D 00 B2 0B DC 00 99 22 11 57 49 4C 4C 20 4C |AM......".WILL L|
00000390: 4F 41 44 20 54 48 45 20 9F 50 52 49 4E 54 20 53 |OAD THE .PRINT S|
000003A0: 48 4F 50 9A 20 46 49 4C 45 2C 20 43 4F 4E 56 45 |HOP. FILE, CONVE|
000003B0: 52 54 00 E2 0B E6 00 99 22 11 49 54 20 54 4F 20 |RT......".IT TO |
000003C0: 41 20 9F 44 4F 4F 44 4C 45 9A 20 46 49 4C 45 2C |A .DOODLE. FILE,|
000003D0: 20 41 4E 44 20 53 41 56 45 20 49 54 20 55 4E 44 | AND SAVE IT UND|
000003E0: 45 52 00 01 0C F0 00 99 22 11 54 48 45 20 4E 41 |ER......".THE NA|
000003F0: 4D 45 20 59 4F 55 20 53 50 45 43 49 46 49 45 44 |ME YOU SPECIFIED|
00000400: 2E 00 34 0C FA 00 97 31 39 38 2C 2E 3A 99 22 11 |..4....198,.:.".|
00000410: 11 20 20 20 20 20 20 20 20 20 1F 50 52 45 53 53 |. .PRESS|
00000420: 20 12 9A 52 45 54 55 52 4E 92 1F 20 54 4F 20 42 | ..RETURN.. TO B|
00000430: 45 47 49 4E 00 47 0C 04 01 A1 41 24 3A 8B 41 24 |EGIN.G....A$:.A$|
00000440: B2 22 22 A7 32 36 30 00 76 0C 0E 01 99 22 93 9A |."".260.v...."..|
00000450: 54 59 50 45 20 54 48 45 20 4E 41 4D 45 20 4F 46 |TYPE THE NAME OF|
00000460: 20 54 48 45 20 9F 50 52 49 4E 54 20 53 48 4F 50 | THE .PRINT SHOP|
00000470: 9A 20 46 49 4C 45 00 A3 0C 18 01 99 22 54 4F 20 |. FILE......"TO |
00000480: 42 45 20 43 4F 4E 56 45 52 54 45 44 20 2D 2D 3E |BE CONVERTED -->|
00000490: 05 22 3B 3A 4C B2 31 36 3A 8D 37 31 30 3A 50 24 |.";:L.16:.710:P$|
000004A0: B2 41 24 00 CF 0C 22 01 99 22 11 9A 50 4C 45 41 |.A$...".."..PLEA|
000004B0: 53 45 20 54 59 50 45 20 41 20 4E 41 4D 45 20 46 |SE TYPE A NAME F|
000004C0: 4F 52 20 54 48 45 20 9F 44 4F 4F 44 4C 45 9A 00 |OR THE .DOODLE..|
000004D0: 01 0D 2C 01 99 22 56 45 52 53 49 4F 4E 20 54 4F |..,.."VERSION TO|
000004E0: 20 42 45 20 53 41 56 45 44 20 41 53 20 1E 28 22 | BE SAVED AS .("|
000004F0: 51 24 22 44 44 22 51 24 22 20 57 49 4C 4C 20 42 |Q$"DD"Q$" WILL B|
00000500: 45 00 33 0D 36 01 99 22 41 44 44 45 44 20 46 4F |E.3.6.."ADDED FO|
00000510: 52 20 59 4F 55 29 20 9A 2D 2D 3E 05 22 3B 3A 4C |R YOU) .-->.";:L|
00000520: B2 31 34 3A 8D 37 31 30 3A 44 24 B2 22 44 44 22 |.14:.710:D$."DD"|
00000530: AA 41 24 00 62 0D 40 01 99 22 11 9A 54 48 45 20 |.A$.b.@.."..THE |
00000540: 9F 50 52 49 4E 54 20 53 48 4F 50 9A 20 46 49 4C |.PRINT SHOP. FIL|
00000550: 45 20 49 53 20 4E 41 4D 45 44 22 3A 99 22 05 22 |E IS NAMED":."."|
00000560: 50 24 00 92 0D 4A 01 99 22 11 9A 54 48 45 20 9F |P$...J.."..THE .|
00000570: 44 4F 4F 44 4C 45 9A 20 46 49 4C 45 20 57 49 4C |DOODLE. FILE WIL|
00000580: 4C 20 42 45 20 4E 41 4D 45 44 22 3A 99 22 05 22 |L BE NAMED":."."|
00000590: 44 24 00 BB 0D 54 01 99 22 11 9A 49 53 20 54 48 |D$...T.."..IS TH|
000005A0: 49 53 20 4F 4B 41 59 20 28 59 2F 4E 29 3F 20 05 |IS OKAY (Y/N)? .|
000005B0: 22 3B 3A 4C B2 31 3A 8D 37 31 30 00 EF 0D 5E 01 |";:L.1:.710...^.|
000005C0: 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 4E 22 |.A$.."Y".A$.."N"|
000005D0: A7 99 22 9A 11 05 54 59 50 45 20 27 59 27 20 4F |.."...TYPE 'Y' O|
000005E0: 52 20 27 4E 27 91 91 91 91 22 3A 89 33 34 30 00 |R 'N'....":.340.|
000005F0: FF 0D 68 01 8B 41 24 B2 22 59 22 A7 33 38 30 00 |..h..A$."Y".380.|
00000600: 08 0E 72 01 89 32 37 30 00 3C 0E 7C 01 81 41 B2 |..r..270.<.|..A.|
00000610: 31 A4 C3 28 44 24 29 3A 97 35 31 32 31 37 AA 41 |1..(D$):.51217.A|
00000620: 2C C6 28 CA 28 44 24 2C 41 2C 31 29 29 3A 82 3A |,.(.(D$,A,1)):.:|
00000630: 97 35 31 32 31 37 2C C3 28 44 24 29 00 6A 0E 86 |.51217,.(D$).j..|
00000640: 01 99 22 93 9A 49 4E 53 45 52 54 20 54 48 45 20 |.."..INSERT THE |
00000650: 44 49 53 4B 20 57 49 54 48 20 54 48 45 20 9F 50 |DISK WITH THE .P|
00000660: 52 49 4E 54 20 53 48 4F 50 9A 00 99 0E 90 01 99 |RINT SHOP.......|
00000670: 22 46 49 4C 45 20 4F 4E 20 49 54 20 41 4E 44 20 |"FILE ON IT AND |
00000680: 50 52 45 53 53 20 99 12 52 45 54 55 52 4E 92 9A |PRESS ..RETURN..|
00000690: 2E 22 3A 97 31 39 38 2C 2E 00 AC 0E 9A 01 A1 41 |.":.198,.......A|
000006A0: 24 3A 8B 41 24 B2 22 22 A7 34 31 30 00 C0 0E A4 |$:.A$."".410....|
000006B0: 01 9F 31 2C 38 2C 31 35 2C 22 49 30 22 3A A0 31 |..1,8,15,"I0":.1|
000006C0: 00 D8 0E AE 01 8D 36 34 30 3A 8B 45 31 24 B3 B1 |......640:.E1$..|
000006D0: 22 30 30 22 A7 33 39 30 00 04 0F B8 01 9F 31 2C |"00".390......1,|
000006E0: 38 2C 33 2C 50 24 AA 22 2C 50 2C 52 22 3A A0 31 |8,3,P$.",P,R":.1|
000006F0: 3A 8D 36 34 30 3A 8B 45 31 24 B3 B1 22 30 30 22 |:.640:.E1$.."00"|
00000700: A7 32 37 30 00 26 0F C2 01 99 22 11 9A 4C 4F 41 |.270.&...."..LOA|
00000710: 44 49 4E 47 2E 2E 2E 2E 22 3B 3A 4C B2 31 3A 93 |DING....";:L.1:.|
00000720: 50 24 2C 38 2C 31 00 3E 0F CC 01 8D 36 34 30 3A |P$,8,1.>....640:|
00000730: 8B 45 31 24 B3 B1 22 30 30 22 A7 33 39 30 00 61 |.E1$.."00".390.a|
00000740: 0F D6 01 99 22 44 4F 4E 45 2E 22 3A 9E 35 34 34 |...."DONE.":.544|
00000750: 30 3A 8F 22 14 14 14 14 14 14 14 14 14 14 14 14 |0:."............|
00000760: 14 00 9C 0F E0 01 99 22 11 9A 44 4F 20 59 4F 55 |......."..DO YOU|
00000770: 20 57 41 4E 54 20 54 4F 20 53 45 45 20 54 48 45 | WANT TO SEE THE|
00000780: 20 50 49 43 54 55 52 45 20 28 59 2F 4E 29 3F 05 | PICTURE (Y/N)?.|
00000790: 20 22 3B 3A 4C B2 31 3A 8D 37 31 30 00 CF 0F EA | ";:L.1:.710....|
000007A0: 01 99 22 9A 22 3B 3A 8B 41 24 B3 B1 22 59 22 AF |..".";:.A$.."Y".|
000007B0: 41 24 B3 B1 22 4E 22 A7 99 22 54 59 50 45 20 27 |A$.."N".."TYPE '|
000007C0: 59 27 20 4F 52 20 27 4E 27 22 3A 89 34 38 30 00 |Y' OR 'N'":.480.|
000007D0: DF 0F F4 01 8B 41 24 B2 22 4E 22 A7 35 37 30 00 |.....A$."N".570.|
000007E0: 11 10 FE 01 99 22 11 41 46 54 45 52 20 56 49 45 |.....".AFTER VIE|
000007F0: 57 49 4E 47 20 50 49 43 54 55 52 45 2C 20 50 52 |WING PICTURE, PR|
00000800: 45 53 53 20 12 99 52 45 54 55 52 4E 92 9A 20 54 |ESS ..RETURN.. T|
00000810: 4F 00 4A 10 08 02 99 22 53 41 56 45 20 49 54 2E |O.J...."SAVE IT.|
00000820: 20 20 4E 4F 57 2C 20 50 52 45 53 53 20 12 99 52 | NOW, PRESS ..R|
00000830: 45 54 55 52 4E 92 9A 20 54 4F 20 53 45 45 20 49 |ETURN.. TO SEE I|
00000840: 54 2E 22 3A 97 31 39 38 2C 2E 00 5D 10 12 02 A1 |T.":.198,..]....|
00000850: 41 24 3A 8B 41 24 B2 22 22 A7 35 33 30 00 95 10 |A$:.A$."".530...|
00000860: 1C 02 97 35 33 32 36 35 2C 35 39 3A 97 35 33 32 |...53265,59:.532|
00000870: 37 32 2C 31 32 30 3A 50 B2 C2 28 35 36 35 37 36 |72,120:P..(56576|
00000880: 29 3A 97 35 36 35 37 36 2C 50 AF 32 35 34 3A 97 |):.56576,P.254:.|
00000890: 31 39 38 2C 2E 00 A8 10 26 02 A1 41 24 3A 8B 41 |198,....&..A$:.A|
000008A0: 24 B2 22 22 A7 35 35 30 00 C9 10 30 02 97 35 33 |$."".550...0..53|
000008B0: 32 36 35 2C 32 37 3A 97 35 33 32 37 32 2C 32 31 |265,27:.53272,21|
000008C0: 3A 97 35 36 35 37 36 2C 50 00 F9 10 3A 02 99 22 |:.56576,P...:.."|
000008D0: 93 9A 49 4E 53 45 52 54 20 44 49 53 4B 20 54 4F |..INSERT DISK TO|
000008E0: 20 43 4F 4E 54 41 49 4E 20 9F 44 4F 4F 44 4C 45 | CONTAIN .DOODLE|
000008F0: 9A 20 50 49 43 54 55 52 45 00 1D 11 44 02 99 22 |. PICTURE...D.."|
00000900: 41 4E 44 20 50 52 45 53 53 20 12 99 52 45 54 55 |AND PRESS ..RETU|
00000910: 52 4E 92 9A 2E 22 3A 97 31 39 38 2C 2E 00 30 11 |RN...":.198,..0.|
00000920: 4E 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 39 30 |N..A$:.A$."".590|
00000930: 00 59 11 58 02 9F 31 2C 38 2C 31 35 2C 22 49 30 |.Y.X..1,8,15,"I0|
00000940: 22 3A A0 31 3A 8D 36 34 30 3A 8B 45 31 24 B3 B1 |":.1:.640:.E1$..|
00000950: 22 30 30 22 A7 89 35 37 30 00 87 11 62 02 99 22 |"00"..570...b.."|
00000960: 11 4E 4F 57 20 53 41 56 49 4E 47 2E 2E 2E 2E 22 |.NOW SAVING...."|
00000970: 3A 9E 35 35 33 33 3A 8F 22 14 14 14 14 14 14 14 |:.5533:.".......|
00000980: 14 14 14 14 14 14 14 00 A0 11 6C 02 8D 36 34 30 |..........l..640|
00000990: 3A 8B 45 31 24 B3 B1 22 30 30 22 A7 89 35 37 30 |:.E1$.."00"..570|
000009A0: 00 B4 11 76 02 99 22 2E 2E 2E 2E 44 4F 4E 45 2E |...v.."....DONE.|
000009B0: 11 22 3A 80 00 E5 11 80 02 A0 31 3A 9F 31 2C 38 |.":.......1:.1,8|
000009C0: 2C 31 35 3A 84 31 2C 45 31 24 2C 45 32 24 2C 45 |,15:.1,E1$,E2$,E|
000009D0: 33 24 2C 45 34 24 3A A0 31 3A 8B 45 31 24 B2 22 |3$,E4$:.1:.E1$."|
000009E0: 30 30 22 A7 8E 00 13 12 94 02 99 22 11 12 05 44 |00"........"...D|
000009F0: 49 53 4B 20 45 52 52 4F 52 3A 92 20 9E 22 45 31 |ISK ERROR:. ."E1|
00000A00: 24 22 2C 22 45 32 24 22 2C 22 45 33 24 22 2C 22 |$","E2$","E3$","|
00000A10: 45 34 24 00 41 12 9E 02 99 22 9A 50 52 45 53 53 |E4$.A....".PRESS|
00000A20: 20 99 12 52 45 54 55 52 4E 92 9A 20 54 4F 20 54 | ..RETURN.. TO T|
00000A30: 52 59 20 41 47 41 49 4E 2E 22 3A 97 31 39 38 2C |RY AGAIN.":.198,|
00000A40: 2E 00 54 12 A8 02 A1 41 24 3A 8B 41 24 B2 22 22 |..T....A$:.A$.""|
00000A50: A7 36 38 30 00 5A 12 B2 02 8E 00 69 12 C6 02 50 |.680.Z.....i...P|
00000A60: 53 B2 31 3A 4B 24 B2 22 22 00 90 12 D0 02 99 22 |S.1:K$.""......"|
00000A70: 12 20 92 9D 22 3B 3A 81 41 B2 31 A4 35 35 3A A1 |. ..";:.A.1.55:.|
00000A80: 41 24 3A 8B 41 24 B2 22 22 A7 82 3A 89 37 34 30 |A$:.A$.""..:.740|
00000A90: 00 99 12 DA 02 89 37 35 30 00 BE 12 E4 02 99 22 |......750......"|
00000AA0: 20 9D 22 3B 3A 81 41 B2 31 A4 35 35 3A A1 41 24 | .";:.A.1.55:.A$|
00000AB0: 3A 8B 41 24 B2 22 22 A7 82 3A 89 37 32 30 00 C4 |:.A$.""..:.720..|
00000AC0: 12 EE 02 8F 00 DD 12 F8 02 8B 41 24 B1 B2 22 41 |..........A$.."A|
00000AD0: 22 AF 41 24 B3 B2 22 5A 22 A7 38 38 30 00 EF 12 |".A$.."Z".880...|
00000AE0: 02 03 8B 41 24 B2 C7 28 33 34 29 A7 37 32 30 00 |...A$..(34).720.|
00000AF0: 22 13 0C 03 8B 41 24 B2 22 13 22 B0 41 24 B2 22 |"....A$.".".A$."|
00000B00: 93 22 B0 41 24 B2 22 11 22 B0 41 24 B2 22 91 22 |.".A$.".".A$."."|
00000B10: B0 41 24 B2 22 94 22 B0 41 24 B2 22 12 22 A7 37 |.A$.".".A$.".".7|
00000B20: 32 30 00 56 13 16 03 8B 28 41 24 B2 C7 28 31 33 |20.V....(A$..(13|
00000B30: 29 B0 41 24 B2 C7 28 31 34 31 29 29 AF C3 28 4B |).A$..(141))..(K|
00000B40: 24 29 B1 30 A7 99 22 20 22 3A 50 53 B2 30 3A 41 |$).0.." ":PS.0:A|
00000B50: 24 B2 4B 24 3A 8E 00 7C 13 20 03 8B 28 41 24 B2 |$.K$:..|. ..(A$.|
00000B60: C7 28 31 33 29 B0 41 24 B2 C7 28 31 34 31 29 29 |.(13).A$..(141))|
00000B70: AF C3 28 4B 24 29 B2 30 A7 37 32 30 00 9A 13 2A |..(K$).0.720...*|
00000B80: 03 8B 28 41 24 B2 22 20 22 B0 41 24 B2 22 A0 22 |..(A$." ".A$."."|
00000B90: 29 AF 50 53 B2 31 A7 37 32 30 00 C6 13 34 03 8B |).PS.1.720...4..|
00000BA0: 28 41 24 B2 C7 28 32 30 29 B0 41 24 B2 22 9D 22 |(A$..(20).A$."."|
00000BB0: 29 AF C3 28 4B 24 29 B1 31 A7 99 22 20 9D 9D 22 |)..(K$).1.." .."|
00000BC0: 3B 3A 89 38 34 30 00 CF 13 3E 03 89 38 35 30 00 |;:.840...>..850.|
00000BD0: F1 13 48 03 4B 24 B2 C8 28 4B 24 2C C3 28 4B 24 |..H.K$..(K$,.(K$|
00000BE0: 29 AB 31 29 3A 50 53 B2 50 53 AB 31 3A 89 37 32 |).1):PS.PS.1:.72|
00000BF0: 30 00 28 14 52 03 8B 28 41 24 B2 C7 28 32 30 29 |0.(.R..(A$..(20)|
00000C00: B0 41 24 B2 22 9D 22 29 AF C3 28 4B 24 29 B2 31 |.A$.".")..(K$).1|
00000C10: A7 99 22 20 9D 9D 22 3B 3A 4B 24 B2 22 22 3A 50 |.." ..";:K$."":P|
00000C20: 53 B2 31 3A 89 37 32 30 00 47 14 5C 03 8B 41 24 |S.1:.720.G.\..A$|
00000C30: B2 C7 28 32 30 29 B0 41 24 B2 22 9D 22 AF 4B 24 |..(20).A$.".".K$|
00000C40: B2 22 22 A7 37 32 30 00 5A 14 66 03 8B C2 28 36 |."".720.Z.f...(6|
00000C50: 35 33 29 B3 B1 30 A7 37 32 30 00 68 14 70 03 8B |53)..0.720.h.p..|
00000C60: 50 53 B1 4C A7 37 32 30 00 87 14 7A 03 99 41 24 |PS.L.720...z..A$|
00000C70: 3B 3A 4B 24 B2 4B 24 AA 41 24 3A 50 53 B2 50 53 |;:K$.K$.A$:PS.PS|
00000C80: AA 31 3A 89 37 32 30 00 00 00 00 00 00 00 00 01 |.1:.720.........|
00000C90: 01 00 00 82 00 00 44 00 00 28 00 00 00 00 00 00 |......D..(......|
00000CA0: 00 01 01 00 00 82 00 00 44 00 00 28 00 81 00 00 |........D..(....|
00000CB0: 00 00 A0 01 FF 00 20 FE 00 11 FF 18 0B FF A4 07 |...... .........|
00000CC0: FF C0 03 FF 88 13 FF 90 2B FF A0 07 FF C0 01 FF |........+.......|
00000CD0: 00 00 FE 00 00 7C 00 00 00 00 20 00 00 00 00 00 |.....|.... .....|
00000CE0: 00 01 01 00 00 82 00 00 44 00 00 28 20 04 38 40 |........D..( .8@|
00000CF0: 0A 7C 80 01 FF 00 00 FE 00 31 FF 10 4B FF A8 07 |.|.......1..K...|
00000D00: FF C0 23 FF 80 13 FF 98 0B FF A4 07 FF C0 01 FF |..#.............|
00000D10: 00 00 FE 00 00 7C 00 00 00 00 38 60 02 7C 90 00 |.....|....8`.|..|
00000D20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000D40: 00 A9 00 85 FB 85 FD A9 40 85 FC A9 60 85 FE A0 |........@...`...|
00000D50: 00 B1 FB 91 FD A5 FB C9 3F D0 09 A5 FC C9 5F D0 |........?....._.|
00000D60: 03 4C 74 15 E6 FB E6 FD A5 FB C9 00 D0 04 E6 FC |.Lt.............|
00000D70: E6 FE 4C 50 15 A9 00 85 FB A9 5C 85 FC A9 00 91 |..LP......\.....|
00000D80: FB A5 FB C9 E7 D0 07 A5 FC C9 5F D0 01 60 E6 FB |.........._..`..|
00000D90: A5 FB C9 00 D0 E7 E6 FC 4C 7C 15 EA EA EA A9 01 |........L|......|
00000DA0: A2 08 A0 FF 20 BA FF AD 11 C8 A2 12 A0 C8 20 BD |.... ......... .|
00000DB0: FF A9 00 85 FB A9 5C 85 FC A9 FB A2 3F A0 7F 20 |......\.....?.. |
00000DC0: D8 FF 60 00 00 00 A0 00 B9 DC 15 38 E9 01 C9 90 |..`........8....|
00000DD0: F0 07 20 D2 FF C8 4C C7 15 60 EA EA EA 14 12 12 |.. ...L..`......|
00000DE0: 12 12 12 12 12 12 21 21 21 21 21 21 21 21 21 21 |......!!!!!!!!!!|
00000DF0: 21 21 21 21 20 43 5A 21 A0 4C 4A 4E 21 4E 50 54 |!!!! CZ!.LJN!NPT|
00000E00: 46 53 91 00 00 |FS... |
.......L.460......53280,.:.53281,.:.G(14
2)G(8).;...Q$.G(34).U.(.."..... .
"Q$"PRINT SHOP"Q$". TO ."Q$"DOODLE"Q$...
2...13)".FILE CONVERTER":..14)".VERSION
1.00.U.<...14)"..BY .KIM MOSER":..13)".F
EBRUARY, 1985...F..:." . THIS PROGRA
M IS PUBLIC DOMAIN..4.P.."IT MAY BE COPI
ED AND DISTRIBUTED FREELY.";.`.Z.." PL
EASE DO NOT ALTER IT IN ANY WAY....D..".
NO GUARANTEES ARE MADE REGARDING THE..
.N.." PERFORMANCE OR QUALITY OF THIS PRO
GRAM.";...X.."IN OTHER WORDS, USE IT AT
YOUR OWN RISK..!....". .PRESS ..
RETURN.. TO BEGIN":.198,..C....5573:."..
..........POKE198,..V....A$:.A$."".150..
. .."....THIS PROGRAM WILL CONVERT FILES
FROM......".."Q$"THE PRINT SHOP"Q$". IN
TO FILES WHICH CAN BE";......".USED WITH
."Q$"DOODLE"Q$".. YOU WILL BE ASKED.&.
...".FOR THE NAME OF A .PRINT SHOP. FILE
WHICH.T.H..".EXISTS, AND FOR THE NAME O
F A .DOODLE....R..".FILE YOU WANT TO CRE
ATE. THIS PROGRAM......".WILL LOAD THE
.PRINT SHOP. FILE, CONVERT......".IT TO
A .DOODLE. FILE, AND SAVE IT UNDER......
".THE NAME YOU SPECIFIED..4....198,.:.".
. .PRESS ..RETURN.. TO BEGIN.G..
..A$:.A$."".260.V...."..TYPE THE NAME OF
THE .PRINT SHOP. FILE......"TO BE CONVE
RTED -->.";:L.16:.710:P$.A$.O.".."..PLEA
SE TYPE A NAME FOR THE .DOODLE....,.."VE
RSION TO BE SAVED AS .("Q$"DD"Q$" WILL B
E.3.6.."ADDED FOR YOU) .-->.";:L.14:.710
:D$."DD".A$.B.@.."..THE .PRINT SHOP. FIL
E IS NAMED":."."P$...J.."..THE .DOODLE.
FILE WILL BE NAMED":."."D$...T.."..IS TH
IS OKAY (Y/N)? .";:L.1:.710...^..A$.."Y"
.A$.."N".."...TYPE 'Y' OR 'N'....":.340.
..H..A$."Y".380...R..270.<.|..A.1.C(D$):
.51217.A,F(J(D$,A,1)):.:.51217,C(D$).J..
.."..INSERT THE DISK WITH THE .PRINT SHO
P......."FILE ON IT AND PRESS ..RETURN..
.":.198,.......A$:.A$."".410......1,8,15
,"I0": 1.X....640:.E1$.."00".390......1,
8,3,P$.",P,R": 1:.640:.E1$.."00".270.&.B
.."..LOADING....";:L.1:.P$,8,1.>.L..640:
.E1$.."00".390.A.V.."DONE.":.5440:."....
..............."..DO YOU WANT TO SEE THE
PICTURE (Y/N)?. ";:L.1:.710.O....".";:.
A$.."Y".A$.."N".."TYPE 'Y' OR 'N'":.480.
.....A$."N".570......".AFTER VIEWING PIC
TURE, PRESS ..RETURN.. TO.J...."SAVE IT.
NOW, PRESS ..RETURN.. TO SEE IT.":.198
,..]....A$:.A$."".530......53265,59:.532
72,120:P.B(56576):.56576,P.254:.198,....
&..A$:.A$."".550.I.0..53265,27:.53272,21
:.56576,P...:.."..INSERT DISK TO CONTAIN
.DOODLE. PICTURE...D.."AND PRESS ..RETU
RN...":.198,..0.N..A$:.A$."".590.Y.X..1,
8,15,"I0": 1:.640:.E1$.."00"..570...B.."
.NOW SAVING....":.5533:."...............
.L..640:.E1$.."00"..570...V.."....DONE.
.":...... 1:.1,8,15:.1,E1$,E2$,E3$,E4$:
1:.E1$."00"........"...DISK ERROR:. ."E1
$","E2$","E3$","E4$.A....".PRESS ..RETUR
N.. TO TRY AGAIN.":.198,..T....A$:.A$.""
.680.Z.....I.F.PS.1:K$.""...P..". ..";:.
A.1.55:.A$:.A$.""..:.740...Z..750......"
.";:.A.1.55:.A$:.A$.""..:.720.D........
..A$.."A".A$.."Z".880......A$.G(34).720.
"....A$.".".A$.".".A$.".".A$.".".A$.".".
A$.".".720.V....(A$.G(13).A$.G(141)).C(K
$).0.." ":PS.0:A$.K$:..|. ..(A$.G(13).A$
.G(141)).C(K$).0.720...*..(A$." ".A$." "
).PS.1.720.F.4..(A$.G(20).A$.".").C(K$).
1.." ..";:.840.O.>..850...H.K$.H(K$,C(K$
).1):PS.PS.1:.720.(.R..(A$.G(20).A$.".")
.C(K$).1.." ..";:K$."":PS.1:.720.G.\..A$
.G(20).A$.".".K$."".720.Z.F..B(653)..0.7
20.H.P..PS.L.720...Z..A$;:K$.K$.A$:PS.PS
.1:.720...............D..(..............
D..(...... ... .................+. .....
.....|.... .............D..( .8@.|......
.1..K.....#..................|....8`.|..
........................................
@...`.. .......I?P...I_P.LT.......I.P...
..LP......\........I.P...I_P.`....I.P...
L|........ . ....H.. H .......\.....?
X.`... ....8..I... R.HLG.`............!!
!!!!!!!!!!!! CZ! LJN!NPTFS...
> CLICK IMAGE PREVIEW FOR FULL MODAL