USR (PEEK)
FILE INFORMATION
FILENAME(S): USR (PEEK)
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:11:25
APPEARS ON: 1 disk(s)
FILE HASH
b9fae997f2fff02f8a1b6d2ef6e96b99c6684e3871895c26b2f967b18baf9ebf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LEEG | USR (PEEK) | PRG | DuncanTwain | 23 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 01 00 8D 31 30 30 30 3A 8F 20 53 45 |.......1000:. SE|
00000010: 54 20 55 50 20 55 53 52 28 50 45 45 4B 29 00 41 |T UP USR(PEEK).A|
00000020: 08 0A 00 99 22 93 55 53 52 28 50 45 45 4B 29 20 |....".USR(PEEK) |
00000030: 41 54 20 43 48 41 52 41 43 54 45 52 20 52 4F 4D |AT CHARACTER ROM|
00000040: 22 00 64 08 14 00 56 24 B2 22 13 11 11 11 11 11 |".d...V$."......|
00000050: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000060: 11 11 11 22 00 98 08 1E 00 48 24 B2 22 22 AA 22 |...".....H$.""."|
00000070: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000080: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000090: 1D 1D 1D 1D 1D 1D 1D 22 00 B7 08 28 00 55 43 B2 |......."...(.UC.|
000000A0: 35 33 32 34 38 3A 4C 43 B2 35 35 32 39 36 3A 47 |53248:LC.55296:G|
000000B0: 43 B2 35 33 37 36 30 00 D3 08 32 00 48 B2 30 3A |C.53760...2.H.0:|
000000C0: 56 B2 31 30 3A 4C B2 38 33 AC 38 AA 55 43 3A 8D |V.10:L.83.8.UC:.|
000000D0: 35 30 30 00 EE 08 3C 00 48 B2 38 3A 56 B2 31 30 |500...<.H.8:V.10|
000000E0: 3A 4C B2 33 AC 38 AA 55 43 3A 8D 35 30 30 00 23 |:L.3.8.UC:.500.#|
000000F0: 09 46 00 48 B2 31 34 3A 56 B2 35 3A 4C B2 38 35 |.F.H.14:V.5:L.85|
00000100: AC 38 AA 55 43 3A 8D 35 30 30 3A 48 B2 31 34 3A |.8.UC:.500:H.14:|
00000110: 56 B2 31 34 3A 4C B2 37 34 AC 38 AA 55 43 3A 8D |V.14:L.74.8.UC:.|
00000120: 35 30 30 00 40 09 50 00 48 B2 32 32 3A 56 B2 31 |500.@.P.H.22:V.1|
00000130: 30 3A 4C B2 35 34 AC 38 AA 55 43 3A 8D 35 30 30 |0:L.54.8.UC:.500|
00000140: 00 5D 09 5A 00 48 B2 33 30 3A 56 B2 31 30 3A 4C |.].Z.H.30:V.10:L|
00000150: B2 35 32 AC 38 AA 55 43 3A 8D 35 30 30 00 8A 09 |.52.8.UC:.500...|
00000160: 64 00 99 C8 28 56 24 2C 35 29 3B C8 28 48 24 2C |d...(V$,5);.(H$,|
00000170: 31 38 29 3B 22 D3 43 91 D5 11 11 9D CA 91 36 34 |18);".C.......64|
00000180: 22 3B C8 28 56 24 2C 32 32 29 00 AC 09 6E 00 99 |";.(V$,22)...n..|
00000190: 22 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |"PRESS ANY KEY T|
000001A0: 4F 20 43 4F 4E 54 49 4E 55 45 22 3B 00 BF 09 78 |O CONTINUE";...x|
000001B0: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 32 30 00 |..A$:.A$."".120.|
000001C0: E7 09 82 00 99 22 93 55 53 52 28 50 45 45 4B 29 |.....".USR(PEEK)|
000001D0: 20 49 4E 54 4F 20 42 41 53 49 43 20 48 49 44 44 | INTO BASIC HIDD|
000001E0: 45 4E 20 52 41 4D 22 00 2F 0A 8C 00 99 C8 28 56 |EN RAM"./.....(V|
000001F0: 24 2C 35 29 3B 22 49 4E 50 55 54 20 31 30 20 4E |$,5);"INPUT 10 N|
00000200: 55 4D 42 45 52 53 20 28 30 2D 32 35 35 29 20 54 |UMBERS (0-255) T|
00000210: 4F 20 53 54 4F 52 45 20 49 4E 20 20 20 20 24 41 |O STORE IN $A|
00000220: 30 30 30 20 54 4F 20 24 41 30 30 41 20 3A 22 00 |000 TO $A00A :".|
00000230: 3B 0A 96 00 81 49 B2 31 A4 31 30 00 58 0A A0 00 |;....I.1.10.X...|
00000240: 99 22 4E 55 4D 42 45 52 20 22 3B 49 3B 22 3A 20 |."NUMBER ";I;": |
00000250: 22 3B 3A 85 22 22 3B 58 00 88 0A AA 00 8B B5 28 |";:."";X.......(|
00000260: 58 29 B3 B1 58 B0 58 B3 30 B0 58 B1 32 35 35 A7 |X)..X.X.0.X.255.|
00000270: 99 22 49 4E 56 41 4C 49 44 20 45 4E 54 52 59 2E |."INVALID ENTRY.|
00000280: 2E 2E 22 3A 89 31 36 30 00 99 0A B4 00 97 34 30 |..":.160......40|
00000290: 39 35 39 AA 49 2C 58 3A 82 00 C1 0A BE 00 99 22 |959.I,X:......."|
000002A0: 93 55 53 52 28 50 45 45 4B 29 20 49 4E 54 4F 20 |.USR(PEEK) INTO |
000002B0: 48 49 44 44 45 4E 20 42 41 53 49 43 20 52 41 4D |HIDDEN BASIC RAM|
000002C0: 22 00 E8 0A C8 00 99 3A 99 3A 99 22 4C 4F 43 41 |"......:.:."LOCA|
000002D0: 54 49 4F 4E 20 20 20 50 45 45 4B 20 20 20 55 53 |TION PEEK US|
000002E0: 52 28 50 45 45 4B 29 22 00 0B 0B CD 00 99 22 2D |R(PEEK)"......"-|
000002F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000300: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 38 0B D2 00 |----------".8...|
00000310: 81 49 B2 31 A4 31 30 3A 99 49 AA 34 30 39 35 39 |.I.1.10:.I.40959|
00000320: 2C C2 28 49 AA 34 30 39 35 39 29 2C B7 28 49 AA |,.(I.40959),.(I.|
00000330: 34 30 39 35 39 29 3A 82 00 64 0B DC 00 99 C8 28 |40959):..d.....(|
00000340: 56 24 2C 32 32 29 3B 22 50 52 45 53 53 20 41 4E |V$,22);"PRESS AN|
00000350: 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |Y KEY TO CONTINU|
00000360: 45 20 22 3B 00 77 0B E6 00 A1 41 24 3A 8B 41 24 |E ";.w....A$:.A$|
00000370: B2 22 22 A7 32 33 30 00 A0 0B F0 00 99 22 93 55 |."".230......".U|
00000380: 53 52 28 50 45 45 4B 29 20 49 4E 54 4F 20 4B 45 |SR(PEEK) INTO KE|
00000390: 52 4E 41 4C 20 48 49 44 44 45 4E 20 52 41 4D 22 |RNAL HIDDEN RAM"|
000003A0: 00 E8 0B FA 00 99 C8 28 56 24 2C 35 29 3B 22 49 |.......(V$,5);"I|
000003B0: 4E 50 55 54 20 31 30 20 4E 55 4D 42 45 52 53 20 |NPUT 10 NUMBERS |
000003C0: 28 30 2D 32 35 35 29 20 54 4F 20 53 54 4F 52 45 |(0-255) TO STORE|
000003D0: 20 49 4E 20 20 20 20 24 46 30 30 30 20 54 4F 20 | IN $F000 TO |
000003E0: 24 46 30 30 41 20 3A 22 00 F4 0B 04 01 81 49 B2 |$F00A :"......I.|
000003F0: 31 A4 31 30 00 11 0C 0E 01 99 22 4E 55 4D 42 45 |1.10......"NUMBE|
00000400: 52 20 22 3B 49 3B 22 3A 20 22 3B 3A 85 22 22 3B |R ";I;": ";:."";|
00000410: 58 00 41 0C 18 01 8B B5 28 58 29 B3 B1 58 B0 58 |X.A.....(X)..X.X|
00000420: B3 30 B0 58 B1 32 35 35 A7 99 22 49 4E 56 41 4C |.0.X.255.."INVAL|
00000430: 49 44 20 45 4E 54 52 59 2E 2E 2E 22 3A 89 32 36 |ID ENTRY...":.26|
00000440: 30 00 52 0C 22 01 97 36 31 34 33 39 AA 49 2C 58 |0.R."..61439.I,X|
00000450: 3A 82 00 7B 0C 2C 01 99 22 93 55 53 52 28 50 45 |:..{.,..".USR(PE|
00000460: 45 4B 29 20 49 4E 54 4F 20 48 49 44 44 45 4E 20 |EK) INTO HIDDEN |
00000470: 4B 45 52 4E 41 4C 20 52 41 4D 22 00 A2 0C 36 01 |KERNAL RAM"...6.|
00000480: 99 3A 99 3A 99 22 4C 4F 43 41 54 49 4F 4E 20 20 |.:.:."LOCATION |
00000490: 20 50 45 45 4B 20 20 20 55 53 52 28 50 45 45 4B | PEEK USR(PEEK|
000004A0: 29 22 00 C5 0C 40 01 99 22 2D 2D 2D 2D 2D 2D 2D |)"...@.."-------|
000004B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000004C0: 2D 2D 2D 2D 22 00 F2 0C 4A 01 81 49 B2 31 A4 31 |----"...J..I.1.1|
000004D0: 30 3A 99 49 AA 36 31 34 33 39 2C C2 28 49 AA 36 |0:.I.61439,.(I.6|
000004E0: 31 34 33 39 29 2C B7 28 49 AA 36 31 34 33 39 29 |1439),.(I.61439)|
000004F0: 3A 82 00 F8 0C 54 01 80 00 12 0D F4 01 81 4A B2 |:....T........J.|
00000500: 4C A4 4C AA 37 3A 58 24 B2 22 22 3A 58 B2 B7 28 |L.L.7:X$."":X..(|
00000510: 4A 29 00 42 0D FE 01 81 49 B2 37 A4 30 A9 AB 31 |J).B....I.7.0..1|
00000520: 3A 8B 58 B2 B1 32 AE 49 A7 58 B2 58 AB 32 AE 49 |:.X..2.I.X.X.2.I|
00000530: 3A 58 24 B2 58 24 AA 22 05 12 20 92 22 3A 89 35 |:X$.X$.".. .":.5|
00000540: 33 30 00 50 0D 08 02 58 24 B2 58 24 AA 22 1D 22 |30.P...X$.X$."."|
00000550: 00 66 0D 12 02 82 49 3A 8B 4A B2 4C A7 99 C8 28 |.f....I:.J.L...(|
00000560: 56 24 2C 56 29 3B 00 7A 0D 1C 02 99 C8 28 48 24 |V$,V);.z.....(H$|
00000570: 2C 48 29 3B 58 24 3A 82 3A 8E 00 9B 0D E8 03 97 |,H);X$:.:.......|
00000580: 37 38 35 2C 31 3A 97 37 38 36 2C 31 39 32 3A 8F |785,1:.786,192:.|
00000590: 20 55 53 52 20 56 45 43 54 4F 52 00 B8 0D F2 03 | USR VECTOR.....|
000005A0: 81 49 B2 34 39 31 35 33 A4 34 39 33 38 30 3A 87 |.I.49153.49380:.|
000005B0: 58 3A 97 49 2C 58 3A 82 00 BE 0D F7 03 8E 00 09 |X:.I,X:.........|
000005C0: 0E FC 03 83 31 37 33 2C 39 37 2C 30 2C 32 30 31 |....173,97,0,201|
000005D0: 2C 31 34 34 2C 32 30 38 2C 33 2C 37 36 2C 31 38 |,144,208,3,76,18|
000005E0: 38 2C 31 39 32 2C 35 36 2C 32 30 31 2C 31 32 38 |8,192,56,201,128|
000005F0: 2C 31 37 36 2C 33 2C 37 36 2C 31 36 33 2C 31 39 |,176,3,76,163,19|
00000600: 32 2C 32 30 31 2C 31 34 35 00 50 0E 06 04 83 31 |2,201,145.P....1|
00000610: 34 34 2C 33 2C 37 36 2C 31 36 33 2C 31 39 32 2C |44,3,76,163,192,|
00000620: 37 33 2C 31 32 38 2C 31 34 31 2C 39 37 2C 30 2C |73,128,141,97,0,|
00000630: 35 36 2C 31 36 39 2C 31 36 2C 32 33 37 2C 39 37 |56,169,16,237,97|
00000640: 2C 30 2C 32 34 30 2C 31 33 2C 31 37 30 2C 32 34 |,0,240,13,170,24|
00000650: 00 95 0E 10 04 83 37 38 2C 39 38 2C 30 2C 31 31 |......78,98,0,11|
00000660: 30 2C 39 39 2C 30 2C 32 30 32 2C 32 32 34 2C 30 |0,99,0,202,224,0|
00000670: 2C 32 30 38 2C 32 34 34 2C 31 37 33 2C 39 38 2C |,208,244,173,98,|
00000680: 30 2C 31 34 31 2C 37 38 2C 31 39 32 2C 31 37 33 |0,141,78,192,173|
00000690: 2C 39 39 2C 30 00 DD 0E 1A 04 83 31 34 31 2C 37 |,99,0......141,7|
000006A0: 37 2C 31 39 32 2C 31 37 33 2C 31 2C 30 2C 31 34 |7,192,173,1,0,14|
000006B0: 31 2C 30 2C 31 39 32 2C 31 32 30 2C 37 33 2C 37 |1,0,192,120,73,7|
000006C0: 2C 31 34 31 2C 31 2C 30 2C 31 37 33 2C 32 35 35 |,141,1,0,173,255|
000006D0: 2C 32 35 35 2C 31 34 31 2C 39 38 2C 30 00 26 0F |,255,141,98,0.&.|
000006E0: 24 04 83 31 37 33 2C 30 2C 31 39 32 2C 31 34 31 |$..173,0,192,141|
000006F0: 2C 31 2C 30 2C 38 38 2C 31 37 33 2C 39 38 2C 30 |,1,0,88,173,98,0|
00000700: 2C 32 30 31 2C 30 2C 32 30 38 2C 33 2C 37 36 2C |,201,0,208,3,76,|
00000710: 31 34 30 2C 31 39 32 2C 31 36 32 2C 38 2C 31 37 |140,192,162,8,17|
00000720: 33 2C 39 38 2C 30 00 6B 0F 2E 04 83 32 34 2C 34 |3,98,0.k....24,4|
00000730: 32 2C 31 37 36 2C 35 2C 32 30 32 2C 32 32 34 2C |2,176,5,202,224,|
00000740: 30 2C 32 30 38 2C 32 34 37 2C 31 30 36 2C 31 34 |0,208,247,106,14|
00000750: 31 2C 39 38 2C 30 2C 37 33 2C 31 32 38 2C 31 34 |1,98,0,73,128,14|
00000760: 31 2C 31 30 32 2C 30 2C 31 33 38 00 B4 0F 38 04 |1,102,0,138...8.|
00000770: 83 39 2C 31 32 38 2C 31 34 31 2C 39 37 2C 30 2C |.9,128,141,97,0,|
00000780: 31 36 39 2C 30 2C 31 34 31 2C 39 39 2C 30 2C 31 |169,0,141,99,0,1|
00000790: 34 31 2C 31 30 30 2C 30 2C 31 34 31 2C 31 30 31 |41,100,0,141,101|
000007A0: 2C 30 2C 39 36 2C 31 36 39 2C 30 2C 31 34 31 2C |,0,96,169,0,141,|
000007B0: 39 37 2C 30 00 FC 0F 42 04 83 31 34 31 2C 39 39 |97,0...B..141,99|
000007C0: 2C 30 2C 31 34 31 2C 31 30 30 2C 30 2C 31 34 31 |,0,141,100,0,141|
000007D0: 2C 31 30 31 2C 30 2C 31 34 31 2C 31 30 32 2C 30 |,101,0,141,102,0|
000007E0: 2C 31 36 39 2C 31 32 38 2C 31 34 31 2C 39 38 2C |,169,128,141,98,|
000007F0: 30 2C 39 36 2C 31 36 39 2C 31 32 39 00 48 10 4C |0,96,169,129.H.L|
00000800: 04 83 31 34 31 2C 39 37 2C 30 2C 31 36 39 2C 31 |..141,97,0,169,1|
00000810: 32 38 2C 31 34 31 2C 39 38 2C 30 2C 31 34 31 2C |28,141,98,0,141,|
00000820: 31 30 32 2C 30 2C 31 36 39 2C 30 2C 31 34 31 2C |102,0,169,0,141,|
00000830: 39 39 2C 30 2C 31 34 31 2C 31 30 30 2C 30 2C 31 |99,0,141,100,0,1|
00000840: 34 31 2C 31 30 31 2C 30 00 94 10 56 04 83 39 36 |41,101,0...V..96|
00000850: 2C 35 36 2C 31 37 33 2C 39 38 2C 30 2C 32 30 31 |,56,173,98,0,201|
00000860: 2C 32 32 34 2C 31 34 34 2C 33 2C 37 36 2C 32 32 |,224,144,3,76,22|
00000870: 33 2C 31 39 32 2C 32 30 31 2C 32 30 38 2C 31 37 |3,192,201,208,17|
00000880: 36 2C 33 2C 37 36 2C 32 32 33 2C 31 39 32 2C 31 |6,3,76,223,192,1|
00000890: 36 39 2C 34 00 DE 10 60 04 83 31 34 31 2C 37 32 |69,4...`..141,72|
000008A0: 2C 31 39 32 2C 31 37 33 2C 39 37 2C 30 2C 33 32 |,192,173,97,0,32|
000008B0: 2C 32 36 2C 31 39 32 2C 31 36 39 2C 37 2C 31 34 |,26,192,169,7,14|
000008C0: 31 2C 37 32 2C 31 39 32 2C 39 36 2C 31 37 33 2C |1,72,192,96,173,|
000008D0: 39 37 2C 30 2C 37 36 2C 31 31 2C 31 39 32 00 00 |97,0,76,11,192..|
000008E0: 00 |. |
.......1000:. SET UP USR(PEEK).A....".US
R(PEEK) AT CHARACTER ROM".D...V$."......
...................".....H$.""."........
..............................."...(.UC.
53248:LC.55296:GC.53760.S.2.H.0:V.10:L.8
3.8.UC:.500...<.H.8:V.10:L.3.8.UC:.500.#
.F.H.14:V.5:L.85.8.UC:.500:H.14:V.14:L.7
4.8.UC:.500.@.P.H.22:V.10:L.54.8.UC:.500
.].Z.H.30:V.10:L.52.8.UC:.500...D..H(V$,
5);H(H$,18);"SC.U...J.64";H(V$,22)...N..
"PRESS ANY KEY TO CONTINUE";...X..A$:.A$
."".120......".USR(PEEK) INTO BASIC HIDD
EN RAM"./....H(V$,5);"INPUT 10 NUMBERS (
0-255) TO STORE IN $A000 TO $A00A :".
;....I.1.10.X. .."NUMBER ";I;": ";:."";X
.......(X)..X.X.0.X.255.."INVALID ENTRY.
..":.160......40959.I,X:..A....".USR(PEE
K) INTO HIDDEN BASIC RAM"...H..:.:."LOCA
TION PEEK USR(PEEK)"...M.."---------
------------------".8.R..I.1.10:.I.40959
,B(I.40959),.(I.40959):..D....H(V$,22);"
PRESS ANY KEY TO CONTINUE ";.W....A$:.A$
."".230. ....".USR(PEEK) INTO KERNAL HID
DEN RAM"......H(V$,5);"INPUT 10 NUMBERS
(0-255) TO STORE IN $F000 TO $F00A :"
......I.1.10......"NUMBER ";I;": ";:."";
X.A.....(X)..X.X.0.X.255.."INVALID ENTRY
...":.260.R."..61439.I,X:..{.,..".USR(PE
EK) INTO HIDDEN KERNAL RAM"...6..:.:."LO
CATION PEEK USR(PEEK)".E.@.."-------
--------------------"...J..I.1.10:.I.614
39,B(I.61439),.(I.61439):....T........J.
L.L.7:X$."":X..(J).B....I.7.0..1:.X..2.I
.X.X.2.I:X$.X$.".. .":.530.P...X$.X$."."
.F....I:.J.L..H(V$,V);.Z....H(H$,H);X$:.
:.......785,1:.786,192:. USR VECTOR.....
.I.49153.49380:.X:.I,X:.............173,
97,0,201,144,208,3,76,188,192,56,201,128
,176,3,76,163,192,201,145.P....144,3,76,
163,192,73,128,141,97,0,56,169,16,237,97
,0,240,13,170,24......78,98,0,110,99,0,2
02,224,0,208,244,173,98,0,141,78,192,173
,99,0......141,77,192,173,1,0,141,0,192,
120,73,7,141,1,0,173,255,255,141,98,0.&.
$..173,0,192,141,1,0,88,173,98,0,201,0,2
08,3,76,140,192,162,8,173,98,0.K....24,4
2,176,5,202,224,0,208,247,106,141,98,0,7
3,128,141,102,0,138...8..9,128,141,97,0,
169,0,141,99,0,141,100,0,141,101,0,96,16
9,0,141,97,0...B..141,99,0,141,100,0,141
,101,0,141,102,0,169,128,141,98,0,96,169
,129.H.L..141,97,0,169,128,141,98,0,141,
102,0,169,0,141,99,0,141,100,0,141,101,0
...V..96,56,173,98,0,201,224,144,3,76,22
3,192,201,208,176,3,76,223,192,169,4...`
..141,72,192,173,97,0,32,26,192,169,7,14
1,72,192,96,173,97,0,76,11,192...
> CLICK IMAGE PREVIEW FOR FULL MODAL