READKEY.BAT
FILE INFORMATION
FILENAME(S): READKEY.BAT
FILE TYPE(S): SEQ
FILE SIZE: 443b
FIRST SEEN: 2025-10-20 14:31:49
APPEARS ON: 1 disk(s)
FILE HASH
c2835a468570ef3930a68d07393820f4274afcfbcb2c342432172514165b356c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| KEYDOS ROM DISK | READKEY.BAT | SEQ | Treasure Chest - Klaus Der Suhler | 19 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 46 41 53 54 3A 55 50 24 3D 43 48 52 24 28 31 34 |FAST:UP$=CHR$(14| 00000010: 35 29 2B 43 48 52 24 28 31 34 35 29 2B 43 48 52 |5)+CHR$(145)+CHR| 00000020: 24 28 31 34 35 29 3A 50 52 49 4E 54 43 48 52 24 |$(145):PRINTCHR$| 00000030: 28 31 34 37 29 3B 0D 50 52 49 4E 54 20 55 50 24 |(147);.PRINT UP$| 00000040: 20 22 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 | ".RESS ANY KEY | 00000050: 54 4F 20 52 45 41 44 20 54 48 45 20 4E 45 58 54 |TO READ THE NEXT| 00000060: 20 4C 49 4E 45 20 2E 20 2E 20 2E 22 3A 57 41 49 | LINE . . .":WAI| 00000070: 54 32 30 38 2C 31 3A 50 4F 4B 45 32 30 38 2C 30 |T208,1:POKE208,0| 00000080: 0D 50 52 49 4E 54 20 55 50 24 20 22 D4 48 49 53 |.PRINT UP$ ".HIS| 00000090: 20 53 49 4D 50 4C 45 20 44 45 4D 4F 20 53 48 4F | SIMPLE DEMO SHO| 000000A0: 57 53 20 48 4F 57 20 41 20 2E C2 C1 D4 20 46 49 |WS HOW A .... FI| 000000B0: 4C 45 22 3A 57 41 49 54 32 30 38 2C 31 3A 50 4F |LE":WAIT208,1:PO| 000000C0: 4B 45 32 30 38 2C 30 0D 50 52 49 4E 54 20 55 50 |KE208,0.PRINT UP| 000000D0: 24 20 22 43 41 4E 20 52 45 41 44 20 4B 45 59 50 |$ "CAN READ KEYP| 000000E0: 52 45 53 53 45 53 20 46 52 4F 4D 20 54 48 45 20 |RESSES FROM THE | 000000F0: 4B 45 59 42 4F 41 52 44 2E 22 3A 57 41 49 54 32 |KEYBOARD.":WAIT2| 00000100: 30 38 2C 31 3A 50 4F 4B 45 32 30 38 2C 30 0D 50 |08,1:POKE208,0.P| 00000110: 52 49 4E 54 20 55 50 24 20 22 D0 52 45 53 53 20 |RINT UP$ ".RESS | 00000120: 41 4E 59 20 4C 45 54 54 45 52 20 4F 52 20 4E 55 |ANY LETTER OR NU| 00000130: 4D 42 45 52 20 4B 45 59 20 2E 20 2E 20 2E 20 22 |MBER KEY . . . "| 00000140: 3A 57 41 49 54 32 30 38 2C 31 3A 50 4F 4B 45 32 |:WAIT208,1:POKE2| 00000150: 30 38 2C 30 0D 50 52 49 4E 54 20 55 50 24 20 22 |08,0.PRINT UP$ "| 00000160: D4 48 45 20 4B 45 59 20 59 4F 55 20 50 52 45 53 |.HE KEY YOU PRES| 00000170: 53 45 44 20 49 53 3A 20 22 3B 43 48 52 24 28 50 |SED IS: ";CHR$(P| 00000180: 45 45 4B 28 38 34 32 29 29 0D 50 52 49 4E 54 20 |EEK(842)).PRINT | 00000190: 55 50 24 3A 53 4C 4F 57 3A 50 4F 4B 45 31 35 33 |UP$:SLOW:POKE153| 000001A0: 2C 30 3A 44 43 4C 4F 53 45 20 4F 4E 20 55 28 50 |,0:DCLOSE ON U(P| 000001B0: 45 45 4B 28 31 38 36 29 29 0D 82 |EEK(186)).. |
FAST:UP$=CHR$(145)+CHR$(145)+CHR$(145):P RINTCHR$(147);.PRINT UP$ "PRESS ANY KEY TO READ THE NEXT LINE . . .":WAIT208,1:P OKE208,0.PRINT UP$ "THIS SIMPLE DEMO SHO WS HOW A .BAT FILE":WAIT208,1:POKE208,0. PRINT UP$ "CAN READ KEYPRESSES FROM THE KEYBOARD.":WAIT208,1:POKE208,0.PRINT UP$ "PRESS ANY LETTER OR NUMBER KEY . . . " :WAIT208,1:POKE208,0.PRINT UP$ "THE KEY YOU PRESSED IS: ";CHR$(PEEK(842)).PRINT UP$:SLOW:POKE153,0:DCLOSE ON U(PEEK(186) )..
> CLICK IMAGE PREVIEW FOR FULL MODAL