PICTURES
FILE INFORMATION
FILENAME(S): PICTURES
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-10-20 14:30:17
APPEARS ON: 6 disk(s)
FILE HASH
f9b7cd88895466a7bc522349413b0bf78372207927d532a312f93a79d697e681
FOUND ON DISKS (6 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | PICTURES | PRG | Treasure Chest - Klaus Der Suhler | 29 | 3 | DOWNLOAD FILE |
| FREESOFT NR | PICTURES | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 2 | DOWNLOAD FILE |
| 012A | PICTURES | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 2 | DOWNLOAD FILE |
| A NWENDER | PICTURES | PRG | Treasure Chest - Wolfgang Rauprich | 32 | 3 | DOWNLOAD FILE |
| FREESOFT DISK NR | PICTURES | PRG | Treasure Chest - Wolfgang Rauprich | 32 | 3 | DOWNLOAD FILE |
| FREESOFT DISK NR | PICTURES | PRG | Treasure Chest - Wolfgang Rauprich | 30 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 28 04 01 00 8F 20 50 52 4F 47 52 41 4D 20 |..(.... PROGRAM |
00000010: 42 59 20 42 49 4C 4C 20 46 49 4E 5A 45 52 2C 20 |BY BILL FINZER, |
00000020: 4A 41 4E 2C 31 39 38 30 00 69 04 02 00 8F 20 49 |JAN,1980.i.... I|
00000030: 44 45 41 20 42 59 20 44 49 41 4E 45 20 52 45 53 |DEA BY DIANE RES|
00000040: 45 4B 20 41 4E 44 20 50 49 43 54 55 52 45 53 20 |EK AND PICTURES |
00000050: 20 20 20 20 20 20 42 59 20 56 49 43 54 4F 52 49 | BY VICTORI|
00000060: 41 20 4D 55 4B 45 52 4A 49 00 A2 04 03 00 8F 20 |A MUKERJI...... |
00000070: 49 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 41 |IF YOU WANT TO A|
00000080: 44 44 20 4D 4F 52 45 20 44 52 41 57 49 4E 47 20 |DD MORE DRAWING |
00000090: 50 41 52 54 53 2C 20 54 52 59 20 52 55 4E 37 30 |PARTS, TRY RUN70|
000000A0: 30 30 00 E0 04 04 00 8F 20 59 4F 55 52 20 4E 45 |00...... YOUR NE|
000000B0: 57 20 50 41 52 54 53 20 57 49 4C 4C 20 42 45 20 |W PARTS WILL BE |
000000C0: 53 41 56 45 44 20 49 4E 20 54 48 45 20 50 52 4F |SAVED IN THE PRO|
000000D0: 47 52 41 4D 20 41 53 20 53 54 52 49 4E 47 53 2E |GRAM AS STRINGS.|
000000E0: 00 FC 04 E8 03 8F 2D 2D 2D 2D 2D 4D 41 49 4E 20 |......-----MAIN |
000000F0: 52 4F 55 54 49 4E 45 2D 2D 2D 2D 2D 00 0F 05 F2 |ROUTINE-----....|
00000100: 03 8D 20 37 32 30 30 3A 8F 20 20 49 4E 49 54 00 |.. 7200:. INIT.|
00000110: 29 05 FC 03 8D 20 31 34 30 30 3A 8F 20 49 4E 53 |).... 1400:. INS|
00000120: 54 52 55 43 54 49 4F 4E 53 00 3B 05 06 04 8D 20 |TRUCTIONS.;.... |
00000130: 32 30 30 30 3A 8F 20 44 52 41 57 00 4E 05 10 04 |2000:. DRAW.N...|
00000140: 58 B2 30 3A 59 B2 32 34 3A 8D 39 30 30 30 00 6E |X.0:Y.24:.9000.n|
00000150: 05 1A 04 99 22 41 52 45 20 59 4F 55 20 44 4F 4E |...."ARE YOU DON|
00000160: 45 3F 20 28 59 20 4F 52 20 4E 29 20 22 3B 00 80 |E? (Y OR N) ";..|
00000170: 05 24 04 8D 20 38 30 30 30 3A 99 41 24 22 91 22 |.$.. 8000:.A$"."|
00000180: 00 9D 05 2E 04 8B 20 41 24 B3 B1 22 59 22 20 A7 |...... A$.."Y" .|
00000190: 20 99 42 4C 24 3B 3A 89 20 31 30 33 30 00 B4 05 | .BL$;:. 1030...|
000001A0: 38 04 99 22 11 12 47 4F 4F 44 42 59 45 20 54 48 |8.."..GOODBYE TH|
000001B0: 45 4E 21 22 00 C6 05 42 04 40 8A 22 50 2E 53 41 |EN!"...B.@."P.SA|
000001C0: 4D 50 4C 45 52 22 00 E1 05 78 05 8F 2D 2D 2D 2D |MPLER"...x..----|
000001D0: 2D 49 4E 53 54 52 55 43 54 49 4F 4E 53 2D 2D 2D |-INSTRUCTIONS---|
000001E0: 2D 00 FA 05 82 05 99 22 93 22 A3 31 35 29 22 12 |-......".".15)".|
000001F0: 20 50 49 43 54 55 52 45 20 22 00 29 06 8C 05 99 | PICTURE ".)....|
00000200: 22 11 49 20 4B 4E 4F 57 20 48 4F 57 20 54 4F 20 |".I KNOW HOW TO |
00000210: 44 52 41 57 20 53 4F 4D 45 20 53 4D 41 4C 4C 20 |DRAW SOME SMALL |
00000220: 50 49 43 54 55 52 45 53 2E 00 72 06 96 05 99 22 |PICTURES..r...."|
00000230: 59 4F 55 20 43 41 4E 20 55 53 45 20 54 48 45 53 |YOU CAN USE THES|
00000240: 45 20 53 4D 41 4C 4C 20 50 49 43 54 55 52 45 53 |E SMALL PICTURES|
00000250: 20 54 4F 20 20 20 20 20 43 4F 4E 53 54 52 55 43 | TO CONSTRUC|
00000260: 54 20 4C 41 52 47 45 52 20 50 49 43 54 55 52 45 |T LARGER PICTURE|
00000270: 53 2E 00 9E 06 A0 05 99 22 11 54 48 45 20 50 49 |S.......".THE PI|
00000280: 43 54 55 52 45 53 20 49 20 4B 4E 4F 57 20 48 4F |CTURES I KNOW HO|
00000290: 57 20 54 4F 20 44 52 41 57 20 41 52 45 3A 00 AD |W TO DRAW ARE:..|
000002A0: 06 AA 05 81 20 49 B2 30 20 A4 20 32 35 00 C4 06 |.... I.0 . 25...|
000002B0: B4 05 3A 20 8B 20 50 24 28 49 29 B2 22 22 A7 20 |..: . P$(I)."". |
000002C0: 31 34 38 30 00 EF 06 BE 05 3A 20 99 A3 31 30 29 |1480.....: ..10)|
000002D0: 22 12 22 C8 28 4E 41 24 28 49 29 2C 31 29 22 92 |".".(NA$(I),1)".|
000002E0: 20 46 4F 52 20 12 22 4E 41 4D 45 24 28 49 29 00 | FOR ."NAME$(I).|
000002F0: F6 06 C8 05 82 49 00 24 07 D2 05 99 22 46 49 52 |.....I.$...."FIR|
00000300: 53 54 20 55 53 45 20 54 48 45 20 12 42 4C 55 45 |ST USE THE .BLUE|
00000310: 20 43 55 52 53 4F 52 20 43 4F 4E 54 52 4F 4C 53 | CURSOR CONTROLS|
00000320: 92 20 54 4F 00 4B 07 DC 05 99 22 4D 4F 56 45 20 |. TO.K...."MOVE |
00000330: 54 48 45 20 42 4C 49 4E 4B 49 4E 47 20 43 55 52 |THE BLINKING CUR|
00000340: 53 4F 52 20 41 52 4F 55 4E 44 2E 00 79 07 E6 05 |SOR AROUND..y...|
00000350: 99 22 54 48 45 4E 20 50 52 45 53 53 20 54 48 45 |."THEN PRESS THE|
00000360: 20 46 49 52 53 54 20 4C 45 54 54 45 52 20 4F 46 | FIRST LETTER OF|
00000370: 20 54 48 45 20 4E 41 4D 45 00 B6 07 F0 05 99 22 | THE NAME......"|
00000380: 4F 46 20 54 48 45 20 50 49 43 54 55 52 45 20 59 |OF THE PICTURE Y|
00000390: 4F 55 20 57 41 4E 54 20 54 4F 20 41 50 50 45 41 |OU WANT TO APPEA|
000003A0: 52 20 57 48 45 52 45 20 54 48 45 20 43 55 52 53 |R WHERE THE CURS|
000003B0: 4F 52 20 49 53 2E 00 FE 07 F2 05 99 22 11 50 52 |OR IS.......".PR|
000003C0: 45 53 53 49 4E 47 20 12 2A 92 20 4E 45 41 52 20 |ESSING .*. NEAR |
000003D0: 54 48 45 20 43 45 4E 54 45 52 20 4F 46 20 41 20 |THE CENTER OF A |
000003E0: 20 20 20 20 20 20 20 20 50 49 43 54 55 52 45 20 | PICTURE |
000003F0: 57 49 4C 4C 20 45 52 41 53 45 20 49 54 2E 00 28 |WILL ERASE IT..(|
00000400: 08 F5 05 99 22 57 48 45 4E 20 59 4F 55 20 41 52 |...."WHEN YOU AR|
00000410: 45 20 44 4F 4E 45 2C 20 50 52 45 53 53 20 12 52 |E DONE, PRESS .R|
00000420: 45 54 55 52 4E 92 2E 22 00 51 08 FA 05 99 22 11 |ETURN..".Q....".|
00000430: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00000440: 20 53 54 41 52 54 20 44 52 41 57 49 4E 47 2E 22 | START DRAWING."|
00000450: 3B 00 60 08 04 06 8D 20 38 30 30 30 3A 99 41 24 |;.`.... 8000:.A$|
00000460: 00 69 08 0E 06 99 22 93 22 00 6F 08 18 06 8E 00 |.i....".".o.....|
00000470: 85 08 D0 07 8F 2D 2D 2D 2D 2D 44 52 41 57 2D 2D |.....-----DRAW--|
00000480: 2D 2D 2D 2D 2D 00 B7 08 DA 07 99 22 13 20 20 20 |-----......". |
00000490: 20 20 20 20 20 20 20 20 20 2A 20 46 4F 52 20 45 | * FOR E|
000004A0: 52 41 53 45 20 20 52 45 54 55 52 4E 20 49 46 20 |RASE RETURN IF |
000004B0: 44 4F 4E 45 13 22 3B 00 C3 08 E4 07 81 49 B2 30 |DONE.";......I.0|
000004C0: A4 32 35 00 DB 08 EE 07 3A 20 8B 20 50 24 28 49 |.25.....: . P$(I|
000004D0: 29 B2 22 22 20 A7 20 32 30 35 30 00 00 09 F8 07 |)."" . 2050.....|
000004E0: 3A 20 99 22 12 22 C8 28 4E 41 24 28 49 29 2C 31 |: .".".(NA$(I),1|
000004F0: 29 22 92 20 46 4F 52 20 12 22 4E 41 24 28 49 29 |)". FOR ."NA$(I)|
00000500: 00 08 09 02 08 82 20 49 00 0E 09 0C 08 99 00 1C |...... I........|
00000510: 09 16 08 58 B2 32 30 3A 59 B2 31 32 00 2D 09 20 |...X.20:Y.12.-. |
00000520: 08 8D 20 38 36 30 30 3A 8D 38 38 30 30 00 3D 09 |.. 8600:.8800.=.|
00000530: 2A 08 81 20 50 50 B2 30 20 A4 20 32 35 00 71 09 |*.. PP.0 . 25.q.|
00000540: 34 08 3A 20 8B 20 41 24 B2 C8 28 4E 41 24 28 50 |4.: . A$..(NA$(P|
00000550: 50 29 2C 31 29 A7 20 8D 39 30 30 30 3A 99 50 24 |P),1). .9000:.P$|
00000560: 28 50 50 29 3A 8D 20 32 34 30 30 3A 8F 20 41 44 |(PP):. 2400:. AD|
00000570: 44 00 7A 09 48 08 82 20 50 50 00 8D 09 52 08 8B |D.z.H.. PP...R..|
00000580: 20 41 24 B2 C7 28 31 33 29 20 A7 20 8E 00 AB 09 | A$..(13) . ....|
00000590: 57 08 8B 20 41 24 B2 22 2A 22 20 A7 20 8D 20 32 |W.. A$."*" . . 2|
000005A0: 32 30 30 3A 8F 20 45 52 41 53 45 00 B6 09 5C 08 |200:. ERASE...\.|
000005B0: 89 20 32 30 38 30 00 D8 09 98 08 8F 2D 2D 2D 2D |. 2080......----|
000005C0: 2D 45 52 41 53 45 20 50 41 52 54 20 4E 45 41 52 |-ERASE PART NEAR|
000005D0: 20 58 2C 59 2D 2D 2D 2D 00 EA 09 9D 08 8B 20 4E | X,Y----...... N|
000005E0: 50 B2 30 20 A7 20 32 33 35 30 00 F2 09 9F 08 46 |P.0 . 2350.....F|
000005F0: B2 30 00 01 0A A2 08 81 20 49 B2 30 A4 4E 50 AB |.0...... I.0.NP.|
00000600: 31 00 45 0A AC 08 3A 20 8B 20 B6 28 50 41 25 28 |1.E...: . .(PA%(|
00000610: 49 2C 31 29 AB 58 29 B3 32 AF B6 28 50 41 25 28 |I,1).X).2..(PA%(|
00000620: 49 2C 32 29 AB 59 29 B3 32 20 A7 50 54 B2 50 41 |I,2).Y).2 .PT.PA|
00000630: 25 28 49 2C 30 29 3A 50 31 B2 49 3A 49 B2 4E 50 |%(I,0):P1.I:I.NP|
00000640: 3A 46 B2 AB 31 00 4D 0A B6 08 82 20 49 00 5E 0A |:F..1.M.... I.^.|
00000650: BB 08 8B 20 46 B2 30 20 A7 20 32 33 35 30 00 80 |... F.0 . 2350..|
00000660: 0A C0 08 58 B2 50 41 25 28 50 31 2C 31 29 3A 59 |...X.PA%(P1,1):Y|
00000670: B2 50 41 25 28 50 31 2C 32 29 3A 8D 39 30 30 30 |.PA%(P1,2):.9000|
00000680: 00 8E 0A CA 08 50 24 B2 50 24 28 50 54 29 00 A0 |.....P$.P$(PT)..|
00000690: 0A D4 08 81 20 49 B2 31 20 A4 20 C3 28 50 24 29 |.... I.1 . .(P$)|
000006A0: 00 BB 0A DE 08 3A 20 43 24 B2 CA 28 50 24 2C 49 |.....: C$..(P$,I|
000006B0: 2C 31 29 3A 43 B2 C6 28 43 24 29 00 F2 0A E8 08 |,1):C..(C$).....|
000006C0: 3A 20 8B 20 28 43 B3 33 32 20 B0 20 28 43 B1 31 |: . (C.32 . (C.1|
000006D0: 32 37 20 AF 20 43 B3 31 36 31 29 29 20 AF 20 43 |27 . C.161)) . C|
000006E0: B3 B1 31 38 20 A7 20 99 43 24 3B 3A 89 20 32 33 |..18 . .C$;:. 23|
000006F0: 30 30 00 0A 0B F2 08 3A 20 20 20 8B 20 43 B3 B1 |00.....: . C..|
00000700: 31 38 20 A7 20 99 22 20 22 3B 00 12 0B FC 08 82 |18 . ." ";......|
00000710: 20 49 00 1E 0B 01 09 4E 50 B2 4E 50 AB 31 00 30 | I.....NP.NP.1.0|
00000720: 0B 03 09 8B 20 4E 50 B2 30 20 A7 20 32 33 35 30 |.... NP.0 . 2350|
00000730: 00 58 0B 06 09 81 20 49 B2 20 50 31 20 A4 20 4E |.X.... I. P1 . N|
00000740: 50 3A 8F 20 4D 4F 56 45 20 50 41 52 54 53 20 4C |P:. MOVE PARTS L|
00000750: 49 53 54 20 44 4F 57 4E 00 68 0B 10 09 3A 20 81 |IST DOWN.h...: .|
00000760: 20 4A B2 30 20 A4 20 32 00 84 0B 1A 09 3A 20 20 | J.0 . 2.....: |
00000770: 20 50 41 25 28 49 2C 4A 29 B2 50 41 25 28 49 AA | PA%(I,J).PA%(I.|
00000780: 31 2C 4A 29 00 8E 0B 24 09 82 20 4A 2C 49 00 94 |1,J)...$.. J,I..|
00000790: 0B 2E 09 8E 00 AB 0B 60 09 8F 2D 2D 2D 2D 41 44 |.......`..----AD|
000007A0: 44 20 50 41 52 54 2D 2D 2D 2D 2D 00 DE 0B 6A 09 |D PART-----...j.|
000007B0: 50 41 52 54 53 25 28 4E 50 2C 20 30 29 B2 50 50 |PARTS%(NP, 0).PP|
000007C0: 3A 50 41 52 54 53 25 28 4E 50 2C 31 29 B2 58 3A |:PARTS%(NP,1).X:|
000007D0: 50 41 52 54 53 25 28 4E 50 2C 32 29 B2 59 00 EA |PARTS%(NP,2).Y..|
000007E0: 0B 7E 09 4E 50 B2 4E 50 AA 31 00 FD 0B 83 09 8B |.~.NP.NP.1......|
000007F0: 20 4E 50 B1 36 30 20 A7 20 4E 50 B2 30 00 03 0C | NP.60 . NP.0...|
00000800: 88 09 8E 00 25 0C 58 1B 8F 2D 2D 2D 42 55 49 4C |....%.X..---BUIL|
00000810: 44 20 50 49 43 54 55 52 45 20 53 54 52 49 4E 47 |D PICTURE STRING|
00000820: 53 2D 2D 2D 2D 00 3D 0C 62 1B 8D 20 37 32 30 30 |S----.=.b.. 7200|
00000830: 3A 8F 20 49 4E 49 54 20 42 55 49 4C 44 00 5B 0C |:. INIT BUILD.[.|
00000840: 6C 1B 85 22 93 4E 41 4D 45 20 4F 46 20 50 49 43 |l..".NAME OF PIC|
00000850: 54 55 52 45 22 3B 4E 41 4D 45 24 00 A8 0C 76 1B |TURE";NAME$...v.|
00000860: 99 22 11 55 53 45 20 43 55 52 53 4F 52 20 43 4F |.".USE CURSOR CO|
00000870: 4E 54 52 4F 4C 53 20 54 4F 20 4D 4F 56 45 20 41 |NTROLS TO MOVE A|
00000880: 52 4F 55 4E 44 2E 20 20 20 20 20 27 53 27 20 54 |ROUND. 'S' T|
00000890: 4F 20 53 54 41 52 54 20 26 20 52 45 54 55 52 4E |O START & RETURN|
000008A0: 20 54 4F 20 45 4E 44 2E 00 C1 0C 8A 1B 8D 20 37 | TO END....... 7|
000008B0: 34 30 30 3A 8F 20 47 45 54 20 50 49 43 54 55 52 |400:. GET PICTUR|
000008C0: 45 00 DB 0C 94 1B 8D 20 37 36 30 30 3A 8F 20 53 |E...... 7600:. S|
000008D0: 41 56 45 20 50 49 43 54 55 52 45 00 FC 0C 9E 1B |AVE PICTURE.....|
000008E0: 8F 2D 2D 2D 2D 4B 45 45 50 20 47 4F 49 4E 47 20 |.----KEEP GOING |
000008F0: 54 49 4C 20 42 52 45 41 4B 2D 2D 2D 00 15 0D 20 |TIL BREAK---... |
00000900: 1C 8F 2D 2D 2D 2D 49 4E 49 54 20 42 55 49 4C 44 |..----INIT BUILD|
00000910: 2D 2D 2D 2D 2D 00 24 0D 23 1C 97 20 35 39 34 36 |-----.$.#.. 5946|
00000920: 38 2C 31 32 00 47 0D 25 1C 44 24 B2 22 11 11 11 |8,12.G.%.D$."...|
00000930: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000940: 11 11 11 11 11 11 22 00 78 0D 27 1C 42 4C 24 B2 |......".x.'.BL$.|
00000950: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000960: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000970: 20 20 20 20 20 20 20 22 00 85 0D 2A 1C 53 4E B2 | "...*.SN.|
00000980: 20 37 33 37 30 00 B6 0D 34 1C 97 20 35 32 35 2C | 7370...4.. 525,|
00000990: 30 3A 86 20 50 24 28 32 36 29 2C 4E 41 4D 45 24 |0:. P$(26),NAME$|
000009A0: 28 32 36 29 2C 50 41 52 54 53 25 28 36 30 2C 32 |(26),PARTS%(60,2|
000009B0: 29 3A 4E 50 B2 30 00 FF 0D 84 1C 50 24 28 20 37 |):NP.0.....P$( 7|
000009C0: 20 29 B2 50 24 28 20 37 20 29 AA 22 91 91 91 9D | ).P$( 7 )."....|
000009D0: 9D A4 A4 A4 A4 A4 11 CD 11 CD 9D 9D 9D 9D 9D 9D |................|
000009E0: 9D 9D 91 CE 11 9D 9D CE A5 11 9D A5 11 9D A5 11 |................|
000009F0: 9D A5 A7 91 9D A7 A3 D0 11 9D A7 91 91 91 22 00 |..............".|
00000A00: 48 0E 85 1C 50 24 28 20 37 20 29 B2 50 24 28 20 |H...P$( 7 ).P$( |
00000A10: 37 20 29 AA 22 91 9D A4 A4 11 9D 9D CC CC A5 A7 |7 )."...........|
00000A20: 11 9D A7 11 9D A7 11 9D A7 11 9D 9D 9D 9D 9D 9D |................|
00000A30: 9D 9D 9D 9D 9D 9D CE CD CE CD CE CD CE CD CE CD |................|
00000A40: CE CD CE CD CE CD CE 22 00 5F 0E 86 1C 50 24 28 |......."._...P$(|
00000A50: 20 37 20 29 B2 50 24 28 20 37 20 29 AA 22 22 00 | 7 ).P$( 7 )."".|
00000A60: 76 0E 8D 1C 4E 41 4D 45 24 28 20 37 20 29 B2 22 |v...NAME$( 7 )."|
00000A70: 48 4F 55 53 45 22 00 C1 0E 8E 1C 50 24 28 20 31 |HOUSE".....P$( 1|
00000A80: 35 20 29 B2 50 24 28 20 31 35 20 29 AA 22 91 91 |5 ).P$( 15 )."..|
00000A90: 91 9D D5 C9 11 9D 9D CA CB 11 9D CC 11 CD 11 CD |................|
00000AA0: 91 91 9D 9D 9D 9D A4 9D 9D CD 9D 91 9D CD 11 11 |................|
00000AB0: 1D 1D A5 11 9D A5 9D 9D 11 CE CD 11 9D 9D 9D CE |................|
00000AC0: 22 00 E9 0E 8F 1C 50 24 28 20 31 35 20 29 B2 50 |".....P$( 15 ).P|
00000AD0: 24 28 20 31 35 20 29 AA 22 1D 1D CD 11 9D 9D 9D |$( 15 ).".......|
00000AE0: 9D 9D A3 1D 1D 1D 1D A3 22 00 02 0F 97 1C 4E 41 |........".....NA|
00000AF0: 4D 45 24 28 20 31 35 20 29 B2 22 50 45 52 53 4F |ME$( 15 )."PERSO|
00000B00: 4E 22 00 4D 0F 98 1C 50 24 28 20 31 39 20 29 B2 |N".M...P$( 19 ).|
00000B10: 50 24 28 20 31 39 20 29 AA 22 91 91 9D 9D 9D 9D |P$( 19 )."......|
00000B20: 12 A9 20 20 20 20 20 20 DF 11 9D 9D 9D 9D 9D 9D |.. ........|
00000B30: 9D 9D 20 20 C1 20 D1 20 20 20 11 9D 9D 9D 9D 9D |.. . . ......|
00000B40: 9D 9D 9D D3 1D 1D 1D 1D 9D 9D 9D 9D 22 00 98 0F |............"...|
00000B50: 99 1C 50 24 28 20 31 39 20 29 B2 50 24 28 20 31 |..P$( 19 ).P$( 1|
00000B60: 39 20 29 AA 22 20 20 20 20 D8 20 20 11 9D 9D 9D |9 )." . ....|
00000B70: 9D 9D 9D 9D 9D 92 DF 12 20 20 20 20 20 20 92 A9 |........ ..|
00000B80: 11 9D 9D 9D 9D 9D 12 20 20 11 9D 9D 20 20 11 9D |....... ... ..|
00000B90: 9D 9D A9 20 20 DF 92 22 00 B1 0F 9A 1C 50 24 28 |... ..".....P$(|
00000BA0: 20 31 39 20 29 B2 50 24 28 20 31 39 20 29 AA 22 | 19 ).P$( 19 )."|
00000BB0: 22 00 C8 0F A1 1C 4E 41 4D 45 24 28 20 31 39 20 |".....NAME$( 19 |
00000BC0: 29 B2 22 54 52 45 45 22 00 11 10 A2 1C 50 24 28 |)."TREE".....P$(|
00000BD0: 20 32 20 29 B2 50 24 28 20 32 20 29 AA 22 9D 9D | 2 ).P$( 2 )."..|
00000BE0: 9D 91 91 91 91 12 A9 DF 11 9D 9D 20 92 A9 11 9D |........... ....|
00000BF0: 9D 9D 12 A9 92 A9 11 9D 9D DF 12 DF 92 B9 B9 B9 |................|
00000C00: B9 B6 12 2B 92 B5 91 9D 9D B9 11 11 9D 9D 9D 9D |...+............|
00000C10: 22 00 55 10 A3 1C 50 24 28 20 32 20 29 B2 50 24 |".U...P$( 2 ).P$|
00000C20: 28 20 32 20 29 AA 22 9D 9D 9D 92 DF 12 20 20 20 |( 2 )."...... |
00000C30: 20 20 92 B8 11 9D 9D 9D 9D 9D 9D 9D 12 A9 20 20 | ............ |
00000C40: 20 20 92 A9 11 9D 9D 9D 9D 9D 9D DF 12 20 1D 1D | ........... ..|
00000C50: 92 DF 12 DF 22 00 6A 10 AB 1C 4E 41 4D 45 24 28 |....".j...NAME$(|
00000C60: 20 32 20 29 B2 22 43 41 54 22 00 95 10 AC 1C 50 | 2 )."CAT".....P|
00000C70: 24 28 20 31 20 29 B2 50 24 28 20 31 20 29 AA 22 |$( 1 ).P$( 1 )."|
00000C80: 91 9D 12 DF A9 BC 92 3E 11 9D 9D 9D 9D DF 12 20 |.......>....... |
00000C90: 92 11 9D DB 22 00 AB 10 B5 1C 4E 41 4D 45 24 28 |....".....NAME$(|
00000CA0: 20 31 20 29 B2 22 42 49 52 44 22 00 EC 10 B6 1C | 1 )."BIRD".....|
00000CB0: 50 24 28 20 31 38 20 29 B2 50 24 28 20 31 38 20 |P$( 18 ).P$( 18 |
00000CC0: 29 AA 22 9D 91 12 A9 DF 11 9D 9D 9D 92 DF 12 20 |)."............ |
00000CD0: 20 92 A9 91 11 11 1D 9D 9D 9D 9D 9D 92 12 A9 20 | .............. |
00000CE0: 20 DF 11 11 91 9D 9D 9D 92 DF A9 22 00 03 11 BF | .........."....|
00000CF0: 1C 4E 41 4D 45 24 28 20 31 38 20 29 B2 22 53 54 |.NAME$( 18 )."ST|
00000D00: 41 52 22 00 4E 11 C0 1C 50 24 28 20 31 37 20 29 |AR".N...P$( 17 )|
00000D10: B2 50 24 28 20 31 37 20 29 AA 22 91 91 91 9D 9D |.P$( 17 ).".....|
00000D20: D5 C9 D5 C9 D5 C9 11 9D 9D 9D 9D 9D 9D 9D D5 A6 |................|
00000D30: A6 A6 A6 A6 A6 C9 11 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000D40: D5 A6 A6 A6 A6 A6 A6 A6 A6 C9 11 9D 9D 22 00 99 |............."..|
00000D50: 11 C1 1C 50 24 28 20 31 37 20 29 B2 50 24 28 20 |...P$( 17 ).P$( |
00000D60: 31 37 20 29 AA 22 9D 9D 9D 9D 9D 9D 9D 9D CE CE |17 )."..........|
00000D70: CE CE CE CE CE CE CE 11 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000D80: 9D CD CD CD CD CD CD CD CD CD 11 9D 9D 9D 9D 9D |................|
00000D90: 9D 9D 9D 9D CE CE CE CE 22 00 B7 11 C2 1C 50 24 |........".....P$|
00000DA0: 28 20 31 37 20 29 B2 50 24 28 20 31 37 20 29 AA |( 17 ).P$( 17 ).|
00000DB0: 22 CE CE CE CE CE 22 00 D4 11 C9 1C 4E 41 4D 45 |".....".....NAME|
00000DC0: 24 28 20 31 37 20 29 B2 22 52 41 49 4E 20 43 4C |$( 17 )."RAIN CL|
00000DD0: 4F 55 44 22 00 DA 11 DE 1C 8E 00 F6 11 E8 1C 8F |OUD"............|
00000DE0: 2D 2D 2D 2D 2D 47 45 54 20 50 49 43 54 55 52 45 |-----GET PICTURE|
00000DF0: 2D 2D 2D 2D 2D 2D 00 0E 12 F2 1C 4E B2 C6 28 4E |------.....N..(N|
00000E00: 41 4D 45 24 29 AB 36 35 3A 50 24 B2 22 22 00 1C |AME$).65:P$.""..|
00000E10: 12 FC 1C 58 B2 32 30 3A 59 B2 31 32 00 2D 12 06 |...X.20:Y.12.-..|
00000E20: 1D 8D 20 38 36 30 30 3A 8D 38 38 30 30 00 42 12 |.. 8600:.8800.B.|
00000E30: 10 1D 8B 20 41 24 B3 B1 22 53 22 20 A7 20 37 34 |... A$.."S" . 74|
00000E40: 33 30 00 53 12 1A 1D 8D 20 38 36 30 30 3A 8D 38 |30.S.... 8600:.8|
00000E50: 38 30 30 00 5F 12 24 1D 41 B2 C6 28 41 24 29 00 |800._.$.A..(A$).|
00000E60: 71 12 29 1D 8B 20 41 B2 32 30 20 A7 20 37 34 35 |q.).. A.20 . 745|
00000E70: 30 00 83 12 2E 1D 8B 20 41 B2 31 33 20 A7 20 37 |0...... A.13 . 7|
00000E80: 35 39 30 00 A7 12 38 1D 8B 20 41 B1 33 32 20 AF |590...8.. A.32 .|
00000E90: 20 41 B3 31 32 38 20 A7 20 41 B2 41 AA 31 32 38 | A.128 . A.A.128|
00000EA0: 3A 89 20 37 34 39 35 00 BD 12 42 1D 8B 20 41 B1 |:. 7495...B.. A.|
00000EB0: 31 36 30 20 A7 20 41 B2 41 AB 31 32 38 00 C9 12 |160 . A.A.128...|
00000EC0: 47 1D 41 24 B2 C7 28 41 29 00 D6 12 49 1D 50 24 |G.A$..(A)...I.P$|
00000ED0: B2 50 24 AA 41 24 00 E5 12 4C 1D 8D 39 30 30 30 |.P$.A$...L..9000|
00000EE0: 3A 99 41 24 3B 00 09 13 51 1D 8B 20 28 41 B1 33 |:.A$;...Q.. (A.3|
00000EF0: 31 20 AF 20 41 B3 31 32 38 29 B0 20 41 B1 31 36 |1 . A.128). A.16|
00000F00: 30 20 A7 20 58 B2 58 AA 31 00 14 13 56 1D 89 20 |0 . X.X.1...V.. |
00000F10: 37 34 35 30 00 1A 13 A6 1D 8E 00 35 13 B0 1D 8F |7450.......5....|
00000F20: 2D 2D 2D 2D 2D 53 41 56 45 20 50 49 43 54 55 52 |-----SAVE PICTUR|
00000F30: 45 2D 2D 2D 2D 00 4D 13 BA 1D 99 22 93 11 11 37 |E----.M...."...7|
00000F40: 32 31 30 20 53 4E 3D 22 53 4E AA 31 30 00 65 13 |210 SN="SN.10.e.|
00000F50: C4 1D 81 20 49 B2 30 20 A4 20 B5 28 C3 28 50 24 |... I.0 . .(.(P$|
00000F60: 29 AD 35 30 29 00 9D 13 CE 1D 3A 20 99 53 4E AA |).50).....: .SN.|
00000F70: 49 3B 22 50 24 28 22 4E 22 29 3D 50 24 28 22 4E |I;"P$("N")=P$("N|
00000F80: 22 29 2B 22 C7 28 33 34 29 CA 28 50 24 2C 49 AC |")+".(34).(P$,I.|
00000F90: 35 30 AA 31 2C 35 30 29 C7 28 33 34 29 00 A5 13 |50.1,50).(34)...|
00000FA0: E2 1D 82 20 49 00 CB 13 E7 1D 99 53 4E AA 39 22 |... I......SN.9"|
00000FB0: 4E 41 4D 45 24 28 22 4E 22 29 3D 22 C7 28 33 34 |NAME$("N")=".(34|
00000FC0: 29 4E 41 4D 45 24 C7 28 33 34 29 00 DC 13 EC 1D |)NAME$.(34).....|
00000FD0: 99 22 52 55 4E 37 30 30 30 13 22 3B 00 F6 13 F6 |."RUN7000.";....|
00000FE0: 1D 81 20 49 B2 30 20 A4 20 39 3A 97 35 32 37 AA |.. I.0 . 9:.527.|
00000FF0: 49 2C 31 33 3A 82 00 03 14 00 1E 97 20 35 32 35 |I,13:....... 525|
00001000: 2C 31 30 00 09 14 0A 1E 80 00 25 14 40 1F 8F 2D |,10.......%.@..-|
00001010: 2D 2D 47 45 54 20 53 49 4E 47 4C 45 20 43 48 41 |--GET SINGLE CHA|
00001020: 52 2D 2D 2D 2D 00 2E 14 4A 1F 54 B2 54 49 00 4C |R----...J.T.TI.L|
00001030: 14 54 1F 8B 20 54 49 B3 54 AA 33 30 20 A7 20 99 |.T.. TI.T.30 . .|
00001040: 22 A6 9D 22 3B 3A 89 20 38 30 35 30 00 6A 14 5E |"..";:. 8050.j.^|
00001050: 1F 8B 20 54 49 B3 54 AA 36 30 20 A7 20 99 22 20 |.. TI.T.60 . ." |
00001060: 9D 22 3B 3A 89 20 38 30 35 30 00 73 14 68 1F 54 |.";:. 8050.s.h.T|
00001070: B2 54 49 00 8B 14 72 1F A1 20 41 24 3A 8B 20 41 |.TI...r.. A$:. A|
00001080: 24 B2 22 22 20 A7 20 38 30 32 30 00 98 14 7C 1F |$."" . 8020...|.|
00001090: 99 22 20 9D 22 3B 3A 8E 00 B0 14 08 20 8F 2D 2D |." .";:..... .--|
000010A0: 2D 2D 47 45 54 20 53 54 52 49 4E 47 2D 2D 2D 2D |--GET STRING----|
000010B0: 00 C3 14 1C 20 8D 20 38 30 30 30 3A 41 B2 C6 28 |.... . 8000:A..(|
000010C0: 41 24 29 00 DB 14 30 20 8B 42 24 B2 22 22 AF 20 |A$)...0 .B$."". |
000010D0: 41 B2 32 30 20 A7 20 38 32 32 30 00 F2 14 3A 20 |A.20 . 8220...: |
000010E0: 8B 20 42 24 B2 22 22 20 AF 20 41 B2 31 33 20 A7 |. B$."" . A.13 .|
000010F0: 20 8E 00 06 15 44 20 8B 20 41 B2 31 33 20 A7 20 | ....D . A.13 . |
00001100: 99 41 24 3B 3A 8E 00 2F 15 4E 20 8B 20 41 B2 32 |.A$;:../.N . A.2|
00001110: 30 20 AF 20 C3 28 42 24 29 B3 32 20 A7 20 99 41 |0 . .(B$).2 . .A|
00001120: 24 3B 3A 42 24 B2 22 22 3A 89 20 38 32 32 30 00 |$;:B$."":. 8220.|
00001130: 59 15 58 20 8B 20 41 B2 32 30 20 A7 20 99 41 24 |Y.X . A.20 . .A$|
00001140: 3B 3A 42 24 B2 C8 28 42 24 2C C3 28 42 24 29 AB |;:B$..(B$,.(B$).|
00001150: 31 29 3A 89 20 38 32 32 30 00 7D 15 62 20 8B 20 |1):. 8220.}.b . |
00001160: 41 B3 33 32 20 B0 20 28 41 B1 31 32 37 20 AF 20 |A.32 . (A.127 . |
00001170: 41 B3 31 36 31 29 20 A7 20 38 32 32 30 00 90 15 |A.161) . 8220...|
00001180: 7B 20 8B 20 C3 28 42 24 29 B2 33 38 20 A7 20 99 |{ . .(B$).38 . .|
00001190: 00 A2 15 80 20 99 41 24 3B 3A 42 24 B2 42 24 AA |.... .A$;:B$.B$.|
000011A0: 41 24 00 AD 15 94 20 89 20 38 32 32 30 00 CD 15 |A$.... . 8220...|
000011B0: D0 20 8F 2D 2D 2D 47 45 54 20 4E 4F 4E 2D 45 4D |. .---GET NON-EM|
000011C0: 50 54 59 20 53 54 52 49 4E 47 2D 2D 2D 00 DF 15 |PTY STRING---...|
000011D0: DA 20 42 24 B2 22 22 3A 97 20 35 32 35 2C 30 00 |. B$."":. 525,0.|
000011E0: EA 15 E4 20 8D 20 38 32 30 30 00 FD 15 EE 20 8B |... . 8200.... .|
000011F0: 20 42 24 B2 22 22 20 A7 20 38 34 32 30 00 03 16 | B$."" . 8420...|
00001200: F8 20 8E 00 1C 16 98 21 8F 2D 2D 2D 42 4C 49 4E |. .....!.---BLIN|
00001210: 4B 20 41 54 20 58 2C 59 2D 2D 2D 2D 00 2F 16 A2 |K AT X,Y----./..|
00001220: 21 50 B2 33 32 37 36 38 AA 34 30 AC 59 AA 58 00 |!P.32768.40.Y.X.|
00001230: 53 16 AC 21 8B 20 50 B1 33 33 35 36 37 20 A7 20 |S..!. P.33567 . |
00001240: 50 B2 50 AB 34 30 3A 59 B2 59 AB 31 3A 89 20 38 |P.P.40:Y.Y.1:. 8|
00001250: 36 32 30 00 76 16 B6 21 8B 20 50 B3 33 32 37 36 |620.v..!. P.3276|
00001260: 38 20 A7 20 50 B2 50 AA 34 30 3A 59 B2 59 AA 31 |8 . P.P.40:Y.Y.1|
00001270: 3A 89 38 36 33 30 00 88 16 C0 21 4F 4C 44 B2 C2 |:.8630....!OLD..|
00001280: 28 50 29 3A 54 B2 54 49 00 BC 16 CA 21 8B 20 54 |(P):T.TI....!. T|
00001290: 49 B3 54 AA 33 30 20 A7 20 97 20 50 2C 28 4F 4C |I.T.30 . . P,(OL|
000012A0: 44 20 B0 20 31 32 38 29 AF 20 A8 28 4F 4C 44 20 |D . 128). .(OLD |
000012B0: AF 20 31 32 38 29 3A 89 38 36 38 30 00 DB 16 D4 |. 128):.8680....|
000012C0: 21 8B 20 54 49 B3 54 AA 36 30 20 A7 20 97 20 50 |!. TI.T.60 . . P|
000012D0: 2C 4F 4C 44 3A 89 20 38 36 38 30 00 E4 16 DE 21 |,OLD:. 8680....!|
000012E0: 54 B2 54 49 00 FC 16 E8 21 A1 20 41 24 3A 8B 20 |T.TI....!. A$:. |
000012F0: 41 24 B2 22 22 20 A7 20 38 36 35 30 00 08 17 F2 |A$."" . 8650....|
00001300: 21 97 20 50 2C 4F 4C 44 00 0E 17 FC 21 8E 00 29 |!. P,OLD....!..)|
00001310: 17 60 22 8F 2D 2D 2D 2D 2D 4D 4F 56 45 20 43 55 |.`".-----MOVE CU|
00001320: 52 53 4F 52 2D 2D 2D 2D 2D 00 3D 17 6A 22 8B 20 |RSOR-----.=.j". |
00001330: 41 24 B2 22 11 22 A7 20 59 B2 59 AA 31 00 51 17 |A$.".". Y.Y.1.Q.|
00001340: 74 22 8B 20 41 24 B2 22 91 22 A7 20 59 B2 59 AB |t". A$.".". Y.Y.|
00001350: 31 00 65 17 7E 22 8B 20 41 24 B2 22 1D 22 A7 20 |1.e.~". A$.".". |
00001360: 58 B2 58 AA 31 00 79 17 88 22 8B 20 41 24 B2 22 |X.X.1.y..". A$."|
00001370: 9D 22 A7 20 58 B2 58 AB 31 00 7F 17 92 22 8E 00 |.". X.X.1...."..|
00001380: 9E 17 28 23 8F 2D 2D 2D 2D 4D 4F 56 45 20 43 55 |..(#.----MOVE CU|
00001390: 52 53 4F 52 20 54 4F 20 58 2C 59 2D 2D 2D 00 A8 |RSOR TO X,Y---..|
000013A0: 17 32 23 99 22 13 22 3B 00 BC 17 3C 23 8B 20 59 |.2#.".";...<#. Y|
000013B0: B2 30 20 A7 20 99 A6 58 29 3B 3A 8E 00 D4 17 41 |.0 . ..X);:....A|
000013C0: 23 8B 20 58 B2 30 20 A7 20 99 C8 28 44 24 2C 59 |#. X.0 . ..(D$,Y|
000013D0: 29 3B 3A 8E 00 E5 17 46 23 99 C8 28 44 24 2C 59 |);:....F#..(D$,Y|
000013E0: 29 A6 58 29 3B 00 EB 17 50 23 8E 00 29 18 60 EA |).X);...P#..).`.|
000013F0: 9C 3A 85 22 11 43 4D 44 22 3B 43 24 3A 43 B2 C6 |.:.".CMD";C$:C..|
00001400: 28 43 24 29 3A 43 B2 AB 28 43 B2 36 35 29 AB 32 |(C$):C..(C.65).2|
00001410: AC 28 43 B2 36 38 29 AB 33 AC 28 43 B2 38 32 29 |.(C.68).3.(C.82)|
00001420: AB 34 AC 28 43 B2 38 33 29 00 6A 18 88 EA 85 22 |.4.(C.83).j...."|
00001430: 4D 4F 44 23 22 3B 4D 3A 51 B2 4D AC 31 30 30 3A |MOD#";M:Q.M.100:|
00001440: 52 B2 51 AA 31 39 39 3A 53 B2 31 30 3A 54 B2 51 |R.Q.199:S.10:T.Q|
00001450: 3A 86 4C 28 32 35 29 3A 55 B2 37 30 30 AA 4D AB |:.L(25):U.700.M.|
00001460: 31 30 30 AC 28 4D B1 35 39 29 00 90 18 92 EA 91 |100.(M.59)......|
00001470: 43 8D 36 30 33 30 30 2C 36 30 32 30 30 2C 36 30 |C.60300,60200,60|
00001480: 32 35 30 2C 36 30 33 35 30 3A 89 36 30 30 30 30 |250,60350:.60000|
00001490: 00 B5 18 28 EB 8D 36 33 30 30 30 3A 99 22 93 11 |...(..63000:."..|
000014A0: 22 3A 99 4D 3A 99 55 3A 8B 4C 28 31 29 B1 52 A7 |":.M:.U:.L(1).R.|
000014B0: 36 30 33 36 30 00 D0 18 32 EB 81 49 B2 31 A4 41 |60360...2..I.1.A|
000014C0: 3A 99 4C 28 49 29 3A 82 49 3A 89 36 30 33 36 30 |:.L(I):.I:.60360|
000014D0: 00 EF 18 5A EB 8D 36 33 30 30 30 3A 8B A5 4C 28 |...Z..63000:..L(|
000014E0: 41 29 B1 B2 58 A7 99 22 4F 56 45 52 22 3A 8E 00 |A)..X.."OVER":..|
000014F0: 12 19 64 EB 4E B2 4C 30 3A 81 42 B2 31 A4 41 3A |..d.N.L0:.B.1.A:|
00001500: 8D 36 33 32 30 30 3A 8D 36 33 34 30 30 3A 82 42 |.63200:.63400:.B|
00001510: 3A 8E 00 27 19 8C EB 85 22 4E 41 4D 45 22 3B 4E |:..'...."NAME";N|
00001520: 24 3A 99 22 93 11 22 00 5B 19 96 EB 99 4D 3B A3 |$:."..".[....M;.|
00001530: 35 29 22 3F 22 C7 28 33 34 29 22 12 52 92 20 20 |5)"?".(34)".R. |
00001540: 20 20 20 20 20 20 20 22 C7 28 33 34 29 22 3A 4C | ".(34)":L|
00001550: 49 53 54 22 51 22 20 22 3B AB 52 00 80 19 A0 EB |IST"Q" ";.R.....|
00001560: 99 22 91 22 3B A3 38 29 4E 24 3A 99 55 3B 22 52 |.".";.8)N$:.U;"R|
00001570: 45 4D 3A 22 3B 4D 3B 4E 24 3A 89 36 30 33 36 30 |EM:";M;N$:.60360|
00001580: 00 99 19 BE EB 99 22 93 11 22 3A 81 49 B2 51 A4 |......"..":.I.Q.|
00001590: 52 A9 53 3A 99 49 3A 82 49 00 B0 19 C8 EB 99 22 |R.S:.I:.I......"|
000015A0: 13 48 49 54 20 52 45 54 55 52 4E 53 22 3B 3A 80 |.HIT RETURNS";:.|
000015B0: 00 00 00 24 |...$ |
..(.... PROGRAM BY BILL FINZER, JAN,1980
.I.... IDEA BY DIANE RESEK AND PICTURES
BY VICTORIA MUKERJI...... IF YOU W
ANT TO ADD MORE DRAWING PARTS, TRY RUN70
00...... YOUR NEW PARTS WILL BE SAVED IN
THE PROGRAM AS STRINGS.......-----MAIN
ROUTINE-----...... 7200:. INIT.).... 14
00:. INSTRUCTIONS.;.... 2000:. DRAW.N...
X.0:Y.24:.9000.N...."ARE YOU DONE? (Y OR
N) ";...$.. 8000:.A$"."...... A$.."Y" .
.BL$;:. 1030...8.."..GOODBYE THEN!".F.B
.@."P.SAMPLER"...X..-----INSTRUCTIONS---
-......".".15)". PICTURE ".)....".I KNOW
HOW TO DRAW SOME SMALL PICTURES..R...."
YOU CAN USE THESE SMALL PICTURES TO
CONSTRUCT LARGER PICTURES.... ..".THE PI
CTURES I KNOW HOW TO DRAW ARE:...... I.0
. 25.D...: . P$(I)."". 1480.....: ..10)
"."H(NA$(I),1)". FOR ."NAME$(I)...H..I.$
.R.."FIRST USE THE .BLUE CURSOR CONTROLS
. TO.K...."MOVE THE BLINKING CURSOR AROU
ND..Y...."THEN PRESS THE FIRST LETTER OF
THE NAME......"OF THE PICTURE YOU WANT
TO APPEAR WHERE THE CURSOR IS.......".PR
ESSING .*. NEAR THE CENTER OF A
PICTURE WILL ERASE IT..(...."WHEN YOU AR
E DONE, PRESS .RETURN..".Q....".PRESS AN
Y KEY TO START DRAWING.";.`.... 8000:.A$
.I....".".O.......P..-----DRAW-------...
Z..". * FOR ERASE RETURN IF
DONE.";.C....I.0.25.....: . P$(I)."" . 2
050.....: ."."H(NA$(I),1)". FOR ."NA$(I)
...... I...........X.20:Y.12.-. .. 8600:
.8800.=.*.. PP.0 . 25.Q.4.: . A$.H(NA$(P
P),1). .9000:.P$(PP):. 2400:. ADD.Z.H..
PP...R.. A$.G(13) . ....W.. A$."*" . . 2
200:. ERASE...\.. 2080.X....-----ERASE P
ART NEAR X,Y----...... NP.0 . 2350.....F
.0...... I.0.NP.1.E...: . .(PA%(I,1).X).
2..(PA%(I,2).Y).2 .PT.PA%(I,0):P1.I:I.NP
:F..1.M.... I.^.... F.0 . 2350.....X.PA%
(P1,1):Y.PA%(P1,2):.9000...J.P$.P$(PT).
.T.. I.1 . C(P$).....: C$.J(P$,I,1):C.F(
C$).....: . (C.32 . (C.127 . C.161)) . C
..18 . .C$;:. 2300.....: . C..18 . ."
";...... I.....NP.NP.1.0.... NP.0 . 2350
.X.... I. P1 . NP:. MOVE PARTS LIST DOWN
.H...: . J.0 . 2.....: PA%(I,J).PA%(I.
1,J)...$.. J,I.........`..----ADD PART--
---...J.PARTS%(NP, 0).PP:PARTS%(NP,1).X:
PARTS%(NP,2).Y...~.NP.NP.1...... NP.60 .
NP.0.......%.X..---BUILD PICTURE STRING
S----.=.B.. 7200:. INIT BUILD.[.L..".NAM
E OF PICTURE";NAME$...V..".USE CURSOR CO
NTROLS TO MOVE AROUND. 'S' TO START
& RETURN TO END..A.... 7400:. GET PICTUR
E...... 7600:. SAVE PICTURE......----KEE
P GOING TIL BREAK---... ..----INIT BUILD
-----.$.#.. 59468,12.G.%.D$."...........
..............".X.'.BL$."
"...*.SN. 7370...
4.. 525,0:. P$(26),NAME$(26),PARTS%(60,2
):NP.0.....P$( 7 ).P$( 7 )."...........M
.M.........N...N...............P......".
H...P$( 7 ).P$( 7 ).".......LL..........
..............NMNMNMNMNMNMNMNMN"._...P$(
7 ).P$( 7 )."".V...NAME$( 7 )."HOUSE".A
...P$( 15 ).P$( 15 )."....UI...JK..L.M.M
.........M...M...........NM....N".....P$
( 15 ).P$( 15 )."..M............".....NA
ME$( 15 )."PERSON".M...P$( 19 ).P$( 19 )
."........ .......... A Q ......
...S........".....P$( 19 ).P$( 19 )."
X ............ ......... ... ..
... ..".....P$( 19 ).P$( 19 )."".H...NA
ME$( 19 )."TREE".....P$( 2 ).P$( 2 )."..
........... .......................+....
........".U...P$( 2 ).P$( 2 )."......
............ ........... ......".J.
..NAME$( 2 )."CAT".....P$( 1 ).P$( 1 )."
.......>....... ....".....NAME$( 1 )."BI
RD".....P$( 18 ).P$( 18 )."............
.............. ..........".....NAME$(
18 )."STAR".N...P$( 17 ).P$( 17 ).".....
UIUIUI........U......I..........U.......
.I..."...A.P$( 17 ).P$( 17 )."........NN
NNNNNNN..........MMMMMMMMM..........NNNN
"...B.P$( 17 ).P$( 17 )."NNNNN".T.I.NAME
$( 17 )."RAIN CLOUD".Z..........-----GET
PICTURE------.....N.F(NAME$).65:P$.""..
...X.20:Y.12.-.... 8600:.8800.B.... A$..
"S" . 7430.S.... 8600:.8800._.$.A.F(A$).
Q.).. A.20 . 7450...... A.13 . 7590...8.
. A.32 . A.128 . A.A.128:. 7495...B.. A.
160 . A.A.128.I.G.A$.G(A).V.I.P$.P$.A$..
.L..9000:.A$;...Q.. (A.31 . A.128). A.16
0 . X.X.1...V.. 7450.......5....-----SAV
E PICTURE----.M...."...7210 SN="SN.10.E.
D.. I.0 . .(C(P$).50)...N.: .SN.I;"P$("N
")=P$("N")+"G(34)J(P$,I.50.1,50)G(34)...
... I.K....SN.9"NAME$("N")="G(34)NAME$G(
34)......"RUN7000.";...... I.0 . 9:.527.
I,13:....... 525,10.......%.@..---GET SI
NGLE CHAR----...J.T.TI.L.T.. TI.T.30 . .
"..";:. 8050.J.^.. TI.T.60 . ." .";:. 80
50.S.H.T.TI...R.. A$:. A$."" . 8020...|.
." .";:..... .----GET STRING----.C.. . 8
000:A.F(A$)...0 .B$."". A.20 . 8220...:
. B$."" . A.13 . ....D . A.13 . .A$;:../
.N . A.20 . C(B$).2 . .A$;:B$."":. 8220.
Y.X . A.20 . .A$;:B$.H(B$,C(B$).1):. 822
0.}.B . A.32 . (A.127 . A.161) . 8220...
{ . C(B$).38 . ..... .A$;:B$.B$.A$.... .
8220.M.P .---GET NON-EMPTY STRING---...
Z B$."":. 525,0.... . 8200.... . B$."" .
8420.... .....!.---BLINK AT X,Y----./..
!P.32768.40.Y.X.S..!. P.33567 . P.P.40:Y
.Y.1:. 8620.V..!. P.32768 . P.P.40:Y.Y.1
:.8630....!OLD.B(P):T.TI...J!. TI.T.30 .
. P,(OLD . 128). .(OLD . 128):.8680...T
!. TI.T.60 . . P,OLD:. 8680....!T.TI....
!. A$:. A$."" . 8650....!. P,OLD....!..)
.`".-----MOVE CURSOR-----.=.J". A$.".".
Y.Y.1.Q.T". A$.".". Y.Y.1.E.~". A$.".".
X.X.1.Y..". A$.".". X.X.1..."....(#.---
-MOVE CURSOR TO X,Y---...2#.".";...<#. Y
.0 . ..X);:..T.A#. X.0 . .H(D$,Y);:....F
#.H(D$,Y).X);...P#..).`..:.".CMD";C$:C.F
(C$):C..(C.65).2.(C.68).3.(C.82).4.(C.83
).J...."MOD#";M:Q.M.100:R.Q.199:S.10:T.Q
:.L(25):U.700.M.100.(M.59)......C.60300,
60200,60250,60350:.60000...(..63000:."..
":.M:.U:.L(1).R.60360.P.2..I.1.A:.L(I):.
I:.60360...Z..63000:..L(A)..X.."OVER":..
..D.N.L0:.B.1.A:.63200:.63400:.B:..'....
"NAME";N$:."..".[....M;.5)"?"G(34)".R.
"G(34)":LIST"Q" ";.R... ..".";.8)
N$:.U;"REM:";M;N$:.60360......"..":.I.Q.
R.S:.I:.I...H..".HIT RETURNS";:....$
> CLICK IMAGE PREVIEW FOR FULL MODAL