CUR.POKE
FILE INFORMATION
FILENAME(S): CUR.POKE
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 19:38:28
APPEARS ON: 1 disk(s)
FILE HASH
193b7e600d05984899ceb9c3b72d2005a0849ca891ccca7f7c73bfc0fbc7b550
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| VE | CUR.POKE | PRG | Curtcool, Brian | 13 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 03 00 8D 31 30 30 30 30 00 3E 08 04 |.......10000.>..|
00000010: 00 51 51 24 B2 22 20 20 20 20 20 20 20 20 20 20 |.QQ$." |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 24 00 47 | $.G|
00000040: 08 05 00 99 22 93 22 00 61 08 07 00 53 B2 37 3A |....".".a...S.7:|
00000050: 52 4F B2 32 32 3A 43 4F B2 35 3A 8D 31 30 30 33 |RO.22:CO.5:.1003|
00000060: 30 00 7C 08 0A 00 53 B2 31 3A 52 4F B2 31 30 3A |0.|...S.1:RO.10:|
00000070: 43 4F B2 32 30 3A 8D 31 30 30 33 30 00 97 08 0F |CO.20:.10030....|
00000080: 00 53 B2 30 3A 52 4F B2 31 30 3A 43 4F B2 32 30 |.S.0:RO.10:CO.20|
00000090: 3A 8D 31 30 30 33 30 00 AC 08 14 00 97 31 39 2C |:.10030......19,|
000000A0: 31 3A 85 4E 41 24 3A 97 31 39 2C 30 00 CA 08 15 |1:.NA$:.19,0....|
000000B0: 00 53 B2 30 3A 52 4F B2 30 3A 43 4F B2 30 3A 8D |.S.0:RO.0:CO.0:.|
000000C0: 31 30 30 33 30 3A 99 4E 41 24 00 E5 08 17 00 53 |10030:.NA$.....S|
000000D0: B2 32 3A 52 4F B2 31 32 3A 43 4F B2 32 30 3A 8D |.2:RO.12:CO.20:.|
000000E0: 31 30 30 33 30 00 00 09 19 00 53 B2 30 3A 52 4F |10030.....S.0:RO|
000000F0: B2 31 32 3A 43 4F B2 32 30 3A 8D 31 30 30 33 30 |.12:CO.20:.10030|
00000100: 00 15 09 1A 00 97 31 39 2C 31 3A 85 41 44 24 3A |......19,1:.AD$:|
00000110: 97 31 39 2C 30 00 34 09 1E 00 53 B2 30 3A 52 4F |.19,0.4...S.0:RO|
00000120: B2 30 3A 43 4F B2 32 30 3A 8D 31 30 30 33 30 3A |.0:CO.20:.10030:|
00000130: 99 41 44 24 00 4E 09 32 00 53 B2 35 3A 52 4F B2 |.AD$.N.2.S.5:RO.|
00000140: 31 37 3A 43 4F B2 30 3A 8D 31 30 30 33 30 00 6E |17:CO.0:.10030.n|
00000150: 09 3C 00 97 31 39 2C 31 3A 53 B2 30 3A 52 4F B2 |.<..19,1:S.0:RO.|
00000160: 31 36 3A 43 30 B2 30 3A 8D 31 30 30 33 30 00 77 |16:C0.0:.10030.w|
00000170: 09 3D 00 85 44 41 24 00 AD 09 3E 00 81 49 B2 31 |.=..DA$...>..I.1|
00000180: A4 C3 28 44 41 24 29 3A 8B CA 28 44 41 24 2C 49 |..(DA$):..(DA$,I|
00000190: 2C 31 29 B3 C7 28 34 38 29 B0 CA 28 44 41 24 2C |,1)..(48)..(DA$,|
000001A0: 49 2C 31 29 B1 C7 28 35 37 29 A7 36 30 00 B3 09 |I,1)..(57).60...|
000001B0: 3F 00 82 00 C4 09 40 00 8B C3 28 44 41 24 29 B1 |?.....@...(DA$).|
000001C0: 36 A7 36 30 00 E4 09 46 00 53 B2 30 3A 3A 52 4F |6.60...F.S.0::RO|
000001D0: B2 31 36 3A 43 4F B2 39 3A 8D 31 30 30 33 30 3A |.16:CO.9:.10030:|
000001E0: 85 44 45 24 00 1F 0A 48 00 81 49 B2 31 A4 C3 28 |.DE$...H..I.1..(|
000001F0: 44 45 24 29 3A 8B CA 28 44 45 24 2C 49 2C 31 29 |DE$):..(DE$,I,1)|
00000200: 20 20 20 20 20 B3 C7 28 34 36 29 B0 CA 28 44 45 | ..(46)..(DE|
00000210: 24 2C 49 2C 31 29 B1 C7 28 35 37 29 A7 37 30 00 |$,I,1)..(57).70.|
00000220: 25 0A 49 00 82 00 46 0A 50 00 53 B2 30 3A 3A 52 |%.I...F.P.S.0::R|
00000230: 4F B2 31 36 3A 43 4F B2 31 37 3A 8D 31 30 30 33 |O.16:CO.17:.1003|
00000240: 30 3A 85 4C 45 24 00 81 0A 52 00 81 49 B2 31 A4 |0:.LE$...R..I.1.|
00000250: C3 28 4C 45 24 29 3A 8B CA 28 4C 45 24 2C 49 2C |.(LE$):..(LE$,I,|
00000260: 31 29 20 20 20 20 20 B3 C7 28 34 36 29 B0 CA 28 |1) ..(46)..(|
00000270: 4C 45 24 2C 49 2C 31 29 B1 C7 28 35 37 29 A7 38 |LE$,I,1)..(57).8|
00000280: 30 00 87 0A 53 00 82 00 AE 0A 5A 00 53 B2 30 3A |0...S.....Z.S.0:|
00000290: 3A 52 4F B2 31 36 3A 43 4F B2 32 35 3A 8D 31 30 |:RO.16:CO.25:.10|
000002A0: 30 33 30 3A 85 56 41 24 3A 97 31 39 2C 30 00 E9 |030:.VA$:.19,0..|
000002B0: 0A 5C 00 81 49 B2 31 A4 C3 28 56 41 24 29 3A 8B |.\..I.1..(VA$):.|
000002C0: CA 28 56 41 24 2C 49 2C 31 29 20 20 20 20 20 B3 |.(VA$,I,1) .|
000002D0: C7 28 34 36 29 B0 CA 28 56 41 24 2C 49 2C 31 29 |.(46)..(VA$,I,1)|
000002E0: B1 C7 28 35 37 29 A7 39 30 00 EF 0A 5D 00 82 00 |..(57).90...]...|
000002F0: 1A 0B 5F 00 4C 45 B2 C5 28 4C 45 24 29 3A 56 41 |.._.LE..(LE$):VA|
00000300: B2 C5 28 56 41 24 29 3A 49 41 B2 4C 45 AA 56 41 |..(VA$):IA.LE.VA|
00000310: 3A 49 41 24 B2 C4 28 49 41 29 00 3A 0B 64 00 53 |:IA$..(IA).:.d.S|
00000320: B2 30 3A 52 4F B2 31 36 3A 43 4F B2 33 31 3A 8D |.0:RO.16:CO.31:.|
00000330: 31 30 30 33 30 3A 99 49 41 24 00 69 0B 6E 00 99 |10030:.IA$.i.n..|
00000340: 22 13 11 22 44 41 24 3B A3 38 29 3B 44 45 24 3B |".."DA$;.8);DE$;|
00000350: A3 31 37 29 4C 45 24 3B A3 32 37 29 3B 56 41 24 |.17)LE$;.27);VA$|
00000360: 3B A3 32 33 29 3B 49 41 24 00 82 0B 78 00 53 B2 |;.23);IA$...x.S.|
00000370: 35 3A 52 4F B2 33 3A 43 4F B2 30 3A 8D 31 30 30 |5:RO.3:CO.0:.100|
00000380: 33 30 00 9B 0B 82 00 53 B2 36 3A 52 4F B2 35 3A |30.....S.6:RO.5:|
00000390: 43 4F B2 37 3A 8D 31 30 30 33 30 00 A4 0B BE 00 |CO.7:.10030.....|
000003A0: 99 22 93 22 00 C2 0B C3 00 53 B2 30 3A 52 4F B2 |.".".....S.0:RO.|
000003B0: 31 30 3A 43 4F B2 30 3A 8D 31 30 30 33 30 3A 99 |10:CO.0:.10030:.|
000003C0: 5A 24 00 CC 0B D2 00 8D 38 30 30 30 00 D6 0B F5 |Z$......8000....|
000003D0: 00 5A 24 B2 41 24 00 F0 0B FA 00 53 B2 30 3A 43 |.Z$.A$.....S.0:C|
000003E0: 4F B2 30 3A 52 4F B2 32 30 3A 8D 31 30 30 33 30 |O.0:RO.20:.10030|
000003F0: 00 F8 0B 04 01 99 5A 24 00 10 0C FE 0B 81 54 54 |......Z$......TT|
00000400: B2 31 A4 35 3A 82 3A 97 A5 41 28 50 29 2C 43 48 |.1.5:.:..A(P),CH|
00000410: 00 20 0C 40 1F 8F 20 2A 50 4F 4B 45 20 49 4E 44 |. .@.. *POKE IND|
00000420: 00 2A 0C 4A 1F 41 24 B2 5A 24 00 42 0C 54 1F 96 |.*.J.A$.Z$.B.T..|
00000430: A5 41 28 50 29 B2 31 30 32 34 AA 34 30 AC 4C 4C |.A(P).1024.40.LL|
00000440: AA 50 00 4F 0C 5E 1F 50 B2 30 3A 4C 4C B2 30 00 |.P.O.^.P.0:LL.0.|
00000450: 59 0C 68 1F 99 22 13 22 3B 00 61 0C 72 1F 99 41 |Y.h..".";.a.r..A|
00000460: 24 00 8C 0C 7C 1F 43 48 B2 C2 28 A5 41 28 50 29 |$...|.CH..(.A(P)|
00000470: 29 3A 97 35 34 32 37 32 AA A5 41 28 50 29 2C 31 |):.54272..A(P),1|
00000480: 34 3A 97 A5 41 28 50 29 2C 31 36 30 00 A4 0C 86 |4:..A(P),160....|
00000490: 1F 81 54 54 B2 31 A4 35 3A 82 3A 97 A5 41 28 50 |..TT.1.5:.:..A(P|
000004A0: 29 2C 43 48 00 DE 0C 90 1F A1 54 24 3A 8B 54 24 |),CH......T$:.T$|
000004B0: B2 22 22 A7 38 30 34 30 20 20 20 20 20 20 20 20 |."".8040 |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 FA | ..|
000004E0: 0C 9A 1F 8B 54 24 B2 C7 28 31 33 29 B0 C3 28 41 |....T$..(13)..(A|
000004F0: 24 29 B2 32 35 35 A7 32 34 35 00 12 0D A4 1F 8B |$).255.245......|
00000500: 54 24 B2 C7 28 39 35 29 AF 50 B3 B1 30 A7 38 30 |T$..(95).P..0.80|
00000510: 33 30 00 34 0D AE 1F 8B 54 24 B2 C7 28 39 35 29 |30.4....T$..(95)|
00000520: AF 50 B2 30 A7 50 B2 C3 28 41 24 29 AB 31 3A 89 |.P.0.P..(A$).1:.|
00000530: 38 30 34 30 00 63 0D B8 1F 8B 50 B1 30 AF 54 24 |8040.c....P.0.T$|
00000540: B2 C7 28 32 30 29 A7 41 24 B2 C8 28 41 24 2C 50 |..(20).A$..(A$,P|
00000550: AB 31 29 AA CA 28 41 24 2C 50 AA 31 29 3A 50 B2 |.1)..(A$,P.1):P.|
00000560: 50 AB 31 00 76 0D C2 1F 8B 54 24 B2 C7 28 32 30 |P.1.v....T$..(20|
00000570: 29 A7 38 30 34 30 00 8E 0D CC 1F 8B 54 24 B2 22 |).8040......T$."|
00000580: 91 22 B0 54 24 B2 22 11 22 A7 38 30 34 30 00 C1 |.".T$.".".8040..|
00000590: 0D D6 1F 8B 54 24 B3 B1 22 9D 22 AF 54 24 B3 B1 |....T$..".".T$..|
000005A0: 22 1D 22 A7 41 24 B2 C8 28 41 24 2C 50 29 AA 54 |".".A$..(A$,P).T|
000005B0: 24 AA CA 28 41 24 2C 50 AA 32 29 3A 50 B2 50 AA |$..(A$,P.2):P.P.|
000005C0: 31 00 D7 0D E0 1F 8B 54 24 B2 22 9D 22 AF 50 B1 |1......T$.".".P.|
000005D0: 30 A7 50 B2 50 AB 31 00 F3 0D EA 1F 8B 54 24 B2 |0.P.P.1......T$.|
000005E0: 22 1D 22 AF 50 B3 C3 28 41 24 29 AB 31 A7 50 B2 |".".P..(A$).1.P.|
000005F0: 50 AA 31 00 FD 0D F4 1F 89 38 30 34 30 00 45 0E |P.1......8040.E.|
00000600: 10 27 8F 43 55 52 53 4F 52 20 46 41 53 54 53 5B |.'.CURSOR FASTS[|
00000610: 54 54 45 4C 53 45 4B 3D 41 4C 4C 45 20 44 41 54 |TTELSEK=ALLE DAT|
00000620: 41 20 20 20 20 20 20 20 20 54 52 59 4B 20 52 45 |A TRYK RE|
00000630: 54 55 52 4E 20 54 49 4C 42 41 47 45 20 54 49 4C |TURN TILBAGE TIL|
00000640: 20 4D 45 4E 55 00 5E 0E 1A 27 81 41 B2 38 38 35 | MENU.^..'.A.885|
00000650: A4 38 39 32 3A 87 42 3A 97 41 2C 42 3A 82 00 81 |.892:.B:.A,B:...|
00000660: 0E 24 27 83 32 34 2C 31 36 36 2C 32 35 32 2C 31 |.$'.24,166,252,1|
00000670: 36 34 2C 32 35 31 2C 37 36 2C 32 34 30 2C 32 35 |64,251,76,240,25|
00000680: 35 00 9A 0E 2E 27 97 32 35 31 2C 43 4F 3A 97 32 |5....'.251,CO:.2|
00000690: 35 32 2C 52 4F 3A 9E 38 38 35 00 CB 0E 38 27 91 |52,RO:.885...8'.|
000006A0: 53 89 31 30 31 30 30 2C 31 30 32 30 30 2C 31 30 |S.10100,10200,10|
000006B0: 33 30 30 2C 31 30 34 30 30 2C 31 30 35 30 30 2C |300,10400,10500,|
000006C0: 31 30 36 30 30 2C 31 30 37 30 30 00 D1 0E 42 27 |10600,10700...B'|
000006D0: 8E 00 E4 0E 74 27 99 22 48 41 4E 53 20 43 52 41 |....t'."HANS CRA|
000006E0: 4D 45 52 22 00 EA 0E 7E 27 8E 00 06 0F D8 27 99 |MER"...~'.....'.|
000006F0: 22 4F 44 45 4E 53 45 47 41 44 45 20 34 31 20 2C |"ODENSEGADE 41 ,|
00000700: 5D 52 48 55 53 22 00 0C 0F E2 27 8E 00 12 0F 3C |]RHUS"....'....<|
00000710: 28 8E 00 41 0F 04 29 99 22 49 4E 44 46 4C 59 54 |(..A..)."INDFLYT|
00000720: 2E 20 20 44 45 50 20 20 20 20 4C 45 4A 45 20 20 |. DEP LEJE |
00000730: 20 20 56 41 52 4D 45 20 20 20 20 49 41 4C 54 20 | VARME IALT |
00000740: 22 00 47 0F 0E 29 8E 00 66 0F 68 29 99 22 20 12 |".G..)..f.h)." .|
00000750: 45 52 20 44 45 54 54 45 20 4B 4F 52 52 45 4B 54 |ER DETTE KORREKT|
00000760: 20 4A 2F 4E 20 22 00 7B 0F 72 29 A1 51 24 3A 8B | J/N ".{.r).Q$:.|
00000770: 51 24 B2 22 22 A7 31 30 36 31 30 00 89 0F 7C 29 |Q$."".10610...|)|
00000780: 8B 51 24 B2 22 4E 22 A7 35 00 99 0F 86 29 8B 51 |.Q$."N".5....).Q|
00000790: 24 B3 B1 22 4A 22 A7 20 35 00 A2 0F 90 29 99 22 |$.."J". 5....)."|
000007A0: 13 22 00 C3 0F 9A 29 99 22 11 11 11 11 11 11 1D |."....).".......|
000007B0: 1D 1D 1D 1D 1D 1D 1D 54 52 59 4B 20 52 45 54 55 |.......TRYK RETU|
000007C0: 52 4E 22 00 F0 0F AE 29 99 22 13 22 3A 97 31 39 |RN"....).".":.19|
000007D0: 2C 31 3A 85 22 91 22 3B 58 24 3A 58 24 B2 58 24 |,1:.".";X$:X$.X$|
000007E0: AA 51 51 24 3A 58 24 B2 C8 28 58 24 2C 34 30 29 |.QQ$:X$..(X$,40)|
000007F0: 00 0E 10 B3 29 85 22 13 11 22 3B 5A 5A 24 3A 97 |....)."..";ZZ$:.|
00000800: 31 39 2C 30 3A 5A 24 B2 58 24 AA 5A 5A 24 00 14 |19,0:Z$.X$.ZZ$..|
00000810: 10 B8 29 8E 00 34 10 CC 29 99 22 12 49 4E 47 45 |..)..4..).".INGE|
00000820: 4E 20 4B 4F 4D 4D 41 20 45 4C 4C 45 52 20 4B 4F |N KOMMA ELLER KO|
00000830: 4C 4F 4E 22 00 55 10 D6 29 99 22 20 20 20 20 20 |LON".U..)." |
00000840: 54 52 59 4B 20 52 45 54 55 52 4E 20 46 4F 52 20 |TRYK RETURN FOR |
00000850: 48 56 45 52 22 00 5B 10 E0 29 8E 00 00 00 |HVER".[..).... |
.......10000.>...QQ$."
$.G....".".A...S.7:
RO.22:CO.5:.10030.|...S.1:RO.10:CO.20:.1
0030.....S.0:RO.10:CO.20:.10030......19,
1:.NA$:.19,0.J...S.0:RO.0:CO.0:.10030:.N
A$.....S.2:RO.12:CO.20:.10030.....S.0:RO
.12:CO.20:.10030......19,1:.AD$:.19,0.4.
..S.0:RO.0:CO.20:.10030:.AD$.N.2.S.5:RO.
17:CO.0:.10030.N.<..19,1:S.0:RO.16:C0.0:
.10030.W.=..DA$...>..I.1.C(DA$):.J(DA$,I
,1).G(48).J(DA$,I,1).G(57).60...?...D.@.
.C(DA$).6.60...F.S.0::RO.16:CO.9:.10030:
.DE$...H..I.1.C(DE$):.J(DE$,I,1) .G(
46).J(DE$,I,1).G(57).70.%.I...F.P.S.0::R
O.16:CO.17:.10030:.LE$...R..I.1.C(LE$):.
J(LE$,I,1) .G(46).J(LE$,I,1).G(57).8
0...S.....Z.S.0::RO.16:CO.25:.10030:.VA$
:.19,0...\..I.1.C(VA$):.J(VA$,I,1) .
G(46).J(VA$,I,1).G(57).90...]....._.LE.E
(LE$):VA.E(VA$):IA.LE.VA:IA$.D(IA).:.D.S
.0:RO.16:CO.31:.10030:.IA$.I.N..".."DA$;
.8);DE$;.17)LE$;.27);VA$;.23);IA$...X.S.
5:RO.3:CO.0:.10030.....S.6:RO.5:CO.7:.10
030......".".B.C.S.0:RO.10:CO.0:.10030:.
Z$.L.R..8000.V...Z$.A$.....S.0:CO.0:RO.2
0:.10030......Z$......TT.1.5:.:..A(P),CH
. .@.. *POKE IND.*.J.A$.Z$.B.T...A(P).10
24.40.LL.P.O.^.P.0:LL.0.Y.H..".";.A.R..A
$...|.CH.B(.A(P)):.54272..A(P),14:..A(P)
,160......TT.1.5:.:..A(P),CH......T$:.T$
."".8040
......T$.G(13).C(A$).255.245......
T$.G(95).P..0.8030.4....T$.G(95).P.0.P.C
(A$).1:.8040.C....P.0.T$.G(20).A$.H(A$,P
.1).J(A$,P.1):P.P.1.V.B..T$.G(20).8040..
.L..T$.".".T$.".".8040.A.V..T$..".".T$..
".".A$.H(A$,P).T$.J(A$,P.2):P.P.1.W....T
$.".".P.0.P.P.1......T$.".".P.C(A$).1.P.
P.1......8040.E..'.CURSOR FASTS[TTELSEK=
ALLE DATA TRYK RETURN TILBAGE TIL
MENU.^..'.A.885.892:.B:.A,B:....$'.24,1
66,252,164,251,76,240,255....'.251,CO:.2
52,RO:.885.K.8'.S.10100,10200,10300,1040
0,10500,10600,10700.Q.B'....T'."HANS CRA
MER"...~'....X'."ODENSEGADE 41 ,]RHUS"..
..'....<(..A..)."INDFLYT. DEP LEJE
VARME IALT ".G..)..F.H)." .ER DETTE
KORREKT J/N ".{.R).Q$:.Q$."".10610...|)
.Q$."N".5....).Q$.."J". 5....).".".C..).
"..............TRYK RETURN"....).".":.19
,1:.".";X$:X$.X$.QQ$:X$.H(X$,40)....).".
.";ZZ$:.19,0:Z$.X$.ZZ$....)..4.L).".INGE
N KOMMA ELLER KOLON".U.V)." TRYK RET
URN FOR HVER".[..)....
> CLICK IMAGE PREVIEW FOR FULL MODAL