3D GRAFIEK
FILE INFORMATION
FILENAME(S): 3D GRAFIEK
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:24:24
APPEARS ON: 1 disk(s)
FILE HASH
82823524d655a491f8e51b3bed64464762ae2491dc941e65ac22d8ee0bef3119
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 48 1 | 3D GRAFIEK | PRG | DuncanTwain | 1 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 F8 2A 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..$..*.*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 00 36 08 02 2B 8F 20 41 43 43 45 50 |****.6..+. ACCEP| 00000030: 54 20 44 41 54 41 00 59 08 0C 2B 8F 2A 2A 2A 2A |T DATA.Y..+.****| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 93 08 16 2B 97 35 |*********....+.5| 00000060: 33 32 38 30 2C 36 3A 85 22 93 11 44 4F 20 59 4F |3280,6:."..DO YO| 00000070: 55 20 57 49 53 48 20 54 4F 20 4C 4F 41 44 20 46 |U WISH TO LOAD F| 00000080: 52 4F 4D 20 54 41 50 45 20 28 59 2F 4E 29 3A 22 |ROM TAPE (Y/N):"| 00000090: 3B 51 24 00 A5 08 20 2B 8B 51 24 B2 22 59 22 A7 |;Q$... +.Q$."Y".| 000000A0: 31 32 34 32 30 00 C1 08 2A 2B 99 22 93 11 1D 1D |12420...*+."....| 000000B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 47 52 41 50 48 |...........GRAPH| 000000C0: 22 00 EF 08 34 2B 99 22 11 54 48 45 52 45 20 41 |"...4+.".THERE A| 000000D0: 52 45 20 31 39 20 55 4E 49 54 53 20 4F 4E 20 54 |RE 19 UNITS ON T| 000000E0: 48 45 20 56 45 52 54 49 43 41 4C 4C 59 2C 22 00 |HE VERTICALLY,".| 000000F0: 1E 09 3E 2B 99 22 11 49 4E 50 55 54 20 4E 55 4D |..>+.".INPUT NUM| 00000100: 42 45 52 20 54 4F 20 42 45 20 52 45 50 52 45 53 |BER TO BE REPRES| 00000110: 45 4E 54 45 44 20 42 59 20 45 41 43 48 22 00 2E |ENTED BY EACH"..| 00000120: 09 48 2B 85 22 55 4E 49 54 3A 22 3B 55 56 00 53 |.H+."UNIT:";UV.S| 00000130: 09 52 2B 85 22 11 4E 41 4D 45 20 46 4F 52 20 48 |.R+.".NAME FOR H| 00000140: 4F 52 49 5A 4F 4E 54 41 4C 20 41 58 49 53 22 3B |ORIZONTAL AXIS";| 00000150: 4E 48 24 00 7C 09 5C 2B 99 22 93 11 59 4F 55 20 |NH$.|.\+."..YOU | 00000160: 43 41 4E 20 48 41 56 45 20 4F 4E 45 20 54 4F 20 |CAN HAVE ONE TO | 00000170: 53 49 58 20 43 4F 4C 55 4D 53 2E 22 00 A0 09 66 |SIX COLUMS."...f| 00000180: 2B 85 22 11 48 4F 57 20 4D 41 4E 59 20 57 4F 55 |+.".HOW MANY WOU| 00000190: 4C 44 20 59 4F 55 20 4C 49 4B 45 3A 22 3B 4E 44 |LD YOU LIKE:";ND| 000001A0: 00 CA 09 70 2B 99 22 11 11 59 4F 55 20 43 41 4E |...p+."..YOU CAN| 000001B0: 20 48 41 56 45 20 4F 4E 45 20 54 4F 20 54 48 52 | HAVE ONE TO THR| 000001C0: 45 45 20 42 41 4E 4B 53 2E 22 00 EE 09 7A 2B 85 |EE BANKS."...z+.| 000001D0: 22 11 48 4F 57 20 4D 41 4E 59 20 57 4F 55 4C 44 |".HOW MANY WOULD| 000001E0: 20 59 4F 55 20 4C 49 4B 45 3A 22 3B 4E 42 00 FC | YOU LIKE:";NB..| 000001F0: 09 84 2B 81 49 B2 30 A4 4E 42 AB 31 00 2B 0A 8E |..+.I.0.NB.1.+..| 00000200: 2B 99 22 11 4E 41 4D 45 20 46 4F 52 20 56 45 52 |+.".NAME FOR VER| 00000210: 54 49 43 41 4C 20 41 58 49 53 22 3B 49 AA 31 3B |TICAL AXIS";I.1;| 00000220: 3A 85 4E 56 24 28 49 29 3A 82 49 00 38 0A 98 2B |:.NV$(I):.I.8..+| 00000230: 86 48 48 28 32 2C 36 29 00 4C 0A A2 2B 99 22 93 |.HH(2,6).L..+.".| 00000240: 22 3B 3A 81 49 B2 30 A4 4E 42 AB 31 00 58 0A AC |";:.I.0.NB.1.X..| 00000250: 2B 81 4A B2 31 A4 4E 44 00 81 0A B6 2B 99 22 11 |+.J.1.ND....+.".| 00000260: 49 4E 50 55 54 20 42 41 4E 4B 22 3B 49 AA 31 3B |INPUT BANK";I.1;| 00000270: 22 56 41 4C 55 45 22 3B 4A 3B 22 3A 22 3B 3A 85 |"VALUE";J;":";:.| 00000280: 54 00 AC 0A C0 2B 8B B5 28 54 AD 55 56 29 B1 31 |T....+..(T.UV).1| 00000290: 39 A7 99 22 11 56 41 4C 55 45 20 54 4F 4F 20 48 |9..".VALUE TOO H| 000002A0: 49 47 48 2E 22 3A 89 31 31 31 39 30 00 BF 0A CA |IGH.":.11190....| 000002B0: 2B 48 48 28 49 2C 4A 29 B2 54 3A 82 4A 2C 49 00 |+HH(I,J).T:.J,I.| 000002C0: E3 0A E0 2E 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.....***********| 000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002E0: 2A 2A 2A 00 F4 0A EA 2E 8F 20 44 52 41 57 20 47 |***...... DRAW G| 000002F0: 52 41 50 48 00 18 0B F4 2E 8F 2A 2A 2A 2A 2A 2A |RAPH......******| 00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000310: 2A 2A 2A 2A 2A 2A 2A 2A 00 40 0B 08 2F 97 35 33 |********.@../.53| 00000320: 32 38 31 2C 30 3A 99 22 93 95 11 11 11 11 11 11 |281,0:."........| 00000330: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3B |..............";| 00000340: 00 4F 0B 12 2F 46 24 B2 22 1D 1D 1D 1D 1D 22 00 |.O../F$.".....".| 00000350: 8D 0B 1C 2F 81 49 B2 31 A4 34 3A 99 46 24 3B 22 |.../.I.1.4:.F$;"| 00000360: DF 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. | 00000370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 DF | .| 00000380: 22 3A 46 24 B2 46 24 AA 22 1D 22 3A 82 00 C9 0B |":F$.F$.".":....| 00000390: 26 2F 99 22 13 1D 1D 1D 1D 1D 05 A4 A4 A4 A4 A4 |&/."............| 000003A0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 000003B0: A4 A4 A4 A4 A4 A4 A4 A4 A4 22 3A 8F 20 33 30 20 |.........":. 30 | 000003C0: 43 48 41 52 20 4C 49 4E 45 00 E0 0B 30 2F 81 49 |CHAR LINE...0/.I| 000003D0: B2 31 A4 31 39 3A 99 22 1D 1D 1D 1D 1D CC 22 3B |.1.19:."......";| 000003E0: 00 07 0C 3A 2F 99 22 20 20 20 20 20 20 20 20 20 |...:/." | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000400: 20 20 20 BA 22 3A 82 00 27 0C 44 2F 99 22 13 22 | .":..'.D/."."| 00000410: 3B 3A 81 49 B2 31 A4 34 3A 99 22 11 11 11 11 1D |;:.I.1.4:.".....| 00000420: 1D 1D 1D 1D 1D 22 3B 00 5C 0C 4E 2F 99 22 A4 A4 |.....";.\.N/."..| 00000430: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000440: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 3A 82 3A 8F 20 |..........":.:. | 00000450: 32 38 20 43 48 41 52 20 4C 49 4E 45 00 AA 0C 58 |28 CHAR LINE...X| 00000460: 2F 46 31 24 B2 22 13 11 11 11 11 11 11 11 11 11 |/F1$."..........| 00000470: 11 11 11 11 11 11 11 11 11 11 11 22 3A 46 24 B2 |...........":F$.| 00000480: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............| 00000490: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."| 000004A0: 3A 43 4F 24 B2 22 9E 1E 99 22 00 D0 0C 62 2F 99 |:CO$."..."...b/.| 000004B0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............| 000004C0: 11 11 11 11 11 11 11 11 11 11 22 3B 4E 48 24 3B |..........";NH$;| 000004D0: 00 09 0D 6C 2F 81 48 B2 30 A4 4E 42 AB 31 3A 99 |...l/.H.0.NB.1:.| 000004E0: 22 13 11 9D 9D 9D 9D 9D 9D 9D 22 3B CA 28 46 24 |".........";.(F$| 000004F0: 2C 31 2C 32 AC 28 48 AA 31 29 29 3B CA 28 43 4F |,1,2.(H.1));.(CO| 00000500: 24 2C 48 AA 31 2C 31 29 3B 00 2F 0D 76 2F 54 54 |$,H.1,1);./.v/TT| 00000510: 24 B2 4E 56 24 28 48 29 AA 22 20 2A 22 AA C4 28 |$.NV$(H)." *"..(| 00000520: 55 56 29 3A 81 49 B2 31 A4 C3 28 54 54 24 29 00 |UV):.I.1..(TT$).| 00000530: 4A 0D 80 2F 99 CA 28 54 54 24 2C 49 2C 31 29 3B |J../..(TT$,I,1);| 00000540: 22 9D 11 22 3B 3A 82 49 2C 48 00 74 0D 8A 2F 99 |"..";:.I,H.t../.| 00000550: 22 13 1D 1D 1D 11 11 11 11 31 35 9D 9D 11 11 11 |"........15.....| 00000560: 11 11 31 30 9D 9D 11 11 11 11 11 35 9D 11 11 11 |..10.......5....| 00000570: 11 11 30 22 00 98 0D 94 2F 46 33 24 B2 46 31 24 |..0"..../F3$.F1$| 00000580: 3A 81 48 B2 30 A4 4E 42 AB 31 3A 99 CA 28 43 4F |:.H.0.NB.1:..(CO| 00000590: 24 2C 48 AA 31 2C 31 29 00 BD 0D 9E 2F 46 32 24 |$,H.1,1)..../F2$| 000005A0: B2 C8 28 46 24 2C 38 AA 34 AC 28 4E 44 AB 31 29 |..(F$,8.4.(ND.1)| 000005B0: AA 48 29 3A 99 46 31 24 3B 46 32 24 3B 00 E3 0D |.H):.F1$;F2$;...| 000005C0: A8 2F 81 49 B2 4E 44 A4 31 A9 AB 31 3A 8B B5 28 |./.I.ND.1..1:..(| 000005D0: 48 48 28 48 2C 49 29 AD 55 56 29 B2 30 A7 31 32 |HH(H,I).UV).0.12| 000005E0: 32 37 30 00 FC 0D B2 2F 81 4A B2 31 A4 B5 28 48 |270..../.J.1..(H| 000005F0: 48 28 48 2C 49 29 AD 55 56 29 AA 48 00 17 0E BC |H(H,I).UV).H....| 00000600: 2F 8B B5 28 48 48 28 48 2C 49 29 AD 55 56 29 B2 |/..(HH(H,I).UV).| 00000610: 30 A7 31 32 32 37 30 00 41 0E C6 2F 8B 4A B2 31 |0.12270.A../.J.1| 00000620: A7 99 22 95 12 20 DF 22 3B CA 28 43 4F 24 2C 48 |..".. .";.(CO$,H| 00000630: AA 31 2C 31 29 3B 22 A5 20 92 91 9D 9D 9D 9D 22 |.1,1);". ......"| 00000640: 3B 00 5A 0E D0 2F 8B 4A B1 31 A7 99 22 A7 20 12 |;.Z../.J.1..". .| 00000650: C7 20 92 91 9D 9D 9D 9D 22 3B 00 61 0E DA 2F 82 |. ......";.a../.| 00000660: 4A 00 6E 0E E4 2F 99 22 A7 DF 12 20 DF 22 00 95 |J.n../."... ."..| 00000670: 0E EE 2F 99 3A 46 32 24 B2 C8 28 46 32 24 2C C3 |../.:F2$..(F2$,.| 00000680: 28 46 32 24 29 AB 34 29 3A 99 46 31 24 3B 46 32 |(F2$).4):.F1$;F2| 00000690: 24 3B 3A 82 49 00 A5 0E F8 2F 46 31 24 B2 46 31 |$;:.I..../F1$.F1| 000006A0: 24 AA 22 11 22 00 C8 0E 02 30 46 32 24 B2 C8 28 |$."."....0F2$..(| 000006B0: 46 24 2C 39 AA 34 AC 28 4E 44 AB 31 29 29 3A 99 |F$,9.4.(ND.1)):.| 000006C0: 46 33 24 3B 46 32 24 3B 00 CF 0E 0C 30 82 48 00 |F3$;F2$;....0.H.| 000006D0: E1 0E 16 30 81 49 B2 31 A4 4E 44 3A 99 46 33 24 |...0.I.1.ND:.F3$| 000006E0: 3B 00 07 0F 20 30 46 32 24 B2 C8 28 46 24 2C 39 |;... 0F2$..(F$,9| 000006F0: AA 34 AC 28 49 AB 31 29 29 3A 99 46 32 24 3B 3A |.4.(I.1)):.F2$;:| 00000700: 81 4A B2 31 A4 4E 42 00 25 0F 2A 30 8B 4A B1 31 |.J.1.NB.%.*0.J.1| 00000710: B0 48 48 28 32 2C 49 AB 31 29 B2 30 A7 99 22 95 |.HH(2,I.1).0..".| 00000720: 12 DF 9D 22 3B 00 35 0F 34 30 99 22 11 1D 22 3B |...";.5.40."..";| 00000730: 3A 82 4A 2C 49 00 4A 0F 3E 30 A1 41 24 3A 8B 41 |:.J,I.J.>0.A$:.A| 00000740: 24 B2 22 22 A7 31 32 33 35 30 00 80 0F 48 30 85 |$."".12350...H0.| 00000750: 22 93 11 12 44 4F 20 59 4F 55 20 57 49 53 48 20 |"...DO YOU WISH | 00000760: 54 4F 20 53 41 56 45 20 44 41 54 41 20 28 59 2F |TO SAVE DATA (Y/| 00000770: 4E 29 22 3B 51 24 3A 8B 51 24 B2 22 4E 22 A7 80 |N)";Q$:.Q$."N"..| 00000780: 00 BC 0F 52 30 85 22 11 50 4F 53 49 54 49 4F 4E |...R0.".POSITION| 00000790: 20 54 41 50 45 20 43 4F 52 52 45 43 54 4C 59 2C | TAPE CORRECTLY,| 000007A0: 54 48 45 4E 20 12 52 45 54 55 52 4E 92 2D 2D 22 |THEN .RETURN.--"| 000007B0: 3B 51 24 3A 52 24 B2 C7 28 31 33 29 00 CF 0F 5C |;Q$:R$..(13)...\| 000007C0: 30 9F 31 2C 31 2C 31 2C 22 47 52 41 50 48 22 00 |0.1,1,1,"GRAPH".| 000007D0: D6 0F 61 30 9D 31 00 F3 0F 66 30 98 31 2C 4E 42 |..a0.1...f0.1,NB| 000007E0: 3B 52 24 3B 4E 44 3B 52 24 3B 4E 48 24 3B 52 24 |;R$;ND;R$;NH$;R$| 000007F0: 3B 55 56 00 23 10 70 30 81 49 B2 30 A4 4E 42 AB |;UV.#.p0.I.0.NB.| 00000800: 31 3A 98 31 2C 4E 56 24 28 49 29 3A 81 4A B2 30 |1:.1,NV$(I):.J.0| 00000810: A4 4E 44 3A 98 31 2C 48 48 28 49 2C 4A 29 3A 82 |.ND:.1,HH(I,J):.| 00000820: 4A 2C 49 00 2C 10 7A 30 A0 31 3A 80 00 70 10 84 |J,I.,.z0.1:..p..| 00000830: 30 85 22 93 11 50 4F 53 49 54 49 4F 4E 20 54 41 |0."..POSITION TA| 00000840: 50 45 20 43 4F 52 52 45 43 54 4C 59 20 54 48 45 |PE CORRECTLY THE| 00000850: 4E 20 12 52 45 54 55 52 4E 12 2D 2D 22 3B 51 24 |N .RETURN.--";Q$| 00000860: 3A 86 4E 56 24 28 32 29 2C 48 48 28 32 2C 36 29 |:.NV$(2),HH(2,6)| 00000870: 00 83 10 8E 30 9F 31 2C 31 2C 30 2C 22 47 52 41 |....0.1,1,0,"GRA| 00000880: 50 48 22 00 97 10 98 30 84 31 2C 4E 42 2C 4E 44 |PH"....0.1,NB,ND| 00000890: 2C 4E 48 24 2C 55 56 00 C7 10 A2 30 81 49 B2 30 |,NH$,UV....0.I.0| 000008A0: A4 4E 42 AB 31 3A 84 31 2C 4E 56 24 28 49 29 3A |.NB.1:.1,NV$(I):| 000008B0: 81 4A B2 30 A4 4E 44 3A 84 31 2C 48 48 28 49 2C |.J.0.ND:.1,HH(I,| 000008C0: 4A 29 3A 82 4A 2C 49 00 D5 10 AC 30 A0 31 3A 89 |J):.J,I....0.1:.| 000008D0: 31 32 30 30 30 00 E0 10 B6 30 89 31 32 34 37 30 |12000....0.12470| 000008E0: 00 00 00 |... |
..$..*.*****************************.6..
+. ACCEPT DATA.Y..+.********************
*********....+.53280,6:."..DO YOU WISH T
O LOAD FROM TAPE (Y/N):";Q$... +.Q$."Y".
12420.A.*+."...............GRAPH"...4+."
.THERE ARE 19 UNITS ON THE VERTICALLY,".
..>+.".INPUT NUMBER TO BE REPRESENTED BY
EACH"...H+."UNIT:";UV.S.R+.".NAME FOR H
ORIZONTAL AXIS";NH$.|.\+."..YOU CAN HAVE
ONE TO SIX COLUMS.". .F+.".HOW MANY WOU
LD YOU LIKE:";ND.J.P+."..YOU CAN HAVE ON
E TO THREE BANKS."...Z+.".HOW MANY WOULD
YOU LIKE:";NB....+.I.0.NB.1.+..+.".NAME
FOR VERTICAL AXIS";I.1;:.NV$(I):.I.8..+
.HH(2,6).L..+.".";:.I.0.NB.1.X..+.J.1.ND
....+.".INPUT BANK";I.1;"VALUE";J;":";:.
T....+..(T.UV).19..".VALUE TOO HIGH.":.1
1190...J+HH(I,J).T:.J,I......***********
*******************...... DRAW GRAPH....
..******************************.@../.53
281,0:."......................";.O../F$.
"....."..../.I.1.4:.F$;"..
.":F$.F$.".":..I.&/."....
.................................":. 30
CHAR LINE...0/.I.1.19:.".....L";...:/."
.":..'.D/."."
;:.I.1.4:."..........";.\.N/."..........
..................":.:. 28 CHAR LINE...X
/F1$.".....................":F$.".......
.......................":CO$."...".P.B/.
".........................";NH$;...L/.H.
0.NB.1:.".........";J(F$,1,2.(H.1));J(CO
$,H.1,1);./.V/TT$.NV$(H)." *".D(UV):.I.1
.C(TT$).J../.J(TT$,I,1);"..";:.I,H.T../.
"........15.......10.......5......0"....
/F3$.F1$:.H.0.NB.1:.J(CO$,H.1,1)..../F2$
.H(F$,8.4.(ND.1).H):.F1$;F2$;..../.I.ND.
1..1:..(HH(H,I).UV).0.12270..../.J.1..(H
H(H,I).UV).H..../..(HH(H,I).UV).0.12270.
A.F/.J.1..".. .";J(CO$,H.1,1);". ......"
;.Z.P/.J.1..". .G ......";.A.Z/.J.N../."
... ."..../.:F2$.H(F2$,C(F2$).4):.F1$;F2
$;:.I..../F1$.F1$.".".H..0F2$.H(F$,9.4.(
ND.1)):.F3$;F2$;.O..0.H....0.I.1.ND:.F3$
;... 0F2$.H(F$,9.4.(I.1)):.F2$;:.J.1.NB.
%.*0.J.1.HH(2,I.1).0.."....";.5.40."..";
:.J,I.J.>0.A$:.A$."".12350...H0."...DO Y
OU WISH TO SAVE DATA (Y/N)";Q$:.Q$."N"..
...R0.".POSITION TAPE CORRECTLY,THEN .RE
TURN.--";Q$:R$.G(13).O.\0.1,1,1,"GRAPH".
V.A0.1...F0.1,NB;R$;ND;R$;NH$;R$;UV.#.P0
.I.0.NB.1:.1,NV$(I):.J.0.ND:.1,HH(I,J):.
J,I.,.Z0 1:..P..0."..POSITION TAPE CORRE
CTLY THEN .RETURN.--";Q$:.NV$(2),HH(2,6)
....0.1,1,0,"GRAPH"....0.1,NB,ND,NH$,UV.
G..0.I.0.NB.1:.1,NV$(I):.J.0.ND:.1,HH(I,
J):.J,I.U..0 1:.12000....0.12470...
> CLICK IMAGE PREVIEW FOR FULL MODAL