READY1
FILE INFORMATION
FILENAME(S): READY1
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:27:10
APPEARS ON: 1 disk(s)
FILE HASH
b7db7eec64b36c84065ff8d0708e29a4fc70095922fbfa0bd1518609171c7d9a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MARCO | READY1 | PRG | DuncanTwain | 34 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 7E 08 01 00 86 52 24 28 34 30 30 31 29 3A |..~....R$(4001):|
00000010: 86 42 24 28 34 30 30 31 29 3A 41 24 B2 22 20 20 |.B$(4001):A$." |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000030: 97 35 33 32 36 35 2C 31 3A 81 41 B2 2E A4 34 30 |.53265,1:.A...40|
00000040: 30 30 3A 52 24 28 41 29 B2 41 24 3A 42 24 28 41 |00:R$(A).A$:B$(A|
00000050: 29 B2 41 24 3A 82 41 3A 97 35 33 32 36 35 2C 32 |).A$:.A:.53265,2|
00000060: 37 3A 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 |7:.53280,0:.5328|
00000070: 31 2C 30 3A 97 36 34 36 2C 37 3A 89 31 36 00 A2 |1,0:.646,7:.16..|
00000080: 08 02 00 85 22 93 57 41 41 52 20 57 49 4C 20 4A |....".WAAR WIL J|
00000090: 45 20 42 45 47 49 4E 4E 45 4E 22 3B 41 3A 99 22 |E BEGINNEN";A:."|
000000A0: 93 22 00 D9 08 03 00 85 22 50 4C 41 41 54 53 4E |."......"PLAATSN|
000000B0: 41 41 4D 22 3B 52 24 28 41 29 3A 85 22 4E 55 4D |AAM";R$(A):."NUM|
000000C0: 4D 45 52 22 3B 42 24 28 41 29 3A 8B 52 24 28 41 |MER";B$(A):.R$(A|
000000D0: 29 B2 22 2A 22 A7 89 31 35 00 5F 09 04 00 41 24 |)."*"..15._...A$|
000000E0: B2 22 22 3A 44 B2 31 36 AB C3 28 52 24 28 41 29 |."":D.16..(R$(A)|
000000F0: 29 3A 81 42 B2 2E A4 44 3A 41 24 B2 41 24 AA 22 |):.B...D:A$.A$."|
00000100: 20 22 3A 82 42 3A 52 24 28 41 29 B2 52 24 28 41 | ":.B:R$(A).R$(A|
00000110: 29 AA 41 24 3A 41 24 B2 22 22 3A 44 B2 31 36 AB |).A$:A$."":D.16.|
00000120: C3 28 42 24 28 41 29 29 3A 81 42 B2 2E A4 44 3A |.(B$(A)):.B...D:|
00000130: 41 24 B2 41 24 AA 22 20 22 3A 82 42 3A 42 24 28 |A$.A$." ":.B:B$(|
00000140: 41 29 B2 42 24 28 41 29 AA 41 24 3A 41 B2 41 AA |A).B$(A).A$:A.A.|
00000150: 31 3A 99 22 93 4E 52 22 3B 41 AA 31 3A 89 33 00 |1:.".NR";A.1:.3.|
00000160: 7E 09 05 00 99 22 93 4F 50 4E 41 41 4D 28 41 29 |~....".OPNAAM(A)|
00000170: 20 4F 46 20 4E 55 4D 4D 45 52 28 42 29 22 00 99 | OF NUMMER(B)"..|
00000180: 09 06 00 A1 41 24 3A 8B 41 24 B3 B1 22 41 22 AF |....A$:.A$.."A".|
00000190: 41 24 B3 B1 22 42 22 A7 36 00 C0 09 07 00 99 22 |A$.."B".6......"|
000001A0: 45 45 4E 20 4F 47 45 4E 42 4C 49 4B 20 41 2E 55 |EEN OGENBLIK A.U|
000001B0: 2E 42 2E 22 3A 8B 41 24 B2 22 41 22 A7 89 31 30 |.B.":.A$."A"..10|
000001C0: 00 13 0A 08 00 41 B2 34 30 30 30 3A 81 49 B2 30 |.....A.4000:.I.0|
000001D0: A4 41 AB 31 3A 4B B2 49 3A 58 24 B2 52 24 28 49 |.A.1:K.I:X$.R$(I|
000001E0: 29 3A 41 24 B2 42 24 28 49 29 3A 81 4A B2 49 AA |):A$.B$(I):.J.I.|
000001F0: 31 A4 41 3A 8B 52 24 28 4A 29 B3 58 24 A7 4B B2 |1.A:.R$(J).X$.K.|
00000200: 4A 3A 58 24 B2 52 24 28 4A 29 3A 41 24 B2 42 24 |J:X$.R$(J):A$.B$|
00000210: 28 4A 29 00 50 0A 09 00 82 4A 3A 52 24 28 4B 29 |(J).P....J:R$(K)|
00000220: B2 52 24 28 49 29 3A 42 24 28 4B 29 B2 42 24 28 |.R$(I):B$(K).B$(|
00000230: 49 29 3A 52 24 28 49 29 B2 58 24 3A 42 24 28 49 |I):R$(I).X$:B$(I|
00000240: 29 B2 41 24 3A 99 22 13 22 3B 49 3A 82 49 3A 8E |).A$:.".";I:.I:.|
00000250: 00 A3 0A 0A 00 41 B2 34 30 30 30 3A 81 49 B2 30 |.....A.4000:.I.0|
00000260: A4 41 AB 31 3A 4B B2 49 3A 58 24 B2 42 24 28 49 |.A.1:K.I:X$.B$(I|
00000270: 29 3A 41 24 B2 52 24 28 49 29 3A 81 4A B2 49 AA |):A$.R$(I):.J.I.|
00000280: 31 A4 41 3A 8B 42 24 28 4A 29 B3 58 24 A7 4B B2 |1.A:.B$(J).X$.K.|
00000290: 4A 3A 58 24 B2 42 24 28 4A 29 3A 52 24 B2 42 24 |J:X$.B$(J):R$.B$|
000002A0: 28 4A 29 00 E0 0A 0B 00 82 4A 3A 52 24 28 4B 29 |(J)......J:R$(K)|
000002B0: B2 52 24 28 49 29 3A 42 24 28 4B 29 B2 42 24 28 |.R$(I):B$(K).B$(|
000002C0: 49 29 3A 42 24 28 49 29 B2 58 24 3A 52 24 28 49 |I):B$(I).X$:R$(I|
000002D0: 29 B2 41 24 3A 99 22 13 22 3B 49 3A 82 49 3A 8E |).A$:.".";I:.I:.|
000002E0: 00 04 0B 0C 00 99 22 93 49 4E 53 45 52 54 20 44 |......".INSERT D|
000002F0: 49 53 4B 20 41 4E 44 20 50 52 45 53 53 20 41 20 |ISK AND PRESS A |
00000300: 4B 45 59 22 00 16 0B 0D 00 A1 41 24 3A 8B 41 24 |KEY"......A$:.A$|
00000310: B2 22 22 A7 31 33 00 57 0B 0E 00 85 22 46 49 4C |."".13.W...."FIL|
00000320: 45 20 4E 41 4D 45 22 3B 41 24 3A 9F 31 2C 38 2C |E NAME";A$:.1,8,|
00000330: 31 2C 41 24 3A 81 41 B2 30 A4 34 30 30 30 3A 98 |1,A$:.A.0.4000:.|
00000340: 31 2C 52 24 28 41 29 3A 98 31 2C 42 24 28 41 29 |1,R$(A):.1,B$(A)|
00000350: 3A 82 3A A0 31 3A 8E 00 B0 0B 0F 00 52 24 28 41 |:.:.1:......R$(A|
00000360: 29 B2 52 24 28 34 30 30 30 29 3A 42 24 28 41 29 |).R$(4000):B$(A)|
00000370: B2 52 24 28 34 30 30 30 29 3A 99 22 56 4F 4C 47 |.R$(4000):."VOLG|
00000380: 45 4E 44 45 20 4B 45 45 52 20 4D 4F 45 54 20 4A |ENDE KEER MOET J|
00000390: 45 20 42 45 47 49 4E 4E 45 4E 20 42 49 4A 22 3B |E BEGINNEN BIJ";|
000003A0: 41 3A 81 41 B2 30 A4 31 30 30 30 3A 82 41 3A 8E |A:.A.0.1000:.A:.|
000003B0: 00 32 0C 10 00 99 22 93 20 20 20 20 20 20 20 20 |.2....". |
000003C0: 20 20 20 12 4D 45 4E 55 92 22 3A 99 22 31 3D 4C | .MENU.":."1=L|
000003D0: 41 44 45 4E 22 3A 99 22 32 3D 53 41 56 45 4E 22 |ADEN":."2=SAVEN"|
000003E0: 3A 99 22 33 3D 49 4E 56 4F 45 52 45 4E 22 3A 99 |:."3=INVOEREN":.|
000003F0: 22 34 3D 5A 4F 45 4B 45 4E 22 3A 99 22 35 3D 53 |"4=ZOEKEN":."5=S|
00000400: 4F 52 54 45 52 45 4E 22 3A 99 22 36 3D 50 52 49 |ORTEREN":."6=PRI|
00000410: 4E 54 45 4E 22 3A 99 22 37 3D 42 45 4B 49 4A 4B |NTEN":."7=BEKIJK|
00000420: 45 4E 22 3A 99 22 38 3D 45 49 4E 44 45 20 50 52 |EN":."8=EINDE PR|
00000430: 47 22 00 4C 0C 11 00 A1 41 24 3A 8B 41 24 B3 22 |G".L....A$:.A$."|
00000440: 31 22 B0 41 24 B1 22 38 22 A7 31 37 00 5C 0C 12 |1".A$."8".17.\..|
00000450: 00 8B 41 24 B2 22 31 22 A7 8D 32 37 00 6C 0C 13 |..A$."1"..27.l..|
00000460: 00 8B 41 24 B2 22 32 22 A7 8D 31 32 00 7B 0C 14 |..A$."2"..12.{..|
00000470: 00 8B 41 24 B2 22 33 22 A7 8D 32 00 8B 0C 15 00 |..A$."3"..2.....|
00000480: 8B 41 24 B2 22 34 22 A7 8D 32 38 00 9A 0C 16 00 |.A$."4"..28.....|
00000490: 8B 41 24 B2 22 35 22 A7 8D 35 00 AA 0C 17 00 8B |.A$."5"..5......|
000004A0: 41 24 B2 22 36 22 A7 8D 33 35 00 BA 0C 18 00 8B |A$."6"..35......|
000004B0: 41 24 B2 22 37 22 A7 8D 33 36 00 C8 0C 19 00 8B |A$."7"..36......|
000004C0: 41 24 B2 22 38 22 A7 80 00 D0 0C 1A 00 89 31 36 |A$."8"........16|
000004D0: 00 38 0D 1B 00 85 22 57 45 4C 4B 45 20 4E 41 41 |.8...."WELKE NAA|
000004E0: 4D 22 3B 41 24 3A 9F 31 2C 38 2C 30 2C 41 24 3A |M";A$:.1,8,0,A$:|
000004F0: 81 41 B2 30 A4 34 30 30 30 3A 81 42 B2 31 A4 31 |.A.0.4000:.B.1.1|
00000500: 36 3A A1 23 31 2C 41 24 3A A1 23 31 2C 43 24 3A |6:.#1,A$:.#1,C$:|
00000510: 52 24 28 41 29 B2 52 24 28 41 29 AA 41 24 3A 42 |R$(A).R$(A).A$:B|
00000520: 24 28 41 29 B2 52 24 28 41 29 AA 43 24 3A 82 42 |$(A).R$(A).C$:.B|
00000530: 3A 82 41 3A A0 31 3A 8E 00 7E 0D 1C 00 85 22 57 |:.A:.1:..~...."W|
00000540: 41 54 20 5A 4F 45 4B 20 4A 45 22 3B 41 24 3A 81 |AT ZOEK JE";A$:.|
00000550: 42 B2 30 A4 34 30 30 30 3A 8B 41 24 B2 52 24 28 |B.0.4000:.A$.R$(|
00000560: 42 29 A7 99 42 3B 22 20 22 3B 52 24 28 42 29 3B |B)..B;" ";R$(B);|
00000570: 22 20 2D 20 22 3B 42 24 28 42 29 3A 82 42 00 8C |" - ";B$(B):.B..|
00000580: 0D 1D 00 8B 42 B3 34 30 30 30 A7 82 00 BF 0D 1E |....B.4000......|
00000590: 00 81 42 B2 30 A4 34 30 30 30 3A 8B 41 24 B2 42 |..B.0.4000:.A$.B|
000005A0: 24 28 42 29 A7 99 42 3B 22 20 22 3B 42 24 28 42 |$(B)..B;" ";B$(B|
000005B0: 29 3B 22 20 2D 20 22 52 24 28 42 29 3A 82 42 00 |);" - "R$(B):.B.|
000005C0: CD 0D 1F 00 8B 42 B3 34 30 30 30 A7 82 00 F7 0D |.....B.4000.....|
000005D0: 20 00 99 22 11 11 11 11 11 20 20 20 20 20 20 20 | .."..... |
000005E0: 20 20 20 20 20 44 52 55 4B 20 4F 50 20 45 45 4E | DRUK OP EEN|
000005F0: 20 54 4F 45 54 53 22 00 09 0E 21 00 A1 41 24 3A | TOETS"...!..A$:|
00000600: 8B 41 24 B2 22 22 A7 33 33 00 0F 0E 22 00 8E 00 |.A$."".33..."...|
00000610: 7D 0E 23 00 85 22 56 41 4E 20 48 4F 45 56 45 52 |}.#.."VAN HOEVER|
00000620: 20 57 49 4C 20 4A 45 20 50 52 49 4E 54 45 4E 22 | WIL JE PRINTEN"|
00000630: 3B 42 3A 85 22 54 4F 54 20 48 4F 45 56 45 52 20 |;B:."TOT HOEVER |
00000640: 57 49 4C 20 4A 45 20 50 52 49 4E 54 45 4E 22 3B |WIL JE PRINTEN";|
00000650: 43 3A 9F 31 2C 34 2C 37 3A 81 41 B2 42 A4 43 3A |C:.1,4,7:.A.B.C:|
00000660: 98 31 2C 41 3B 22 B4 20 22 3B 52 24 28 41 29 2C |.1,A;". ";R$(A),|
00000670: 42 24 28 41 29 3A 82 41 3A A0 31 3A 8E 00 BE 0E |B$(A):.A:.1:....|
00000680: 24 00 85 22 56 41 4E 20 48 4F 45 56 45 52 20 57 |$.."VAN HOEVER W|
00000690: 49 4C 20 4A 45 20 42 45 4B 49 4A 4B 45 4E 22 3B |IL JE BEKIJKEN";|
000006A0: 42 3A 8B 42 B3 30 A7 99 22 4B 41 4E 20 4E 49 45 |B:.B.0.."KAN NIE|
000006B0: 54 20 4C 41 47 45 52 20 30 22 3A 89 33 36 00 05 |T LAGER 0":.36..|
000006C0: 0F 25 00 85 22 54 4F 54 20 48 4F 45 56 45 52 20 |.%.."TOT HOEVER |
000006D0: 57 49 4C 20 4A 45 20 42 45 4B 49 4A 4B 45 4E 22 |WIL JE BEKIJKEN"|
000006E0: 3B 43 3A 8B 43 B1 34 30 30 30 A7 99 22 4B 41 4E |;C:.C.4000.."KAN|
000006F0: 20 4E 49 45 54 20 48 4F 47 45 52 20 32 30 30 30 | NIET HOGER 2000|
00000700: 22 3A 89 33 37 00 53 0F 26 00 99 22 93 4D 45 54 |":.37.S.&..".MET|
00000710: 20 2A 20 53 54 4F 50 20 4A 45 20 45 4E 20 4D 45 | * STOP JE EN ME|
00000720: 54 20 5E 20 4B 4F 4D 20 4A 45 20 49 4E 20 48 45 |T ^ KOM JE IN HE|
00000730: 54 3A 20 20 20 48 4F 4F 46 44 20 4D 45 4E 55 22 |T: HOOFD MENU"|
00000740: 3A 81 41 B2 30 A4 39 39 39 3A 82 41 3A 81 41 B2 |:.A.0.999:.A:.A.|
00000750: 42 A4 43 00 7C 0F 27 00 99 52 24 28 41 29 3B 3A |B.C.|.'..R$(A);:|
00000760: 99 42 24 28 41 29 3A A1 41 24 3A 8B 41 24 B2 22 |.B$(A):.A$:.A$."|
00000770: 2A 22 B0 41 24 B2 22 5E 22 A7 34 31 00 83 0F 28 |*".A$."^".41...(|
00000780: 00 82 41 00 95 0F 29 00 8B 41 24 B2 22 5E 22 A7 |..A...)..A$."^".|
00000790: 41 B2 30 3A 8E 00 A7 0F 2A 00 A1 41 24 3A 8B 41 |A.0:....*..A$:.A|
000007A0: 24 B2 22 22 A7 34 32 00 AF 0F 2B 00 89 33 39 00 |$."".42...+..39.|
000007B0: 00 00 |.. |
..~....R$(4001):.B$(4001):A$."
":.53265,1:.A...4000:R$(A).A$:B$(A
).A$:.A:.53265,27:.53280,0:.53281,0:.646
,7:.16......".WAAR WIL JE BEGINNEN";A:."
.".Y...."PLAATSNAAM";R$(A):."NUMMER";B$(
A):.R$(A)."*"..15._...A$."":D.16.C(R$(A)
):.B...D:A$.A$." ":.B:R$(A).R$(A).A$:A$.
"":D.16.C(B$(A)):.B...D:A$.A$." ":.B:B$(
A).B$(A).A$:A.A.1:.".NR";A.1:.3.~....".O
PNAAM(A) OF NUMMER(B)"......A$:.A$.."A".
A$.."B".6......"EEN OGENBLIK A.U.B.":.A$
."A"..10.....A.4000:.I.0.A.1:K.I:X$.R$(I
):A$.B$(I):.J.I.1.A:.R$(J).X$.K.J:X$.R$(
J):A$.B$(J).P....J:R$(K).R$(I):B$(K).B$(
I):R$(I).X$:B$(I).A$:.".";I:.I:......A.4
000:.I.0.A.1:K.I:X$.B$(I):A$.R$(I):.J.I.
1.A:.B$(J).X$.K.J:X$.B$(J):R$.B$(J).....
.J:R$(K).R$(I):B$(K).B$(I):B$(I).X$:R$(I
).A$:.".";I:.I:.......".INSERT DISK AND
PRESS A KEY"......A$:.A$."".13.W...."FIL
E NAME";A$:.1,8,1,A$:.A.0.4000:.1,R$(A):
.1,B$(A):.: 1:......R$(A).R$(4000):B$(A)
.R$(4000):."VOLGENDE KEER MOET JE BEGINN
EN BIJ";A:.A.0.1000:.A:..2....".
.MENU.":."1=LADEN":."2=SAVEN":."3=INV
OEREN":."4=ZOEKEN":."5=SORTEREN":."6=PRI
NTEN":."7=BEKIJKEN":."8=EINDE PRG".L....
A$:.A$."1".A$."8".17.\....A$."1"..27.L..
..A$."2"..12.{....A$."3"..2......A$."4".
.28......A$."5"..5......A$."6"..35......
A$."7"..36.H....A$."8"...P....16.8...."W
ELKE NAAM";A$:.1,8,0,A$:.A.0.4000:.B.1.1
6:.#1,A$:.#1,C$:R$(A).R$(A).A$:B$(A).R$(
A).C$:.B:.A: 1:..~...."WAT ZOEK JE";A$:.
B.0.4000:.A$.R$(B)..B;" ";R$(B);" - ";B$
(B):.B......B.4000........B.0.4000:.A$.B
$(B)..B;" ";B$(B);" - "R$(B):.B.M....B.4
000..... .."..... DRUK OP EEN
TOETS"...!..A$:.A$."".33..."...}.#.."VA
N HOEVER WIL JE PRINTEN";B:."TOT HOEVER
WIL JE PRINTEN";C:.1,4,7:.A.B.C:.1,A;".
";R$(A),B$(A):.A: 1:....$.."VAN HOEVER W
IL JE BEKIJKEN";B:.B.0.."KAN NIET LAGER
0":.36...%.."TOT HOEVER WIL JE BEKIJKEN"
;C:.C.4000.."KAN NIET HOGER 2000":.37.S.
&..".MET * STOP JE EN MET ^ KOM JE IN HE
T: HOOFD MENU":.A.0.999:.A:.A.B.C.|.'.
.R$(A);:.B$(A):.A$:.A$."*".A$."^".41...(
..A...)..A$."^".A.0:....*..A$:.A$."".42.
..+..39...
> CLICK IMAGE PREVIEW FOR FULL MODAL