64 FAST POKES.C

FILE INFORMATION

FILENAME(S): 64 FAST POKES.C

FILE TYPE(S): PRG

FILE SIZE: 2.1K

FIRST SEEN: 2025-11-30 01:08:00

APPEARS ON: 5 disk(s)

FILE HASH

c5c16c01ba66c6bec700842a51048dd1c013ca37ef831a179b13bf04cbf53b43

FOUND ON DISKS (5 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FREESOFT DISK NR	64 FAST POKES.C	PRG	Treasure Chest - Wolfgang Rauprich	2	2	DOWNLOAD FILE
U TILITIE	64 FAST POKES.C	PRG	Treasure Chest - Wolfgang Rauprich	2	2	DOWNLOAD FILE
TPUG	64 FAST POKES.C	PRG	Sailor, Ganheden	24	1	DOWNLOAD FILE
TPUG JAN 84 C	64 FAST POKES.C	PRG	Sailor, Ganheden	24	1	DOWNLOAD FILE
TPUG JAN 84 C	64 FAST POKES.C	PRG	DuncanTwain	24	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 3C 08 0A 00 53 B2  35 33 32 38 31 3A 42 B2  |..<...S.53281:B.|
00000010: 53 AB 31 3A 8F 20 53 45  54 20 55 50 20 56 41 52  |S.1:. SET UP VAR|
00000020: 49 41 42 4C 45 53 20 46  4F 52 20 53 43 52 45 45  |IABLES FOR SCREE|
00000030: 4E 20 41 4E 44 20 42 4F  52 44 45 52 00 69 08 0F  |N AND BORDER.i..|
00000040: 00 53 43 B2 31 30 32 34  3A 8F 20 53 45 54 20 53  |.SC.1024:. SET S|
00000050: 43 52 45 45 4E 20 50 4F  4B 45 20 4C 4F 43 41 54  |CREEN POKE LOCAT|
00000060: 49 4F 4E 20 54 4F 20 53  43 00 75 08 14 00 43 B2  |ION TO SC.u...C.|
00000070: 35 35 32 39 36 00 C6 08  1E 00 99 22 93 9B 54 48  |55296......"..TH|
00000080: 49 53 20 50 52 4F 47 52  41 4D 20 49 53 20 44 45  |IS PROGRAM IS DE|
00000090: 53 49 47 4E 45 44 20 54  4F 20 53 48 4F 57 20 48  |SIGNED TO SHOW H|
000000A0: 4F 57 20 54 4F 20 51 55  49 43 4B 4C 59 20 50 4F  |OW TO QUICKLY PO|
000000B0: 4B 45 20 41 20 4F 4E 45  20 43 4F 4C 4F 52 20 44  |KE A ONE COLOR D|
000000C0: 49 53 50 4C 41 59 00 10  09 28 00 99 22 4F 4E 20  |ISPLAY...(.."ON |
000000D0: 54 48 45 20 53 43 52 45  45 4E 20 4F 46 20 54 48  |THE SCREEN OF TH|
000000E0: 45 20 43 20 36 34 20 57  49 54 48 4F 55 54 20 54  |E C 64 WITHOUT T|
000000F0: 49 52 45 2D 20 53 4F 4D  45 20 50 4F 4B 49 4E 47  |IRE- SOME POKING|
00000100: 20 43 4F 4C 4F 52 20 49  4E 54 4F 20 45 41 43 48  | COLOR INTO EACH|
00000110: 00 2D 09 32 00 99 22 4C  4F 43 41 54 49 4F 4E 20  |.-.2.."LOCATION |
00000120: 54 48 41 54 20 49 53 20  55 53 45 44 2E 00 6F 09  |THAT IS USED..o.|
00000130: 3C 00 99 22 11 41 4E 44  20 49 54 20 49 53 20 46  |<..".AND IT IS F|
00000140: 41 53 54 45 52 20 54 48  41 4E 20 50 4F 4B 49 4E  |ASTER THAN POKIN|
00000150: 47 20 54 48 45 20 57 48  4F 4C 45 20 20 53 43 52  |G THE WHOLE  SCR|
00000160: 45 45 4E 20 57 49 54 48  20 43 4F 4C 4F 52 2E 00  |EEN WITH COLOR..|
00000170: B9 09 46 00 99 22 11 49  46 20 59 4F 55 20 48 41  |..F..".IF YOU HA|
00000180: 56 45 20 45 44 55 43 41  54 49 4F 4E 41 4C 20 44  |VE EDUCATIONAL D|
00000190: 49 53 4B 53 20 54 48 41  54 20 44 4F 4E 27 54 57  |ISKS THAT DON'TW|
000001A0: 4F 52 4B 2C 20 59 4F 55  20 4D 49 47 48 54 20 54  |ORK, YOU MIGHT T|
000001B0: 52 59 20 41 44 44 49 4E  47 00 04 0A 50 00 99 22  |RY ADDING...P.."|
000001C0: 54 48 49 53 20 52 4F 55  54 49 4E 45 20 54 4F 20  |THIS ROUTINE TO |
000001D0: 54 48 45 4D 20 41 4E 44  20 53 45 45 20 49 46 20  |THEM AND SEE IF |
000001E0: 49 54 20 20 20 20 20 20  44 4F 45 53 4E 27 54 20  |IT      DOESN'T |
000001F0: 43 4F 52 52 45 43 54 20  54 48 45 20 50 52 4F 42  |CORRECT THE PROB|
00000200: 4C 45 4D 21 00 3C 0A 55  00 99 22 11 53 45 45 20  |LEM!.<.U..".SEE |
00000210: 52 45 4D 41 52 4B 53 20  49 4E 20 54 48 45 20 50  |REMARKS IN THE P|
00000220: 52 4F 47 52 41 4D 20 46  4F 52 20 44 4F 43 55 4D  |ROGRAM FOR DOCUM|
00000230: 45 4E 2D 20 54 41 54 49  4F 4E 2E 22 00 54 0A 5A  |EN- TATION.".T.Z|
00000240: 00 41 24 B2 22 22 3A A1  41 24 3A 8B 41 24 B2 22  |.A$."":.A$:.A$."|
00000250: 22 A7 39 30 00 7B 0A 64  00 99 22 93 22 3A 81 4C  |".90.{.d..".":.L|
00000260: B2 31 A4 32 32 3A 99 3A  82 3A 99 22 9B 49 27 4D  |.1.22:.:.:.".I'M|
00000270: 20 57 4F 52 4B 49 4E 47  21 21 22 00 A9 0A C8 00  | WORKING!!".....|
00000280: 97 53 2C 36 3A 97 42 2C  31 34 3A 8F 20 53 45 54  |.S,6:.B,14:. SET|
00000290: 20 43 4F 4C 4F 52 20 54  4F 20 53 54 41 52 54 2D  | COLOR TO START-|
000002A0: 55 50 20 43 4F 4C 4F 52  53 00 E1 0A D2 00 81 4C  |UP COLORS......L|
000002B0: B2 43 A4 43 AA 39 39 39  3A 97 4C 2C 36 3A 82 3A  |.C.C.999:.L,6:.:|
000002C0: 8F 20 53 45 54 53 20 42  41 43 4B 47 52 4F 55 4E  |. SETS BACKGROUN|
000002D0: 44 20 54 4F 20 53 43 52  45 45 4E 20 43 4F 4C 4F  |D TO SCREEN COLO|
000002E0: 52 00 EA 0A D7 00 99 22  93 22 00 18 0B DC 00 97  |R......"."......|
000002F0: 53 43 AA 34 31 38 2C 32  30 3A 97 53 43 AA 34 31  |SC.418,20:.SC.41|
00000300: 39 2C 38 3A 97 53 43 AA  34 32 30 2C 39 3A 97 53  |9,8:.SC.420,9:.S|
00000310: 43 AA 34 32 31 2C 31 39  00 31 0B E6 00 97 53 43  |C.421,19.1....SC|
00000320: AA 34 39 39 2C 39 3A 97  53 43 AA 35 30 30 2C 31  |.499,9:.SC.500,1|
00000330: 39 00 61 0B F0 00 97 53  43 AA 35 37 38 2C 31 39  |9.a....SC.578,19|
00000340: 3A 97 53 43 AA 35 37 39  2C 31 32 3A 97 53 43 AA  |:.SC.579,12:.SC.|
00000350: 35 38 30 2C 31 35 3A 97  53 43 AA 35 38 31 2C 32  |580,15:.SC.581,2|
00000360: 33 00 7D 0B FA 00 81 4C  B2 43 A4 43 AA 31 30 30  |3.}....L.C.C.100|
00000370: 30 3A 97 4C 2C 30 3A 82  3A 99 22 13 22 00 BD 0B  |0:.L,0:.:."."...|
00000380: 22 01 81 4C B2 31 A4 32  34 3A 99 3A 82 3A 81 4C  |"..L.1.24:.:.:.L|
00000390: B2 31 A4 31 30 30 30 3A  82 3A 99 22 9B 52 45 41  |.1.1000:.:.".REA|
000003A0: 44 59 3F 22 3A 81 4C B2  31 A4 31 30 30 30 3A 82  |DY?":.L.1.1000:.|
000003B0: 3A 99 22 47 45 54 20 53  45 54 21 21 22 00 EB 0B  |:."GET SET!!"...|
000003C0: 36 01 97 53 2C 36 3A 97  42 2C 31 34 3A 8F 20 53  |6..S,6:.B,14:. S|
000003D0: 45 54 20 43 4F 4C 4F 52  20 54 4F 20 53 54 41 52  |ET COLOR TO STAR|
000003E0: 54 2D 55 50 20 43 4F 4C  4F 52 53 00 23 0C 40 01  |T-UP COLORS.#.@.|
000003F0: 81 4C B2 43 A4 43 AA 39  39 39 3A 97 4C 2C 36 3A  |.L.C.C.999:.L,6:|
00000400: 82 3A 8F 20 53 45 54 53  20 42 41 43 4B 47 52 4F  |.:. SETS BACKGRO|
00000410: 55 4E 44 20 54 4F 20 53  43 52 45 45 4E 20 43 4F  |UND TO SCREEN CO|
00000420: 4C 4F 52 00 35 0C 4A 01  99 22 9B 47 4F 21 21 21  |LOR.5.J..".GO!!!|
00000430: 21 21 21 21 22 00 71 0C  54 01 8F 20 2A 2A 2A 2A  |!!!!".q.T.. ****|
00000440: 2A 20 54 48 45 20 46 4F  4C 4C 4F 57 49 4E 47 20  |* THE FOLLOWING |
00000450: 52 4F 55 54 49 4E 45 20  44 4F 45 53 20 54 48 45  |ROUTINE DOES THE|
00000460: 20 52 45 41 4C 20 57 4F  52 4B 20 20 2A 2A 2A 2A  | REAL WORK  ****|
00000470: 2A 00 BC 0C 59 01 8F 20  2A 2A 20 54 48 45 20 4F  |*...Y.. ** THE O|
00000480: 4E 4C 59 20 4C 49 4E 45  20 54 48 41 54 20 59 4F  |NLY LINE THAT YO|
00000490: 55 20 4E 45 45 44 20 49  53 20 4C 49 4E 45 20 23  |U NEED IS LINE #|
000004A0: 34 30 30 2E 20 54 48 45  20 52 45 53 54 20 49 53  |400. THE REST IS|
000004B0: 20 4A 55 53 54 20 57 49  4E 44 4F 57 00 07 0D 5E  | JUST WINDOW...^|
000004C0: 01 8F 20 2A 2A 20 44 52  45 53 53 49 4E 47 2E 20  |.. ** DRESSING. |
000004D0: 53 45 54 20 54 48 45 20  42 41 43 4B 47 52 4F 55  |SET THE BACKGROU|
000004E0: 4E 44 20 54 4F 20 54 48  45 20 43 4F 4C 4F 52 20  |ND TO THE COLOR |
000004F0: 54 48 41 54 20 59 4F 55  20 57 41 4E 54 20 54 48  |THAT YOU WANT TH|
00000500: 45 20 43 48 41 52 2D 00  54 0D 63 01 8F 20 2A 2A  |E CHAR-.T.c.. **|
00000510: 20 41 43 54 45 52 53 20  54 4F 20 45 4E 44 20 55  | ACTERS TO END U|
00000520: 50 2C 20 44 4F 20 41 20  53 43 52 45 45 4E 20 43  |P, DO A SCREEN C|
00000530: 4C 45 41 52 2C 20 41 4E  44 20 53 45 54 20 54 48  |LEAR, AND SET TH|
00000540: 45 20 43 48 41 52 41 43  54 45 52 20 43 4F 4C 4F  |E CHARACTER COLO|
00000550: 52 20 54 4F 00 A2 0D 68  01 8F 20 2A 2A 20 42 41  |R TO...h.. ** BA|
00000560: 43 4B 47 52 4F 55 4E 44  20 43 4F 4C 4F 52 2E 20  |CKGROUND COLOR. |
00000570: 54 48 45 4E 20 52 45 54  55 52 4E 20 54 48 45 20  |THEN RETURN THE |
00000580: 42 41 43 4B 47 52 4F 55  4E 44 20 54 4F 20 54 48  |BACKGROUND TO TH|
00000590: 45 20 4F 52 49 47 49 4E  41 4C 20 43 4F 4C 4F 52  |E ORIGINAL COLOR|
000005A0: 20 26 00 DF 0D 6D 01 8F  20 2A 2A 20 54 48 45 20  | &...m.. ** THE |
000005B0: 36 34 20 46 49 4C 4C 53  20 54 48 45 20 43 48 41  |64 FILLS THE CHA|
000005C0: 52 41 43 54 45 52 20 43  4F 4C 4F 52 20 4C 4F 43  |RACTER COLOR LOC|
000005D0: 41 54 49 4F 4E 53 20 46  4F 52 20 59 4F 55 21 00  |ATIONS FOR YOU!.|
000005E0: 2A 0E 72 01 8F 20 2A 2A  20 49 20 44 49 53 43 4F  |*.r.. ** I DISCO|
000005F0: 56 45 52 53 44 20 54 48  49 53 20 57 48 49 4C 45  |VERSD THIS WHILE|
00000600: 20 57 52 49 54 49 4E 47  20 41 20 47 45 4E 45 41  | WRITING A GENEA|
00000610: 4C 4F 47 59 20 50 52 4F  47 52 41 4D 20 54 48 41  |LOGY PROGRAM THA|
00000620: 54 20 44 49 53 50 4C 41  59 53 00 75 0E 77 01 8F  |T DISPLAYS.u.w..|
00000630: 20 2A 2A 20 41 20 50 45  44 49 47 52 45 45 20 43  | ** A PEDIGREE C|
00000640: 48 41 52 54 20 4F 4E 20  54 48 45 20 53 43 52 45  |HART ON THE SCRE|
00000650: 45 4E 2E 20 49 46 20 59  4F 55 20 41 52 45 20 49  |EN. IF YOU ARE I|
00000660: 4E 54 52 45 53 54 45 44  20 49 4E 20 47 45 4E 45  |NTRESTED IN GENE|
00000670: 41 4C 4F 47 59 00 A2 0E  81 01 8F 20 2A 2A 20 50  |ALOGY...... ** P|
00000680: 52 4F 47 52 41 4D 53 20  46 4F 52 20 54 48 45 20  |ROGRAMS FOR THE |
00000690: 43 20 36 34 2C 20 57 52  49 54 45 20 4D 45 20 41  |C 64, WRITE ME A|
000006A0: 54 3A 00 A8 0E 82 01 8F  00 F0 0E 86 01 8F 20 20  |T:............  |
000006B0: 20 20 20 20 20 52 4F 42  45 52 54 20 4A 2E 20 43  |     ROBERT J. C|
000006C0: 4F 4B 45 4C 20 20 20 20  20 20 20 20 20 20 20 20  |OKEL            |
000006D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 39 30 36  |             906|
000006E0: 20 57 45 53 54 20 36 54  48 20 41 56 45 4E 55 45  | WEST 6TH AVENUE|
000006F0: 00 2A 0F 8B 01 8F 20 20  20 20 20 20 20 4D 4F 4E  |.*....       MON|
00000700: 4D 4F 55 54 48 2C 20 49  4C 4C 2E 20 20 20 20 20  |MOUTH, ILL.     |
00000710: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000720: 20 20 20 20 20 36 31 34  36 32 00 30 0F 8C 01 8F  |     61462.0....|
00000730: 00 36 0F 8D 01 8F 00 7D  0F 90 01 97 53 2C 30 3A  |.6.....}....S,0:|
00000740: 99 22 93 90 22 3A 8F 20  20 53 45 54 20 53 43 52  |."..":.  SET SCR|
00000750: 45 45 4E 20 54 4F 20 42  4C 41 43 4B 20 41 4E 44  |EEN TO BLACK AND|
00000760: 20 53 45 54 20 43 48 41  52 41 43 54 45 52 20 43  | SET CHARACTER C|
00000770: 4F 4C 4F 52 20 54 4F 20  42 4C 41 43 4B 00 AD 0F  |OLOR TO BLACK...|
00000780: 9A 01 97 53 2C 36 3A 97  42 2C 31 34 3A 20 8F 20  |...S,6:.B,14: . |
00000790: 20 53 45 54 20 53 43 52  45 45 4E 20 54 4F 20 4F  | SET SCREEN TO O|
000007A0: 52 49 47 49 4E 41 4C 20  43 4F 4C 4F 52 00 DB 0F  |RIGINAL COLOR...|
000007B0: A4 01 97 53 43 AA 34 31  38 2C 32 30 3A 97 53 43  |...SC.418,20:.SC|
000007C0: AA 34 31 39 2C 38 3A 97  53 43 AA 34 32 30 2C 39  |.419,8:.SC.420,9|
000007D0: 3A 97 53 43 AA 34 32 31  2C 31 39 00 F4 0F AE 01  |:.SC.421,19.....|
000007E0: 97 53 43 AA 34 39 39 2C  39 3A 97 53 43 AA 35 30  |.SC.499,9:.SC.50|
000007F0: 30 2C 31 39 00 37 10 B8  01 97 53 43 AA 35 37 37  |0,19.7....SC.577|
00000800: 2C 36 3A 97 53 43 AA 35  37 38 2C 31 3A 97 53 43  |,6:.SC.578,1:.SC|
00000810: AA 35 37 39 2C 31 39 3A  97 53 43 AA 35 38 30 2C  |.579,19:.SC.580,|
00000820: 32 30 3A 97 53 43 AA 35  38 31 2C 35 3A 97 53 43  |20:.SC.581,5:.SC|
00000830: AA 35 38 32 2C 31 38 00  53 10 C2 01 99 22 9B 22  |.582,18.S...."."|
00000840: 3A 8F 20 53 45 54 20 43  55 52 53 4F 52 20 43 4F  |:. SET CURSOR CO|
00000850: 4C 4F 52 00 00 00                                 |LOR...          |

..<...S.53281:B.S.1:. SET UP VARIABLES F
OR SCREEN AND BORDER.I...SC.1024:. SET S
CREEN POKE LOCATION TO SC.U...C.55296.F.
..."..THIS PROGRAM IS DESIGNED TO SHOW H
OW TO QUICKLY POKE A ONE COLOR DISPLAY..
.(.."ON THE SCREEN OF THE C 64 WITHOUT T
IRE- SOME POKING COLOR INTO EACH.-.2.."L
OCATION THAT IS USED..O.<..".AND IT IS F
ASTER THAN POKING THE WHOLE  SCREEN WITH
 COLOR....F..".IF YOU HAVE EDUCATIONAL D
ISKS THAT DON'TWORK, YOU MIGHT TRY ADDIN
G...P.."THIS ROUTINE TO THEM AND SEE IF 
IT      DOESN'T CORRECT THE PROBLEM!.<.U
..".SEE REMARKS IN THE PROGRAM FOR DOCUM
EN- TATION.".T.Z.A$."":.A$:.A$."".90.{.D
..".":.L.1.22:.:.:.".I'M WORKING!!"...H.
.S,6:.B,14:. SET COLOR TO START-UP COLOR
S...R..L.C.C.999:.L,6:.:. SETS BACKGROUN
D TO SCREEN COLOR...W.."."......SC.418,2
0:.SC.419,8:.SC.420,9:.SC.421,19.1....SC
.499,9:.SC.500,19.A....SC.578,19:.SC.579
,12:.SC.580,15:.SC.581,23.}....L.C.C.100
0:.L,0:.:."."..."..L.1.24:.:.:.L.1.1000:
.:.".READY?":.L.1.1000:.:."GET SET!!"...
6..S,6:.B,14:. SET COLOR TO START-UP COL
ORS.#.@..L.C.C.999:.L,6:.:. SETS BACKGRO
UND TO SCREEN COLOR.5.J..".GO!!!!!!!".Q.
T.. ***** THE FOLLOWING ROUTINE DOES THE
 REAL WORK  *****...Y.. ** THE ONLY LINE
 THAT YOU NEED IS LINE #400. THE REST IS
 JUST WINDOW...^.. ** DRESSING. SET THE 
BACKGROUND TO THE COLOR THAT YOU WANT TH
E CHAR-.T.C.. ** ACTERS TO END UP, DO A 
SCREEN CLEAR, AND SET THE CHARACTER COLO
R TO...H.. ** BACKGROUND COLOR. THEN RET
URN THE BACKGROUND TO THE ORIGINAL COLOR
 &...M.. ** THE 64 FILLS THE CHARACTER C
OLOR LOCATIONS FOR YOU!.*.R.. ** I DISCO
VERSD THIS WHILE WRITING A GENEALOGY PRO
GRAM THAT DISPLAYS.U.W.. ** A PEDIGREE C
HART ON THE SCREEN. IF YOU ARE INTRESTED
 IN GENEALOGY...... ** PROGRAMS FOR THE 
C 64, WRITE ME AT:............       ROB
ERT J. COKEL                         906
 WEST 6TH AVENUE.*....       MONMOUTH, I
LL.                          61462.0....
.6.....}....S,0:."..":.  SET SCREEN TO B
LACK AND SET CHARACTER COLOR TO BLACK...
...S,6:.B,14: .  SET SCREEN TO ORIGINAL 
COLOR......SC.418,20:.SC.419,8:.SC.420,9
:.SC.421,19......SC.499,9:.SC.500,19.7..
..SC.577,6:.SC.578,1:.SC.579,19:.SC.580,
20:.SC.581,5:.SC.582,18.S.B..".":. SET C
URSOR COLOR...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL