> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 05 00 50 B2 50 AA 31 3A 8B 20 50 B1 |......P.P.1:. P.|
00000010: 31 20 A7 20 89 20 33 30 30 00 3F 08 0A 00 8F 2A |1 . . 300.?....*|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000040: 65 08 0B 00 8F 2A 20 20 20 20 20 20 20 20 20 20 |e....* |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 2A 00 8B 08 0C 00 8F 2A 20 20 20 43 | *......* C|
00000070: 36 34 20 41 44 56 41 4E 43 45 44 20 41 52 54 20 |64 ADVANCED ART |
00000080: 53 54 55 44 49 4F 20 20 20 20 2A 00 B1 08 0D 00 |STUDIO *.....|
00000090: 8F 2A 20 20 20 28 20 4D 55 4C 54 49 43 4F 4C 4F |.* ( MULTICOLO|
000000A0: 55 52 20 50 49 43 54 55 52 45 53 20 29 20 20 20 |UR PICTURES ) |
000000B0: 2A 00 D7 08 0E 00 8F 2A 20 20 20 20 20 20 20 20 |*......* |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 2A 00 FD 08 0F 00 8F 2A 20 20 | *......* |
000000E0: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 44 45 | THIS PROGRAM DE|
000000F0: 4D 4F 4E 53 54 52 41 54 45 53 20 20 2A 00 23 09 |MONSTRATES *.#.|
00000100: 10 00 8F 2A 20 20 48 4F 57 20 59 4F 55 20 43 41 |...* HOW YOU CA|
00000110: 4E 20 4C 4F 41 44 20 41 20 50 49 43 54 55 52 45 |N LOAD A PICTURE|
00000120: 20 20 2A 00 49 09 11 00 8F 2A 20 20 43 52 45 41 | *.I....* CREA|
00000130: 54 45 44 20 42 59 20 41 52 54 20 53 54 55 44 49 |TED BY ART STUDI|
00000140: 4F 20 49 4E 54 4F 20 20 2A 00 6F 09 12 00 8F 2A |O INTO *.o....*|
00000150: 20 20 54 48 45 20 43 4F 4D 4D 4F 44 4F 52 45 20 | THE COMMODORE |
00000160: 36 34 20 46 4F 52 20 55 53 45 20 49 4E 20 2A 00 |64 FOR USE IN *.|
00000170: 95 09 13 00 8F 2A 20 20 59 4F 55 52 20 4F 57 4E |.....* YOUR OWN|
00000180: 20 50 52 4F 47 52 41 4D 53 2E 20 20 20 20 20 20 | PROGRAMS. |
00000190: 20 20 20 20 2A 00 BB 09 14 00 8F 2A 20 20 20 20 | *......* |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 20 20 2A 00 E1 09 15 00 | *.....|
000001C0: 8F 2A 20 20 57 52 49 54 54 45 4E 20 42 59 20 43 |.* WRITTEN BY C|
000001D0: 48 52 49 53 20 53 41 55 4E 44 45 52 53 20 20 20 |HRIS SAUNDERS |
000001E0: 2A 00 07 0A 16 00 8F 2A 20 20 43 4F 50 59 52 49 |*......* COPYRI|
000001F0: 47 48 54 20 31 39 38 37 20 4F 43 50 20 4C 49 4D |GHT 1987 OCP LIM|
00000200: 49 54 45 44 20 20 2A 00 2D 0A 17 00 8F 2A 20 20 |ITED *.-....* |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000220: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 53 0A | *.S.|
00000230: 19 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000250: 2A 2A 2A 00 6F 0A 1E 00 53 50 24 B2 22 20 20 20 |***.o...SP$." |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000270: 79 0A 31 00 99 3A 99 3A 99 00 A5 0A 32 00 99 20 |y.1..:.:....2.. |
00000280: 22 41 44 56 41 4E 43 45 44 20 41 52 54 20 53 54 |"ADVANCED ART ST|
00000290: 55 44 49 4F 20 2D 20 53 43 52 45 45 4E 20 4C 4F |UDIO - SCREEN LO|
000002A0: 41 44 45 52 22 00 AD 0A 33 00 99 3A 99 00 B3 0A |ADER"...3..:....|
000002B0: 63 00 8F 00 D8 0A 64 00 8F 20 20 46 49 52 53 54 |c.....d.. FIRST|
000002C0: 20 47 45 54 20 54 48 45 20 46 49 4C 45 4E 41 4D | GET THE FILENAM|
000002D0: 45 20 4F 46 20 54 48 45 00 FD 0A 65 00 8F 20 20 |E OF THE...e.. |
000002E0: 44 45 53 49 52 45 44 20 50 49 43 54 55 52 45 2E |DESIRED PICTURE.|
000002F0: 20 4E 41 4D 45 53 20 41 52 45 20 31 36 00 22 0B | NAMES ARE 16.".|
00000300: 66 00 8F 20 20 43 48 41 52 41 43 54 45 52 53 20 |f.. CHARACTERS |
00000310: 4C 4F 4E 47 2C 54 48 45 20 4C 41 53 54 20 46 4F |LONG,THE LAST FO|
00000320: 55 52 00 44 0B 67 00 8F 20 20 4F 46 20 57 48 49 |UR.D.g.. OF WHI|
00000330: 43 48 20 41 52 45 20 41 4C 57 41 59 53 20 27 4D |CH ARE ALWAYS 'M|
00000340: 50 49 43 27 00 4A 0B 68 00 8F 00 6E 0B 69 00 8F |PIC'.J.h...n.i..|
00000350: 20 20 54 48 49 53 20 52 4F 55 54 49 4E 45 20 41 | THIS ROUTINE A|
00000360: 44 44 53 20 54 48 45 20 4C 41 53 54 20 35 00 8F |DDS THE LAST 5..|
00000370: 0B 6A 00 8F 20 20 43 48 41 52 41 43 54 45 52 53 |.j.. CHARACTERS|
00000380: 20 4F 4E 20 54 4F 20 54 48 45 20 45 4E 44 2E 00 | ON TO THE END..|
00000390: 95 0B 6B 00 8F 00 B0 0B 96 00 85 20 22 4E 41 4D |..k........ "NAM|
000003A0: 45 20 4F 46 20 50 49 43 54 55 52 45 22 3B 41 24 |E OF PICTURE";A$|
000003B0: 00 D2 0B 9B 00 41 24 B2 C8 28 20 41 24 20 AA 20 |.....A$..( A$ . |
000003C0: 53 50 24 2C 20 31 32 20 29 20 AA 20 22 4D 50 49 |SP$, 12 ) . "MPI|
000003D0: 43 22 00 EF 0B A0 00 81 20 49 B2 31 A4 20 31 36 |C"...... I.1. 16|
000003E0: 3A 41 B2 C6 28 CA 28 41 24 2C 49 2C 31 29 29 00 |:A..(.(A$,I,1)).|
000003F0: 0F 0C A5 00 8B 20 28 41 B1 B2 31 39 32 29 AF 28 |..... (A..192).(|
00000400: 41 B3 B2 32 32 33 29 A7 20 41 B2 41 AB 39 36 00 |A..223). A.A.96.|
00000410: 22 0C AA 00 42 24 B2 42 24 AA C7 28 41 29 3A 20 |"...B$.B$..(A): |
00000420: 82 49 00 28 0C B4 00 8F 00 4C 0C B5 00 8F 20 20 |.I.(.....L.... |
00000430: 50 52 49 4E 54 20 54 48 45 20 20 46 55 4C 4C 20 |PRINT THE FULL |
00000440: 46 49 4C 45 4E 41 4D 45 20 41 4E 44 00 71 0C B6 |FILENAME AND.q..|
00000450: 00 8F 20 20 41 54 54 45 4D 50 54 20 54 4F 20 4C |.. ATTEMPT TO L|
00000460: 4F 41 44 20 54 48 45 20 46 49 4C 45 20 46 52 4F |OAD THE FILE FRO|
00000470: 4D 00 96 0C B7 00 8F 20 20 54 48 45 20 44 49 53 |M...... THE DIS|
00000480: 4B 20 44 52 49 56 45 2E 20 28 43 48 41 4E 47 45 |K DRIVE. (CHANGE|
00000490: 20 54 48 45 20 38 00 BC 0C B8 00 8F 20 20 54 4F | THE 8...... TO|
000004A0: 20 41 20 31 20 49 46 20 59 4F 55 20 57 49 53 48 | A 1 IF YOU WISH|
000004B0: 20 54 4F 20 55 53 45 20 54 48 49 53 00 E1 0C B9 | TO USE THIS....|
000004C0: 00 8F 20 20 50 52 4F 47 52 41 4D 20 54 4F 20 4C |.. PROGRAM TO L|
000004D0: 4F 41 44 20 50 49 43 54 55 52 45 53 20 46 52 4F |OAD PICTURES FRO|
000004E0: 4D 00 04 0D BA 00 8F 20 20 54 48 45 20 43 41 53 |M...... THE CAS|
000004F0: 53 45 54 54 45 20 55 4E 49 54 20 49 4E 53 54 45 |SETTE UNIT INSTE|
00000500: 41 44 2E 29 00 0A 0D BB 00 8F 00 28 0D C8 00 99 |AD.).......(....|
00000510: 3A 99 22 4C 4F 4F 4B 49 4E 47 20 46 4F 52 20 27 |:."LOOKING FOR '|
00000520: 22 3B 42 24 3B 22 27 22 00 34 0D FA 00 93 42 24 |";B$;"'".4....B$|
00000530: 2C 38 2C 31 00 3A 0D 2C 01 8F 00 5C 0D 2D 01 8F |,8,1.:.,...\.-..|
00000540: 20 20 49 46 20 57 45 20 47 45 54 20 54 4F 20 48 | IF WE GET TO H|
00000550: 45 52 45 20 54 48 45 4E 20 54 48 45 00 80 0D 2E |ERE THEN THE....|
00000560: 01 8F 20 20 50 49 43 54 55 52 45 20 4D 55 53 54 |.. PICTURE MUST|
00000570: 20 48 41 56 45 20 4C 4F 41 44 45 44 2C 20 53 4F | HAVE LOADED, SO|
00000580: 00 A5 0D 2F 01 8F 20 20 57 45 20 4D 55 53 54 20 |.../.. WE MUST |
00000590: 4E 4F 57 20 44 49 53 50 4C 41 59 20 49 54 2E 20 |NOW DISPLAY IT. |
000005A0: 46 49 52 53 54 00 CA 0D 30 01 8F 20 20 53 45 54 |FIRST...0.. SET|
000005B0: 20 54 48 45 20 53 43 52 45 45 4E 20 54 4F 20 4D | THE SCREEN TO M|
000005C0: 55 4C 54 49 43 4F 4C 4F 55 52 00 EE 0D 31 01 8F |ULTICOLOUR...1..|
000005D0: 20 20 48 49 20 52 45 53 20 4D 4F 44 45 20 41 4E | HI RES MODE AN|
000005E0: 44 20 54 48 45 20 53 54 41 52 54 20 4F 46 00 12 |D THE START OF..|
000005F0: 0E 32 01 8F 20 20 54 48 45 20 53 43 52 45 45 4E |.2.. THE SCREEN|
00000600: 20 54 4F 20 4C 4F 43 41 54 49 4F 4E 20 38 31 39 | TO LOCATION 819|
00000610: 32 2E 00 38 0E 33 01 8F 20 20 28 54 48 49 53 20 |2..8.3.. (THIS |
00000620: 49 53 20 54 48 45 20 41 44 44 52 45 53 53 20 54 |IS THE ADDRESS T|
00000630: 48 41 54 20 46 49 4C 45 00 5D 0E 34 01 8F 20 20 |HAT FILE.].4.. |
00000640: 49 53 20 53 41 56 45 44 20 46 52 4F 4D 20 42 59 |IS SAVED FROM BY|
00000650: 20 41 52 54 20 53 54 55 44 49 4F 2E 29 00 63 0E | ART STUDIO.).c.|
00000660: 35 01 8F 00 86 0E 36 01 8F 20 20 43 4F 4E 53 55 |5.....6.. CONSU|
00000670: 4C 54 20 54 48 45 20 43 36 34 20 50 52 4F 47 52 |LT THE C64 PROGR|
00000680: 41 4D 4D 45 52 53 00 AA 0E 37 01 8F 20 20 52 45 |AMMERS...7.. RE|
00000690: 46 45 52 45 4E 43 45 20 4D 41 4E 55 41 4C 20 46 |FERENCE MANUAL F|
000006A0: 4F 52 20 44 45 54 41 49 4C 53 00 CF 0E 38 01 8F |OR DETAILS...8..|
000006B0: 20 20 4F 46 20 48 4F 57 20 54 4F 20 50 4F 53 49 | OF HOW TO POSI|
000006C0: 54 49 4F 4E 20 54 48 45 20 53 43 52 45 45 4E 00 |TION THE SCREEN.|
000006D0: F2 0E 39 01 8F 20 20 41 4E 44 20 53 45 54 20 54 |..9.. AND SET T|
000006E0: 48 45 20 56 41 52 49 4F 55 53 20 44 49 53 50 4C |HE VARIOUS DISPL|
000006F0: 41 59 00 18 0F 3A 01 8F 20 20 4D 4F 44 45 53 20 |AY...:.. MODES |
00000700: 46 4F 52 20 54 48 45 20 47 52 41 50 48 49 43 53 |FOR THE GRAPHICS|
00000710: 20 50 49 43 54 55 52 45 00 1E 0F 3B 01 8F 00 37 | PICTURE...;...7|
00000720: 0F 40 01 97 20 35 33 32 37 32 2C C2 28 35 33 32 |.@.. 53272,.(532|
00000730: 37 32 29 20 B0 20 38 00 51 0F 4A 01 97 20 35 33 |72) . 8.Q.J.. 53|
00000740: 32 36 35 2C C2 28 35 33 32 36 35 29 20 B0 20 33 |265,.(53265) . 3|
00000750: 32 00 6B 0F 54 01 97 20 35 33 32 37 30 2C C2 28 |2.k.T.. 53270,.(|
00000760: 35 33 32 37 30 29 20 B0 20 31 36 00 71 0F 90 01 |53270) . 16.q...|
00000770: 8F 00 96 0F 91 01 8F 20 20 4E 4F 57 20 43 4F 50 |....... NOW COP|
00000780: 59 20 54 48 45 20 43 4F 4C 4F 55 52 20 44 41 54 |Y THE COLOUR DAT|
00000790: 41 20 46 52 4F 4D 00 BA 0F 92 01 8F 20 20 54 48 |A FROM...... TH|
000007A0: 45 20 4C 4F 41 44 45 44 20 46 49 4C 45 20 49 4E |E LOADED FILE IN|
000007B0: 54 4F 20 54 48 45 20 54 57 4F 00 DC 0F 93 01 8F |TO THE TWO......|
000007C0: 20 20 43 4F 4C 4F 55 52 20 4D 45 4D 4F 52 59 20 | COLOUR MEMORY |
000007D0: 41 52 45 41 53 2E 20 54 48 45 53 45 00 02 10 94 |AREAS. THESE....|
000007E0: 01 8F 20 20 41 52 45 41 53 20 41 52 45 20 53 41 |.. AREAS ARE SA|
000007F0: 56 45 44 20 53 54 52 41 49 47 48 54 20 41 46 54 |VED STRAIGHT AFT|
00000800: 45 52 00 27 10 95 01 8F 20 20 54 48 45 20 45 4E |ER.'.... THE EN|
00000810: 44 20 4F 46 20 54 48 45 20 53 43 52 45 45 4E 20 |D OF THE SCREEN |
00000820: 4D 45 4D 4F 52 59 2C 00 4D 10 96 01 8F 20 20 57 |MEMORY,.M.... W|
00000830: 49 54 48 20 41 20 31 36 20 42 59 54 45 20 47 41 |ITH A 16 BYTE GA|
00000840: 50 20 49 4E 20 42 45 54 57 45 45 4E 2E 00 73 10 |P IN BETWEEN..s.|
00000850: 97 01 8F 20 20 54 48 45 20 46 49 52 53 54 20 53 |... THE FIRST S|
00000860: 45 54 20 49 53 20 43 4F 50 49 45 44 20 54 4F 20 |ET IS COPIED TO |
00000870: 54 48 45 00 98 10 98 01 8F 20 20 4E 4F 52 4D 41 |THE...... NORMA|
00000880: 4C 20 54 45 58 54 20 53 43 52 45 45 4E 20 4D 45 |L TEXT SCREEN ME|
00000890: 4D 4F 52 59 20 28 41 54 00 BD 10 99 01 8F 20 20 |MORY (AT...... |
000008A0: 4C 4F 43 41 54 49 4F 4E 53 20 31 30 32 34 20 54 |LOCATIONS 1024 T|
000008B0: 4F 20 32 30 32 33 29 20 57 48 49 4C 45 00 E0 10 |O 2023) WHILE...|
000008C0: 9A 01 8F 20 20 54 48 45 20 53 45 43 4F 4E 44 20 |... THE SECOND |
000008D0: 53 45 54 20 49 53 20 43 4F 50 49 45 44 20 54 4F |SET IS COPIED TO|
000008E0: 00 06 11 9B 01 8F 20 20 54 48 45 20 41 52 45 41 |...... THE AREA|
000008F0: 20 4E 4F 52 4D 41 4C 4C 59 20 55 53 45 44 20 46 | NORMALLY USED F|
00000900: 4F 52 20 54 48 45 00 2A 11 9C 01 8F 20 20 53 43 |OR THE.*.... SC|
00000910: 52 45 45 4E 20 43 4F 4C 4F 55 52 20 4D 45 4D 4F |REEN COLOUR MEMO|
00000920: 52 59 20 49 4E 20 54 45 58 54 00 4E 11 9D 01 8F |RY IN TEXT.N....|
00000930: 20 20 4D 4F 44 45 20 28 20 46 52 4F 4D 20 35 35 | MODE ( FROM 55|
00000940: 32 39 36 20 54 4F 20 35 36 32 39 35 20 29 00 54 |296 TO 56295 ).T|
00000950: 11 9E 01 8F 00 78 11 9F 01 8F 20 20 20 54 48 49 |.....x.... THI|
00000960: 53 20 49 53 20 53 49 4D 50 4C 59 20 50 45 52 46 |S IS SIMPLY PERF|
00000970: 4F 52 4D 45 44 20 42 59 00 94 11 A0 01 8F 20 20 |ORMED BY...... |
00000980: 55 53 49 4E 47 20 54 57 4F 20 46 4F 52 20 4C 4F |USING TWO FOR LO|
00000990: 4F 50 53 3A 00 9A 11 A1 01 8F 00 B1 11 A4 01 44 |OPS:...........D|
000009A0: B2 31 30 32 34 3A 53 B2 38 30 30 30 AA 38 31 39 |.1024:S.8000.819|
000009B0: 32 00 CC 11 AE 01 81 49 B2 30 A4 39 39 39 3A 97 |2......I.0.999:.|
000009C0: 44 AA 49 2C C2 28 53 AA 49 29 3A 82 00 EC 11 C2 |D.I,.(S.I):.....|
000009D0: 01 44 B2 35 35 32 39 36 3A 53 B2 38 30 30 30 AA |.D.55296:S.8000.|
000009E0: 38 31 39 32 AA 31 36 AA 31 30 30 30 00 07 12 CC |8192.16.1000....|
000009F0: 01 81 49 B2 30 A4 39 39 39 3A 97 44 AA 49 2C C2 |..I.0.999:.D.I,.|
00000A00: 28 53 AA 49 29 3A 82 00 0D 12 F4 01 8F 00 33 12 |(S.I):........3.|
00000A10: F5 01 8F 20 20 46 49 4E 41 4C 4C 59 20 43 4F 50 |... FINALLY COP|
00000A20: 59 20 54 48 45 20 42 4F 52 44 45 52 20 43 4F 4C |Y THE BORDER COL|
00000A30: 4F 55 52 00 57 12 F6 01 8F 20 20 46 52 4F 4D 20 |OUR.W.... FROM |
00000A40: 57 48 45 52 45 20 49 54 20 49 53 20 53 54 4F 52 |WHERE IT IS STOR|
00000A50: 45 44 20 49 4E 54 4F 00 7A 12 F7 01 8F 20 20 54 |ED INTO.z.... T|
00000A60: 48 45 20 41 50 50 52 4F 50 52 49 41 54 45 20 52 |HE APPROPRIATE R|
00000A70: 45 47 49 53 54 45 52 20 49 4E 00 9F 12 F8 01 8F |EGISTER IN......|
00000A80: 20 20 54 48 45 20 56 49 43 20 43 48 49 50 2E 20 | THE VIC CHIP. |
00000A90: 54 48 45 20 42 4F 52 44 45 52 20 42 59 54 45 00 |THE BORDER BYTE.|
00000AA0: C5 12 F9 01 8F 20 20 46 4F 4C 4C 4F 57 53 20 41 |..... FOLLOWS A|
00000AB0: 46 54 45 52 20 54 48 45 20 43 4F 4C 4F 55 52 20 |FTER THE COLOUR |
00000AC0: 44 41 54 41 2E 00 CB 12 FA 01 8F 00 E3 12 26 02 |DATA..........&.|
00000AD0: 97 20 35 33 32 38 30 2C 20 C2 28 20 31 37 31 39 |. 53280, .( 1719|
00000AE0: 32 20 29 00 F9 12 30 02 97 20 35 33 32 38 31 2C |2 )...0.. 53281,|
00000AF0: C2 28 20 31 37 31 39 33 29 00 FF 12 58 02 8F 00 |.( 17193)...X...|
00000B00: 23 13 59 02 8F 20 20 4E 4F 57 20 57 41 49 54 20 |#.Y.. NOW WAIT |
00000B10: 46 4F 52 20 41 20 4B 45 59 20 54 4F 20 42 45 20 |FOR A KEY TO BE |
00000B20: 48 49 54 00 46 13 5A 02 8F 20 20 41 4E 44 20 54 |HIT.F.Z.. AND T|
00000B30: 48 45 4E 20 52 45 53 54 4F 52 45 20 54 48 45 20 |HEN RESTORE THE |
00000B40: 4E 4F 52 4D 41 4C 00 5F 13 5B 02 8F 20 20 54 45 |NORMAL._.[.. TE|
00000B50: 58 54 20 4D 4F 44 45 20 53 43 52 45 45 4E 2E 00 |XT MODE SCREEN..|
00000B60: 65 13 5C 02 8F 00 7F 13 8A 02 A1 20 41 24 3A 20 |e.\........ A$: |
00000B70: 8B 20 41 24 20 B2 20 22 22 20 A7 20 36 35 30 00 |. A$ . "" . 650.|
00000B80: 9F 13 94 02 97 20 35 33 32 36 35 2C C2 28 35 33 |..... 53265,.(53|
00000B90: 32 36 35 29 20 AF 20 28 32 35 35 AB 33 32 29 00 |265) . (255.32).|
00000BA0: BE 13 9E 02 97 20 35 33 32 37 32 2C C2 28 35 33 |..... 53272,.(53|
00000BB0: 32 37 32 29 20 AF 20 28 32 35 35 AB 38 29 00 DE |272) . (255.8)..|
00000BC0: 13 A8 02 97 20 35 33 32 37 30 2C C2 28 35 33 32 |.... 53270,.(532|
00000BD0: 37 30 29 20 AF 20 28 32 35 35 AB 31 36 29 00 FA |70) . (255.16)..|
00000BE0: 13 B2 02 99 22 93 22 3A 97 35 33 32 38 30 2C 31 |....".":.53280,1|
00000BF0: 34 3A 97 35 33 32 38 31 2C 36 00 00 00 |4:.53281,6... |
......P.P.1:. P.1 . . 300.?....*********
***********************.E....*
*......* C64 ADVAN
CED ART STUDIO *......* ( MULTICOLO
UR PICTURES ) *.W....*
*......* THIS PROGRAM DE
MONSTRATES *.#....* HOW YOU CAN LOAD A
PICTURE *.I....* CREATED BY ART STUDI
O INTO *.O....* THE COMMODORE 64 FOR U
SE IN *......* YOUR OWN PROGRAMS.
*......*
*......* WRITTEN BY CHRIS SAUNDERS
*......* COPYRIGHT 1987 OCP LIMITED *.
-....* *.S.
...********************************.O...
SP$." ".Y.1..:.:....2..
"ADVANCED ART STUDIO - SCREEN LOADER"...
3..:....C...X.D.. FIRST GET THE FILENAM
E OF THE...E.. DESIRED PICTURE. NAMES A
RE 16.".F.. CHARACTERS LONG,THE LAST FO
UR.D.G.. OF WHICH ARE ALWAYS 'MPIC'.J.H
...N.I.. THIS ROUTINE ADDS THE LAST 5..
.J.. CHARACTERS ON TO THE END....K.....
... "NAME OF PICTURE";A$.R...A$.H( A$ .
SP$, 12 ) . "MPIC"... .. I.1. 16:A.F(J(A
$,I,1))...... (A..192).(A..223). A.A.96.
"...B$.B$.G(A): .I.(.....L.... PRINT TH
E FULL FILENAME AND.Q.... ATTEMPT TO L
OAD THE FILE FROM...... THE DISK DRIVE.
(CHANGE THE 8...... TO A 1 IF YOU WISH
TO USE THIS...... PROGRAM TO LOAD PICT
URES FROM...... THE CASSETTE UNIT INSTE
AD.).......(.H..:."LOOKING FOR '";B$;"'"
.4....B$,8,1.:.,...\.-.. IF WE GET TO H
ERE THEN THE...... PICTURE MUST HAVE LO
ADED, SO.../.. WE MUST NOW DISPLAY IT.
FIRST.J.0.. SET THE SCREEN TO MULTICOLO
UR...1.. HI RES MODE AND THE START OF..
.2.. THE SCREEN TO LOCATION 8192..8.3..
(THIS IS THE ADDRESS THAT FILE.].4..
IS SAVED FROM BY ART STUDIO.).C.5.....6.
. CONSULT THE C64 PROGRAMMERS...7.. RE
FERENCE MANUAL FOR DETAILS.O.8.. OF HOW
TO POSITION THE SCREEN...9.. AND SET T
HE VARIOUS DISPLAY...:.. MODES FOR THE
GRAPHICS PICTURE...;...7.@.. 53272,B(532
72) . 8.Q.J.. 53265,B(53265) . 32.K.T..
53270,B(53270) . 16.Q.......... NOW COP
Y THE COLOUR DATA FROM...... THE LOADED
FILE INTO THE TWO...... COLOUR MEMORY
AREAS. THESE...... AREAS ARE SAVED STRA
IGHT AFTER.'.... THE END OF THE SCREEN
MEMORY,.M.... WITH A 16 BYTE GAP IN BET
WEEN..S.... THE FIRST SET IS COPIED TO
THE...... NORMAL TEXT SCREEN MEMORY (AT
...... LOCATIONS 1024 TO 2023) WHILE...
... THE SECOND SET IS COPIED TO......
THE AREA NORMALLY USED FOR THE.*.... SC
REEN COLOUR MEMORY IN TEXT.N.... MODE (
FROM 55296 TO 56295 ).T.....X.... THI
S IS SIMPLY PERFORMED BY... .. USING TW
O FOR LOOPS:...........D.1024:S.8000.819
2.L....I.0.999:.D.I,B(S.I):....B.D.55296
:S.8000.8192.16.1000...L..I.0.999:.D.I,B
(S.I):........3.... FINALLY COPY THE BO
RDER COLOUR.W.... FROM WHERE IT IS STOR
ED INTO.Z.... THE APPROPRIATE REGISTER
IN...... THE VIC CHIP. THE BORDER BYTE.
E.... FOLLOWS AFTER THE COLOUR DATA..K.
......&.. 53280, B( 17192 )...0.. 53281,
B( 17193)...X...#.Y.. NOW WAIT FOR A KE
Y TO BE HIT.F.Z.. AND THEN RESTORE THE
NORMAL._.[.. TEXT MODE SCREEN..E.\....
... A$: . A$ . "" . 650...... 53265,B(53
265) . (255.32)...... 53272,B(53272) . (
255.8)...... 53270,B(53270) . (255.16)..
....".":.53280,14:.53281,6...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL