TRON.DIA

FILE INFORMATION

FILENAME(S): TRON.DIA

FILE TYPE(S): PRG

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-30 16:59:31

APPEARS ON: 1 disk(s)

FILE HASH

862af04f2c9afcfbf8777f5e8b977b414cdfd9219d36f26d74e8fadd05a9d716

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
DIABOLO	TRON.DIA	PRG	High Voltage Complete C64 Collection, Sailor, Pbv	12	5	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 3C 08 0A 00 9F 20  22 47 52 41 50 48 49 43  |..<.... "GRAPHIC|
00000010: 53 2E 48 22 20 81 20 47  52 41 46 30 2C 47 52 41  |S.H" . GRAF0,GRA|
00000020: 46 31 2C 53 45 54 50 49  58 45 4C 2C 47 54 50 49  |F1,SETPIXEL,GTPI|
00000030: 58 45 4C 2C 4C 49 4E 45  2C 43 4C 53 00 5D 08 14  |XEL,LINE,CLS.]..|
00000040: 00 9F 20 22 53 59 53 54  45 4D 2E 48 22 20 81 20  |.. "SYSTEM.H" . |
00000050: 54 41 53 54 45 2C 45 49  4E 47 41 42 45 00 73 08  |TASTE,EINGABE.s.|
00000060: 1E 00 9F 20 22 4D 41 54  48 53 2E 48 22 20 81 20  |... "MATHS.H" . |
00000070: 4D 4F 44 00 7F 08 32 00  86 58 31 5B 34 30 5D 00  |MOD...2..X1[40].|
00000080: 8B 08 3C 00 86 59 31 5B  34 30 5D 00 97 08 46 00  |..<..Y1[40]...F.|
00000090: 86 44 31 5B 34 30 5D 00  AB 08 F4 01 96 20 43 41  |.D1[40]...... CA|
000000A0: 4C 43 28 58 2C 59 2C 44  49 52 29 00 C9 08 FE 01  |LC(X,Y,DIR).....|
000000B0: 8B 44 49 52 B3 32 A7 58  B2 58 AA 31 AB 44 49 52  |.DIR.2.X.X.1.DIR|
000000C0: AB 44 49 52 3A 89 35 33  30 00 DB 08 08 02 59 B2  |.DIR:.530.....Y.|
000000D0: 59 AA 35 AB 44 49 52 AB  44 49 52 00 EF 08 12 02  |Y.5.DIR.DIR.....|
000000E0: 8E 28 47 54 50 49 58 45  4C 28 58 2C 59 29 29 00  |.(GTPIXEL(X,Y)).|
000000F0: FA 08 E8 03 4D 41 49 4E  28 29 00 2C 09 E9 03 99  |....MAIN().,....|
00000100: 22 93 22 3A 97 35 33 32  38 30 2C 30 3A 97 35 33  |".":.53280,0:.53|
00000110: 32 38 31 2C 30 3A 57 49  4E 53 B2 30 3A 4C 4F 53  |281,0:WINS.0:LOS|
00000120: 53 45 53 B2 30 3A 53 43  52 45 B2 30 00 44 09 ED  |SES.0:SCRE.0.D..|
00000130: 03 81 49 B2 30 A4 31 30  30 30 30 3A 82 3A 97 31  |..I.0.10000:.:.1|
00000140: 39 38 2C 30 00 74 09 EE  03 99 22 57 49 4E 53 22  |98,0.t...."WINS"|
00000150: 3B 57 49 4E 53 3A 99 22  4C 4F 53 53 45 53 22 3B  |;WINS:."LOSSES";|
00000160: 4C 4F 53 53 45 53 3A 99  22 53 43 4F 52 45 22 3B  |LOSSES:."SCORE";|
00000170: 53 43 52 45 00 BD 09 EF  03 99 22 13 11 11 11 11  |SCRE......".....|
00000180: 45 4E 54 45 52 20 4E 55  4D 42 45 52 20 4F 46 20  |ENTER NUMBER OF |
00000190: 4F 50 50 4F 4E 45 4E 54  53 28 31 2E 2E 31 39 29  |OPPONENTS(1..19)|
000001A0: 3A 22 3B 3A 52 B2 4D 4F  44 28 45 49 4E 47 41 42  |:";:R.MOD(EINGAB|
000001B0: 45 28 29 2C 32 30 29 3A  4E B2 52 AB 31 00 D4 09  |E(),20):N.R.1...|
000001C0: F2 03 58 30 B2 31 30 30  3A 59 30 B2 31 30 30 3A  |..X0.100:Y0.100:|
000001D0: 44 30 B2 31 00 05 0A F4  03 81 54 B2 30 A4 4E 3A  |D0.1......T.0.N:|
000001E0: 58 31 5B 54 5D B2 33 30  AA C2 28 35 33 32 36 36  |X1[T].30..(53266|
000001F0: 29 3A 59 31 5B 54 5D B2  34 30 AA C2 28 35 33 32  |):Y1[T].40..(532|
00000200: 36 36 29 AD 32 00 1C 0A  F6 03 44 31 5B 54 5D B2  |66).2.....D1[T].|
00000210: C2 28 35 33 32 36 36 29  AF 33 3A 82 00 53 0A FC  |.(53266).3:..S..|
00000220: 03 99 22 13 11 11 11 11  11 11 45 4E 54 45 52 20  |..".......ENTER |
00000230: 44 45 4C 41 59 28 30 2E  2E 35 29 3A 22 3B 3A 44  |DELAY(0..5):";:D|
00000240: B2 4D 4F 44 28 45 49 4E  47 41 42 45 28 29 2C 36  |.MOD(EINGABE(),6|
00000250: 29 AA 32 00 5F 0A 06 04  47 52 41 46 31 28 29 00  |).2._...GRAF1().|
00000260: 6C 0A 10 04 43 4C 53 28  32 34 30 29 00 94 0A 1A  |l...CLS(240)....|
00000270: 04 4C 49 4E 45 28 30 2C  30 2C 33 31 39 2C 30 29  |.LINE(0,0,319,0)|
00000280: 3A 4C 49 4E 45 28 33 31  39 2C 30 2C 33 31 39 2C  |:LINE(319,0,319,|
00000290: 31 39 39 29 00 BC 0A 24  04 4C 49 4E 45 28 33 31  |199)...$.LINE(31|
000002A0: 39 2C 31 39 39 2C 30 2C  31 39 39 29 3A 4C 49 4E  |9,199,0,199):LIN|
000002B0: 45 28 30 2C 31 39 39 2C  30 2C 30 29 00 CB 0A 4C  |E(0,199,0,0)...L|
000002C0: 04 4A B2 C2 28 35 36 33  32 31 29 00 DB 0A 6A 04  |.J..(56321)...j.|
000002D0: 8B 4A AF 38 B2 30 A7 44  30 B2 30 00 EB 0A 74 04  |.J.8.0.D0.0...t.|
000002E0: 8B 4A AF 34 B2 30 A7 44  30 B2 31 00 FB 0A 7E 04  |.J.4.0.D0.1...~.|
000002F0: 8B 4A AF 32 B2 30 A7 44  30 B2 32 00 0B 0B 88 04  |.J.2.0.D0.2.....|
00000300: 8B 4A AF 31 B2 30 A7 44  30 B2 33 00 3B 0B 92 04  |.J.1.0.D0.3.;...|
00000310: 8B 43 41 4C 43 28 58 30  2C 59 30 2C 44 30 29 B2  |.CALC(X0,Y0,D0).|
00000320: 31 A7 47 52 41 46 30 28  29 3A 49 4E 43 28 4C 4F  |1.GRAF0():INC(LO|
00000330: 53 53 45 53 29 3A 89 31  30 30 35 00 57 0B 9C 04  |SSES):.1005.W...|
00000340: 58 30 B2 58 3A 59 30 B2  59 3A 53 45 54 50 49 58  |X0.X:Y0.Y:SETPIX|
00000350: 45 4C 28 58 2C 59 29 00  72 0B A6 04 81 54 B2 30  |EL(X,Y).r....T.0|
00000360: A4 4E 3A 8B 44 31 5B 54  5D B2 39 39 39 A7 31 32  |.N:.D1[T].999.12|
00000370: 37 30 00 91 0B AB 04 58  31 B2 58 31 5B 54 5D 3A  |70.....X1.X1[T]:|
00000380: 59 31 B2 59 31 5B 54 5D  3A 44 31 B2 44 31 5B 54  |Y1.Y1[T]:D1.D1[T|
00000390: 5D 00 99 0B B0 04 57 B2  30 00 B4 0B BA 04 8B 43  |].....W.0......C|
000003A0: 41 4C 43 28 58 31 2C 59  31 2C 44 31 29 B2 30 A7  |ALC(X1,Y1,D1).0.|
000003B0: 31 32 35 30 00 D2 0B C4  04 44 31 B2 44 31 AA 31  |1250.....D1.D1.1|
000003C0: AF 33 3A 57 B2 57 AA 31  3A 8B 57 B1 33 A7 31 35  |.3:W.W.1:.W.3.15|
000003D0: 30 30 00 DC 0B CE 04 89  31 32 31 30 00 07 0C E2  |00......1210....|
000003E0: 04 58 31 5B 54 5D B2 58  3A 59 31 5B 54 5D B2 59  |.X1[T].X:Y1[T].Y|
000003F0: 3A 44 31 5B 54 5D B2 44  31 3A 53 45 54 50 49 58  |:D1[T].D1:SETPIX|
00000400: 45 4C 28 58 2C 59 29 00  0D 0C F6 04 82 00 1E 0C  |EL(X,Y).........|
00000410: FB 04 81 49 B2 30 A4 31  30 30 AC 44 3A 82 00 28  |...I.0.100.D:..(|
00000420: 0C 00 05 89 31 31 30 30  00 69 0C DC 05 52 B2 52  |....1100.i...R.R|
00000430: AB 31 3A 44 31 5B 54 5D  B2 39 39 39 3A 8B 52 B2  |.1:D1[T].999:.R.|
00000440: 30 A7 47 52 41 46 30 28  29 3A 49 4E 43 28 57 49  |0.GRAF0():INC(WI|
00000450: 4E 53 29 3A 53 43 52 45  B2 53 43 52 45 AA 35 AB  |NS):SCRE.SCRE.5.|
00000460: 44 AA 4E 3A 89 31 30 30  35 00 73 0C E6 05 89 31  |D.N:.1005.s....1|
00000470: 32 37 30 00 00 00                                 |270...          |

..<.... "GRAPHICS.H" . GRAF0,GRAF1,SETPI
XEL,GTPIXEL,LINE,CLS.].... "SYSTEM.H" . 
TASTE,EINGABE.S.... "MATHS.H" . MOD..2.
.X1[40]...<..Y1[40]...F..D1[40]...... CA
LC(X,Y,DIR).I....DIR.2.X.X.1.DIR.DIR:.53
0.....Y.Y.5.DIR.DIR......(GTPIXEL(X,Y)).
....MAIN().,....".":.53280,0:.53281,0:WI
NS.0:LOSSES.0:SCRE.0.D....I.0.10000:.:.1
98,0.T...."WINS";WINS:."LOSSES";LOSSES:.
"SCORE";SCRE......".....ENTER NUMBER OF 
OPPONENTS(1..19):";:R.MOD(EINGABE(),20):
N.R.1.T...X0.100:Y0.100:D0.1......T.0.N:
X1[T].30.B(53266):Y1[T].40.B(53266).2...
..D1[T].B(53266).3:..S....".......ENTER 
DELAY(0..5):";:D.MOD(EINGABE(),6).2._...
GRAF1().L...CLS(240).....LINE(0,0,319,0)
:LINE(319,0,319,199)...$.LINE(319,199,0,
199):LINE(0,199,0,0).K.L.J.B(56321)...J.
.J.8.0.D0.0...T..J.4.0.D0.1...~..J.2.0.D
0.2......J.1.0.D0.3.;....CALC(X0,Y0,D0).
1.GRAF0():INC(LOSSES):.1005.W...X0.X:Y0.
Y:SETPIXEL(X,Y).R....T.0.N:.D1[T].999.12
70.....X1.X1[T]:Y1.Y1[T]:D1.D1[T].....W.
0......CALC(X1,Y1,D1).0.1250.R.D.D1.D1.1
.3:W.W.1:.W.3.1500...N..1210.....X1[T].X
:Y1[T].Y:D1[T].D1:SETPIXEL(X,Y).........
...I.0.100.D:..(....1100.I...R.R.1:D1[T]
.999:.R.0.GRAF0():INC(WINS):SCRE.SCRE.5.
D.N:.1005.S....1270...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL