BASIC.CURSOR
FILE INFORMATION
FILENAME(S): BASIC.CURSOR
FILE TYPE(S): PRG
FILE SIZE: 1.3K
FIRST SEEN: 2025-10-20 14:32:12
APPEARS ON: 1 disk(s)
FILE HASH
e2cfcaa1056687d0fabe12bab56ec9f3bc95d749f53fa311d0a6725f9cfe01f0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| STONYSOFT PD NR | BASIC.CURSOR | PRG | Treasure Chest - Klaus Der Suhler | 32 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 A1 08 01 00 8F 22 B0 C0 C0 C0 C0 C0 C0 C0 |......."........| 00000010: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000020: C0 C0 C0 C0 C0 C0 C0 C0 AE 20 20 20 20 20 20 20 |......... | 00000030: DD 20 20 20 20 20 20 20 20 20 4E 4F 4E 2D 44 45 |. NON-DE| 00000040: 53 54 52 55 43 54 20 20 20 20 20 20 20 20 20 20 |STRUCT | 00000050: DD 20 20 20 20 20 20 20 DD 20 20 20 20 42 4C 49 |. . BLI| 00000060: 4E 4B 49 4E 47 20 43 55 52 53 4F 52 20 52 4F 55 |NKING CURSOR ROU| 00000070: 54 49 4E 45 20 20 20 20 DD 20 20 20 20 20 20 20 |TINE . | 00000080: DD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 |. B| 00000090: 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |Y | 000000A0: DD 00 43 09 02 00 8F 22 DD 20 20 20 20 20 20 20 |..C....". | 000000B0: 20 53 54 45 50 48 45 4E 20 43 41 53 45 59 20 20 | STEPHEN CASEY | 000000C0: 20 20 20 20 20 20 20 20 DD 20 20 20 20 20 20 20 | . | 000000D0: AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000000E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 000000F0: BD 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00000100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: 20 20 2E 00 E3 09 03 00 8F 22 B0 C0 C0 C0 C0 C0 | ......."......| 00000150: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000160: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 20 20 20 20 20 |........... | 00000170: 20 20 DD 20 20 20 20 20 20 20 20 20 20 20 56 41 | . VA| 00000180: 52 49 41 42 4C 45 53 20 20 20 20 20 20 20 20 20 |RIABLES | 00000190: 20 20 DD 20 20 20 20 20 20 20 DD 43 4C 20 3D 20 | . .CL = | 000001A0: 43 55 52 53 4F 52 20 4C 4F 43 41 54 49 4F 4E 20 |CURSOR LOCATION | 000001B0: 20 20 20 20 20 20 20 20 20 20 DD 20 20 20 20 20 | . | 000001C0: 20 20 DD 43 43 20 3D 20 43 48 41 52 41 43 54 45 | .CC = CHARACTE| 000001D0: 52 20 55 4E 44 45 52 20 43 55 52 53 4F 52 20 20 |R UNDER CURSOR | 000001E0: 20 20 DD 00 83 0A 04 00 8F 22 DD 43 4D 20 3D 20 | .......".CM = | 000001F0: 43 4F 4C 4F 52 20 4D 45 4D 4F 52 59 20 20 20 20 |COLOR MEMORY | 00000200: 20 20 20 20 20 20 20 20 20 20 DD 20 20 20 20 20 | . | 00000210: 20 20 DD 43 56 20 3D 20 43 4F 4C 4F 52 20 56 41 | .CV = COLOR VA| 00000220: 4C 55 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |LUE | 00000230: 20 20 DD 20 20 20 20 20 20 20 DD 42 46 20 3D 20 | . .BF = | 00000240: 42 4C 49 4E 4B 20 46 4C 41 47 20 20 20 20 20 20 |BLINK FLAG | 00000250: 20 20 20 20 20 20 20 20 20 20 DD 20 20 20 20 20 | . | 00000260: 20 20 DD 42 54 20 3D 20 42 4C 49 4E 4B 20 54 49 | .BT = BLINK TI| 00000270: 4D 49 4E 47 20 20 20 20 20 20 20 20 20 20 20 20 |MING | 00000280: 20 20 DD 00 25 0B 05 00 8F 22 DD 20 20 43 48 41 | ..%....". CHA| 00000290: 4E 47 45 20 42 56 20 54 4F 20 41 20 56 41 4C 55 |NGE BV TO A VALU| 000002A0: 45 20 42 45 54 57 45 45 4E 20 DD 20 20 20 20 20 |E BETWEEN . | 000002B0: 20 20 DD 20 20 38 30 20 26 20 31 30 30 20 46 4F | . 80 & 100 FO| 000002C0: 52 20 43 4F 4D 50 49 4C 45 44 20 42 41 53 49 43 |R COMPILED BASIC| 000002D0: 20 20 DD 20 20 20 20 20 20 20 DD 20 20 50 52 4F | . . PRO| 000002E0: 47 52 41 4D 53 2E 20 20 20 20 20 20 20 20 20 20 |GRAMS. | 000002F0: 20 20 20 20 20 20 20 20 20 20 DD 20 20 20 20 20 | . | 00000300: 20 20 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ..............| 00000310: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................| 00000320: C0 C0 BD 20 2E 00 43 0B 14 00 97 35 33 32 38 30 |... ..C....53280| 00000330: 2C 30 3A 97 35 33 32 38 31 2C 30 3A 97 36 34 36 |,0:.53281,0:.646| 00000340: 2C 31 34 00 62 0B 1E 00 8D 34 30 3A 99 41 24 3B |,14.b....40:.A$;| 00000350: 3A 97 32 31 32 2C 30 3A 97 32 31 36 2C 30 3A 89 |:.212,0:.216,0:.| 00000360: 33 30 00 03 0C 23 00 8F 22 20 20 20 20 20 20 20 |30...#.." | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003B0: 20 20 20 20 20 20 20 4E 4F 4E 2D 44 45 53 54 52 | NON-DESTR| 000003C0: 55 43 54 20 43 55 52 53 4F 52 20 47 45 54 20 52 |UCT CURSOR GET R| 000003D0: 4F 55 54 49 4E 45 20 20 20 20 20 20 20 20 20 20 |OUTINE | 000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000400: 20 20 2E 00 43 0C 28 00 42 56 B2 32 38 3A 42 54 | ..C.(.BV.28:BT| 00000410: B2 30 3A 43 4C B2 31 30 32 34 AA C2 28 32 31 34 |.0:CL.1024..(214| 00000420: 29 AC 34 30 AA C2 28 32 31 31 29 AA 28 C2 28 32 |).40..(211).(.(2| 00000430: 31 31 29 B1 33 39 29 AC 34 30 3A 43 43 B2 C2 28 |11).39).40:CC..(| 00000440: 43 4C 29 00 5C 0C 32 00 43 4D B2 35 34 32 37 32 |CL).\.2.CM.54272| 00000450: AA 43 4C 3A 43 56 B2 C2 28 43 4D 29 00 82 0C 3C |.CL:CV..(CM)...<| 00000460: 00 97 43 4C 2C 28 28 43 43 AA 31 32 38 29 AF 32 |..CL,((CC.128).2| 00000470: 35 35 29 3A 97 43 4D 2C C2 28 36 34 36 29 3A 89 |55):.CM,.(646):.| 00000480: 38 30 00 94 0C 46 00 97 43 4C 2C 43 43 3A 97 43 |80...F..CL,CC:.C| 00000490: 4D 2C 43 56 00 A0 0C 50 00 42 54 B2 42 54 AA 32 |M,CV...P.BT.BT.2| 000004A0: 00 B4 0C 5A 00 A1 41 24 3A 8B 41 24 B3 B1 22 22 |...Z..A$:.A$..""| 000004B0: A7 31 31 30 00 BD 0C 64 00 89 31 32 30 00 D1 0C |.110...d..120...| 000004C0: 6E 00 97 43 4C 2C 43 43 3A 97 43 4D 2C 43 56 3A |n..CL,CC:.CM,CV:| 000004D0: 8E 00 F0 0C 78 00 8B 42 46 B2 30 A7 8B 42 54 B1 |....x..BF.0..BT.| 000004E0: 42 56 A7 42 54 B2 30 3A 42 46 B2 31 3A 89 37 30 |BV.BT.0:BF.1:.70| 000004F0: 00 0F 0D 82 00 8B 42 46 B2 31 A7 8B 42 54 B1 42 |......BF.1..BT.B| 00000500: 56 A7 42 54 B2 30 3A 42 46 B2 30 3A 89 36 30 00 |V.BT.0:BF.0:.60.| 00000510: 17 0D 8C 00 89 38 30 00 00 00 |.....80... |
......."................................
. . NON-DESTRUCT
. . BLINKING CURSOR ROUTINE
. . BY
..C....". STEPHEN CASEY
. ................................
.
......."..............................
... . VARIABLES
. .CL = CURSOR LOCATION
. .CC = CHARACTER UNDER CURSOR
.......".CM = COLOR MEMORY
. .CV = COLOR VALUE
. .BF = BLINK FLAG
. .BT = BLINK TIMING
..%....". CHANGE BV TO A VALUE BETWEE
N . . 80 & 100 FOR COMPILED BASIC
. . PROGRAMS.
. ..............................
... ..C....53280,0:.53281,0:.646,14.B...
.40:.A$;:.212,0:.216,0:.30...#.."
NON-DESTR
UCT CURSOR GET ROUTINE
..C.(.BV.28:BT
.0:CL.1024.B(214).40.B(211).(B(211).39).
40:CC.B(CL).\.2.CM.54272.CL:CV.B(CM)...<
..CL,((CC.128).255):.CM,B(646):.80...F..
CL,CC:.CM,CV. .P.BT.BT.2...Z..A$:.A$..""
.110...D..120.Q.N..CL,CC:.CM,CV:....X..B
F.0..BT.BV.BT.0:BF.1:.70......BF.1..BT.B
V.BT.0:BF.0:.60......80...
> CLICK IMAGE PREVIEW FOR FULL MODAL