DDMEGACOLOR3

00000000: 01 40 2C 40 0A 00 8F 20  44 53 41 56 45 20 22 40  |.@,@... DSAVE "@|
00000010: 44 49 53 50 2D 4C 41 43  45 20 56 31 2E 33 22 2C  |DISP-LACE V1.3",|
00000020: 55 28 50 45 45 4B 28 31  38 36 29 29 00 5C 40 14  |U(PEEK(186)).\@.|
00000030: 00 8F 20 43 2D 31 32 38  20 56 44 43 20 36 34 4B  |.. C-128 VDC 64K|
00000040: 20 52 41 4D 20 49 4E 54  45 52 4C 41 43 45 20 44  | RAM INTERLACE D|
00000050: 4F 4F 44 4C 45 20 56 49  45 57 45 52 00 78 40 1E  |OODLE VIEWER.x@.|
00000060: 00 8F 20 42 59 20 52 49  43 4B 20 4B 41 4E 45 20  |.. BY RICK KANE |
00000070: 3C 43 3E 20 31 39 38 38  00 97 40 28 00 8F 20 54  |<C> 1988..@(.. T|
00000080: 57 49 4E 20 43 49 54 49  45 53 20 31 32 38 20 49  |WIN CITIES 128 I|
00000090: 53 53 55 45 20 32 32 00  BC 40 32 00 8F 20 4D 4F  |SSUE 22..@2.. MO|
000000A0: 44 49 46 49 43 41 54 49  4F 4E 53 20 42 59 20 57  |DIFICATIONS BY W|
000000B0: 49 4C 4C 49 41 4D 20 50  49 54 54 53 00 C2 40 3C  |ILLIAM PITTS..@<|
000000C0: 00 3A 00 DE 40 46 00 E7  20 30 2C 31 3A E7 20 34  |.:..@F.. 0,1:. 4|
000000D0: 2C 31 3A FE 25 3A D7 20  37 38 30 3A DE 31 00 40  |,1:.%:. 780:.1.@|
000000E0: 41 50 00 9E D1 28 22 43  44 44 41 22 29 2C 2C 32  |AP...("CDDA"),,2|
000000F0: 35 3A FE 09 41 3A 8B 20  28 41 AF 31 32 38 29 B2  |5:..A:. (A.128).|
00000100: 30 20 A7 20 DE 35 3A 99  22 0E CD 45 4E 55 20 4F  |0 . .5:."..ENU O|
00000110: 4E 20 34 30 20 43 4F 4C  55 4D 4E 20 53 43 52 45  |N 40 COLUMN SCRE|
00000120: 45 4E 22 3A DE 30 3A D5  99 22 07 22 3A 8F 20 43  |EN":.0:..".":. C|
00000130: 48 45 43 4B 20 42 49 54  4D 41 50 20 4D 4F 44 45  |HECK BITMAP MODE|
00000140: 00 46 41 5A 00 3A 00 72  41 64 00 4D 4C 24 B2 22  |.FAZ.:.rAd.ML$."|
00000150: 4D 4C 2E 44 44 4D 45 47  41 33 22 3A 8B C2 28 D1  |ML.DDMEGA3":..(.|
00000160: 28 22 31 33 30 30 22 29  29 B2 33 32 20 A7 20 31  |("1300")).32 . 1|
00000170: 32 30 00 B9 41 6E 00 FE  11 20 28 4D 4C 24 29 2C  |20..An... (ML$),|
00000180: 55 28 C2 28 31 38 36 29  29 3A 8B 20 44 53 B2 36  |U(.(186)):. DS.6|
00000190: 32 20 A7 20 99 22 93 11  20 4D 4C 20 46 49 4C 45  |2 . .".. ML FILE|
000001A0: 20 4E 4F 54 20 4F 4E 20  44 49 53 4B 22 3A FE 0B  | NOT ON DISK":..|
000001B0: 20 33 3A 99 22 93 22 3A  80 00 F6 41 78 00 47 43  | 3:.".":...Ax.GC|
000001C0: B2 D1 28 22 31 33 30 30  22 29 3A 47 42 B2 D1 28  |..("1300"):GB..(|
000001D0: 22 31 33 32 31 22 29 3A  8F 20 47 45 54 43 4F 4C  |"1321"):. GETCOL|
000001E0: 4F 52 2C 20 47 45 54 42  49 54 4D 41 50 20 52 4F  |OR, GETBITMAP RO|
000001F0: 55 54 49 4E 45 53 00 07  42 82 00 57 52 B2 D1 28  |UTINES..B..WR..(|
00000200: 22 43 44 43 43 22 29 00  44 42 8C 00 44 41 B2 D1  |"CDCC").DB..DA..|
00000210: 28 22 46 45 43 30 22 29  3A 44 48 B2 B5 28 44 41  |("FEC0"):DH..(DA|
00000220: AD 32 35 36 29 3A 44 4C  B2 44 41 AB 44 48 AC 32  |.256):DL.DA.DH.2|
00000230: 35 36 3A 8F 20 44 49 53  50 4C 41 59 20 41 44 44  |56:. DISPLAY ADD|
00000240: 52 45 53 53 00 83 42 96  00 41 41 B2 D1 28 22 43  |RESS..B..AA..("C|
00000250: 33 35 30 22 29 3A 41 48  B2 B5 28 41 41 AD 32 35  |350"):AH..(AA.25|
00000260: 36 29 3A 41 4C B2 41 41  AB 41 48 AC 32 35 36 3A  |6):AL.AA.AH.256:|
00000270: 8F 20 41 54 54 52 49 42  55 54 45 20 41 44 44 52  |. ATTRIBUTE ADDR|
00000280: 45 53 53 00 90 42 A0 00  FE 25 3A 8C 20 38 35 30  |ESS..B...%:. 850|
00000290: 00 B5 42 AA 00 87 20 58  2C 53 2C 53 41 2C 48 54  |..B... X,S,SA,HT|
000002A0: 2C 48 44 2C 48 53 2C 56  54 2C 56 41 2C 56 44 2C  |,HD,HS,VT,VA,VD,|
000002B0: 56 53 2C 43 54 00 D0 42  B4 00 9E D1 28 22 45 31  |VS,CT..B....("E1|
000002C0: 37 39 22 29 20 3A 8F 20  49 4E 49 54 20 56 44 43  |79") :. INIT VDC|
000002D0: 00 02 43 BE 00 9E 20 57  52 2C D1 28 22 33 46 22  |..C... WR,.("3F"|
000002E0: 29 2C 32 38 3A 20 20 20  20 20 20 20 20 20 20 20  |),28:           |
000002F0: 20 20 20 8F 20 36 34 4B  20 52 41 4D 20 43 48 49  |   . 64K RAM CHI|
00000300: 50 53 00 1C 43 C8 00 9E  20 57 52 2C 44 48 2C 31  |PS..C... WR,DH,1|
00000310: 32 3A 9E 20 57 52 2C 44  4C 2C 31 33 00 42 43 D2  |2:. WR,DL,13.BC.|
00000320: 00 9E 20 57 52 2C 41 48  2C 32 30 3A 9E 20 57 52  |.. WR,AH,20:. WR|
00000330: 2C 41 4C 2C 32 31 3A 9E  20 57 52 2C 31 39 39 2C  |,AL,21:. WR,199,|
00000340: 32 35 00 75 43 DC 00 9E  57 52 2C 30 2C 32 36 3A  |25.uC...WR,0,26:|
00000350: 8F 20 4D 4F 4E 4F 43 48  52 4F 4D 45 20 43 4F 4C  |. MONOCHROME COL|
00000360: 4F 52 53 20 54 4F 20 42  4C 41 43 4B 20 4F 4E 20  |ORS TO BLACK ON |
00000370: 42 4C 41 43 4B 00 7E 43  E6 00 8D 38 37 30 00 A2  |BLACK.~C...870..|
00000380: 43 F0 00 FE 26 20 3A DE  30 3A 99 22 0E 13 13 93  |C...& :.0:."....|
00000390: 20 20 20 20 2A 20 C4 49  53 50 2F 4C 41 43 45 20  |    * .ISP/LACE |
000003A0: 2A 22 00 BF 43 FA 00 99  22 20 20 20 20 20 20 36  |*"..C..."      6|
000003B0: 34 4B 20 44 49 53 50 4C  41 59 20 52 41 4D 22 00  |4K DISPLAY RAM".|
000003C0: E4 43 04 01 99 22 49 4E  54 45 52 4C 41 43 45 20  |.C..."INTERLACE |
000003D0: 4D 4F 44 45 20 C4 4F 4F  44 4C 45 20 56 49 45 57  |MODE .OODLE VIEW|
000003E0: 45 52 11 22 00 01 44 0E  01 99 22 20 20 20 20 20  |ER."..D..."     |
000003F0: 20 20 36 34 30 20 58 20  36 30 30 20 43 4F 4C 4F  |  640 X 600 COLO|
00000400: 52 00 6E 44 18 01 99 22  11 11 20 D7 48 45 4E 20  |R.nD...".. .HEN |
00000410: 50 52 4F 4D 50 54 45 44  20 46 4F 52 20 46 49 4C  |PROMPTED FOR FIL|
00000420: 45 4E 41 4D 45 2C 20 C4  CF 20 CE CF D4 20 20 20  |ENAME, .. ...   |
00000430: 20 20 20 45 4E 54 45 52  20 54 48 45 20 27 C4 C4  |   ENTER THE '..|
00000440: 27 20 50 52 45 46 49 58  21 20 CF 4E 4C 59 20 45  |' PREFIX! .NLY E|
00000450: 4E 54 45 52 20 54 48 45  20 20 20 4E 55 4D 42 45  |NTER THE   NUMBE|
00000460: 52 20 49 4E 20 4D 41 4E  55 41 4C 21 11 22 00 9E  |R IN MANUAL!."..|
00000470: 44 22 01 99 22 20 C5 4E  54 45 52 49 4E 47 20 27  |D".." .NTERING '|
00000480: 24 27 20 57 49 4C 4C 20  44 49 53 50 4C 41 59 20  |$' WILL DISPLAY |
00000490: 41 20 44 49 52 45 43 54  4F 52 59 2E 11 22 00 D8  |A DIRECTORY.."..|
000004A0: 44 2C 01 99 22 20 D0 52  45 53 53 49 4E 47 20 52  |D,.." .RESSING R|
000004B0: 45 54 55 52 4E 20 4F 52  20 53 50 41 43 45 20 42  |ETURN OR SPACE B|
000004C0: 41 52 20 45 4E 44 53 20  20 20 20 20 20 20 50 52  |AR ENDS       PR|
000004D0: 4F 47 52 41 4D 2E 11 22  00 55 45 36 01 99 22 20  |OGRAM..".UE6.." |
000004E0: D7 48 45 4E 20 53 43 52  45 45 4E 53 20 48 41 56  |.HEN SCREENS HAV|
000004F0: 45 20 53 54 41 52 54 45  44 20 54 4F 20 4C 4F 41  |E STARTED TO LOA|
00000500: 44 2C 20 20 20 20 20 20  53 57 49 54 43 48 20 4D  |D,      SWITCH M|
00000510: 4F 4E 49 54 4F 52 20 54  4F 20 38 30 2D 43 4F 4C  |ONITOR TO 80-COL|
00000520: 2E 20 54 4F 20 56 49 45  57 2C 20 20 20 20 20 20  |. TO VIEW,      |
00000530: 53 57 49 54 43 48 20 42  41 43 4B 20 54 4F 20 34  |SWITCH BACK TO 4|
00000540: 30 2D 43 4F 4C 20 54 4F  20 43 4F 4E 54 49 4E 55  |0-COL TO CONTINU|
00000550: 45 2E 11 11 22 00 68 45  40 01 FE 1A 30 2C 32 30  |E...".hE@...0,20|
00000560: 2C 33 39 2C 32 34 2C 31  00 AF 45 4A 01 99 22 05  |,39,24,1..EJ..".|
00000570: 20 43 4C 45 41 52 20 42  49 54 4D 41 50 20 53 43  | CLEAR BITMAP SC|
00000580: 52 45 45 4E 53 3F 20 59  2F 4E 99 22 3A A1 F9 4B  |REENS? Y/N.":..K|
00000590: 24 3A 8B 4B 24 B2 22 59  22 A7 20 DE 31 3A E8 3A  |$:.K$."Y". .1:.:|
000005A0: 81 20 50 4F B2 30 A4 35  3A 8D 36 35 30 3A 82 00  |. PO.0.5:.650:..|
000005B0: D4 45 54 01 DE 30 3A 99  22 93 C1 55 54 4F 20 4F  |.ET..0:."..UTO O|
000005C0: 52 20 CD 41 4E 55 41 4C  20 CC 4F 41 44 3F 20 28  |R .ANUAL .OAD? (|
000005D0: 41 2F 4D 29 00 03 46 5E  01 A1 F9 4B 24 3A 4B B2  |A/M)..F^...K$:K.|
000005E0: D4 28 22 41 4D 22 2C 4B  24 29 3A 8B 4B B1 30 A7  |.("AM",K$):.K.0.|
000005F0: 20 91 20 4B 20 8D 35 31  30 2C 33 38 30 3A D5 20  | . K .510,380:. |
00000600: 33 35 30 00 09 46 68 01  3A 00 2F 46 72 01 8F 20  |350..Fh.:./Fr.. |
00000610: 2A 2A 2A 2A 20 4D 41 4E  55 41 4C 20 4C 4F 41 44  |**** MANUAL LOAD|
00000620: 2F 54 52 41 4E 53 46 45  52 20 20 2A 2A 2A 2A 00  |/TRANSFER  ****.|
00000630: 38 46 7C 01 89 34 30 30  00 41 46 86 01 A1 F9 4B  |8F|..400.AF....K|
00000640: 24 00 58 46 90 01 DE 32  3A FE 1A 20 30 2C 32 30  |$.XF...2:.. 0,20|
00000650: 2C 33 39 2C 32 34 2C 31  00 6F 46 9A 01 8B D4 28  |,39,24,1.oF....(|
00000660: 22 4C 54 51 22 2C 4B 24  29 B1 30 A7 34 33 30 00  |"LTQ",K$).0.430.|
00000670: 93 46 A4 01 99 22 CC 4F  41 44 2C 20 D4 52 41 4E  |.F...".OAD, .RAN|
00000680: 53 46 45 52 20 4F 52 20  D1 55 49 54 3F 22 3A A1  |SFER OR .UIT?":.|
00000690: F9 4B 24 00 BC 46 AE 01  4B B2 D4 28 22 4C 54 51  |.K$..F..K..("LTQ|
000006A0: 22 2C 4B 24 29 3A 8B 4B  B1 30 A7 20 91 20 4B 20  |",K$):.K.0. . K |
000006B0: 8D 34 35 30 2C 34 39 30  2C 37 38 30 00 C8 46 B8  |.450,490,780..F.|
000006C0: 01 DE 31 3A 89 33 39 30  00 25 47 C2 01 85 22 44  |..1:.390.%G..."D|
000006D0: 4F 4F 44 4C 45 20 46 49  4C 45 20 54 4F 20 4C 4F  |OODLE FILE TO LO|
000006E0: 41 44 22 3B 46 24 3A 8B  46 24 B2 22 24 22 A7 20  |AD";F$:.F$."$". |
000006F0: FE 1A 30 2C 30 2C 33 39  2C 31 39 2C 31 3A DE 30  |..0,0,39,19,1:.0|
00000700: 3A EE 22 44 44 2A 22 3A  FE 1A 30 2C 32 30 2C 33  |:."DD*":..0,20,3|
00000710: 39 2C 32 34 2C 31 3A 89  34 35 30 3A D5 8B 46 24  |9,24,1:.450:..F$|
00000720: B2 22 22 A7 8E 00 57 47  CC 01 46 46 24 B2 22 44  |.""...WG..FF$."D|
00000730: 44 22 AA 46 24 3A DE 31  3A FE 11 28 46 46 24 29  |D".F$:.1:..(FF$)|
00000740: 2C 50 28 D1 28 22 31 43  30 30 22 29 29 2C 55 28  |,P(.("1C00")),U(|
00000750: C2 28 31 38 36 29 29 00  5D 47 D6 01 8E 00 63 47  |.(186)).]G....cG|
00000760: E0 01 3A 00 B7 47 EA 01  99 22 50 4F 53 49 54 49  |..:..G..."POSITI|
00000770: 4F 4E 3A 20 30 20 20 31  22 3A 99 22 20 20 20 20  |ON: 0  1":."    |
00000780: 20 20 20 20 20 20 32 20  20 33 22 3A 99 22 20 20  |      2  3":."  |
00000790: 20 20 20 20 20 20 20 20  34 20 20 35 22 3A 85 20  |        4  5":. |
000007A0: 50 4F 3A 8B 50 4F B3 30  B0 50 4F B1 35 A7 34 39  |PO:.PO.0.PO.5.49|
000007B0: 30 3A D5 20 36 35 30 00  BD 47 F4 01 3A 00 E7 47  |0:. 650..G..:..G|
000007C0: FE 01 53 4C B2 30 3A 81  20 53 43 B2 30 20 A4 20  |..SL.0:. SC.0 . |
000007D0: 35 3A 8D 35 35 30 3A 8B  20 45 20 A7 53 43 B2 35  |5:.550:. E .SC.5|
000007E0: 3A D5 20 8D 36 34 30 00  06 48 08 02 DE 31 3A 82  |:. .640..H...1:.|
000007F0: 3A 53 4C B2 30 3A 8B 20  45 20 89 20 37 38 30 3A  |:SL.0:. E . 780:|
00000800: 20 D5 20 35 31 30 00 0C  48 12 02 3A 00 2E 48 1C  | . 510..H..:..H.|
00000810: 02 8F 20 2A 2A 2A 2A 2A  2A 2A 2A 20 41 55 54 4F  |.. ******** AUTO|
00000820: 20 44 4F 4F 44 4C 45 20  4C 4F 41 44 45 52 00 57  | DOODLE LOADER.W|
00000830: 48 26 02 8B 53 4C B2 30  20 A7 20 53 4C B2 31 3A  |H&..SL.0 . SL.1:|
00000840: DE 32 3A FE 1A 20 30 2C  32 30 2C 33 39 2C 32 34  |.2:.. 0,20,39,24|
00000850: 2C 31 3A D5 35 38 30 00  7C 48 30 02 46 24 B2 22  |,1:.580.|H0.F$."|
00000860: 22 3A 85 22 44 4F 4F 44  4C 45 20 46 49 4C 45 53  |":."DOODLE FILES|
00000870: 20 54 4F 20 4C 4F 41 44  22 3B 46 24 00 DE 48 3A  | TO LOAD";F$..H:|
00000880: 02 8B 46 24 B2 22 24 22  A7 20 FE 1A 30 2C 30 2C  |..F$."$". ..0,0,|
00000890: 33 39 2C 31 39 2C 31 3A  DE 30 3A EE 22 44 44 2A  |39,19,1:.0:."DD*|
000008A0: 22 3A FE 1A 30 2C 32 30  2C 33 39 2C 32 34 2C 31  |":..0,20,39,24,1|
000008B0: 3A 53 4C B2 30 3A 99 22  11 50 52 45 53 53 20 41  |:SL.0:.".PRESS A|
000008C0: 20 4B 45 59 22 3A A1 F9  43 4F 24 3A 89 35 35 30  | KEY":..CO$:.550|
000008D0: 3A D5 8B 46 24 B2 22 22  A7 45 B2 31 3A 8E 00 F4  |:..F$."".E.1:...|
000008E0: 48 44 02 46 46 24 B2 22  44 44 22 AA 46 24 AA C4  |HD.FF$."DD".F$..|
000008F0: 28 53 43 29 00 1A 49 4E  02 DE 31 3A FE 11 28 46  |(SC)..IN..1:..(F|
00000900: 46 24 29 2C 50 28 D1 28  22 31 43 30 30 22 29 29  |F$),P(.("1C00"))|
00000910: 2C 55 28 C2 28 31 38 36  29 29 00 3A 49 58 02 8B  |,U(.(186)).:IX..|
00000920: 20 44 53 B1 30 20 A7 20  53 43 B2 30 3A 53 4C B2  | DS.0 . SC.0:SL.|
00000930: 30 3A 89 35 35 30 3A D5  20 8E 00 40 49 62 02 3A  |0:.550:. ..@Ib.:|
00000940: 00 6D 49 6C 02 8F 20 2A  2A 2A 2A 2A 2A 2A 2A 20  |.mIl.. ******** |
00000950: 54 52 41 4E 53 46 45 52  20 47 52 41 50 48 49 43  |TRANSFER GRAPHIC|
00000960: 20 54 4F 20 38 30 20 43  4F 4C 55 4D 4E 00 73 49  | TO 80 COLUMN.sI|
00000970: 76 02 3A 00 7D 49 80 02  50 4F B2 53 43 00 9E 49  |v.:.}I..PO.SC..I|
00000980: 8A 02 FE 25 3A 9E 57 52  2C 31 33 35 2C 32 35 3A  |...%:.WR,135,25:|
00000990: 8F 20 42 4C 41 4E 4B 20  53 43 52 45 45 4E 00 D1  |. BLANK SCREEN..|
000009A0: 49 94 02 81 4A B2 30 A4  31 3A 4D 45 4D B2 41 41  |I...J.0.1:MEM.AA|
000009B0: AA 28 53 41 AC 4A 29 AA  20 34 30 AC 28 50 4F 20  |.(SA.J). 40.(PO |
000009C0: AF 31 29 AA 20 32 30 30  30 AC B5 28 50 4F AD 32  |.1). 2000..(PO.2|
000009D0: 29 00 F3 49 9E 02 4D 48  B2 B5 28 4D 45 4D AD 32  |)..I..MH..(MEM.2|
000009E0: 35 36 29 3A 4D 4C B2 4D  45 4D AB 28 4D 48 AC 32  |56):ML.MEM.(MH.2|
000009F0: 35 36 29 00 0F 4A A8 02  97 D1 28 22 46 43 22 29  |56)..J....("FC")|
00000A00: 2C 4D 4C 3A 97 D1 28 22  46 44 22 29 2C 4D 48 00  |,ML:..("FD"),MH.|
00000A10: 30 4A B2 02 9E 20 47 43  20 20 20 20 20 20 20 3A  |0J... GC       :|
00000A20: 8F 20 50 55 54 20 43 4F  4C 4F 52 20 44 41 54 41  |. PUT COLOR DATA|
00000A30: 00 36 4A BC 02 82 00 67  4A C6 02 81 4A B2 30 A4  |.6J....gJ...J.0.|
00000A40: 31 3A 4D 45 4D B2 28 53  AC 4A 29 AA 20 34 30 AC  |1:MEM.(S.J). 40.|
00000A50: 28 50 4F 20 AF 31 29 AA  20 31 30 30 AC 48 44 AC  |(PO .1). 100.HD.|
00000A60: B5 28 50 4F AD 32 29 00  89 4A D0 02 4D 48 B2 B5  |.(PO.2)..J..MH..|
00000A70: 28 4D 45 4D AD 32 35 36  29 3A 4D 4C B2 4D 45 4D  |(MEM.256):ML.MEM|
00000A80: AB 28 4D 48 AC 32 35 36  29 00 A5 4A DA 02 97 D1  |.(MH.256)..J....|
00000A90: 28 22 46 43 22 29 2C 4D  4C 3A 97 D1 28 22 46 44  |("FC"),ML:..("FD|
00000AA0: 22 29 2C 4D 48 00 D2 4A  E4 02 9E 20 47 42 2C 2C  |"),MH..J... GB,,|
00000AB0: 2C 4A 20 20 20 20 3A 8F  20 50 55 54 20 42 49 54  |,J    :. PUT BIT|
00000AC0: 4D 41 50 20 44 41 54 41  20 4F 4E 20 53 43 52 45  |MAP DATA ON SCRE|
00000AD0: 45 4E 00 E7 4A EE 02 82  20 3A 9E 57 52 2C 31 39  |EN..J... :.WR,19|
00000AE0: 39 2C 32 35 3A FE 26 00  ED 4A F8 02 8E 00 F3 4A  |9,25:.&..J.....J|
00000AF0: 02 03 3A 00 04 4B 0C 03  FE 26 3A DE 30 3A 99 22  |..:..K...&:.0:."|
00000B00: 13 13 93 22 00 1A 4B 16  03 8B 45 52 B2 34 A7 99  |..."..K...ER.4..|
00000B10: 44 53 24 3A FE 0B 32 3A  D6 82 00 40 4B 20 03 85  |DS$:..2:...@K ..|
00000B20: 22 52 45 53 45 54 20 38  30 20 43 4F 4C 55 4D 4E  |"RESET 80 COLUMN|
00000B30: 20 54 45 58 54 20 53 43  52 45 45 4E 22 3B 59 24  | TEXT SCREEN";Y$|
00000B40: 00 7F 4B 2A 03 8B 59 24  B2 22 59 22 A7 9E D1 28  |..K*..Y$."Y"...(|
00000B50: 22 45 31 37 39 22 29 3A  9E D1 28 22 46 46 36 32  |"E179"):..("FF62|
00000B60: 22 29 3A DE 35 3A 99 22  93 9F 22 3B 3A DE 30 3A  |"):.5:."..";:.0:|
00000B70: E7 20 30 2C 31 32 3A E7  20 34 2C 31 34 3A 80 00  |. 0,12:. 4,14:..|
00000B80: 95 4B 34 03 E7 20 30 2C  31 32 3A E7 20 34 2C 31  |.K4.. 0,12:. 4,1|
00000B90: 34 3A 90 3A D6 00 9B 4B  3E 03 3A 00 CC 4B 48 03  |4:.:...K>.:..KH.|
00000BA0: 8F 20 20 20 20 58 20 20  20 20 53 20 20 20 53 41  |.    X    S   SA|
00000BB0: 20 20 20 48 54 20 48 44  20 20 48 53 20 20 56 54  |   HT HD  HS  VT|
00000BC0: 20 56 41 20 56 44 20 56  53 20 43 54 00 FB 4B 52  | VA VD VS CT..KR|
00000BD0: 03 83 20 36 34 30 2C 32  35 36 38 30 2C 36 34 30  |.. 640,25680,640|
00000BE0: 30 2C 31 32 35 2C 38 30  2C 31 30 32 2C 38 30 2C  |0,125,80,102,80,|
00000BF0: 30 37 2C 38 30 2C 37 37  2C 20 37 00 01 4C 5C 03  |07,80,77, 7..L\.|
00000C00: 3A 00 18 4C 66 03 9E 20  57 52 2C 48 54 2C 30 20  |:..Lf.. WR,HT,0 |
00000C10: 3A 8F 20 48 20 54 4F 54  00 35 4C 70 03 9E 20 57  |:. H TOT.5Lp.. W|
00000C20: 52 2C 48 44 2C 31 20 3A  8F 20 48 20 44 49 53 50  |R,HD,1 :. H DISP|
00000C30: 4C 41 59 45 44 00 52 4C  7A 03 9E 20 57 52 2C 48  |LAYED.RLz.. WR,H|
00000C40: 53 2C 32 20 3A 8F 20 48  20 53 59 4E 43 20 50 4F  |S,2 :. H SYNC PO|
00000C50: 53 4E 00 6B 4C 84 03 9E  20 57 52 2C 56 54 2C 34  |SN.kL... WR,VT,4|
00000C60: 20 3A 8F 20 56 20 54 4F  54 41 4C 00 88 4C 8E 03  | :. V TOTAL..L..|
00000C70: 9E 20 57 52 2C 56 41 2C  35 20 3A 8F 20 56 20 54  |. WR,VA,5 :. V T|
00000C80: 4F 54 41 4C 20 41 44 4A  00 A5 4C 98 03 9E 20 57  |OTAL ADJ..L... W|
00000C90: 52 2C 56 44 2C 36 20 3A  8F 20 56 20 44 49 53 50  |R,VD,6 :. V DISP|
00000CA0: 4C 41 59 45 44 00 C2 4C  A2 03 9E 20 57 52 2C 56  |LAYED..L... WR,V|
00000CB0: 53 2C 37 20 3A 8F 20 56  20 53 59 4E 43 20 50 4F  |S,7 :. V SYNC PO|
00000CC0: 53 4E 00 E1 4C AC 03 9E  20 57 52 2C 43 54 2C 39  |SN..L... WR,CT,9|
00000CD0: 20 3A 8F 20 43 48 41 52  20 54 4F 54 20 56 45 52  | :. CHAR TOT VER|
00000CE0: 54 00 FC 4C B6 03 9E 20  57 52 2C 30 33 2C 38 20  |T..L... WR,03,8 |
00000CF0: 3A 8F 20 49 4E 54 45 52  4C 41 43 45 00 1B 4D C0  |:. INTERLACE..M.|
00000D00: 03 9E 20 57 52 2C 30 30  2C 32 37 3A 8F 20 41 44  |.. WR,00,27:. AD|
00000D10: 52 20 49 4E 43 20 2F 20  52 4F 57 00 21 4D CA 03  |R INC / ROW.!M..|
00000D20: 8E 00 00 00                                       |....            |

.@,@... DSAVE "@DISP-LACE V1.3",U(PEEK(1
86)).\@... C-128 VDC 64K RAM INTERLACE D
OODLE VIEWER.X@... BY RICK KANE <C> 1988
..@(.. TWIN CITIES 128 ISSUE 22..@2.. MO
DIFICATIONS BY WILLIAM PITTS.B@<.:..@F..
 0,1:. 4,1:.%:W 780:.1.@AP..Q("CDDA"),,2
5:..A:. (A.128).0 . .5:.".MENU ON 40 COL
UMN SCREEN":.0:U.".":. CHECK BITMAP MODE
.FAZ.:.RAD.ML$."ML.DDMEGA3":.B(Q("1300")
).32 . 120..AN... (ML$),U(B(186)):. DS.6
2 . .".. ML FILE NOT ON DISK":.. 3:.".":
...AX.GC.Q("1300"):GB.Q("1321"):. GETCOL
OR, GETBITMAP ROUTINES..B..WR.Q("CDCC").
DB..DA.Q("FEC0"):DH..(DA.256):DL.DA.DH.2
56:. DISPLAY ADDRESS..B..AA.Q("C350"):AH
..(AA.256):AL.AA.AH.256:. ATTRIBUTE ADDR
ESS..B ..%:. 850..B... X,S,SA,HT,HD,HS,V
T,VA,VD,VS,CT.PB...Q("E179") :. INIT VDC
..C... WR,Q("3F"),28:              . 64K
 RAM CHIPS..CH.. WR,DH,12:. WR,DL,13.BCR
.. WR,AH,20:. WR,AL,21:. WR,199,25.UC...
WR,0,26:. MONOCHROME COLORS TO BLACK ON 
BLACK.~C...870..C...& :.0:."....    * DI
SP/LACE *"..C..."      64K DISPLAY RAM".
.C..."INTERLACE MODE DOODLE VIEWER."..D.
.."       640 X 600 COLOR.ND...".. WHEN 
PROMPTED FOR FILENAME, DO NOT      ENTER
 THE 'DD' PREFIX! ONLY ENTER THE   NUMBE
R IN MANUAL!."..D".." ENTERING '$' WILL 
DISPLAY A DIRECTORY..".XD,.." PRESSING R
ETURN OR SPACE BAR ENDS       PROGRAM.."
.UE6.." WHEN SCREENS HAVE STARTED TO LOA
D,      SWITCH MONITOR TO 80-COL. TO VIE
W,      SWITCH BACK TO 40-COL TO CONTINU
E...".HE@...0,20,39,24,1..EJ..". CLEAR B
ITMAP SCREENS? Y/N.":..K$:.K$."Y". .1:.:
. PO.0.5:.650:..TET..0:.".AUTO OR MANUAL
 LOAD? (A/M)..F^...K$:K.T("AM",K$):.K.0.
 . K .510,380:U 350..FH.:./FR.. **** MAN
UAL LOAD/TRANSFER  ****.8F|..400.AF....K
$.XF...2:.. 0,20,39,24,1.OF...T("LTQ",K$
).0.430..F..."LOAD, TRANSFER OR QUIT?":.
.K$..F..K.T("LTQ",K$):.K.0. . K .450,490
,780.HF...1:.390.%GB.."DOODLE FILE TO LO
AD";F$:.F$."$". ..0,0,39,19,1:.0:."DD*":
..0,20,39,24,1:.450:U.F$.""...WGL.FF$."D
D".F$:.1:..(FF$),P(Q("1C00")),U(B(186)).
]GV...CG..:..G..."POSITION: 0  1":."    
      2  3":."          4  5":. PO:.PO.0
.PO.5.490:U 650..G..:..G..SL.0:. SC.0 . 
5:.550:. E .SC.5:U .640..H...1:.:SL.0:. 
E . 780: U 510..H..:..H... ******** AUTO
 DOODLE LOADER.WH&..SL.0 . SL.1:.2:.. 0,
20,39,24,1:U580.|H0.F$."":."DOODLE FILES
 TO LOAD";F$..H:..F$."$". ..0,0,39,19,1:
.0:."DD*":..0,20,39,24,1:SL.0:.".PRESS A
 KEY":..CO$:.550:U.F$."".E.1:...HD.FF$."
DD".F$.D(SC)..IN..1:..(FF$),P(Q("1C00"))
,U(B(186)).:IX.. DS.0 . SC.0:SL.0:.550:U
 ..@IB.:.MIL.. ******** TRANSFER GRAPHIC
 TO 80 COLUMN.SIV.:.}I..PO.SC..I...%:.WR
,135,25:. BLANK SCREEN.QI...J.0.1:MEM.AA
.(SA.J). 40.(PO .1). 2000..(PO.2)..I..MH
..(MEM.256):ML.MEM.(MH.256)..J...Q("FC")
,ML:.Q("FD"),MH.0J... GC       :. PUT CO
LOR DATA.6J....GJF..J.0.1:MEM.(S.J). 40.
(PO .1). 100.HD..(PO.2)..JP.MH..(MEM.256
):ML.MEM.(MH.256)..JZ..Q("FC"),ML:.Q("FD
"),MH.RJ... GB,,,J    :. PUT BITMAP DATA
 ON SCREEN..J... :.WR,199,25:.&..J.....J
..:..K...&:.0:."..."..K...ER.4..DS$:..2:
V..@K .."RESET 80 COLUMN TEXT SCREEN";Y$
.K*..Y$."Y"..Q("E179"):.Q("FF62"):.5:."
..";:.0:. 0,12:. 4,14:...K4.. 0,12:. 4,1
4:.:V..K>.:.LKH..    X    S   SA   HT HD
  HS  VT VA VD VS CT..KR.. 640,25680,640
0,125,80,102,80,07,80,77, 7..L\.:..LF.. 
WR,HT,0 :. H TOT.5LP.. WR,HD,1 :. H DISP
LAYED.RLZ.. WR,HS,2 :. H SYNC POSN.KL...
 WR,VT,4 :. V TOTAL..L... WR,VA,5 :. V T
OTAL ADJ..L... WR,VD,6 :. V DISPLAYED.BL
... WR,VS,7 :. V SYNC POSN..L... WR,CT,9
 :. CHAR TOT VERT..L... WR,03,8 :. INTER
LACE..M... WR,00,27:. ADR INC / ROW.!MJ.
....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL