CURSOR CONTROL
FILE INFORMATION
FILENAME(S): CURSOR CONTROL
FILE TYPE(S): PRG
FILE SIZE: 677b
FIRST SEEN: 2025-11-30 21:24:08
APPEARS ON: 1 disk(s)
FILE HASH
cb0533cb34bbdbf57a57a7bdf74107f47ab21be41f83a3d28235e2fefd639ca9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BEST OF TORPET | CURSOR CONTROL | PRG | DuncanTwain | 13 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 10 27 43 24 B2 22 22 3A 81 20 41 B2 |..!..'C$."":. A.| 00000010: 31 20 A4 20 41 3A 41 B2 30 3A 97 20 32 30 34 2C |1 . A:A.0:. 204,| 00000020: 30 00 6B 08 1A 27 8F 20 43 4C 45 41 52 20 56 41 |0.k..'. CLEAR VA| 00000030: 52 49 41 42 4C 45 3B 20 53 54 41 52 54 20 49 4E |RIABLE; START IN| 00000040: 46 49 4E 49 54 45 20 4C 4F 4F 50 3B 20 4D 41 4B |FINITE LOOP; MAK| 00000050: 45 20 53 55 52 45 20 43 55 52 53 4F 52 20 53 54 |E SURE CURSOR ST| 00000060: 41 59 53 20 45 4E 41 42 4C 45 44 00 81 08 24 27 |AYS ENABLED...$'| 00000070: A1 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 82 20 |.A$:. A$."" . . | 00000080: 41 00 97 08 2E 27 8F 20 47 45 54 20 41 20 43 48 |A....'. GET A CH| 00000090: 41 52 41 43 54 45 52 00 D8 08 38 27 8B 41 24 B2 |ARACTER...8'.A$.| 000000A0: 22 11 22 B0 20 41 24 B2 22 91 22 B0 20 41 24 B2 |".". A$.".". A$.| 000000B0: 22 9D 22 B0 20 41 24 B2 22 1D 22 B0 20 41 24 B2 |".". A$.".". A$.| 000000C0: 22 94 22 B0 20 41 24 B2 22 93 22 B0 20 41 24 B2 |".". A$.".". A$.| 000000D0: 22 13 22 A7 20 82 20 41 00 13 09 42 27 8F 20 57 |".". . A...B'. W| 000000E0: 45 45 44 20 4F 55 54 20 41 4C 4C 20 43 55 52 53 |EED OUT ALL CURS| 000000F0: 4F 52 20 43 4F 4E 54 52 4F 4C 20 4B 45 59 53 20 |OR CONTROL KEYS | 00000100: 50 4C 55 53 20 54 48 45 20 49 4E 53 45 52 54 20 |PLUS THE INSERT | 00000110: 4B 45 59 00 44 09 4C 27 8B 20 41 24 B2 C7 28 32 |KEY.D.L'. A$..(2| 00000120: 30 29 20 AF 20 43 24 B3 B1 22 22 20 A7 20 43 24 |0) . C$.."" . C$| 00000130: B2 C8 28 43 24 2C C3 28 43 24 29 AB 31 29 3A 99 |..(C$,.(C$).1):.| 00000140: 20 41 24 3B 00 59 09 56 27 8B 20 41 24 B2 C7 28 | A$;.Y.V'. A$..(| 00000150: 32 30 29 20 A7 20 82 20 41 00 94 09 60 27 8F 20 |20) . . A...`'. | 00000160: 44 45 4C 45 54 45 20 43 48 41 52 41 43 54 45 52 |DELETE CHARACTER| 00000170: 20 46 52 4F 4D 20 53 54 52 49 4E 47 20 28 49 46 | FROM STRING (IF| 00000180: 20 53 54 52 49 4E 47 20 49 53 20 4E 4F 54 20 4E | STRING IS NOT N| 00000190: 55 4C 4C 29 00 BB 09 6A 27 8B 20 41 24 B2 C7 28 |ULL)...j'. A$..(| 000001A0: 31 33 29 20 A7 20 41 B2 31 3A 92 20 32 30 37 2C |13) . A.1:. 207,| 000001B0: 31 2C 31 3A 99 3A 41 24 B2 22 22 00 FE 09 74 27 |1,1:.:A$.""...t'| 000001C0: 8F 20 49 46 20 52 45 54 55 52 4E 20 54 48 45 4E |. IF RETURN THEN| 000001D0: 20 45 4E 44 20 4C 4F 4F 50 20 41 4E 44 20 57 41 | END LOOP AND WA| 000001E0: 49 54 20 54 49 4C 4C 20 43 48 41 52 41 43 54 45 |IT TILL CHARACTE| 000001F0: 52 20 4E 4F 54 20 42 4C 49 4E 4B 49 4E 47 00 27 |R NOT BLINKING.'| 00000200: 0A 7E 27 43 24 B2 43 24 AA 41 24 3A 97 20 32 30 |.~'C$.C$.A$:. 20| 00000210: 37 2C 30 3A 99 20 41 24 3B 3A 82 20 41 3A 97 20 |7,0:. A$;:. A:. | 00000220: 32 30 34 2C 31 3A 8E 00 6E 0A 88 27 8F 20 42 55 |204,1:..n..'. BU| 00000230: 49 4C 44 20 53 54 52 49 4E 47 20 56 41 52 49 41 |ILD STRING VARIA| 00000240: 42 4C 45 3B 20 46 4F 52 43 45 20 43 48 41 52 41 |BLE; FORCE CHARA| 00000250: 43 54 45 52 20 54 4F 20 42 4C 49 4E 4B 3B 20 50 |CTER TO BLINK; P| 00000260: 52 49 4E 54 20 43 48 41 52 41 43 54 45 52 00 A2 |RINT CHARACTER..| 00000270: 0A 92 27 8F 20 57 48 45 4E 20 4C 4F 4F 50 20 49 |..'. WHEN LOOP I| 00000280: 53 20 46 49 4E 49 53 48 45 44 20 54 55 52 4E 20 |S FINISHED TURN | 00000290: 4F 46 46 20 43 55 52 53 4F 52 2C 20 52 45 54 55 |OFF CURSOR, RETU| 000002A0: 52 4E 00 00 00 |RN... |
..!..'C$."":. A.1 . A:A.0:. 204,0.K..'. CLEAR VARIABLE; START INFINITE LOOP; MAK E SURE CURSOR STAYS ENABLED...$'.A$:. A$ ."" . . A....'. GET A CHARACTER.X.8'.A$. ".". A$.".". A$.".". A$.".". A$.".". A$. ".". A$.".". . A...B'. WEED OUT ALL CURS OR CONTROL KEYS PLUS THE INSERT KEY.D.L' . A$.G(20) . C$.."" . C$.H(C$,C(C$).1):. A$;.Y.V'. A$.G(20) . . A...`'. DELETE C HARACTER FROM STRING (IF STRING IS NOT N ULL)...J'. A$.G(13) . A.1:. 207,1,1:.:A$ .""...T'. IF RETURN THEN END LOOP AND WA IT TILL CHARACTER NOT BLINKING.'.~'C$.C$ .A$:. 207,0:. A$;:. A:. 204,1:..N..'. BU ILD STRING VARIABLE; FORCE CHARACTER TO BLINK; PRINT CHARACTER....'. WHEN LOOP I S FINISHED TURN OFF CURSOR, RETURN...
> CLICK IMAGE PREVIEW FOR FULL MODAL