3D GRAPH .BAS
FILE INFORMATION
FILENAME(S): 3D GRAPH .BAS
FILE TYPE(S): PRG
FILE SIZE: 841b
FIRST SEEN: 2025-12-01 01:00:02
APPEARS ON: 1 disk(s)
FILE HASH
5ef26c3c3b914329eb0f8e0b3f6a920aa80d8f5dff5ffff0632f8bcf17e7ed1d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0042A | 3D GRAPH .BAS | PRG | hedning, disarm | 32 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 01 00 97 20 38 30 38 2C 32 32 35 20 |....... 808,225 | 00000010: 3A 8F 20 52 45 4D 4F 56 45 20 52 2F 53 2F 52 00 |:. REMOVE R/S/R.| 00000020: 40 08 02 00 97 20 36 34 39 2C 30 20 20 20 3A 8F |@.... 649,0 :.| 00000030: 20 52 45 4D 4F 56 45 20 4B 45 59 42 4F 41 52 44 | REMOVE KEYBOARD| 00000040: 00 61 08 0A 00 8F 20 52 4F 55 54 49 4E 45 20 54 |.a.... ROUTINE T| 00000050: 4F 20 44 52 41 57 20 41 20 33 44 20 47 52 41 50 |O DRAW A 3D GRAP| 00000060: 48 00 83 08 14 00 8F 20 55 53 49 4E 47 20 53 54 |H...... USING ST| 00000070: 41 4E 44 41 52 44 20 42 49 54 20 4D 41 50 20 4D |ANDARD BIT MAP M| 00000080: 4F 44 45 00 91 08 1E 00 42 41 53 45 B2 38 31 39 |ODE.....BASE.819| 00000090: 32 00 A9 08 28 00 8F 20 43 4C 45 41 52 20 54 48 |2...(.. CLEAR TH| 000000A0: 45 20 42 49 54 20 4D 41 50 00 C1 08 32 00 81 49 |E BIT MAP...2..I| 000000B0: B2 42 41 53 45 20 A4 20 42 41 53 45 AA 37 39 39 |.BASE . BASE.799| 000000C0: 39 00 D0 08 3C 00 97 20 49 2C 30 20 3A 82 20 49 |9...<.. I,0 :. I| 000000D0: 00 EF 08 46 00 8F 20 44 49 52 45 43 54 20 53 43 |...F.. DIRECT SC| 000000E0: 52 45 45 4E 20 54 4F 20 42 49 54 20 4D 41 50 00 |REEN TO BIT MAP.| 000000F0: 0E 09 50 00 8F 20 41 4E 44 20 54 55 52 4E 20 4F |..P.. AND TURN O| 00000100: 4E 20 42 49 54 20 4D 41 50 20 4D 4F 44 45 00 24 |N BIT MAP MODE.$| 00000110: 09 5A 00 97 35 33 32 37 32 2C C2 28 35 33 32 37 |.Z..53272,.(5327| 00000120: 32 29 B0 38 00 3C 09 64 00 97 20 35 33 32 36 35 |2).8.<.d.. 53265| 00000130: 2C C2 28 35 33 32 36 35 29 B0 33 32 00 5A 09 6E |,.(53265).32.Z.n| 00000140: 00 8F 20 52 45 44 20 53 43 52 45 45 4E 2C 57 48 |.. RED SCREEN,WH| 00000150: 49 54 45 20 50 49 58 45 4C 53 00 6D 09 78 00 81 |ITE PIXELS.m.x..| 00000160: 49 B2 31 30 32 34 20 A4 20 32 30 32 33 00 7C 09 |I.1024 . 2023.|.| 00000170: 82 00 97 20 49 2C 31 38 3A 82 20 49 00 97 09 8C |... I,18:. I....| 00000180: 00 96 20 A5 41 28 5A 29 B2 39 30 AC BD 28 AB 5A |.. .A(Z).90..(.Z| 00000190: AC 5A AD 36 30 30 29 00 AB 09 96 00 81 58 B2 AB |.Z.600)......X..| 000001A0: 31 30 30 20 A4 20 30 20 A9 20 31 00 C0 09 A0 00 |100 . 0 . 1.....| 000001B0: 4B B2 36 3A 4C B2 30 3A 50 B2 31 3A 5A 31 B2 30 |K.6:L.0:P.1:Z1.0| 000001C0: 00 DB 09 AA 00 59 31 B2 4B AC B5 28 BA 28 31 30 |.....Y1.K..(.(10| 000001D0: 30 30 30 AB 58 AC 58 29 AD 4B 29 00 F1 09 B4 00 |000.X.X).K).....| 000001E0: 81 20 59 B2 59 31 20 A4 20 AB 59 31 20 A9 20 AB |. Y.Y1 . .Y1 . .| 000001F0: 4B 00 16 0A BE 00 5A B2 B5 28 38 30 AA A5 41 28 |K.....Z..(80..A(| 00000200: BA 28 58 AC 58 AA 59 AC 59 29 29 AB 2E 37 30 37 |.(X.X.Y.Y))..707| 00000210: 31 30 36 AC 59 29 00 26 0A C8 00 8B 20 5A B3 4C |106.Y).&.... Z.L| 00000220: 20 A7 20 33 32 30 00 30 0A D2 00 8D 20 33 34 30 | . 320.0.... 340| 00000230: 00 38 0A DC 00 4C B2 5A 00 58 0A E6 00 8B 20 50 |.8...L.Z.X.... P| 00000240: B2 30 20 A7 20 8D 20 33 34 30 3A 8B 5A B2 5A 31 |.0 . . 340:.Z.Z1| 00000250: 20 A7 20 8D 20 33 34 30 00 60 0A F0 00 4D B2 31 | . . 340.`...M.1| 00000260: 00 75 0A FA 00 52 4F 57 B2 B5 28 28 32 30 30 AB |.u...ROW..((200.| 00000270: 5A 29 AD 38 29 00 8D 0A 04 01 43 48 41 52 B2 B5 |Z).8).....CHAR..| 00000280: 28 28 4D AC 58 AA 31 36 30 29 AD 38 29 00 A0 0A |((M.X.160).8)...| 00000290: 0E 01 4C 49 4E 45 B2 28 32 30 30 AB 5A 29 AF 37 |..LINE.(200.Z).7| 000002A0: 00 B9 0A 18 01 42 49 54 B2 37 AB B5 28 28 4D AC |.....BIT.7..((M.| 000002B0: 58 AA 31 36 30 29 AF 37 29 00 DB 0A 22 01 42 59 |X.160).7)...".BY| 000002C0: 54 45 B2 42 41 53 45 AA 52 4F 57 AC 33 32 30 AA |TE.BASE.ROW.320.| 000002D0: 43 48 41 52 AC 38 AA 4C 49 4E 45 00 F4 0A 2C 01 |CHAR.8.LINE...,.| 000002E0: 97 20 42 59 54 45 2C C2 28 42 59 54 45 29 B0 32 |. BYTE,.(BYTE).2| 000002F0: AE 42 49 54 00 0A 0B 36 01 8B 4D B2 31 20 A7 20 |.BIT...6..M.1 . | 00000300: 4D B2 AB 31 3A 89 20 32 35 30 00 14 0B 40 01 82 |M..1:. 250...@..| 00000310: 20 59 2C 58 00 33 0B 4A 01 97 20 38 30 38 2C 32 | Y,X.3.J.. 808,2| 00000320: 33 35 3A 97 36 34 39 2C 31 30 3A 8F 20 4E 4F 52 |35:.649,10:. NOR| 00000330: 4D 41 4C 00 3D 0B 4B 01 89 20 33 33 31 00 43 0B |MAL.=.K.. 331.C.| 00000340: 54 01 8E 00 00 00 00 2C 1C |T......,. |
....... 808,225 :. REMOVE R/S/R.@.... 64 9,0 :. REMOVE KEYBOARD.A.... ROUTINE T O DRAW A 3D GRAPH...... USING STANDARD B IT MAP MODE.....BASE.8192...(.. CLEAR TH E BIT MAP.A.2..I.BASE . BASE.7999.P.<.. I,0 :. I...F.. DIRECT SCREEN TO BIT MAP. ..P.. AND TURN ON BIT MAP MODE.$.Z..5327 2,B(53272).8.<.D.. 53265,B(53265).32.Z.N .. RED SCREEN,WHITE PIXELS.M.X..I.1024 . 2023.|.... I,18:. I...... .A(Z).90..(.Z .Z.600)......X..100 . 0 . 1... .K.6:L.0: P.1:Z1.0.....Y1.K..(.(10000.X.X).K)..... . Y.Y1 . .Y1 . .K.....Z..(80..A(.(X.X.Y. Y))..707106.Y).&.H.. Z.L . 320.0.R.. 340 .8...L.Z.X.... P.0 . . 340:.Z.Z1 . . 340 .`...M.1.U...ROW..((200.Z).8).....CHAR.. ((M.X.160).8). ...LINE.(200.Z).7.....BIT .7..((M.X.160).7)...".BYTE.BASE.ROW.320. CHAR.8.LINE...,.. BYTE,B(BYTE).2.BIT...6 ..M.1 . M..1:. 250...@.. Y,X.3.J.. 808,2 35:.649,10:. NORMAL.=.K.. 331.C.T......, .
> CLICK IMAGE PREVIEW FOR FULL MODAL