DUMPNONCOMM.C
FILE INFORMATION
FILENAME(S): DUMPNONCOMM.C
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-10-19 22:48:29
APPEARS ON: 1 disk(s)
FILE HASH
bc970b7ee27db2ef0d3c3413682368ac875f1548bae2d898353f522c1b55bf38
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG NOV 84 C | DUMPNONCOMM.C | PRG | Radd Maxx | 21 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2D 08 1E 00 8F 3A 41 44 41 50 54 45 44 20 |..-....:ADAPTED | 00000010: 42 59 20 43 4C 49 46 46 4F 52 44 20 4A 41 4E 53 |BY CLIFFORD JANS| 00000020: 45 4E 2C 20 54 50 55 47 23 39 37 34 33 00 40 08 |EN, TPUG#9743.@.| 00000030: 28 00 8B 41 B2 31 A7 41 B2 32 3A 89 32 30 30 30 |(..A.1.A.2:.2000| 00000040: 00 53 08 2D 00 8B 41 B2 32 A7 41 B2 33 3A 89 31 |.S.-..A.2.A.3:.1| 00000050: 30 35 30 00 8D 08 64 00 97 35 33 32 38 31 2C 31 |050...d..53281,1| 00000060: 3A 99 22 93 90 11 11 1D 1D 54 48 49 53 20 49 53 |:."......THIS IS| 00000070: 20 41 20 53 43 52 45 45 4E 2D 44 55 4D 50 20 50 | A SCREEN-DUMP P| 00000080: 52 4F 47 52 41 4D 20 46 4F 52 22 3A 99 00 BD 08 |ROGRAM FOR":....| 00000090: 6E 00 99 22 4E 4F 4E 2D 43 4F 4D 4D 4F 44 4F 52 |n.."NON-COMMODOR| 000000A0: 45 20 50 52 49 4E 54 45 52 53 2E 20 49 54 20 57 |E PRINTERS. IT W| 000000B0: 41 53 20 57 52 49 54 54 45 4E 22 3A 99 00 ED 08 |AS WRITTEN":....| 000000C0: 73 00 99 22 1D 1D 42 59 20 4D 49 43 48 41 45 4C |s.."..BY MICHAEL| 000000D0: 20 4A 2E 20 4B 45 52 59 41 4E 20 41 4E 44 20 49 | J. KERYAN AND I| 000000E0: 54 20 41 50 50 45 41 52 45 44 22 3A 99 00 1E 09 |T APPEARED":....| 000000F0: 78 00 99 22 49 4E 20 4D 49 43 52 4F 20 4D 41 47 |x.."IN MICRO MAG| 00000100: 41 5A 49 4E 45 20 49 4E 20 4A 55 4C 2E 41 55 47 |AZINE IN JUL.AUG| 00000110: 2E 53 45 50 2E 20 31 39 38 34 2E 22 3A 99 00 4F |.SEP. 1984.":..O| 00000120: 09 82 00 99 22 42 45 46 4F 52 45 20 55 53 49 4E |...."BEFORE USIN| 00000130: 47 2C 20 4C 49 53 54 20 4C 49 4E 45 53 20 32 31 |G, LIST LINES 21| 00000140: 31 30 2D 32 32 35 30 20 41 4E 44 20 22 3A 99 00 |10-2250 AND ":..| 00000150: 74 09 8C 00 99 22 20 20 20 20 20 20 41 44 41 50 |t...." ADAP| 00000160: 54 20 54 4F 20 12 59 4F 55 52 92 20 50 52 49 4E |T TO .YOUR. PRIN| 00000170: 54 45 52 22 00 9E 09 96 00 99 3A 99 22 20 20 20 |TER"......:." | 00000180: 20 20 41 46 54 45 52 20 41 44 41 50 54 49 4E 47 | AFTER ADAPTING| 00000190: 20 12 52 55 4E 92 20 42 45 46 4F 52 45 22 00 CE | .RUN. BEFORE"..| 000001A0: 09 A0 00 99 3A 99 22 49 4E 53 45 52 54 49 4E 47 |....:."INSERTING| 000001B0: 20 41 20 50 49 43 54 55 52 45 2D 44 49 53 4B 28 | A PICTURE-DISK(| 000001C0: 41 20 4D 4C 2E 20 50 52 4F 47 52 41 4D 22 00 FF |A ML. PROGRAM"..| 000001D0: 09 AA 00 99 3A 99 22 4D 55 53 54 20 42 45 20 4C |....:."MUST BE L| 000001E0: 4F 41 44 45 44 29 54 48 45 4E 20 46 4F 4C 4C 4F |OADED)THEN FOLLO| 000001F0: 57 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 |W INSTRUCTIONS".| 00000200: 3D 0A B4 00 99 22 11 41 20 4B 4F 41 4C 41 2D 50 |=....".A KOALA-P| 00000210: 49 43 54 55 52 45 20 43 41 4C 4C 45 44 20 27 50 |ICTURE CALLED 'P| 00000220: 49 43 20 4C 20 50 45 41 4E 55 54 53 27 20 20 43 |IC L PEANUTS' C| 00000230: 41 4E 20 42 45 20 54 52 49 45 44 22 3B 00 6D 0A |AN BE TRIED";.m.| 00000240: B9 00 99 22 2E 20 20 53 55 42 4D 49 54 20 59 4F |...". SUBMIT YO| 00000250: 55 52 20 50 49 43 54 55 52 45 53 20 54 4F 20 20 |UR PICTURES TO | 00000260: 54 50 55 47 20 4C 49 42 52 41 52 59 22 00 91 0A |TPUG LIBRARY"...| 00000270: BD 00 99 22 11 50 52 45 53 53 20 12 52 55 4E 53 |...".PRESS .RUNS| 00000280: 54 4F 50 92 20 4F 52 20 12 52 45 54 55 52 4E 92 |TOP. OR .RETURN.| 00000290: 22 00 A4 0A BE 00 A1 41 24 3A 8B 41 24 B2 22 22 |"......A$:.A$.""| 000002A0: A7 31 39 30 00 C8 0A C8 00 99 22 93 11 11 11 1D |.190......".....| 000002B0: 1D 1D 4C 4F 41 44 49 4E 47 20 4D 4C 20 50 52 4F |..LOADING ML PRO| 000002C0: 47 22 3A 89 31 30 30 30 00 ED 0A E8 03 8F 20 42 |G":.1000...... B| 000002D0: 41 53 49 43 20 50 52 4F 47 52 41 4D 20 54 4F 20 |ASIC PROGRAM TO | 000002E0: 53 55 50 50 4F 52 54 20 47 44 55 4D 50 00 0C 0B |SUPPORT GDUMP...| 000002F0: ED 03 8F 20 50 52 4F 56 49 44 45 53 20 43 4F 4C |... PROVIDES COL| 00000300: 4F 52 20 50 52 49 4E 54 4F 55 54 53 00 2A 0B F2 |OR PRINTOUTS.*..| 00000310: 03 8F 20 20 20 20 20 4D 2E 4A 2E 4B 45 52 59 41 |.. M.J.KERYA| 00000320: 4E 20 20 33 2D 33 30 2D 38 34 00 30 0B FC 03 3A |N 3-30-84.0...:| 00000330: 00 54 0B 06 04 8B 20 41 B2 30 20 A7 20 41 B2 31 |.T.... A.0 . A.1| 00000340: 3A 20 93 22 20 47 44 55 4D 50 2B 4D 4F 56 45 22 |: ." GDUMP+MOVE"| 00000350: 2C 38 2C 31 00 6C 0B 10 04 8B 20 41 B2 31 20 A7 |,8,1.l.... A.1 .| 00000360: 20 41 B2 32 3A 20 89 20 32 30 30 30 00 87 0B 1A | A.2: . 2000....| 00000370: 04 97 20 32 30 34 39 31 2C 50 54 3A 20 97 20 32 |.. 20491,PT: . 2| 00000380: 30 34 39 32 2C 53 44 00 A2 0B 24 04 97 20 32 30 |0492,SD...$.. 20| 00000390: 34 39 33 2C 4E 54 3A 20 97 20 32 30 34 38 37 2C |493,NT: . 20487,| 000003A0: 4E 50 00 AB 0B 2E 04 9E 20 47 54 00 EC 0B 38 04 |NP...... GT...8.| 000003B0: 8B 20 54 59 B2 32 20 B0 20 54 59 B2 34 20 A7 20 |. TY.2 . TY.4 . | 000003C0: 4D 44 B2 C2 28 35 33 32 37 30 29 3A 20 4D 44 B2 |MD..(53270): MD.| 000003D0: 33 AB 28 28 4D 44 20 AF 20 31 36 29 AD 31 36 29 |3.((MD . 16).16)| 000003E0: 3A 20 97 20 32 30 34 39 34 2C 4D 44 00 0A 0C 42 |: . 20494,MD...B| 000003F0: 04 8B 20 54 59 B2 33 20 B0 20 54 59 B2 35 20 A7 |.. TY.3 . TY.5 .| 00000400: 20 97 20 32 30 34 39 34 2C 33 00 21 0C 4C 04 8B | . 20494,3.!.L..| 00000410: 20 54 59 B2 36 20 A7 20 97 20 32 30 34 39 34 2C | TY.6 . . 20494,| 00000420: 30 00 38 0C 56 04 A1 4B 24 3A 8B 20 4B 24 B3 B1 |0.8.V..K$:. K$..| 00000430: 22 22 A7 20 31 31 31 30 00 4F 0C 60 04 A1 4B 24 |"". 1110.O.`..K$| 00000440: 3A 8B 20 4B 24 B2 22 22 20 A7 20 31 31 32 30 00 |:. K$."" . 1120.| 00000450: 6E 0C 6A 04 8B 20 4B 24 B2 22 50 22 20 A7 20 9E |n.j.. K$."P" . .| 00000460: 20 32 30 34 38 30 3A 20 89 20 31 38 30 30 00 82 | 20480: . 1800..| 00000470: 0C 74 04 8B 20 4B 24 B2 22 45 22 20 A7 20 31 38 |.t.. K$."E" . 18| 00000480: 30 30 00 9A 0C 7E 04 43 B2 30 3A 20 8B 20 4B 24 |00...~.C.0: . K$| 00000490: B2 22 42 22 20 A7 20 43 B2 31 00 AD 0C 88 04 8B |."B" . C.1......| 000004A0: 20 4B 24 B2 22 4E 22 20 A7 20 43 B2 32 00 C0 0C | K$."N" . C.2...| 000004B0: 92 04 8B 20 4B 24 B2 22 52 22 20 A7 20 43 B2 33 |... K$."R" . C.3| 000004C0: 00 D3 0C 9C 04 8B 20 4B 24 B2 22 47 22 20 A7 20 |...... K$."G" . | 000004D0: 43 B2 34 00 E6 0C A6 04 8B 20 4B 24 B2 22 55 22 |C.4...... K$."U"| 000004E0: 20 A7 20 43 B2 35 00 F7 0C B0 04 8B 20 43 B2 30 | . C.5...... C.0| 000004F0: 20 A7 20 31 31 31 30 00 1E 0D 14 05 81 20 4D B2 | . 1110...... M.| 00000500: 30 20 A4 20 31 35 3A 20 4D 4D B2 32 31 31 38 32 |0 . 15: MM.21182| 00000510: AA 4D 3A 20 4E 4E B2 32 31 31 39 38 AA 4D 00 3D |.M: NN.21198.M.=| 00000520: 0D 1E 05 97 20 4D 4D 2C 43 4D 28 43 2C 4D 29 3A |.... MM,CM(C,M):| 00000530: 20 97 20 4E 4E 2C 43 4D 28 30 2C 4D 29 00 45 0D | . NN,CM(0,M).E.| 00000540: 28 05 82 20 4D 00 59 0D 32 05 9E 20 32 30 34 38 |(.. M.Y.2.. 2048| 00000550: 30 3A 20 89 20 31 31 31 30 00 69 0D 08 07 3A 20 |0: . 1110.i...: | 00000560: 20 20 20 8F 20 51 55 49 54 00 84 0D 30 07 97 20 | . QUIT...0.. | 00000570: 35 33 32 36 35 2C 28 C2 28 35 33 32 36 35 29 AF |53265,(.(53265).| 00000580: 32 32 33 29 00 9F 0D 3A 07 97 20 35 33 32 37 30 |223)...:.. 53270| 00000590: 2C 28 C2 28 35 33 32 37 30 29 AF 32 30 37 29 00 |,(.(53270).207).| 000005A0: AE 0D 44 07 97 20 35 33 32 37 32 2C 32 31 00 D1 |..D.. 53272,21..| 000005B0: 0D 4E 07 97 20 35 33 32 38 30 2C 36 3A 20 97 20 |.N.. 53280,6: . | 000005C0: 35 33 32 38 31 2C 31 35 3A 20 97 20 36 34 36 2C |53281,15: . 646,| 000005D0: 30 00 DD 0D 58 07 99 22 93 22 3A 20 80 00 00 0E |0...X..".": ....| 000005E0: D0 07 97 20 35 33 32 38 30 2C 36 3A 20 97 20 35 |... 53280,6: . 5| 000005F0: 33 32 38 31 2C 31 35 3A 20 97 20 36 34 36 2C 30 |3281,15: . 646,0| 00000600: 00 21 0E DA 07 99 22 93 11 11 57 48 49 43 48 20 |.!...."...WHICH | 00000610: 54 59 50 45 20 4F 46 20 50 49 43 54 55 52 45 3F |TYPE OF PICTURE?| 00000620: 22 00 27 0E E4 07 99 00 43 0E EE 07 99 22 20 20 |".'.....C...." | 00000630: 20 20 31 20 20 53 49 4D 4F 4E 27 53 20 42 41 53 | 1 SIMON'S BAS| 00000640: 49 43 22 00 5F 0E F8 07 99 22 20 20 20 20 32 20 |IC"._...." 2 | 00000650: 20 55 4C 54 52 41 42 41 53 49 43 2D 36 34 22 00 | ULTRABASIC-64".| 00000660: 74 0E 02 08 99 22 20 20 20 20 33 20 20 44 4F 4F |t...." 3 DOO| 00000670: 44 4C 45 22 00 8F 0E 0C 08 99 22 20 20 20 20 34 |DLE"......" 4| 00000680: 20 20 4B 4F 41 4C 41 50 41 49 4E 54 45 52 22 00 | KOALAPAINTER".| 00000690: A7 0E 16 08 99 22 20 20 20 20 35 20 20 53 4C 49 |....." 5 SLI| 000006A0: 44 45 53 48 4F 57 22 00 CA 0E 20 08 99 22 20 20 |DESHOW"... .." | 000006B0: 20 20 36 20 20 53 4C 49 44 45 53 48 4F 57 20 2D | 6 SLIDESHOW -| 000006C0: 20 49 4E 56 45 52 54 45 44 22 00 D7 0E 2A 08 85 | INVERTED"...*..| 000006D0: 22 20 20 22 3B 54 59 00 F0 0E 34 08 8B 20 54 59 |" ";TY...4.. TY| 000006E0: B3 31 20 B0 20 54 59 B1 36 20 A7 20 32 30 30 30 |.1 . TY.6 . 2000| 000006F0: 00 F6 0E 3E 08 3A 00 12 0F 48 08 50 54 20 B2 20 |...>.:...H.PT . | 00000700: 31 3A 20 20 8F 20 50 52 49 4E 54 45 52 20 54 59 |1: . PRINTER TY| 00000710: 50 45 00 37 0F 52 08 3A 20 20 20 20 20 20 20 20 |PE.7.R.: | 00000720: 8F 20 20 4E 45 43 2F 50 52 4F 57 52 49 54 45 52 |. NEC/PROWRITER| 00000730: 20 20 20 20 3D 20 30 00 5C 0F 5C 08 3A 20 20 20 | = 0.\.\.: | 00000740: 20 20 20 20 20 8F 20 20 45 50 53 4F 4E 20 4F 52 | . EPSON OR| 00000750: 20 53 49 4D 49 4C 41 52 20 3D 20 31 00 62 0F 66 | SIMILAR = 1.b.f| 00000760: 08 3A 00 7F 0F 70 08 4E 50 20 B2 20 33 3A 20 20 |.:...p.NP . 3: | 00000770: 8B 20 50 54 B2 31 20 A7 20 4E 50 20 B2 20 32 00 |. PT.1 . NP . 2.| 00000780: 96 0F 7A 08 3A 20 20 20 20 20 20 20 20 8F 20 64 |..z.: . d| 00000790: 20 20 43 4F 44 45 00 9C 0F 84 08 3A 00 BA 0F 8E | CODE.....:....| 000007A0: 08 4E 54 20 B2 20 31 3A 20 20 8F 20 49 4E 54 45 |.NT . 1: . INTE| 000007B0: 52 46 41 43 45 20 54 59 50 45 00 D9 0F 98 08 3A |RFACE TYPE.....:| 000007C0: 20 20 20 20 20 20 20 20 8F 20 20 43 4F 4E 4E 45 | . CONNE| 000007D0: 43 54 49 4F 4E 20 3D 20 30 00 F8 0F A2 08 3A 20 |CTION = 0.....: | 000007E0: 20 20 20 20 20 20 20 8F 20 20 4F 54 48 45 52 53 | . OTHERS| 000007F0: 20 20 20 20 20 3D 20 31 00 FE 0F AC 08 3A 00 1F | = 1.....:..| 00000800: 10 B6 08 53 44 20 B2 20 34 3A 20 20 8F 20 53 45 |...SD . 4: . SE| 00000810: 43 4F 4E 44 41 52 59 20 41 44 44 52 45 53 53 00 |CONDARY ADDRESS.| 00000820: 3E 10 C0 08 3A 20 20 20 20 20 20 20 20 8F 20 46 |>...: . F| 00000830: 4F 52 20 54 52 41 4E 53 50 41 52 45 4E 54 00 44 |OR TRANSPARENT.D| 00000840: 10 CA 08 3A 00 5E 10 D4 08 47 54 20 B2 20 32 31 |...:.^...GT . 21| 00000850: 38 30 38 20 AA 20 28 54 59 AB 31 29 AC 33 00 78 |808 . (TY.1).3.x| 00000860: 10 DE 08 8B 20 47 54 B1 32 31 38 32 30 20 A7 20 |.... GT.21820 . | 00000870: 47 54 B2 32 31 38 32 30 00 8A 10 E8 08 8B 20 54 |GT.21820...... T| 00000880: 59 B2 31 20 A7 20 33 30 30 30 00 BB 10 F2 08 99 |Y.1 . 3000......| 00000890: 22 93 11 11 4E 4F 57 20 50 55 54 20 49 4E 20 44 |"...NOW PUT IN D| 000008A0: 49 53 4B 20 57 49 54 48 20 54 48 45 20 50 49 43 |ISK WITH THE PIC| 000008B0: 54 55 52 45 20 46 49 4C 45 2E 22 00 D7 10 FC 08 |TURE FILE.".....| 000008C0: 85 22 11 4E 41 4D 45 20 4F 46 20 50 49 43 54 55 |.".NAME OF PICTU| 000008D0: 52 45 22 3B 4E 4D 24 00 FB 10 06 09 99 22 11 41 |RE";NM$......".A| 000008E0: 46 54 45 52 20 50 49 43 54 55 52 45 20 4C 4F 41 |FTER PICTURE LOA| 000008F0: 44 53 2C 20 50 52 45 53 53 3A 22 00 1D 11 10 09 |DS, PRESS:".....| 00000900: 99 22 20 20 20 50 20 46 4F 52 20 42 4C 41 43 4B |." P FOR BLACK| 00000910: 2F 57 48 49 54 45 20 50 52 49 4E 54 22 00 23 11 |/WHITE PRINT".#.| 00000920: 11 09 99 00 3A 11 12 09 99 22 20 20 20 43 4F 4C |....:...." COL| 00000930: 4F 52 20 50 52 49 4E 54 3A 22 00 57 11 13 09 99 |OR PRINT:".W....| 00000940: 22 20 20 20 42 20 46 4F 52 20 42 4C 41 43 4B 20 |" B FOR BLACK | 00000950: 52 49 42 42 4F 4E 22 00 74 11 14 09 99 22 20 20 |RIBBON".t...." | 00000960: 20 4E 20 46 4F 52 20 42 52 4F 57 4E 20 52 49 42 | N FOR BROWN RIB| 00000970: 42 4F 4E 22 00 90 11 15 09 99 22 20 20 20 55 20 |BON"......" U | 00000980: 46 4F 52 20 42 4C 55 45 20 52 49 42 42 4F 4E 22 |FOR BLUE RIBBON"| 00000990: 00 AB 11 16 09 99 22 20 20 20 52 20 46 4F 52 20 |......" R FOR | 000009A0: 52 45 44 20 52 49 42 42 4F 4E 22 00 C8 11 17 09 |RED RIBBON".....| 000009B0: 99 22 20 20 20 47 20 46 4F 52 20 47 52 45 45 4E |." G FOR GREEN| 000009C0: 20 52 49 42 42 4F 4E 22 00 CE 11 19 09 99 00 E2 | RIBBON"........| 000009D0: 11 1A 09 99 22 20 20 20 45 20 54 4F 20 45 58 49 |...." E TO EXI| 000009E0: 54 22 00 F1 11 24 09 86 20 43 4D 28 35 2C 31 35 |T"...$.. CM(5,15| 000009F0: 29 00 07 12 2E 09 81 20 49 B2 30 A4 35 3A 20 81 |)...... I.0.5: .| 00000A00: 20 4A B2 30 A4 31 35 00 24 12 38 09 87 20 4D 4D | J.0.15.$.8.. MM| 00000A10: 3A 20 43 4D 28 49 2C 4A 29 B2 4D 4D 3A 20 82 4A |: CM(I,J).MM: .J| 00000A20: 3A 20 82 49 00 44 12 42 09 8B 20 54 59 B2 34 20 |: .I.D.B.. TY.4 | 00000A30: 20 A7 20 93 20 22 3F 22 AA 4E 4D 24 AA 22 2A 22 | . . "?".NM$."*"| 00000A40: 2C 38 2C 31 00 60 12 4C 09 8B 20 54 59 B3 B1 34 |,8,1.`.L.. TY..4| 00000A50: 20 A7 20 93 20 4E 4D 24 AA 22 2A 22 2C 38 2C 31 | . . NM$."*",8,1| 00000A60: 00 66 12 54 0B 3A 00 8B 12 B8 0B 8F 20 43 52 45 |.f.T.:...... CRE| 00000A70: 41 54 45 20 41 20 53 49 4D 4F 4E 27 53 20 42 41 |ATE A SIMON'S BA| 00000A80: 53 49 43 20 50 52 4F 47 52 41 4D 00 98 12 C2 0B |SIC PROGRAM.....| 00000A90: 51 24 B2 C7 28 33 34 29 00 CD 12 CC 0B 99 22 93 |Q$..(34)......".| 00000AA0: 31 20 49 46 20 41 3D 31 54 48 45 4E 41 3D 32 3A |1 IF A=1THENA=2:| 00000AB0: 20 4C 4F 41 44 22 51 24 22 20 47 44 55 4D 50 2B | LOAD"Q$" GDUMP+| 00000AC0: 4D 4F 56 45 22 51 24 22 2C 38 2C 31 22 00 ED 12 |MOVE"Q$",8,1"...| 00000AD0: D6 0B 99 22 32 20 49 46 20 41 3D 30 20 54 48 45 |..."2 IF A=0 THE| 00000AE0: 4E 20 41 3D 31 3A 20 47 4F 54 4F 20 37 00 15 13 |N A=1: GOTO 7...| 00000AF0: E0 0B 99 22 33 20 50 4F 4B 45 20 32 30 34 39 31 |..."3 POKE 20491| 00000B00: 2C 22 50 54 22 20 3A 50 4F 4B 45 20 32 30 34 39 |,"PT" :POKE 2049| 00000B10: 32 2C 22 53 44 00 4A 13 EA 0B 99 22 34 20 50 4F |2,"SD.J...."4 PO| 00000B20: 4B 45 20 32 30 34 39 33 2C 22 4E 54 22 20 3A 50 |KE 20493,"NT" :P| 00000B30: 4F 4B 45 20 32 30 34 38 37 2C 22 4E 50 22 20 3A |OKE 20487,"NP" :| 00000B40: 53 59 53 20 32 31 38 30 38 22 00 72 13 F4 0B 99 |SYS 21808".r....| 00000B50: 22 35 20 41 3D 50 45 45 4B 28 35 33 32 37 30 29 |"5 A=PEEK(53270)| 00000B60: 3A 20 41 3D 28 41 20 41 4E 44 20 31 36 29 2F 31 |: A=(A AND 16)/1| 00000B70: 36 22 00 9F 13 FE 0B 99 22 36 20 41 3D 33 2F 41 |6"......"6 A=3/A| 00000B80: 3A 20 50 4F 4B 45 20 32 30 34 39 34 2C 41 3A 20 |: POKE 20494,A: | 00000B90: 53 59 53 20 32 30 34 38 30 3A 20 45 4E 44 22 00 |SYS 20480: END".| 00000BA0: C5 13 08 0C 99 22 37 20 52 45 4D 20 41 50 50 45 |....."7 REM APPE| 00000BB0: 4E 44 20 59 4F 55 52 20 50 52 4F 47 52 41 4D 20 |ND YOUR PROGRAM | 00000BC0: 48 45 52 45 22 00 E6 13 12 0C 99 22 53 41 56 45 |HERE"......"SAVE| 00000BD0: 22 51 24 22 53 49 4D 4F 4E 2E 47 44 55 4D 50 22 |"Q$"SIMON.GDUMP"| 00000BE0: 51 24 22 2C 38 22 00 0D 14 1C 0C 97 20 36 33 31 |Q$",8"...... 631| 00000BF0: 2C 31 39 3A 20 81 20 41 B2 36 33 32 A4 36 33 39 |,19: . A.632.639| 00000C00: 3A 20 97 20 41 2C 31 33 3A 20 82 20 41 00 1C 14 |: . A,13: . A...| 00000C10: 26 0C 97 20 31 39 38 2C 39 3A 20 A2 00 55 14 A0 |&.. 198,9: ..U..| 00000C20: 0F 83 20 30 2C 35 2C 33 32 2C 31 30 2C 36 34 2C |.. 0,5,32,10,64,| 00000C30: 32 30 2C 31 2C 34 30 2C 31 35 39 2C 31 36 35 2C |20,1,40,159,165,| 00000C40: 39 30 2C 31 33 30 2C 32 31 39 2C 31 33 35 2C 38 |90,130,219,135,8| 00000C50: 30 2C 32 35 35 00 7E 14 AA 0F 83 20 31 35 2C 30 |0,255.~.... 15,0| 00000C60: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0| 00000C70: 2C 30 2C 31 32 2C 31 33 2C 30 2C 30 2C 33 00 A5 |,0,12,13,0,0,3..| 00000C80: 14 B4 0F 83 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 |.... 0,0,0,0,0,0| 00000C90: 2C 30 2C 32 2C 34 2C 31 35 2C 30 2C 30 2C 30 2C |,0,2,4,15,0,0,0,| 00000CA0: 30 2C 30 2C 30 00 CC 14 BE 0F 83 20 30 2C 30 2C |0,0,0...... 0,0,| 00000CB0: 31 35 2C 30 2C 39 2C 30 2C 30 2C 30 2C 36 2C 30 |15,0,9,0,0,0,6,0| 00000CC0: 2C 39 2C 30 2C 30 2C 30 2C 30 2C 30 00 F3 14 C8 |,9,0,0,0,0,0....| 00000CD0: 0F 83 20 30 2C 30 2C 30 2C 35 2C 30 2C 31 35 2C |.. 0,0,0,5,0,15,| 00000CE0: 30 2C 30 2F 32 2C 30 2C 30 2C 30 2C 30 2C 39 2C |0,0/2,0,0,0,0,9,| 00000CF0: 30 2C 30 00 1D 15 D2 0F 83 20 30 2C 30 2C 30 2C |0,0...... 0,0,0,| 00000D00: 31 31 2C 31 30 2C 30 2C 31 35 2C 30 2C 30 2C 30 |11,10,0,15,0,0,0| 00000D10: 2C 30 2C 30 2C 30 2C 30 2C 31 30 2C 30 00 00 00 |,0,0,0,0,10,0...|
..-....:ADAPTED BY CLIFFORD JANSEN, TPUG
#9743.@.(..A.1.A.2:.2000.S.-..A.2.A.3:.1
050...D..53281,1:."......THIS IS A SCREE
N-DUMP PROGRAM FOR":....N.."NON-COMMODOR
E PRINTERS. IT WAS WRITTEN":....S.."..BY
MICHAEL J. KERYAN AND IT APPEARED":....
X.."IN MICRO MAGAZINE IN JUL.AUG.SEP. 19
84.":..O...."BEFORE USING, LIST LINES 21
10-2250 AND ":..T...." ADAPT TO .YO
UR. PRINTER"......:." AFTER ADAPTING
.RUN. BEFORE".N. ..:."INSERTING A PICTU
RE-DISK(A ML. PROGRAM"......:."MUST BE L
OADED)THEN FOLLOW INSTRUCTIONS".=....".A
KOALA-PICTURE CALLED 'PIC L PEANUTS' C
AN BE TRIED";.M....". SUBMIT YOUR PICTU
RES TO TPUG LIBRARY"......".PRESS .RUNS
TOP. OR .RETURN."......A$:.A$."".190.H.H
..".......LOADING ML PROG":.1000...... B
ASIC PROGRAM TO SUPPORT GDUMP...... PROV
IDES COLOR PRINTOUTS.*.... M.J.KERYA
N 3-30-84.0...:.T.... A.0 . A.1: ." GDU
MP+MOVE",8,1.L.... A.1 . A.2: . 2000....
.. 20491,PT: . 20492,SD...$.. 20493,NT:
. 20487,NP...... GT...8.. TY.2 . TY.4 .
MD.B(53270): MD.3.((MD . 16).16): . 2049
4,MD...B.. TY.3 . TY.5 . . 20494,3.!.L..
TY.6 . . 20494,0.8.V..K$:. K$.."". 1110
.O.`..K$:. K$."" . 1120.N.J.. K$."P" . .
20480: . 1800...T.. K$."E" . 1800...~.C
.0: . K$."B" . C.1...... K$."N" . C.2...
... K$."R" . C.3.S.... K$."G" . C.4.....
. K$."U" . C.5...... C.0 . 1110...... M.
0 . 15: MM.21182.M: NN.21198.M.=.... MM,
CM(C,M): . NN,CM(0,M).E.(.. M.Y.2.. 2048
0: . 1110.I...: . QUIT...0.. 53265,(B
(53265).223)...:.. 53270,(B(53270).207).
..D.. 53272,21.Q.N.. 53280,6: . 53281,15
: . 646,0...X..".": ....P.. 53280,6: . 5
3281,15: . 646,0.!.Z.."...WHICH TYPE OF
PICTURE?".'.....C...." 1 SIMON'S BAS
IC"._...." 2 ULTRABASIC-64".T...."
3 DOODLE"......" 4 KOALAPAINTER".
....." 5 SLIDESHOW".J. .." 6 SLI
DESHOW - INVERTED".W.*.." ";TY...4.. TY
.1 . TY.6 . 2000...>.:...H.PT . 1: . PR
INTER TYPE.7.R.: . NEC/PROWRITER
= 0.\.\.: . EPSON OR SIMILAR
= 1.B.F.:..P.NP . 3: . PT.1 . NP . 2.
..Z.: . D CODE.....:.....NT . 1:
. INTERFACE TYPE.Y...: . CONNE
CTION = 0.....: . OTHERS = 1
.....:.....SD . 4: . SECONDARY ADDRESS.
>...: . FOR TRANSPARENT.D.J.:.^.T
.GT . 21808 . (TY.1).3.X.... GT.21820 .
GT.21820...... TY.1 . 3000......"...NOW
PUT IN DISK WITH THE PICTURE FILE.".W...
.".NAME OF PICTURE";NM$......".AFTER PIC
TURE LOADS, PRESS:"......" P FOR BLACK
/WHITE PRINT".#.....:...." COLOR PRINT
:".W...." B FOR BLACK RIBBON".T...."
N FOR BROWN RIBBON"......" U FOR BLUE
RIBBON"......" R FOR RED RIBBON".H...
." G FOR GREEN RIBBON".N.........."
E TO EXIT"...$.. CM(5,15)...... I.0.5: .
J.0.15.$.8.. MM: CM(I,J).MM: .J: .I.D.B
.. TY.4 . . "?".NM$."*",8,1.`.L.. TY..4
. . NM$."*",8,1.F.T.:...... CREATE A SI
MON'S BASIC PROGRAM...B.Q$.G(34).M.L..".
1 IF A=1THENA=2: LOAD"Q$" GDUMP+MOVE"Q$"
,8,1"...V.."2 IF A=0 THEN A=1: GOTO 7...
..."3 POKE 20491,"PT" :POKE 20492,"SD.J.
..."4 POKE 20493,"NT" :POKE 20487,"NP" :
SYS 21808".R...."5 A=PEEK(53270): A=(A A
ND 16)/16"......"6 A=3/A: POKE 20494,A:
SYS 20480: END".E...."7 REM APPEND YOUR
PROGRAM HERE"......"SAVE"Q$"SIMON.GDUMP"
Q$",8"...... 631,19: . A.632.639: . A,13
: . A...&.. 198,9: ..U. .. 0,5,32,10,64,
20,1,40,159,165,90,130,219,135,80,255.~.
... 15,0,0,0,0,0,0,0,0,0,0,12,13,0,0,3..
.... 0,0,0,0,0,0,0,2,4,15,0,0,0,0,0,0.L.
... 0,0,15,0,9,0,0,0,6,0,9,0,0,0,0,0...H
.. 0,0,0,5,0,15,0,0/2,0,0,0,0,9,0,0...R.
. 0,0,0,11,10,0,15,0,0,0,0,0,0,0,10,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL