INPUT DEMO
FILE INFORMATION
FILENAME(S): INPUT DEMO
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 16:57:31
APPEARS ON: 1 disk(s)
FILE HASH
8dcbd5a2373773eb6c4abdd406065a3bc7fbfbb36fd74bdc9979e93f2bc2b09e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ULTRA DISK | INPUT DEMO | PRG | High Voltage Complete C64 Collection, Markus Merz | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 01 00 97 35 33 32 38 30 2C 30 3A 97 |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 00 25 08 33 00 43 24 B2 C7 |53281,0.%.3.C$..|
00000020: 28 31 34 37 29 00 42 08 37 00 99 43 24 3A 99 22 |(147).B.7..C$:."|
00000030: 54 59 50 45 20 49 4E 20 53 4F 4D 45 54 48 49 4E |TYPE IN SOMETHIN|
00000040: 47 22 00 83 08 3A 00 99 22 4E 4F 54 49 43 45 20 |G"...:.."NOTICE |
00000050: 54 48 45 20 41 43 54 49 4F 4E 20 4F 46 20 43 4C |THE ACTION OF CL|
00000060: 52 2F 48 4F 4D 45 20 20 20 20 20 20 20 20 20 20 |R/HOME |
00000070: 20 41 4E 44 20 43 55 52 53 4F 52 20 4B 45 59 53 | AND CURSOR KEYS|
00000080: 22 3A 99 00 8F 08 3B 00 96 22 33 34 3D 30 22 00 |":....;.."34=0".|
00000090: 97 08 3C 00 85 41 24 00 9D 08 41 00 3A 00 C2 08 |..<..A$...A.:...|
000000A0: 46 00 8F 20 20 20 50 45 52 46 45 43 54 20 49 4E |F.. PERFECT IN|
000000B0: 50 55 54 20 49 53 20 46 41 4E 54 41 53 54 49 43 |PUT IS FANTASTIC|
000000C0: 21 21 00 D7 08 48 00 4E 4F 4B 45 59 24 B2 22 31 |!!...H.NOKEY$."1|
000000D0: 2D 32 35 35 3D 30 22 00 16 09 4C 00 43 52 53 52 |-255=0"...L.CRSR|
000000E0: 24 B2 22 31 33 3D 5F 2C 31 37 3D 5F 2C 32 39 3D |$."13=_,17=_,29=|
000000F0: 5F 2C 31 34 35 3D 5F 2C 31 35 37 3D 5F 2C 32 30 |_,145=_,157=_,20|
00000100: 3D 32 30 2C 31 39 3D 31 39 2C 31 34 37 3D 5F 2C |=20,19=19,147=_,|
00000110: 5F 34 38 3D 5F 22 00 57 09 4E 00 4E 24 B2 22 55 |_48=_".W.N.N$."U|
00000120: 3D 27 34 2C 49 3D 27 35 2C 4F 3D 27 36 2C 4A 3D |='4,I='5,O='6,J=|
00000130: 27 31 2C 4B 3D 27 32 2C 4C 3D 27 33 2C 33 32 3D |'1,K='2,L='3,32=|
00000140: 27 30 2C 2E 3D 2E 2C 2B 3D 2B 2C 2D 3D 2D 2C 27 |'0,.=.,+=+,-=-,'|
00000150: 30 2D 27 39 3D 5F 22 00 83 09 50 00 4E 55 4D 4B |0-'9=_"...P.NUMK|
00000160: 45 59 24 B2 4E 4F 4B 45 59 24 AA 22 2C 22 AA 4E |EY$.NOKEY$.",".N|
00000170: 24 AA 22 2C 22 AA 43 52 53 52 24 AA 22 2C 33 34 |$.",".CRSR$.",34|
00000180: 3D 30 22 00 C4 09 52 00 46 24 B2 22 31 33 33 3D |=0"...R.F$."133=|
00000190: 27 31 2C 31 33 34 3D 27 33 2C 31 33 35 3D 27 35 |'1,134='3,135='5|
000001A0: 2C 31 33 36 3D 27 37 2C 31 33 37 3D 27 32 2C 31 |,136='7,137='2,1|
000001B0: 33 38 3D 27 34 2C 31 33 39 3D 27 36 2C 31 34 30 |38='4,139='6,140|
000001C0: 3D 27 38 22 00 DC 09 54 00 46 4B 45 59 24 B2 4E |='8"...T.FKEY$.N|
000001D0: 4F 4B 45 59 24 AA 22 2C 22 AA 46 24 00 15 0A 56 |OKEY$.",".F$...V|
000001E0: 00 42 4F 58 24 B2 4E 4F 4B 45 59 24 AA 22 2C 41 |.BOX$.NOKEY$.",A|
000001F0: 2D 5A 3D 5F 2C 31 33 3D 5F 2C 31 39 3D 5F 2C 31 |-Z=_,13=_,19=_,1|
00000200: 34 37 3D 5F 2C 31 35 37 3D 5F 2C 32 30 3D 32 2C |47=_,157=_,20=2,|
00000210: 32 39 3D 5F 22 00 1B 0A 5A 00 3A 00 45 0A 64 00 |29=_"...Z.:.E.d.|
00000220: 99 43 24 3A 99 22 4A 55 53 54 20 54 52 59 20 54 |.C$:."JUST TRY T|
00000230: 4F 20 47 45 54 20 4F 55 54 20 4F 46 20 54 48 45 |O GET OUT OF THE|
00000240: 20 42 4F 58 22 00 6C 0A 65 00 99 22 4E 4F 54 49 | BOX".l.e.."NOTI|
00000250: 43 45 20 48 4F 57 20 54 48 45 20 44 45 4C 45 54 |CE HOW THE DELET|
00000260: 45 20 4B 45 59 20 57 4F 52 4B 53 22 00 93 0A 66 |E KEY WORKS"...f|
00000270: 00 99 22 55 53 45 20 53 48 49 46 54 2D 43 4C 52 |.."USE SHIFT-CLR|
00000280: 2F 48 4F 4D 45 20 54 4F 20 43 4C 45 41 52 20 42 |/HOME TO CLEAR B|
00000290: 4F 58 22 00 9D 0A 69 00 96 42 4F 58 24 00 BA 0A |OX"...i..BOX$...|
000002A0: 6E 00 CB 31 32 2C 31 30 3A 99 22 B0 C3 C3 C3 C3 |n..12,10:.".....|
000002B0: C3 C3 C3 C3 C3 C3 C3 C3 AE 22 00 D7 0A 78 00 CB |........."...x..|
000002C0: 31 32 2C 31 31 3A 99 22 C2 20 20 20 20 20 20 20 |12,11:.". |
000002D0: 20 20 20 20 20 C2 22 00 F4 0A 82 00 CB 31 32 2C | ."......12,|
000002E0: 31 32 3A 99 22 AD C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |12:."...........|
000002F0: C3 C3 BD 22 00 07 0B 96 00 CB 31 33 2C 31 31 3A |..."......13,11:|
00000300: 85 5C 31 31 2C 58 24 00 24 0B B4 00 99 43 24 3A |.\11,X$.$....C$:|
00000310: 99 22 46 49 4C 4C 20 49 4E 20 54 48 45 20 42 4C |."FILL IN THE BL|
00000320: 41 4E 4B 22 00 50 0B BA 00 CB 35 2C 31 30 3A 99 |ANK".P....5,10:.|
00000330: 22 54 48 45 52 45 20 41 52 45 20 45 49 47 48 54 |"THERE ARE EIGHT|
00000340: 20 20 20 20 20 20 49 4E 20 41 20 42 59 54 45 22 | IN A BYTE"|
00000350: 00 62 0B BE 00 CB 32 31 2C 31 30 3A 85 5C 34 2C |.b....21,10:.\4,|
00000360: 41 24 00 6A 0B BF 00 99 3A 99 00 86 0B C2 00 8B |A$.j....:.......|
00000370: 41 24 B2 22 42 49 54 53 22 A7 99 22 52 49 47 48 |A$."BITS".."RIGH|
00000380: 54 20 4F 4E 21 22 00 B3 0B C3 00 8B 41 24 B3 B1 |T ON!"......A$..|
00000390: 22 42 49 54 53 22 A7 99 22 53 4F 52 52 59 2C 20 |"BITS".."SORRY, |
000003A0: 54 48 45 20 41 4E 53 57 45 52 20 49 53 20 42 49 |THE ANSWER IS BI|
000003B0: 54 53 22 00 D5 0B C4 00 CB 31 34 2C 31 38 3A 85 |TS"......14,18:.|
000003C0: 5C 31 2C 22 50 52 45 53 53 20 52 45 54 55 52 4E |\1,"PRESS RETURN|
000003D0: 20 22 3B 58 24 00 DB 0B C7 00 3A 00 E3 0B C8 00 | ";X$.....:.....|
000003E0: 99 43 24 00 10 0C C9 00 99 22 4E 4F 54 49 43 45 |.C$......"NOTICE|
000003F0: 20 54 48 41 54 20 4F 4E 4C 59 20 4E 55 4D 42 45 | THAT ONLY NUMBE|
00000400: 52 53 20 43 41 4E 20 42 45 20 54 59 50 45 44 22 |RS CAN BE TYPED"|
00000410: 00 23 0C D2 00 CB 35 2C 35 3A 99 22 36 37 2B 38 |.#....5,5:."67+8|
00000420: 34 3D 22 00 41 0C DC 00 96 4E 4F 4B 45 59 24 AA |4=".A....NOKEY$.|
00000430: 22 2C 27 30 2D 27 39 3D 5F 2C 22 AA 43 52 53 52 |",'0-'9=_,".CRSR|
00000440: 24 00 51 0C E6 00 CB 31 32 2C 35 3A 85 5C 33 2C |$.Q....12,5:.\3,|
00000450: 4E 00 57 0C 2C 01 3A 00 64 0C 90 01 96 4E 55 4D |N.W.,.:.d....NUM|
00000460: 4B 45 59 24 00 8B 0C 95 01 CB 31 2C 31 3A 99 43 |KEY$......1,1:.C|
00000470: 24 3B 22 4E 4F 54 49 43 45 20 4E 55 4D 45 52 49 |$;"NOTICE NUMERI|
00000480: 43 41 4C 20 4B 45 59 50 41 44 22 00 A6 0C 96 01 |CAL KEYPAD".....|
00000490: 99 22 55 49 4F 20 4A 4B 4C 20 20 20 53 50 41 43 |."UIO JKL SPAC|
000004A0: 45 20 42 41 52 22 00 C8 0C 9A 01 CB 35 2C 35 3A |E BAR"......5,5:|
000004B0: 85 5C 31 39 2C 22 45 4E 54 45 52 20 41 20 4E 55 |.\19,"ENTER A NU|
000004C0: 4D 42 45 52 20 22 3B 4E 00 D0 0C 9B 01 99 43 24 |MBER ";N......C$|
000004D0: 00 D6 0C 9F 01 3A 00 ED 0C C2 01 96 4E 4F 4B 45 |.....:......NOKE|
000004E0: 59 24 AA 22 2C 59 3D 59 2C 4E 3D 4E 22 00 09 0D |Y$.",Y=Y,N=N"...|
000004F0: C7 01 CB 31 30 2C 31 30 3A 99 22 41 4E 53 57 45 |...10,10:."ANSWE|
00000500: 52 20 59 20 4F 52 20 4E 22 00 1C 0D CC 01 A1 4B |R Y OR N"......K|
00000510: 24 3A 8B 4B 24 B2 22 22 A7 34 36 30 00 22 0D EA |$:.K$."".460."..|
00000520: 01 3A 00 2D 0D F4 01 96 46 4B 45 59 24 00 4C 0D |.:.-....FKEY$.L.|
00000530: F9 01 99 43 24 3A 99 22 50 52 45 53 53 20 46 55 |...C$:."PRESS FU|
00000540: 4E 43 54 49 4F 4E 20 4B 45 59 53 22 00 5E 0D FA |NCTION KEYS".^..|
00000550: 01 99 22 46 38 20 54 4F 20 51 55 49 54 22 00 6E |.."F8 TO QUIT".n|
00000560: 0D FE 01 A1 4B 3A 8B 4B B2 30 A7 35 31 30 00 78 |....K:.K.0.510.x|
00000570: 0D FF 01 96 3A 99 3A 99 00 9F 0D 03 02 91 4B 8D |....:.:.......K.|
00000580: 36 31 30 2C 36 32 30 2C 36 33 30 2C 36 34 30 2C |610,620,630,640,|
00000590: 36 35 30 2C 36 36 30 2C 36 37 30 2C 36 38 30 00 |650,660,670,680.|
000005A0: B4 0D 04 02 96 22 31 2D 32 35 35 3D 30 2C 31 33 |....."1-255=0,13|
000005B0: 3D 31 33 22 00 CB 0D 08 02 85 22 50 52 45 53 53 |=13"......"PRESS|
000005C0: 20 52 45 54 55 52 4E 22 3B 47 24 00 D4 0D 12 02 | RETURN";G$.....|
000005D0: 89 35 30 30 00 E8 0D 62 02 99 22 46 31 20 52 4F |.500...b.."F1 RO|
000005E0: 55 54 49 4E 45 22 3A 8E 00 FC 0D 6C 02 99 22 46 |UTINE":....l.."F|
000005F0: 32 20 52 4F 55 54 49 4E 45 22 3A 8E 00 10 0E 76 |2 ROUTINE":....v|
00000600: 02 99 22 46 33 20 52 4F 55 54 49 4E 45 22 3A 8E |.."F3 ROUTINE":.|
00000610: 00 24 0E 80 02 99 22 46 34 20 52 4F 55 54 49 4E |.$...."F4 ROUTIN|
00000620: 45 22 3A 8E 00 38 0E 8A 02 99 22 46 35 20 52 4F |E":..8...."F5 RO|
00000630: 55 54 49 4E 45 22 3A 8E 00 4C 0E 94 02 99 22 46 |UTINE":..L...."F|
00000640: 36 20 52 4F 55 54 49 4E 45 22 3A 8E 00 60 0E 9E |6 ROUTINE":..`..|
00000650: 02 99 22 46 37 20 52 4F 55 54 49 4E 45 22 3A 8E |.."F7 ROUTINE":.|
00000660: 00 72 0E A8 02 99 22 46 38 20 52 4F 55 54 49 4E |.r...."F8 ROUTIN|
00000670: 45 22 00 78 0E 16 03 3A 00 A0 0E 20 03 99 43 24 |E".x...:... ..C$|
00000680: 3B 22 50 52 45 53 53 20 46 37 20 41 54 20 41 4E |;"PRESS F7 AT AN|
00000690: 59 20 54 49 4D 45 20 46 4F 52 20 48 45 4C 50 22 |Y TIME FOR HELP"|
000006A0: 00 AF 0E 25 03 96 3A 96 22 31 33 36 3D 31 22 00 |...%..:."136=1".|
000006B0: B7 0E 2A 03 99 3A 99 00 D7 0E 34 03 85 38 35 30 |..*..:....4..850|
000006C0: 2C 22 45 4E 54 45 52 20 53 4F 4D 45 54 48 49 4E |,"ENTER SOMETHIN|
000006D0: 47 3A 20 22 3B 58 24 00 E0 0E 3E 03 89 38 32 30 |G: ";X$...>..820|
000006E0: 00 00 0F 52 03 99 3A 99 3A 99 22 59 4F 55 20 43 |...R..:.:."YOU C|
000006F0: 41 4C 4C 45 44 20 46 4F 52 20 48 45 4C 50 3F 22 |ALLED FOR HELP?"|
00000700: 00 46 0F 53 03 99 22 4E 4F 54 49 43 45 20 48 4F |.F.S.."NOTICE HO|
00000710: 57 20 46 37 20 43 41 55 53 45 44 20 42 41 53 49 |W F7 CAUSED BASI|
00000720: 43 20 54 4F 20 4A 55 4D 50 20 4F 55 54 20 20 4F |C TO JUMP OUT O|
00000730: 46 20 54 48 45 20 49 4E 50 55 54 20 53 54 41 54 |F THE INPUT STAT|
00000740: 45 4D 45 4E 54 22 00 69 0F 57 03 99 22 54 48 49 |EMENT".i.W.."THI|
00000750: 53 20 49 53 20 54 48 45 20 45 4E 44 20 4F 46 20 |S IS THE END OF |
00000760: 54 48 45 20 44 45 4D 4F 22 00 7B 0F 5C 03 99 3A |THE DEMO".{.\..:|
00000770: 99 22 47 4F 4F 44 20 42 59 45 22 00 81 0F E7 03 |."GOOD BYE".....|
00000780: 96 00 00 00 |.... |
.......53280,0:.53281,0.%.3.C$.G(147).B.
7..C$:."TYPE IN SOMETHING"...:.."NOTICE
THE ACTION OF CLR/HOME AND CUR
SOR KEYS":....;.."34=0"...<..A$...A.:.B.
F.. PERFECT INPUT IS FANTASTIC!!.W.H.N
OKEY$."1-255=0"...L.CRSR$."13=_,17=_,29=
_,145=_,157=_,20=20,19=19,147=_,_48=_".W
.N.N$."U='4,I='5,O='6,J='1,K='2,L='3,32=
'0,.=.,+=+,-=-,'0-'9=_"...P.NUMKEY$.NOKE
Y$.",".N$.",".CRSR$.",34=0".D.R.F$."133=
'1,134='3,135='5,136='7,137='2,138='4,13
9='6,140='8"...T.FKEY$.NOKEY$.",".F$...V
.BOX$.NOKEY$.",A-Z=_,13=_,19=_,147=_,157
=_,20=2,29=_"...Z.:.E.D..C$:."JUST TRY T
O GET OUT OF THE BOX".L.E.."NOTICE HOW T
HE DELETE KEY WORKS"...F.."USE SHIFT-CLR
/HOME TO CLEAR BOX"...I..BOX$...N.K12,10
:.".CCCCCCCCCCCC.".W.X.K12,11:."B
B".....K12,12:.".CCCCCCCCCCCC."....
.K13,11:.\11,X$.$....C$:."FILL IN THE BL
ANK".P...K5,10:."THERE ARE EIGHT IN
A BYTE".B...K21,10:.\4,A$.J....:....B..
A$."BITS".."RIGHT ON!"...C..A$.."BITS"..
"SORRY, THE ANSWER IS BITS".U.D.K14,18:.
\1,"PRESS RETURN ";X$...G.:...H..C$...I.
."NOTICE THAT ONLY NUMBERS CAN BE TYPED"
.#.R.K5,5:."67+84=".A....NOKEY$.",'0-'9=
_,".CRSR$.Q...K12,5:.\3,N.W.,.:.D....NUM
KEY$.....K1,1:.C$;"NOTICE NUMERICAL KEYP
AD"......"UIO JKL SPACE BAR".H...K5,5:
.\19,"ENTER A NUMBER ";N.P....C$.V...:..
.B..NOKEY$.",Y=Y,N=N"...G.K10,10:."ANSWE
R Y OR N"...L..K$:.K$."".460."...:.-....
FKEY$.L....C$:."PRESS FUNCTION KEYS".^..
.."F8 TO QUIT".N....K:.K.0.510.X....:.:.
......K.610,620,630,640,650,660,670,680.
....."1-255=0,13=13".K...."PRESS RETURN"
;G$.T....500...B.."F1 ROUTINE":....L.."F
2 ROUTINE":....V.."F3 ROUTINE":..$...."F
4 ROUTINE":..8...."F5 ROUTINE":..L...."F
6 ROUTINE":..`...."F7 ROUTINE":..R...."F
8 ROUTINE".X...:. . ..C$;"PRESS F7 AT AN
Y TIME FOR HELP"...%..:."136=1"...*..:..
W.4..850,"ENTER SOMETHING: ";X$...>..820
...R..:.:."YOU CALLED FOR HELP?".F.S.."N
OTICE HOW F7 CAUSED BASIC TO JUMP OUT O
F THE INPUT STATEMENT".I.W.."THIS IS THE
END OF THE DEMO".{.\..:."GOOD BYE".....
....
> CLICK IMAGE PREVIEW FOR FULL MODAL