CREATE
FILE INFORMATION
FILENAME(S): CREATE
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:09:36
APPEARS ON: 1 disk(s)
FILE HASH
adac6c2b52e38aa659c759a3df4f092e1befc50a2075f74687639f39da1cf565
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| A3-0794-3DINTTEN | CREATE | PRG | DuncanTwain | 11 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 02 00 86 5A 31 24 28 33 30 29 2C 5A |.......Z1$(30),Z|
00000010: 32 24 28 33 30 29 2C 5A 33 24 28 33 30 29 00 2B |2$(30),Z3$(30).+|
00000020: 08 03 00 86 20 52 24 28 38 36 29 00 69 08 05 00 |.... R$(86).i...|
00000030: 99 22 93 22 3A 99 22 9E 22 3A 99 3A 99 3A 99 22 |.".":.".":.:.:."|
00000040: 49 4E 53 45 52 54 20 53 54 41 54 53 20 44 49 53 |INSERT STATS DIS|
00000050: 4B 22 3A 99 22 41 4E 59 20 4B 45 59 20 54 4F 20 |K":."ANY KEY TO |
00000060: 43 4F 4E 54 49 4E 55 45 22 00 7A 08 06 00 A1 55 |CONTINUE".z....U|
00000070: 24 3A 8B 55 24 B2 22 22 A7 36 00 AF 08 0A 00 81 |$:.U$."".6......|
00000080: 58 B2 31 A4 33 30 3A 5A 31 24 28 58 29 B2 22 58 |X.1.30:Z1$(X)."X|
00000090: 58 58 22 3A 5A 32 24 28 58 29 B2 22 58 58 58 22 |XX":Z2$(X)."XXX"|
000000A0: 3A 5A 33 24 28 58 29 B2 22 58 58 58 22 3A 82 00 |:Z3$(X)."XXX":..|
000000B0: D1 08 14 00 99 22 93 49 4E 50 55 54 20 52 41 4E |.....".INPUT RAN|
000000C0: 4B 49 4E 47 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |KING INFORMATION|
000000D0: 22 00 01 09 15 00 99 3A 99 3A 99 3A 99 22 4E 41 |"......:.:.:."NA|
000000E0: 4D 45 20 46 4F 52 20 52 41 4E 4B 49 4E 47 22 3A |ME FOR RANKING":|
000000F0: 85 4C 47 24 3A 4C 47 24 B2 C8 28 4C 47 24 2C 38 |.LG$:LG$..(LG$,8|
00000100: 29 00 4A 09 16 00 99 22 54 48 49 53 20 50 52 4F |).J...."THIS PRO|
00000110: 47 52 41 4D 20 43 41 4E 20 48 41 4E 44 4C 45 20 |GRAM CAN HANDLE |
00000120: 55 50 20 54 4F 22 3A 99 22 33 30 20 43 4F 4E 54 |UP TO":."30 CONT|
00000130: 45 4E 44 45 52 53 2E 2E 2E 41 4E 59 20 4B 45 59 |ENDERS...ANY KEY|
00000140: 20 54 4F 20 42 45 47 49 4E 22 00 5C 09 20 00 A1 | TO BEGIN".\. ..|
00000150: 55 24 3A 8B 55 24 B2 22 22 A7 33 32 00 77 09 28 |U$:.U$."".32.w.(|
00000160: 00 99 22 93 22 3A 99 22 46 49 52 53 54 20 44 49 |..".":."FIRST DI|
00000170: 56 49 53 49 4F 4E 22 00 9E 09 34 00 81 49 B2 31 |VISION"...4..I.1|
00000180: A4 31 35 3A 99 49 3B 22 20 22 3B 5A 31 24 28 49 |.15:.I;" ";Z1$(I|
00000190: 29 3B 22 20 22 3B 5A 32 24 28 49 29 3A 82 00 D6 |);" ";Z2$(I):...|
000001A0: 09 36 00 8D 34 30 39 38 3A 99 22 31 2D 41 44 44 |.6..4098:."1-ADD|
000001B0: 20 46 49 47 48 54 45 52 22 3A 99 22 32 2D 4D 4F | FIGHTER":."2-MO|
000001C0: 56 45 20 54 4F 20 53 45 43 4F 4E 44 20 44 49 56 |VE TO SECOND DIV|
000001D0: 49 53 49 4F 4E 22 00 E8 09 37 00 A1 49 24 3A 8B |ISION"...7..I$:.|
000001E0: 49 24 B2 22 22 A7 35 35 00 F8 09 38 00 8B 49 24 |I$."".55...8..I$|
000001F0: B2 22 32 22 A7 31 31 35 00 0F 0A 3C 00 99 22 53 |."2".115...<.."S|
00000200: 4C 4F 54 20 23 20 28 31 2D 31 35 29 20 22 3B 00 |LOT # (1-15) ";.|
00000210: 1A 0A 3D 00 4E B2 31 3A 85 42 00 2B 0A 3E 00 8B |..=.N.1:.B.+.>..|
00000220: 42 B3 31 B0 42 B1 31 35 A7 36 30 00 58 0A 64 00 |B.1.B.15.60.X.d.|
00000230: 99 22 93 49 4E 50 55 54 20 42 4F 58 45 52 20 49 |.".INPUT BOXER I|
00000240: 44 20 46 52 4F 4D 20 46 49 47 48 54 45 52 20 4C |D FROM FIGHTER L|
00000250: 49 53 54 22 3A 99 3A 99 00 61 0A 65 00 85 20 54 |IST":.:..a.e.. T|
00000260: 31 00 9E 0A 68 00 99 22 93 49 4E 53 45 52 54 20 |1...h..".INSERT |
00000270: 41 50 50 52 4F 50 52 49 41 54 45 20 42 4F 58 45 |APPROPRIATE BOXE|
00000280: 52 20 44 49 53 4B 22 3A 99 22 41 4E 59 20 4B 45 |R DISK":."ANY KE|
00000290: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 B1 |Y TO CONTINUE"..|
000002A0: 0A 69 00 A1 49 24 3A 8B 49 24 B2 22 22 A7 31 30 |.i..I$:.I$."".10|
000002B0: 35 00 BB 0A 6E 00 8D 39 30 30 30 00 E0 0A 71 00 |5...n..9000...q.|
000002C0: 5A 31 24 28 42 29 B2 57 4E 24 3A 5A 32 24 28 42 |Z1$(B).WN$:Z2$(B|
000002D0: 29 B2 4E 4D 24 3A 5A 33 24 28 42 29 B2 44 56 24 |).NM$:Z3$(B).DV$|
000002E0: 00 E8 0A 72 00 89 34 30 00 04 0B 73 00 99 22 93 |...r..40...s..".|
000002F0: 22 3A 99 22 53 45 43 4F 4E 44 20 44 49 56 49 53 |":."SECOND DIVIS|
00000300: 49 4F 4E 22 00 31 0B 74 00 81 49 B2 31 A4 31 35 |ION".1.t..I.1.15|
00000310: 3A 99 49 3B 22 20 22 3B 5A 31 24 28 49 AA 31 35 |:.I;" ";Z1$(I.15|
00000320: 29 3B 22 20 22 3B 5A 32 24 28 49 AA 31 35 29 3A |);" ";Z2$(I.15):|
00000330: 82 00 5E 0B 75 00 8D 34 30 39 38 3A 99 22 31 2D |..^.u..4098:."1-|
00000340: 41 44 44 20 46 49 47 48 54 45 52 22 3A 99 22 32 |ADD FIGHTER":."2|
00000350: 2D 45 4E 44 20 41 4E 44 20 53 41 56 45 22 00 71 |-END AND SAVE".q|
00000360: 0B 76 00 A1 49 24 3A 8B 49 24 B2 22 22 A7 31 31 |.v..I$:.I$."".11|
00000370: 38 00 81 0B 77 00 8B 49 24 B2 22 32 22 A7 32 33 |8...w..I$."2".23|
00000380: 35 00 98 0B 78 00 99 22 53 4C 4F 54 20 23 20 28 |5...x.."SLOT # (|
00000390: 31 2D 31 35 29 20 22 3B 00 A3 0B 79 00 4E B2 31 |1-15) ";...y.N.1|
000003A0: 3A 85 42 00 B5 0B 7A 00 8B 42 B3 31 B0 42 B1 31 |:.B...z..B.1.B.1|
000003B0: 35 A7 31 32 31 00 E2 0B 7B 00 99 22 93 49 4E 50 |5.121...{..".INP|
000003C0: 55 54 20 42 4F 58 45 52 20 49 44 20 46 52 4F 4D |UT BOXER ID FROM|
000003D0: 20 46 49 47 48 54 45 52 20 4C 49 53 54 22 3A 99 | FIGHTER LIST":.|
000003E0: 3A 99 00 EB 0B 7C 00 85 20 54 31 00 28 0C 7F 00 |:....|.. T1.(...|
000003F0: 99 22 93 49 4E 53 45 52 54 20 41 50 50 52 4F 50 |.".INSERT APPROP|
00000400: 52 49 41 54 45 20 42 4F 58 45 52 20 44 49 53 4B |RIATE BOXER DISK|
00000410: 22 3A 99 22 41 4E 59 20 4B 45 59 20 54 4F 20 43 |":."ANY KEY TO C|
00000420: 4F 4E 54 49 4E 55 45 22 00 3B 0C 81 00 A1 49 24 |ONTINUE".;....I$|
00000430: 3A 8B 49 24 B2 22 22 A7 31 32 39 00 45 0C 82 00 |:.I$."".129.E...|
00000440: 8D 39 30 30 30 00 73 0C 85 00 5A 31 24 28 42 AA |.9000.s...Z1$(B.|
00000450: 31 35 29 B2 57 4E 24 3A 5A 32 24 28 42 AA 31 35 |15).WN$:Z2$(B.15|
00000460: 29 B2 4E 4D 24 3A 5A 33 24 28 42 AA 31 35 29 B2 |).NM$:Z3$(B.15).|
00000470: 44 56 24 00 7C 0C 86 00 89 31 31 35 00 A6 0C EB |DV$.|....115....|
00000480: 00 99 22 93 49 4E 53 45 52 54 20 53 54 41 54 53 |..".INSERT STATS|
00000490: 20 44 49 53 4B 20 41 4E 44 20 48 49 54 20 41 4E | DISK AND HIT AN|
000004A0: 59 20 4B 45 59 22 00 B9 0C EC 00 A1 49 24 3A 8B |Y KEY"......I$:.|
000004B0: 49 24 B2 22 22 A7 32 33 36 00 C5 0C ED 00 81 58 |I$."".236......X|
000004C0: B2 31 A4 33 30 00 E4 0C EE 00 8B 5A 31 24 28 58 |.1.30......Z1$(X|
000004D0: 29 B2 22 58 58 58 22 A7 5A 31 24 28 58 29 B2 C7 |)."XXX".Z1$(X)..|
000004E0: 28 34 32 29 00 EA 0C F5 00 82 00 FC 0C FA 00 51 |(42)...........Q|
000004F0: 24 B2 4C 47 24 AA 22 2E 54 4D 53 22 00 17 0D FF |$.LG$.".TMS"....|
00000500: 00 9F 32 2C 38 2C 32 2C 22 40 30 3A 22 AA 51 24 |..2,8,2,"@0:".Q$|
00000510: AA 22 2C 53 2C 57 22 00 22 0D 04 01 98 32 2C 4C |.",S,W"."....2,L|
00000520: 47 24 00 48 0D 0E 01 81 58 B2 31 A4 33 30 3A 98 |G$.H....X.1.30:.|
00000530: 32 2C 5A 31 24 28 58 29 2C 5A 32 24 28 58 29 2C |2,Z1$(X),Z2$(X),|
00000540: 5A 33 24 28 58 29 3A 82 00 50 0D 18 01 A0 20 32 |Z3$(X):..P.... 2|
00000550: 00 9C 0D 2C 01 99 22 93 52 45 4D 4F 56 45 20 53 |...,..".REMOVE S|
00000560: 54 41 54 53 20 44 49 53 4B 20 41 4E 44 20 49 4E |TATS DISK AND IN|
00000570: 53 45 52 54 22 3A 99 22 50 52 4F 47 52 41 4D 20 |SERT":."PROGRAM |
00000580: 44 49 53 4B 22 3A 99 22 41 4E 59 20 4B 45 59 20 |DISK":."ANY KEY |
00000590: 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 AF 0D 2F |TO CONTINUE".../|
000005A0: 01 A1 49 24 3A 8B 49 24 B2 22 22 A7 33 30 33 00 |..I$:.I$."".303.|
000005B0: C1 0D 31 01 93 22 43 4F 4D 50 42 4F 4F 54 22 2C |..1.."COMPBOOT",|
000005C0: 38 00 C7 0D 32 01 80 00 CD 0D 02 10 8E 00 D6 0D |8...2...........|
000005D0: 28 23 99 22 93 22 00 F5 0D 32 23 41 25 B2 B5 28 |(#."."...2#A%..(|
000005E0: 28 54 31 AB 31 29 AD 33 29 AC 33 AA 31 3A 59 B2 |(T1.1).3).3.1:Y.|
000005F0: 54 31 AB 41 25 00 16 0E 33 23 48 24 B2 22 42 4F |T1.A%...3#H$."BO|
00000600: 58 22 AA C9 28 C4 28 41 25 29 2C C3 28 C4 28 41 |X"..(.(A%),.(.(A|
00000610: 25 29 29 AB 31 29 00 42 0E 35 23 9F 32 2C 38 2C |%)).1).B.5#.2,8,|
00000620: 32 2C 22 42 4F 58 22 AA C9 28 C4 28 41 25 29 2C |2,"BOX"..(.(A%),|
00000630: C3 28 C4 28 41 25 29 29 AB 31 29 AA 22 2C 53 2C |.(.(A%)).1).",S,|
00000640: 52 22 00 50 0E 3C 23 8B 59 B2 31 A7 39 30 36 30 |R".P.<#.Y.1.9060|
00000650: 00 5E 0E 46 23 8B 59 B2 32 A7 39 30 38 30 00 8A |.^.F#.Y.2.9080..|
00000660: 0E 50 23 84 32 2C 4E 4D 24 3A 84 32 2C 57 4E 24 |.P#.2,NM$:.2,WN$|
00000670: 3A 84 32 2C 53 24 3A 84 32 2C 42 52 3A 84 32 2C |:.2,S$:.2,BR:.2,|
00000680: 46 50 24 3A 84 32 2C 44 56 24 00 98 0E 5A 23 A0 |FP$:.2,DV$...Z#.|
00000690: 20 32 3A 89 39 31 30 30 00 AF 0E 64 23 81 49 B2 | 2:.9100...d#.I.|
000006A0: 31 A4 34 33 3A 84 32 2C 52 24 28 49 29 3A 82 00 |1.43:.2,R$(I):..|
000006B0: DB 0E 65 23 84 32 2C 4E 4D 24 3A 84 32 2C 57 4E |..e#.2,NM$:.2,WN|
000006C0: 24 3A 84 32 2C 53 24 3A 84 32 2C 42 52 3A 84 32 |$:.2,S$:.2,BR:.2|
000006D0: 2C 46 50 24 3A 84 32 2C 44 56 24 00 E9 0E 6E 23 |,FP$:.2,DV$...n#|
000006E0: A0 20 32 3A 89 39 31 30 30 00 00 0F 78 23 81 49 |. 2:.9100...x#.I|
000006F0: B2 31 A4 38 36 3A 84 32 2C 52 24 28 49 29 3A 82 |.1.86:.2,R$(I):.|
00000700: 00 2C 0F 79 23 84 32 2C 4E 4D 24 3A 84 32 2C 57 |.,.y#.2,NM$:.2,W|
00000710: 4E 24 3A 84 32 2C 53 24 3A 84 32 2C 42 52 3A 84 |N$:.2,S$:.2,BR:.|
00000720: 32 2C 46 50 24 3A 84 32 2C 44 56 24 00 3A 0F 82 |2,FP$:.2,DV$.:..|
00000730: 23 A0 20 32 3A 89 39 31 30 30 00 6A 0F 8C 23 99 |#. 2:.9100.j..#.|
00000740: 3A 99 57 4E 24 22 20 22 4E 4D 24 22 2D 22 44 56 |:.WN$" "NM$"-"DV|
00000750: 24 3A 99 3A 99 22 41 4E 59 20 4B 45 59 20 54 4F |$:.:."ANY KEY TO|
00000760: 20 43 4F 4E 54 49 4E 55 45 22 00 7E 0F 96 23 A1 | CONTINUE".~..#.|
00000770: 49 24 3A 8B 49 24 B2 22 22 A7 39 31 31 30 00 84 |I$:.I$."".9110..|
00000780: 0F A0 23 8E 00 00 00 |..#.... |
.......Z1$(30),Z2$(30),Z3$(30).+.... R$(
86).I....".":.".":.:.:."INSERT STATS DIS
K":."ANY KEY TO CONTINUE".Z....U$:.U$.""
.6......X.1.30:Z1$(X)."XXX":Z2$(X)."XXX"
:Z3$(X)."XXX":..Q....".INPUT RANKING INF
ORMATION"......:.:.:."NAME FOR RANKING":
.LG$:LG$.H(LG$,8).J...."THIS PROGRAM CAN
HANDLE UP TO":."30 CONTENDERS...ANY KEY
TO BEGIN".\. ..U$:.U$."".32.W.(..".":."
FIRST DIVISION"...4..I.1.15:.I;" ";Z1$(I
);" ";Z2$(I):..V.6..4098:."1-ADD FIGHTER
":."2-MOVE TO SECOND DIVISION"...7..I$:.
I$."".55...8..I$."2".115...<.."SLOT # (1
-15) ";...=.N.1:.B.+.>..B.1.B.15.60.X.D.
.".INPUT BOXER ID FROM FIGHTER LIST":.:.
.A.E.. T1...H..".INSERT APPROPRIATE BOXE
R DISK":."ANY KEY TO CONTINUE"...I..I$:.
I$."".105...N..9000...Q.Z1$(B).WN$:Z2$(B
).NM$:Z3$(B).DV$...R..40...S..".":."SECO
ND DIVISION".1.T..I.1.15:.I;" ";Z1$(I.15
);" ";Z2$(I.15):..^.U..4098:."1-ADD FIGH
TER":."2-END AND SAVE".Q.V..I$:.I$."".11
8...W..I$."2".235...X.."SLOT # (1-15) ";
...Y.N.1:.B...Z..B.1.B.15.121...{..".INP
UT BOXER ID FROM FIGHTER LIST":.:....|..
T1.(...".INSERT APPROPRIATE BOXER DISK
":."ANY KEY TO CONTINUE".;....I$:.I$."".
129.E....9000.S...Z1$(B.15).WN$:Z2$(B.15
).NM$:Z3$(B.15).DV$.|....115......".INSE
RT STATS DISK AND HIT ANY KEY"......I$:.
I$."".236.E....X.1.30......Z1$(X)."XXX".
Z1$(X).G(42)...........Q$.LG$.".TMS"....
..2,8,2,"@0:".Q$.",S,W"."....2,LG$.H....
X.1.30:.2,Z1$(X),Z2$(X),Z3$(X):..P... 2
...,..".REMOVE STATS DISK AND INSERT":."
PROGRAM DISK":."ANY KEY TO CONTINUE".../
..I$:.I$."".303.A.1.."COMPBOOT",8.G.2...
M.....V.(#."."...2#A%..((T1.1).3).3.1:Y.
T1.A%...3#H$."BOX".I(D(A%),C(D(A%)).1).B
.5#.2,8,2,"BOX".I(D(A%),C(D(A%)).1).",S,
R".P.<#.Y.1.9060.^.F#.Y.2.9080...P#.2,NM
$:.2,WN$:.2,S$:.2,BR:.2,FP$:.2,DV$...Z#
2:.9100...D#.I.1.43:.2,R$(I):....E#.2,N
M$:.2,WN$:.2,S$:.2,BR:.2,FP$:.2,DV$...N#
2:.9100...X#.I.1.86:.2,R$(I):..,.Y#.2,
NM$:.2,WN$:.2,S$:.2,BR:.2,FP$:.2,DV$.:..
# 2:.9100.J..#.:.WN$" "NM$"-"DV$:.:."AN
Y KEY TO CONTINUE".~..#.I$:.I$."".9110..
. #....
> CLICK IMAGE PREVIEW FOR FULL MODAL