Q
FILE INFORMATION
FILENAME(S): Q
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-12-02 23:09:50
APPEARS ON: 1 disk(s)
FILE HASH
639f33d5b36b945f4ac269b1c519c7dbdb25c6d65d514a7ed5ee4547310a0070
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MARTIN | Q | PRG | swasti, chrisbitti1 | 2 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 69 00 99 22 20 A0 4D 41 53 54 45 52 |....i.." .MASTER|
00000010: 20 46 49 4C 45 20 43 52 45 41 54 45 22 00 3B 08 | FILE CREATE".;.|
00000020: 6A 00 99 22 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |j.."............|
00000030: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 56 08 6B 00 |..........".V.k.|
00000040: 85 22 52 45 43 4F 52 44 20 4E 4F 2E 20 3D 20 30 |."RECORD NO. = 0|
00000050: 9D 9D 9D 22 3B 46 00 64 08 6D 00 8B 20 46 B2 30 |...";F.d.m.. F.0|
00000060: A7 31 37 30 00 81 08 6E 00 85 22 4E 41 4D 45 20 |.170...n.."NAME |
00000070: 20 20 20 20 3D 2E 9D 9D 9D 22 3B 46 42 24 28 31 | =....";FB$(1|
00000080: 29 00 9E 08 78 00 85 22 41 44 44 52 45 53 53 20 |)...x.."ADDRESS |
00000090: 20 3D 2E 9D 9D 9D 22 3B 46 42 24 28 32 29 00 BB | =....";FB$(2)..|
000000A0: 08 82 00 85 22 5A 49 50 20 20 20 20 20 20 3D 2E |...."ZIP =.|
000000B0: 9D 9D 9D 22 3B 46 42 24 28 33 29 00 D8 08 84 00 |...";FB$(3).....|
000000C0: 85 22 54 45 4C 20 20 20 20 20 20 3D 2E 9D 9D 9D |."TEL =....|
000000D0: 22 3B 46 42 24 28 34 29 00 F5 08 86 00 85 22 43 |";FB$(4)......"C|
000000E0: 4F 4D 4D 45 4E 54 20 20 3D 2E 9D 9D 9D 22 3B 46 |OMMENT =....";F|
000000F0: 42 24 28 35 29 00 FF 08 8C 00 8D 35 32 30 30 00 |B$(5)......5200.|
00000100: 0D 09 96 00 49 24 28 46 29 B2 22 31 22 00 16 09 |....I$(F)."1"...|
00000110: A0 00 89 31 30 34 00 30 09 AA 00 9F 35 2C 38 2C |...104.0....5,8,|
00000120: 35 2C 22 40 30 3A 49 4E 44 45 58 2C 53 2C 57 22 |5,"@0:INDEX,S,W"|
00000130: 00 4D 09 AF 00 81 49 B2 31 A4 36 36 34 3A 98 35 |.M....I.1.664:.5|
00000140: 2C 49 24 28 49 29 3B C7 28 31 33 29 3B 00 7A 09 |,I$(I);.(13);.z.|
00000150: B4 00 99 22 13 11 11 11 11 11 11 11 11 1D 1D 1D |..."............|
00000160: 1D 1D 1D 57 41 49 54 21 20 20 20 20 20 9D 9D 9D |...WAIT! ...|
00000170: 9D 9D 22 49 3B 49 24 28 49 29 00 83 09 B9 00 82 |.."I;I$(I)......|
00000180: 3A A0 35 00 8B 09 BE 00 89 37 34 00 A9 09 C8 00 |:.5......74.....|
00000190: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000001A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C7 09 C9 00 8F 20 |*********...... |
000001B0: 2A 20 20 4D 41 53 54 45 52 20 46 49 4C 45 20 44 |* MASTER FILE D|
000001C0: 45 4C 45 54 45 20 2A 00 E5 09 CA 00 8F 20 2A 2A |ELETE *...... **|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000001E0: 2A 2A 2A 2A 2A 00 06 0A D2 00 99 22 93 11 11 C6 |*****......"....|
000001F0: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
00000200: C6 C6 C6 C6 C6 22 00 22 0A D4 00 99 22 20 20 4D |....."."...." M|
00000210: 41 53 54 45 52 20 46 49 4C 45 20 44 45 4C 45 54 |ASTER FILE DELET|
00000220: 45 22 00 42 0A D6 00 99 22 C4 C4 C4 C4 C4 C4 C4 |E".B....".......|
00000230: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 |..............."|
00000240: 3A 99 00 5D 0A DC 00 85 22 52 45 43 4F 52 44 20 |:..]...."RECORD |
00000250: 4E 4F 2E 20 3D 20 30 9D 9D 9D 22 3B 46 00 6A 0A |NO. = 0...";F.j.|
00000260: E6 00 8B 46 B2 30 A7 32 36 30 00 7E 0A EB 00 8B |...F.0.260.~....|
00000270: 49 24 28 46 29 B3 B1 22 31 22 A7 32 32 30 00 A5 |I$(F).."1".220..|
00000280: 0A F0 00 49 24 28 46 29 B2 22 2F 22 3A 99 22 11 |...I$(F)."/":.".|
00000290: 52 45 43 4F 52 44 20 4E 4F 2E 22 46 3B 22 44 45 |RECORD NO."F;"DE|
000002A0: 4C 45 54 45 22 00 AE 0A FA 00 89 32 32 30 00 C8 |LETE"......220..|
000002B0: 0A 04 01 9F 35 2C 38 2C 35 2C 22 40 30 3A 49 4E |....5,8,5,"@0:IN|
000002C0: 44 45 58 2C 53 2C 57 22 00 E5 0A 09 01 81 49 B2 |DEX,S,W"......I.|
000002D0: 31 A4 36 36 34 3A 98 35 2C 49 24 28 49 29 3B C7 |1.664:.5,I$(I);.|
000002E0: 28 31 33 29 3B 00 10 0B 0E 01 99 22 13 11 11 11 |(13);......"....|
000002F0: 11 11 11 1D 1D 1D 1D 1D 1D 57 41 49 54 21 20 20 |.........WAIT! |
00000300: 20 20 20 9D 9D 9D 9D 9D 22 49 3B 49 24 28 49 29 | ....."I;I$(I)|
00000310: 00 19 0B 13 01 82 3A A0 35 00 21 0B 18 01 89 35 |......:.5.!....5|
00000320: 30 00 3F 0B 2C 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |0.?.,.. ********|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000340: 5D 0B 2D 01 8F 20 2A 20 20 46 49 4C 45 20 53 45 |].-.. * FILE SE|
00000350: 41 52 43 48 20 20 20 20 20 20 20 20 2A 00 7B 0B |ARCH *.{.|
00000360: 2E 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9C 0B 36 01 |***********...6.|
00000380: 99 22 93 11 11 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |."..............|
00000390: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 22 00 B8 0B 38 |..........."...8|
000003A0: 01 99 22 20 20 20 20 20 20 20 53 45 41 52 43 48 |.." SEARCH|
000003B0: 20 20 20 20 20 20 20 22 00 D8 0B 3A 01 99 22 C4 | "...:..".|
000003C0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000003D0: C4 C4 C4 C4 C4 22 3A 99 00 F3 0B 40 01 85 22 52 |.....":....@.."R|
000003E0: 45 43 4F 52 44 20 4E 4F 2E 20 3D 20 30 9D 9D 9D |ECORD NO. = 0...|
000003F0: 22 3B 46 00 FF 0B 41 01 8B 46 B2 30 A7 35 30 00 |";F...A..F.0.50.|
00000400: 13 0C 42 01 8B 49 24 28 46 29 B3 B1 22 31 22 A7 |..B..I$(F).."1".|
00000410: 33 32 30 00 1D 0C 45 01 8D 35 31 30 30 00 37 0C |320...E..5100.7.|
00000420: 68 01 99 22 4E 41 4D 45 20 20 A0 A0 20 3D 20 22 |h.."NAME .. = "|
00000430: 3B 46 42 24 28 31 29 00 51 0C 72 01 99 22 41 44 |;FB$(1).Q.r.."AD|
00000440: 44 52 45 53 53 20 20 3D 20 22 3B 46 42 24 28 32 |DRESS = ";FB$(2|
00000450: 29 00 6B 0C 7C 01 99 22 5A 49 50 20 20 20 A0 A0 |).k.|.."ZIP ..|
00000460: 20 3D 20 22 3B 46 42 24 28 33 29 00 85 0C 7E 01 | = ";FB$(3)...~.|
00000470: 99 22 54 45 4C 20 20 20 A0 A0 20 3D 20 22 3B 46 |."TEL .. = ";F|
00000480: 42 24 28 34 29 00 9F 0C 7F 01 99 22 43 4F 4D 4D |B$(4)......"COMM|
00000490: 45 4E 54 A0 20 3D 20 22 3B 46 42 24 28 35 29 00 |ENT. = ";FB$(5).|
000004A0: BC 0C 81 01 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |....."----------|
000004B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 C5 0C 86 |-----------"....|
000004C0: 01 89 33 32 30 00 E3 0C EC 13 8F 20 2A 2A 2A 2A |..320...... ****|
000004D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004E0: 2A 2A 2A 00 01 0D F1 13 8F 20 2A 20 46 44 44 20 |***...... * FDD |
000004F0: 42 4C 4F 43 4B 20 52 45 41 44 20 20 20 20 20 20 |BLOCK READ |
00000500: 2A 00 1F 0D F4 13 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
00000510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000520: 29 0D F6 13 8D 35 33 33 30 00 43 0D 00 14 98 31 |)....5330.C....1|
00000530: 35 2C 22 55 31 3A 22 3B 43 48 3B 46 44 3B 46 54 |5,"U1:";CH;FD;FT|
00000540: 3B 46 53 00 58 0D 0A 14 98 31 35 2C 22 42 2D 50 |;FS.X....15,"B-P|
00000550: 3A 22 3B 43 48 3B 46 50 00 62 0D 14 14 8D 35 32 |:";CH;FP.b....52|
00000560: 37 30 00 6F 0D 1E 14 81 46 49 B2 31 A4 46 58 00 |70.o....FI.1.FX.|
00000570: 80 0D 28 14 84 43 48 2C 46 42 24 28 46 49 29 3A |..(..CH,FB$(FI):|
00000580: 00 86 0D 3C 14 82 00 8C 0D 46 14 8E 00 AA 0D 50 |...<.....F.....P|
00000590: 14 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000005A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C8 0D 51 14 8F |**********...Q..|
000005B0: 20 2A 20 46 44 44 20 42 4C 4F 43 4B 20 57 52 49 | * FDD BLOCK WRI|
000005C0: 54 45 20 20 20 20 20 2A 00 E6 0D 52 14 8F 20 2A |TE *...R.. *|
000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005E0: 2A 2A 2A 2A 2A 2A 00 F0 0D 5A 14 8D 35 33 33 30 |******...Z..5330|
000005F0: 00 05 0E 64 14 98 31 35 2C 22 42 2D 50 3A 22 3B |...d..15,"B-P:";|
00000600: 43 48 3B 46 50 00 27 0E 6E 14 81 46 49 B2 31 A4 |CH;FP.'.n..FI.1.|
00000610: 46 58 3A 98 43 48 2C 46 42 24 28 46 49 29 3B C7 |FX:.CH,FB$(FI);.|
00000620: 28 31 33 29 3B 3A 82 00 41 0E 78 14 98 31 35 2C |(13);:..A.x..15,|
00000630: 22 55 32 3A 22 3B 43 48 3B 46 44 3B 46 54 3B 46 |"U2:";CH;FD;FT;F|
00000640: 53 00 4B 0E 82 14 8D 35 32 37 30 00 51 0E 8C 14 |S.K....5270.Q...|
00000650: 8E 00 6F 0E 96 14 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..o.... ********|
00000660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000670: 8D 0E 9B 14 8F 20 2A 20 20 45 52 52 4F 52 20 43 |..... * ERROR C|
00000680: 48 45 43 4B 20 20 20 20 20 20 20 20 2A 00 AB 0E |HECK *...|
00000690: 9E 14 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C0 0E A0 14 |***********.....|
000006B0: 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 |.15,EN,EM$,ET,ES|
000006C0: 00 CC 0E AA 14 8B 45 4E B2 30 A7 8E 00 EE 0E B4 |......EN.0......|
000006D0: 14 99 22 45 52 52 4F 52 20 53 54 41 54 55 53 3A |.."ERROR STATUS:|
000006E0: 22 3B 45 4E 3B 45 4D 24 3B 45 54 3B 45 53 00 0C |";EN;EM$;ET;ES..|
000006F0: 0F BE 14 85 22 43 4F 4E 54 49 4E 55 45 3F 22 3B |...."CONTINUE?";|
00000700: 59 24 3A 8B 59 24 B2 22 59 22 A7 8E 00 12 0F C8 |Y$:.Y$."Y"......|
00000710: 14 90 00 30 0F CA 14 8F 20 2A 2A 2A 2A 2A 2A 2A |...0.... *******|
00000720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000730: 00 4E 0F CC 14 8F 20 2A 20 53 45 54 20 54 52 41 |.N.... * SET TRA|
00000740: 43 4B 20 26 20 53 45 43 54 4F 52 20 20 2A 00 6C |CK & SECTOR *.l|
00000750: 0F CE 14 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.... ***********|
00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8D 0F D2 |************....|
00000770: 14 8B 46 B3 33 35 38 A7 46 31 B2 30 3A 46 32 B2 |..F.358.F1.0:F2.|
00000780: 32 32 3A 46 33 B2 31 3A 89 35 33 37 30 00 B7 0F |22:F3.1:.5370...|
00000790: DC 14 8B 46 B1 33 35 37 AF 46 B3 34 37 32 A7 46 |...F.357.F.472.F|
000007A0: 31 B2 33 35 37 3A 46 32 B2 32 30 3A 46 33 B2 31 |1.357:F2.20:F3.1|
000007B0: 39 3A 89 35 33 37 30 00 E1 0F E6 14 8B 46 B1 34 |9:.5370......F.4|
000007C0: 37 31 AF 46 B3 35 38 30 A7 46 31 B2 34 37 31 3A |71.F.580.F1.471:|
000007D0: 46 32 B2 31 39 3A 46 33 B2 32 35 3A 89 35 33 37 |F2.19:F3.25:.537|
000007E0: 30 00 FF 0F F0 14 8B 46 B1 35 37 39 A7 46 31 B2 |0......F.579.F1.|
000007F0: 35 37 39 3A 46 32 B2 31 38 3A 46 33 B2 33 31 00 |579:F2.18:F3.31.|
00000800: 1E 10 FA 14 46 54 B2 B5 28 28 28 46 AB 46 31 29 |....FT..(((F.F1)|
00000810: AB 31 29 AD 28 46 32 AB 31 29 29 AA 46 33 00 3F |.1).(F2.1)).F3.?|
00000820: 10 04 15 46 53 B2 46 AB 46 31 AB 28 46 54 AB 46 |...FS.F.F1.(FT.F|
00000830: 33 29 AC 46 32 AA 28 46 54 AB 46 33 AB 31 29 00 |3).F2.(FT.F3.1).|
00000840: 45 10 0E 15 8E 00 00 00 |E....... |
....I.." MASTER FILE CREATE".;.J.."DDDD
DDDDDDDDDDDDDDDDDD".V.K.."RECORD NO. = 0
...";F.D.M.. F.0.170...N.."NAME =...
.";FB$(1)...X.."ADDRESS =....";FB$(2)..
...."ZIP =....";FB$(3).X...."TEL
=....";FB$(4)......"COMMENT =....";F
B$(5)......5200.....I$(F)."1"... ..104.0
....5,8,5,"@0:INDEX,S,W".M....I.1.664:.5
,I$(I);G(13);.Z...."...............WAIT!
....."I;I$(I)......: 5......74...H.
. ***********************.G.I.. * MASTE
R FILE DELETE *...J.. ******************
*****...R.."...FFFFFFFFFFFFFFFFFFFFFF"."
.T.." MASTER FILE DELETE".B.V.."DDDDDDD
DDDDDDDDDDDDDDD":..]...."RECORD NO. = 0.
..";F.J....F.0.260.~....I$(F).."1".220..
...I$(F)."/":.".RECORD NO."F;"DELETE"...
...220.H....5,8,5,"@0:INDEX,S,W"......I.
1.664:.5,I$(I);G(13);......"............
.WAIT! ....."I;I$(I)......: 5.!....5
0.?.,.. ***********************.].-.. *
FILE SEARCH *.{.... ************
***********...6.."...FFFFFFFFFFFFFFFFFFF
FFF"...8.." SEARCH ".X.:.."D
DDDDDDDDDDDDDDDDDDDDD":....@.."RECORD NO
. = 0...";F...A..F.0.50...B..I$(F).."1".
320...E..5100.7.H.."NAME = ";FB$(1).
Q.R.."ADDRESS = ";FB$(2).K.|.."ZIP
= ";FB$(3)...~.."TEL = ";FB$(4)...
.."COMMENT = ";FB$(5)......"----------
-----------".E....320...... ************
***********...... * FDD BLOCK READ
*...... ***********************.)....533
0.C....15,"U1:";CH;FD;FT;FS.X....15,"B-P
:";CH;FP.B....5270.O....FI.1.FX...(..CH,
FB$(FI):...<.....F.....P.. *************
**********.H.Q.. * FDD BLOCK WRITE *
...R.. ***********************...Z..5330
...D..15,"B-P:";CH;FP.'.N..FI.1.FX:.CH,F
B$(FI);G(13);:..A.X..15,"U2:";CH;FD;FT;F
S.K....5270.Q.....O.... ****************
*******...... * ERROR CHECK *...
... ***********************... ..15,EN,E
M$,ET,ES.L....EN.0........"ERROR STATUS:
";EN;EM$;ET;ES......"CONTINUE?";Y$:.Y$."
Y".....H...0.J.. ***********************
.N.L.. * SET TRACK & SECTOR *.L.N.. ***
********************...R..F.358.F1.0:F2.
22:F3.1:.5370......F.357.F.472.F1.357:F2
.20:F3.19:.5370......F.471.F.580.F1.471:
F2.19:F3.25:.5370......F.579.F1.579:F2.1
8:F3.31.....FT..(((F.F1).1).(F2.1)).F3.?
...FS.F.F1.(FT.F3).F2.(FT.F3.1).E.......
> CLICK IMAGE PREVIEW FOR FULL MODAL