RASTER INTERPT.C
FILE INFORMATION
FILENAME(S): RASTER INTERPT.C
FILE TYPE(S): PRG
FILE SIZE: 2.9K
FIRST SEEN: 2025-11-30 01:08:00
APPEARS ON: 4 disk(s)
FILE HASH
ec627e5023f6e6e49254ba785bf8b82d4a4fc5e35b5e926a4347c53dc0ff3dce
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | RASTER INTERPT.C | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 3 | DOWNLOAD FILE |
| U TILITIE | RASTER INTERPT.C | PRG | Treasure Chest - Wolfgang Rauprich | 6 | 3 | DOWNLOAD FILE |
| TPUG JAN 84 C | RASTER INTERPT.C | PRG | Sailor, Ganheden | 20 | 2 | DOWNLOAD FILE |
| TPUG JAN 84 C | RASTER INTERPT.C | PRG | DuncanTwain | 20 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 8F 20 54 48 49 53 20 50 52 4F |..#.... THIS PRO| 00000010: 47 52 41 4D 20 43 52 45 41 54 45 53 20 52 41 53 |GRAM CREATES RAS| 00000020: 54 45 52 00 48 08 14 00 8F 20 49 4E 54 45 52 52 |TER.H.... INTERR| 00000030: 55 50 54 53 20 46 4F 52 20 54 48 45 20 43 2D 36 |UPTS FOR THE C-6| 00000040: 34 20 42 41 53 49 43 2E 00 6E 08 1E 00 8F 20 54 |4 BASIC..n.... T| 00000050: 48 45 20 50 52 4F 47 52 41 4D 20 43 41 4E 20 42 |HE PROGRAM CAN B| 00000060: 45 20 49 4E 43 4F 52 50 4F 52 41 54 45 44 00 91 |E INCORPORATED..| 00000070: 08 28 00 8F 20 49 4E 20 4F 54 48 45 52 20 42 41 |.(.. IN OTHER BA| 00000080: 53 49 43 20 50 52 4F 47 52 41 4D 53 20 41 53 20 |SIC PROGRAMS AS | 00000090: 41 00 DE 08 32 00 8F 20 53 55 42 52 4F 55 54 49 |A...2.. SUBROUTI| 000000A0: 4E 45 20 54 4F 20 43 52 45 41 54 45 20 53 50 4C |NE TO CREATE SPL| 000000B0: 49 54 20 20 20 20 20 20 20 36 30 20 52 45 4D 20 |IT 60 REM | 000000C0: 53 43 52 45 45 4E 53 2E 20 20 54 48 45 20 46 4F |SCREENS. THE FO| 000000D0: 52 45 47 52 4F 55 4E 44 20 43 4F 4C 4F 52 00 01 |REGROUND COLOR..| 000000E0: 09 46 00 8F 20 43 41 4E 20 42 45 20 53 45 54 20 |.F.. CAN BE SET | 000000F0: 41 53 20 55 53 55 41 4C 20 57 49 54 48 20 54 48 |AS USUAL WITH TH| 00000100: 45 00 28 09 50 00 8F 20 43 4F 4D 4D 41 4E 44 20 |E.(.P.. COMMAND | 00000110: 50 52 49 4E 54 20 22 5B 43 4F 4E 54 52 4F 4C 5D |PRINT "[CONTROL]| 00000120: 5B 4E 55 4D 42 45 52 5D 00 50 09 5A 00 8F 20 4F |[NUMBER].P.Z.. O| 00000130: 52 20 50 52 49 4E 54 20 22 5B 43 4F 4D 4D 4F 44 |R PRINT "[COMMOD| 00000140: 4F 52 45 20 4B 45 59 5D 5B 4E 55 4D 42 45 52 29 |ORE KEY][NUMBER)| 00000150: 00 6A 09 64 00 86 20 41 28 31 35 29 2C 42 24 28 |.j.d.. A(15),B$(| 00000160: 31 35 29 3A 8D 20 35 30 30 30 00 75 09 6E 00 8D |15):. 5000.u.n..| 00000170: 20 31 30 30 30 00 85 09 78 00 5A B2 36 AC 34 30 | 1000...x.Z.6.40| 00000180: 39 36 3A 9E 5A 00 A5 09 82 00 52 31 B2 5A AA 34 |96:.Z.....R1.Z.4| 00000190: 3A 52 32 B2 5A AA 33 3A 52 33 B2 5A AA 36 3A 52 |:R2.Z.3:R3.Z.6:R| 000001A0: 34 B2 5A AA 35 00 C1 09 8C 00 43 31 B2 31 35 30 |4.Z.5.....C1.150| 000001B0: 3A 43 32 B2 32 35 30 3A 43 33 B2 30 3A 43 34 B2 |:C2.250:C3.0:C4.| 000001C0: 31 00 D7 09 96 00 A1 20 41 24 3A 8B 20 41 24 B2 |1...... A$:. A$.| 000001D0: 22 22 A7 20 31 35 30 00 F6 09 A0 00 8B 20 41 24 |"". 150...... A$| 000001E0: B2 22 11 22 A7 20 43 31 B2 43 31 AA 31 AF 32 35 |.".". C1.C1.1.25| 000001F0: 35 3A 89 32 33 30 00 15 0A AA 00 8B 20 41 24 B2 |5:.230...... A$.| 00000200: 22 91 22 A7 20 43 31 B2 43 31 AB 31 AF 32 35 35 |".". C1.C1.1.255| 00000210: 3A 89 32 33 30 00 34 0A B4 00 8B 20 41 24 B2 22 |:.230.4.... A$."| 00000220: 1D 22 A7 20 43 32 B2 43 32 AA 31 AF 32 35 35 3A |.". C2.C2.1.255:| 00000230: 89 32 33 30 00 53 0A BE 00 8B 20 41 24 B2 22 9D |.230.S.... A$.".| 00000240: 22 A7 20 43 32 B2 43 32 AB 31 AF 32 35 35 3A 89 |". C2.C2.1.255:.| 00000250: 32 33 30 00 71 0A C8 00 8B 20 41 24 B2 22 85 22 |230.q.... A$."."| 00000260: A7 20 43 33 B2 43 33 AA 31 AF 31 35 3A 89 32 33 |. C3.C3.1.15:.23| 00000270: 30 00 8F 0A D2 00 8B 20 41 24 B2 22 86 22 A7 20 |0...... A$.".". | 00000280: 43 34 B2 43 34 AA 31 AF 31 35 3A 89 32 33 30 00 |C4.C4.1.15:.230.| 00000290: A1 0A D7 00 8B 20 41 24 B2 22 8B 22 A7 20 35 30 |..... A$.".". 50| 000002A0: 30 00 B3 0A DA 00 8B 20 41 24 B2 22 88 22 A7 20 |0...... A$.".". | 000002B0: 34 30 30 00 BD 0A DC 00 89 20 31 35 30 00 E2 0A |400...... 150...| 000002C0: E6 00 97 52 31 2C 43 31 3A 97 52 32 2C 43 32 3A |...R1,C1:.R2,C2:| 000002D0: 97 52 33 2C 43 33 3A 97 52 34 2C 43 34 3A 89 31 |.R3,C3:.R4,C4:.1| 000002E0: 35 30 00 E8 0A F0 00 3A 00 04 0B FA 00 8F 20 43 |50.....:...... C| 000002F0: 55 52 53 4F 52 2D 55 50 20 4D 4F 56 45 53 20 52 |URSOR-UP MOVES R| 00000300: 31 20 55 50 00 24 0B 04 01 8F 20 43 55 52 53 4F |1 UP.$.... CURSO| 00000310: 52 2D 44 4F 57 4E 20 4D 4F 56 45 53 20 52 31 20 |R-DOWN MOVES R1 | 00000320: 44 4F 57 4E 00 45 0B 0E 01 8F 20 43 55 52 53 4F |DOWN.E.... CURSO| 00000330: 52 2D 52 49 47 48 54 20 4D 4F 56 45 53 20 52 32 |R-RIGHT MOVES R2| 00000340: 20 44 4F 57 4E 00 63 0B 18 01 8F 20 43 55 52 53 | DOWN.c.... CURS| 00000350: 4F 52 2D 4C 45 46 54 20 4D 4F 56 45 53 20 52 32 |OR-LEFT MOVES R2| 00000360: 20 55 50 00 7C 0B 22 01 8F 20 46 31 20 42 55 4D | UP.|.".. F1 BUM| 00000370: 50 53 20 54 4F 50 20 43 4F 4C 4F 52 00 98 0B 2C |PS TOP COLOR...,| 00000380: 01 8F 20 46 33 20 42 55 4D 50 53 20 42 4F 54 54 |.. F3 BUMPS BOTT| 00000390: 4F 4D 20 43 4F 4C 4F 52 00 B9 0B 36 01 8F 20 46 |OM COLOR...6.. F| 000003A0: 36 20 53 54 4F 50 53 20 50 52 4F 47 52 41 4D 20 |6 STOPS PROGRAM | 000003B0: 45 58 45 43 55 54 49 4F 4E 00 DB 0B 40 01 8F 20 |EXECUTION...@.. | 000003C0: 46 37 20 43 48 41 4E 47 45 53 20 46 4F 52 45 47 |F7 CHANGES FOREG| 000003D0: 52 4F 55 4E 44 20 43 4F 4C 4F 52 00 0A 0C 90 01 |ROUND COLOR.....| 000003E0: 99 22 13 11 05 1D 1D 1D 1D 1D 1D 45 4E 54 45 52 |.".........ENTER| 000003F0: 20 43 4F 4C 4F 52 20 4E 55 4D 42 45 52 20 28 30 | COLOR NUMBER (0| 00000400: 2D 31 35 29 22 3B 3A 85 20 4B 00 1C 0C 9A 01 8B |-15)";:. K......| 00000410: 4B B3 30 B0 4B B1 31 35 A7 34 30 30 00 4B 0C 9F |K.0.K.15.400.K..| 00000420: 01 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." | 00000430: 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D | ........| 00000440: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 00 8A 0C A4 01 |..........".....| 00000450: 99 C7 28 41 28 4B 29 29 22 13 1D 1D 1D 1D 11 11 |..(A(K))".......| 00000460: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 43 |.......... C| 00000470: 48 4F 53 45 4E 20 43 4F 4C 4F 52 20 49 53 20 22 |HOSEN COLOR IS "| 00000480: 42 24 28 4B 29 3A 89 31 35 30 00 9C 0C F4 01 81 |B$(K):.150......| 00000490: 4A B2 30 A4 35 30 3A 99 3A 82 3A 80 00 B0 0C E8 |J.0.50:.:.:.....| 000004A0: 03 81 20 4A B2 32 34 35 37 36 A4 32 34 36 39 38 |.. J.24576.24698| 000004B0: 00 C0 0C F2 03 87 20 58 3A 43 48 B2 43 48 AA 58 |...... X:CH.CH.X| 000004C0: 00 CB 0C FC 03 97 4A 2C 58 3A 82 00 ED 0C 06 04 |......J,X:......| 000004D0: 8B 20 43 48 B3 B1 31 33 31 39 36 20 A7 20 99 22 |. CH..13196 . ."| 000004E0: 44 41 54 41 20 45 52 52 4F 52 22 3A 90 00 F7 0C |DATA ERROR":....| 000004F0: 10 04 99 22 93 05 22 00 0D 0D 15 04 99 22 13 22 |...".."......"."| 00000500: 3A 81 4A B2 31 A4 31 32 3A 99 4A 3A 82 00 16 0D |:.J.1.12:.J:....| 00000510: 16 04 99 31 33 3B 00 2D 0D 18 04 99 22 90 22 3A |...13;.-....".":| 00000520: 81 4A B2 31 34 A4 32 34 3A 99 4A 3A 82 00 36 0D |.J.14.24:.J:..6.| 00000530: 19 04 99 32 35 3B 00 4B 0D 1A 04 81 4A B2 30 A4 |...25;.K....J.0.| 00000540: 31 35 3A 87 20 41 28 4A 29 3A 82 00 63 0D 1B 04 |15:. A(J):..c...| 00000550: 81 4A B2 30 A4 31 35 3A 87 20 42 24 28 4A 29 3A |.J.0.15:. B$(J):| 00000560: 82 3A 8E 00 85 0D 23 04 83 20 37 36 2C 39 2C 39 |.:....#.. 76,9,9| 00000570: 36 2C 31 37 30 2C 31 37 30 2C 31 37 30 2C 31 37 |6,170,170,170,17| 00000580: 30 2C 31 37 30 00 A8 0D 24 04 83 20 31 37 30 2C |0,170...$.. 170,| 00000590: 31 32 30 2C 31 36 39 2C 30 2C 31 34 31 2C 31 34 |120,169,0,141,14| 000005A0: 2C 32 32 30 2C 31 37 33 00 C5 0D 2E 04 83 20 32 |,220,173...... 2| 000005B0: 30 2C 33 2C 31 34 31 2C 37 2C 39 36 2C 31 37 33 |0,3,141,7,96,173| 000005C0: 2C 32 31 2C 33 00 E4 0D 38 04 83 20 31 34 31 2C |,21,3...8.. 141,| 000005D0: 38 2C 39 36 2C 31 36 39 2C 37 38 2C 31 34 31 2C |8,96,169,78,141,| 000005E0: 32 30 2C 33 00 06 0E 42 04 83 20 31 36 39 2C 39 |20,3...B.. 169,9| 000005F0: 36 2C 31 34 31 2C 32 31 2C 33 2C 31 36 39 2C 31 |6,141,21,3,169,1| 00000600: 35 30 2C 31 34 31 00 26 0E 4C 04 83 20 34 2C 39 |50,141.&.L.. 4,9| 00000610: 36 2C 31 36 39 2C 32 35 30 2C 31 34 31 2C 33 2C |6,169,250,141,3,| 00000620: 39 36 2C 31 37 33 00 49 0E 56 04 83 20 31 37 2C |96,173.I.V.. 17,| 00000630: 32 30 38 2C 34 31 2C 31 32 37 2C 31 34 31 2C 31 |208,41,127,141,1| 00000640: 37 2C 32 30 38 2C 31 37 33 00 69 0E 60 04 83 20 |7,208,173.i.`.. | 00000650: 34 2C 39 36 2C 31 34 31 2C 31 38 2C 32 30 38 2C |4,96,141,18,208,| 00000660: 31 36 39 2C 30 2C 31 34 31 00 87 0E 6A 04 83 20 |169,0,141...j.. | 00000670: 36 2C 39 36 2C 31 36 39 2C 31 2C 31 34 31 2C 35 |6,96,169,1,141,5| 00000680: 2C 39 36 2C 31 36 39 00 A7 0E 74 04 83 20 31 2C |,96,169...t.. 1,| 00000690: 31 34 31 2C 32 36 2C 32 30 38 2C 38 38 2C 39 36 |141,26,208,88,96| 000006A0: 2C 31 37 32 2C 31 38 00 C6 0E 7E 04 83 20 32 30 |,172,18...~.. 20| 000006B0: 38 2C 31 36 32 2C 32 2C 32 30 34 2C 33 2C 39 36 |8,162,2,204,3,96| 000006C0: 2C 32 34 30 2C 37 00 E7 0E 88 04 83 20 31 33 36 |,240,7...... 136| 000006D0: 2C 32 30 34 2C 33 2C 39 36 2C 32 34 30 2C 31 2C |,204,3,96,240,1,| 000006E0: 32 30 32 2C 31 38 39 00 06 0F 92 04 83 20 34 2C |202,189...... 4,| 000006F0: 39 36 2C 31 34 31 2C 33 33 2C 32 30 38 2C 31 38 |96,141,33,208,18| 00000700: 39 2C 32 2C 39 36 00 29 0F 9C 04 83 20 31 34 31 |9,2,96.).... 141| 00000710: 2C 31 38 2C 32 30 38 2C 31 37 33 2C 32 35 2C 32 |,18,208,173,25,2| 00000720: 30 38 2C 31 34 31 2C 32 35 00 4A 0F A6 04 83 20 |08,141,25.J.... | 00000730: 32 30 38 2C 32 32 34 2C 31 2C 32 30 38 2C 33 2C |208,224,1,208,3,| 00000740: 37 36 2C 31 38 38 2C 32 35 34 00 59 0F B0 04 83 |76,188,254.Y....| 00000750: 20 31 30 38 2C 37 2C 39 36 00 7A 0F D0 07 83 20 | 108,7,96.z.... | 00000760: 31 34 34 2C 35 2C 32 38 2C 31 35 39 2C 31 35 36 |144,5,28,159,156| 00000770: 2C 33 30 2C 33 31 2C 31 35 38 00 9C 0F DA 07 83 |,30,31,158......| 00000780: 20 31 32 39 2C 31 34 39 2C 31 35 30 2C 31 35 31 | 129,149,150,151| 00000790: 2C 31 35 32 2C 31 35 33 2C 31 35 34 00 A6 0F E4 |,152,153,154....| 000007A0: 07 83 20 31 35 35 00 E4 0F EE 07 83 20 22 42 4C |.. 155...... "BL| 000007B0: 41 43 4B 20 20 20 20 20 20 22 2C 22 57 48 49 54 |ACK ","WHIT| 000007C0: 45 20 20 20 20 20 20 22 2C 22 52 45 44 20 20 20 |E ","RED | 000007D0: 20 20 20 20 20 22 2C 22 43 59 41 4E 20 20 20 20 | ","CYAN | 000007E0: 20 20 20 22 00 14 10 F8 07 83 20 22 50 55 52 50 | "...... "PURP| 000007F0: 4C 45 20 20 20 20 20 22 2C 22 47 52 45 45 4E 20 |LE ","GREEN | 00000800: 20 20 20 20 20 22 2C 22 42 4C 55 45 20 20 20 20 | ","BLUE | 00000810: 20 20 20 22 00 44 10 02 08 83 20 22 59 45 4C 4C | ".D.... "YELL| 00000820: 4F 57 20 20 20 20 20 22 2C 22 4F 52 41 4E 47 45 |OW ","ORANGE| 00000830: 20 20 20 20 20 22 2C 22 42 52 4F 57 4E 20 20 20 | ","BROWN | 00000840: 20 20 20 22 00 72 10 0C 08 83 20 22 4C 49 47 48 | ".r.... "LIGH| 00000850: 54 20 52 45 44 22 2C 22 47 52 41 59 20 31 20 20 |T RED","GRAY 1 | 00000860: 20 20 20 22 2C 22 47 52 41 59 20 32 20 20 20 20 | ","GRAY 2 | 00000870: 20 22 00 93 10 16 08 83 20 22 4C 49 47 48 54 20 | "...... "LIGHT | 00000880: 47 52 45 45 4E 22 2C 22 4C 49 47 48 54 20 42 4C |GREEN","LIGHT BL| 00000890: 55 45 22 00 A7 10 20 08 83 20 22 47 52 41 59 20 |UE"... .. "GRAY | 000008A0: 33 20 20 20 20 20 22 00 BD 10 88 13 97 35 33 32 |3 "......532| 000008B0: 38 31 2C 30 3A 97 35 33 32 38 30 2C 32 00 ED 10 |81,0:.53280,2...| 000008C0: 92 13 99 22 93 05 11 20 20 20 20 11 11 11 1D 1D |..."... .....| 000008D0: 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 49 |WOULD YOU LIKE I| 000008E0: 4E 53 54 52 55 43 54 49 4F 4E 53 3F 22 00 0E 11 |NSTRUCTIONS?"...| 000008F0: 9C 13 99 22 11 1D 1D 20 20 1D 1D 1D 1D 1D 1D 1D |..."... .......| 00000900: 1D 1D 1D 1D 1D 28 59 45 53 2F 4E 4F 29 22 00 2F |.....(YES/NO)"./| 00000910: 11 A6 13 99 22 11 1D 20 1D 1D 1D 1D 1D 1D 1D 1D |....".. ........| 00000920: 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 85 20 59 24 00 |........";:. Y$.| 00000930: 48 11 B0 13 8B 20 C8 28 59 24 2C 31 29 B2 22 59 |H.... .(Y$,1)."Y| 00000940: 22 20 A7 20 35 31 30 30 00 5E 11 BA 13 8B 20 C8 |" . 5100.^.... .| 00000950: 28 59 24 2C 31 29 B2 22 4E 22 20 A7 20 8E 00 76 |(Y$,1)."N" . ..v| 00000960: 11 C4 13 99 22 91 91 91 22 3A 20 20 20 20 20 20 |...."...": | 00000970: 89 20 35 30 33 30 00 AA 11 EC 13 99 22 93 05 11 |. 5030......"...| 00000980: 11 11 11 11 11 11 20 54 48 49 53 20 49 53 20 41 |...... THIS IS A| 00000990: 20 44 45 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 50 | DEMONSTRATION P| 000009A0: 52 4F 47 52 41 4D 20 54 4F 22 00 D6 11 F6 13 99 |ROGRAM TO"......| 000009B0: 22 53 48 4F 57 20 52 41 53 54 45 52 20 49 4E 54 |"SHOW RASTER INT| 000009C0: 45 52 52 55 50 54 53 2E 20 20 55 53 45 20 43 55 |ERRUPTS. USE CU| 000009D0: 52 53 4F 52 20 22 00 03 12 00 14 99 22 55 50 20 |RSOR "......"UP | 000009E0: 4F 52 20 44 4F 57 4E 2C 20 52 49 47 48 54 20 4F |OR DOWN, RIGHT O| 000009F0: 52 20 4C 45 46 54 2C 20 54 4F 20 43 4F 4E 54 52 |R LEFT, TO CONTR| 00000A00: 4F 4C 22 00 29 12 0A 14 99 22 53 50 4C 49 54 20 |OL".)...."SPLIT | 00000A10: 53 43 52 45 45 4E 2E 20 20 46 31 20 43 4F 4E 54 |SCREEN. F1 CONT| 00000A20: 52 4F 4C 53 20 54 4F 50 22 00 53 12 14 14 99 22 |ROLS TOP".S...."| 00000A30: 43 4F 4C 4F 52 20 41 4E 44 20 46 33 20 43 4F 4E |COLOR AND F3 CON| 00000A40: 54 52 4F 4C 53 20 42 4F 54 54 4F 4D 20 43 4F 4C |TROLS BOTTOM COL| 00000A50: 4F 52 22 00 7E 12 1E 14 99 22 46 36 20 53 54 4F |OR".~...."F6 STO| 00000A60: 50 53 20 54 48 45 20 50 52 4F 47 52 41 4D 20 41 |PS THE PROGRAM A| 00000A70: 4E 44 20 46 37 20 43 48 41 4E 47 45 53 22 00 9A |ND F7 CHANGES"..| 00000A80: 12 28 14 99 22 54 48 45 20 46 4F 52 45 47 52 4F |.(.."THE FOREGRO| 00000A90: 55 4E 44 20 43 4F 4C 4F 52 22 00 C6 12 32 14 99 |UND COLOR"...2..| 00000AA0: 22 11 11 11 54 48 49 53 20 50 52 4F 47 52 41 4D |"...THIS PROGRAM| 00000AB0: 20 57 41 53 20 4D 4F 44 49 46 49 45 44 20 46 52 | WAS MODIFIED FR| 00000AC0: 4F 4D 20 41 20 22 00 F2 12 3C 14 99 22 50 52 4F |OM A "...<.."PRO| 00000AD0: 47 52 41 4D 20 49 4E 20 50 4F 57 45 52 2F 50 4C |GRAM IN POWER/PL| 00000AE0: 41 59 2C 20 4E 4F 56 45 4D 42 45 52 20 31 39 38 |AY, NOVEMBER 198| 00000AF0: 33 22 00 1C 13 46 14 99 22 42 59 20 45 46 52 41 |3"...F.."BY EFRA| 00000B00: 49 4D 20 48 41 4C 46 4F 4E 2C 20 42 55 52 4C 49 |IM HALFON, BURLI| 00000B10: 4E 47 54 4F 4E 2C 20 4F 4E 54 2E 22 00 45 13 50 |NGTON, ONT.".E.P| 00000B20: 14 99 22 4E 4F 54 45 20 4C 49 4E 45 53 20 34 30 |.."NOTE LINES 40| 00000B30: 30 2D 34 32 30 20 55 53 45 44 20 54 4F 20 43 48 |0-420 USED TO CH| 00000B40: 41 4E 47 45 22 00 73 13 5A 14 99 22 46 4F 52 45 |ANGE".s.Z.."FORE| 00000B50: 47 52 4F 55 4E 44 20 43 4F 4C 4F 52 20 55 53 49 |GROUND COLOR USI| 00000B60: 4E 47 20 4E 55 4D 42 45 52 53 20 28 30 2D 31 35 |NG NUMBERS (0-15| 00000B70: 29 20 22 00 A1 13 64 14 99 22 20 20 20 20 20 11 |) "...d.." .| 00000B80: 11 11 11 1D 1D 12 50 52 45 53 53 20 41 4E 59 20 |......PRESS ANY | 00000B90: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 |KEY TO CONTINUE.| 00000BA0: 22 00 B8 13 6E 14 A1 20 43 24 3A 8B 20 43 24 B2 |"...n.. C$:. C$.| 00000BB0: 22 22 A7 20 35 32 33 30 00 BE 13 78 14 8E 00 00 |"". 5230...x....| 00000BC0: 00 |. |
..#.... THIS PROGRAM CREATES RASTER.H...
. INTERRUPTS FOR THE C-64 BASIC..N.... T
HE PROGRAM CAN BE INCORPORATED...(.. IN
OTHER BASIC PROGRAMS AS A...2.. SUBROUTI
NE TO CREATE SPLIT 60 REM SCREENS.
THE FOREGROUND COLOR...F.. CAN BE SET
AS USUAL WITH THE.(.P.. COMMAND PRINT "[
CONTROL][NUMBER].P.Z.. OR PRINT "[COMMOD
ORE KEY][NUMBER).J.D.. A(15),B$(15):. 50
00.U.N.. 1000...X.Z.6.4096:.Z.....R1.Z.4
:R2.Z.3:R3.Z.6:R4.Z.5.A...C1.150:C2.250:
C3.0:C4.1.W.... A$:. A$."". 150... .. A$
.".". C1.C1.1.255:.230...... A$.".". C1.
C1.1.255:.230.4.... A$.".". C2.C2.1.255:
.230.S.... A$.".". C2.C2.1.255:.230.Q.H.
. A$.".". C3.C3.1.15:.230...R.. A$.".".
C4.C4.1.15:.230...W.. A$.".". 500...Z..
A$.".". 400...... 150......R1,C1:.R2,C2:
.R3,C3:.R4,C4:.150.....:...... CURSOR-UP
MOVES R1 UP.$.... CURSOR-DOWN MOVES R1
DOWN.E.... CURSOR-RIGHT MOVES R2 DOWN.C.
... CURSOR-LEFT MOVES R2 UP.|.".. F1 BUM
PS TOP COLOR...,.. F3 BUMPS BOTTOM COLOR
...6.. F6 STOPS PROGRAM EXECUTION...@..
F7 CHANGES FOREGROUND COLOR......"......
...ENTER COLOR NUMBER (0-15)";:. K......
K.0.K.15.400.K...."
.................."......G(A(K))".......
.......... CHOSEN COLOR IS "B$(K):.1
50......J.0.50:.:.:....... J.24576.24698
...... X:CH.CH.X.K....J,X:....... CH..13
196 . ."DATA ERROR":.......".."......"."
:.J.1.12:.J:.......13;.-....".":.J.14.24
:.J:..6....25;.K....J.0.15:. A(J):..C...
.J.0.15:. B$(J):.:....#.. 76,9,96,170,17
0,170,170,170...$.. 170,120,169,0,141,14
,220,173.E.... 20,3,141,7,96,173,21,3...
8.. 141,8,96,169,78,141,20,3...B.. 169,9
6,141,21,3,169,150,141.&.L.. 4,96,169,25
0,141,3,96,173.I.V.. 17,208,41,127,141,1
7,208,173.I.`.. 4,96,141,18,208,169,0,14
1...J.. 6,96,169,1,141,5,96,169...T.. 1,
141,26,208,88,96,172,18.F.~.. 208,162,2,
204,3,96,240,7...... 136,204,3,96,240,1,
202,189...... 4,96,141,33,208,189,2,96.)
.... 141,18,208,173,25,208,141,25.J....
208,224,1,208,3,76,188,254.Y.... 108,7,9
6.Z.P.. 144,5,28,159,156,30,31,158...Z..
129,149,150,151,152,153,154...... 155..
.... "BLACK ","WHITE ","RED
","CYAN "...... "PURPLE "
,"GREEN ","BLUE ".D.... "YELL
OW ","ORANGE ","BROWN ".R..
.. "LIGHT RED","GRAY 1 ","GRAY 2
"...... "LIGHT GREEN","LIGHT BLUE"... .
. "GRAY 3 "......53281,0:.53280,2...
..."... .....WOULD YOU LIKE INSTRUCTI
ONS?"......"... ............(YES/NO)"./
....".. ................";:. Y$.H.... H(
Y$,1)."Y" . 5100.^.... H(Y$,1)."N" . ..V
.D.."...": . 5030......"......... T
HIS IS A DEMONSTRATION PROGRAM TO".V....
"SHOW RASTER INTERRUPTS. USE CURSOR "..
...."UP OR DOWN, RIGHT OR LEFT, TO CONTR
OL".)...."SPLIT SCREEN. F1 CONTROLS TOP
".S...."COLOR AND F3 CONTROLS BOTTOM COL
OR".~...."F6 STOPS THE PROGRAM AND F7 CH
ANGES"...(.."THE FOREGROUND COLOR".F.2..
"...THIS PROGRAM WAS MODIFIED FROM A "..
.<.."PROGRAM IN POWER/PLAY, NOVEMBER 198
3"...F.."BY EFRAIM HALFON, BURLINGTON, O
NT.".E.P.."NOTE LINES 400-420 USED TO CH
ANGE".S.Z.."FOREGROUND COLOR USING NUMBE
RS (0-15) "...D.." .......PRESS ANY
KEY TO CONTINUE."...N.. C$:. C$."". 5230
...X.....
> CLICK IMAGE PREVIEW FOR FULL MODAL