Multiple names: DISPLAY 3D, DISPLAY 3D.BAS
FILE INFORMATION
FILENAME(S):
• DISPLAY 3D<br>• DISPLAY 3D.BAS
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 01:08:29
APPEARS ON: 2 disk(s)
FILE HASH
4f753f5c47e4bbdab214840dd59142d574ae84042d82989a7c68d11eaef2f1ba
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| THE COMMODORE | DISPLAY 3D | PRG | Treasure Chest - Wolfgang Rauprich | 22 | 9 | DOWNLOAD FILE |
| DUNGEON MASTER23 | DISPLAY 3D.BAS | PRG | High Voltage Complete C64 Collection | 30 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4D 08 64 00 8F 12 42 41 53 49 43 20 4C 49 |..M.d...BASIC LI| 00000010: 53 54 49 4E 47 20 54 4F 20 4C 4F 41 44 20 41 4E |STING TO LOAD AN| 00000020: 44 20 44 49 53 50 4C 41 59 20 46 49 4C 45 53 20 |D DISPLAY FILES | 00000030: 43 52 45 41 54 45 44 20 55 53 49 4E 47 20 54 48 |CREATED USING TH| 00000040: 45 20 27 46 27 20 43 4F 4D 4D 41 4E 44 00 5D 08 |E 'F' COMMAND.].| 00000050: 6E 00 8F 12 49 4E 20 33 44 20 43 41 44 00 78 08 |n...IN 3D CAD.x.| 00000060: 78 00 8F 12 43 48 45 43 4B 20 46 49 4C 45 20 4C |x...CHECK FILE L| 00000070: 4F 41 44 20 46 4C 41 47 00 8A 08 82 00 8B 20 41 |OAD FLAG...... A| 00000080: B2 31 20 A7 20 89 20 31 39 30 00 CD 08 8C 00 8F |.1 . . 190......| 00000090: 12 53 45 54 20 53 43 52 45 45 4E 20 43 4F 4C 4F |.SET SCREEN COLO| 000000A0: 52 53 20 2D 20 43 4C 45 41 52 20 4B 45 59 42 4F |RS - CLEAR KEYBO| 000000B0: 41 52 44 20 42 55 46 46 45 52 20 2D 20 47 45 54 |ARD BUFFER - GET| 000000C0: 20 46 49 4C 45 20 4E 41 4D 45 20 4E 24 00 07 09 | FILE NAME N$...| 000000D0: 96 00 97 35 33 32 38 30 2C 31 3A 97 35 33 32 38 |...53280,1:.5328| 000000E0: 31 2C 31 3A 99 22 93 22 3A 97 36 34 36 2C 30 3A |1,1:.".":.646,0:| 000000F0: 97 31 39 38 2C 30 3A 85 22 57 48 49 43 48 20 46 |.198,0:."WHICH F| 00000100: 49 4C 45 22 3B 4E 24 00 29 09 A0 00 8F 12 53 45 |ILE";N$.).....SE| 00000110: 54 20 46 49 4C 45 20 46 4C 41 47 20 41 4E 44 20 |T FILE FLAG AND | 00000120: 4C 4F 41 44 20 46 49 4C 45 00 41 09 AA 00 8B 20 |LOAD FILE.A.... | 00000130: 41 B2 30 20 A7 20 41 B2 31 3A 93 4E 24 2C 38 2C |A.0 . A.1:.N$,8,| 00000140: 31 00 5C 09 B4 00 8F 12 47 4F 54 4F 20 44 49 53 |1.\.....GOTO DIS| 00000150: 50 4C 41 59 20 4F 50 54 49 4F 4E 53 00 66 09 BE |PLAY OPTIONS.f..| 00000160: 00 89 20 33 31 30 00 87 09 C8 00 8F 12 53 55 42 |.. 310.......SUB| 00000170: 52 4F 55 54 49 4E 45 20 54 4F 20 44 49 53 50 4C |ROUTINE TO DISPL| 00000180: 41 59 20 46 49 4C 45 00 95 09 D2 00 97 35 33 32 |AY FILE......532| 00000190: 36 35 2C 35 39 00 A4 09 DC 00 97 35 33 32 37 32 |65,59......53272| 000001A0: 2C 31 32 30 00 BC 09 E6 00 97 35 36 35 37 36 2C |,120......56576,| 000001B0: C2 28 35 36 35 37 36 29 AF 32 35 34 00 C2 09 F0 |.(56576).254....| 000001C0: 00 8E 00 EC 09 FA 00 8F 12 53 55 42 52 4F 55 54 |.........SUBROUT| 000001D0: 49 4E 45 20 54 4F 20 44 49 53 50 4C 41 59 20 4E |INE TO DISPLAY N| 000001E0: 4F 52 4D 41 4C 20 53 43 52 45 45 4E 00 FA 09 04 |ORMAL SCREEN....| 000001F0: 01 97 35 33 32 36 35 2C 32 37 00 08 0A 0E 01 97 |..53265,27......| 00000200: 35 33 32 37 32 2C 32 33 00 1E 0A 18 01 97 35 36 |53272,23......56| 00000210: 35 37 36 2C C2 28 35 36 35 37 36 29 B0 31 00 24 |576,.(56576).1.$| 00000220: 0A 22 01 8E 00 3A 0A 2C 01 8F 12 44 49 53 50 4C |."...:.,...DISPL| 00000230: 41 59 20 4F 50 54 49 4F 4E 53 00 5D 0A 36 01 99 |AY OPTIONS.].6..| 00000240: 22 50 52 45 53 53 20 46 31 20 54 4F 20 53 45 45 |"PRESS F1 TO SEE| 00000250: 20 33 44 20 43 41 44 20 46 49 4C 45 22 00 82 0A | 3D CAD FILE"...| 00000260: 40 01 99 22 50 52 45 53 53 20 46 33 20 54 4F 20 |@.."PRESS F3 TO | 00000270: 53 45 45 20 4E 4F 52 4D 41 4C 20 53 43 52 45 45 |SEE NORMAL SCREE| 00000280: 4E 22 00 A1 0A 4A 01 99 22 50 52 45 53 53 20 46 |N"...J.."PRESS F| 00000290: 35 20 54 4F 20 45 4E 44 20 50 52 4F 47 52 41 4D |5 TO END PROGRAM| 000002A0: 22 00 BE 0A 54 01 99 22 50 52 45 53 53 20 46 37 |"...T.."PRESS F7| 000002B0: 20 46 4F 52 20 4E 45 57 20 46 49 4C 45 22 00 DA | FOR NEW FILE"..| 000002C0: 0A 5E 01 8F 12 43 4C 45 41 52 20 4B 45 59 42 4F |.^...CLEAR KEYBO| 000002D0: 41 52 44 20 42 55 46 46 45 52 00 E5 0A 68 01 97 |ARD BUFFER...h..| 000002E0: 31 39 38 2C 30 00 F8 0A 72 01 8F 12 47 45 54 20 |198,0...r...GET | 000002F0: 52 45 53 50 4F 4E 53 45 00 01 0B 7C 01 A1 20 4B |RESPONSE...|.. K| 00000300: 24 00 3D 0B 86 01 8F 12 43 48 45 43 4B 20 46 4F |$.=.....CHECK FO| 00000310: 52 20 46 31 20 4B 45 59 20 41 4E 44 20 4C 4F 4F |R F1 KEY AND LOO| 00000320: 50 20 54 4F 20 44 49 53 50 4C 41 59 20 46 49 4C |P TO DISPLAY FIL| 00000330: 45 20 53 55 42 52 4F 55 54 49 4F 4E 45 00 58 0B |E SUBROUTIONE.X.| 00000340: 90 01 8B 20 4B 24 B2 22 85 22 20 A7 20 8D 20 32 |... K$."." . . 2| 00000350: 31 30 3A 89 20 33 36 30 00 93 0B 9A 01 8F 43 48 |10:. 360......CH| 00000360: 45 43 4B 20 46 4F 52 20 46 33 20 4B 45 59 20 41 |ECK FOR F3 KEY A| 00000370: 4E 44 20 4C 4F 4F 50 20 54 4F 20 4E 4F 52 4D 41 |ND LOOP TO NORMA| 00000380: 4C 20 53 43 52 45 45 4E 20 53 55 42 52 4F 55 54 |L SCREEN SUBROUT| 00000390: 49 4E 45 00 AE 0B A4 01 8B 20 4B 24 B2 22 86 22 |INE...... K$."."| 000003A0: 20 A7 20 8D 20 32 36 30 3A 89 20 33 36 30 00 F5 | . . 260:. 360..| 000003B0: 0B AE 01 8F 12 43 48 45 43 4B 20 46 4F 52 20 46 |.....CHECK FOR F| 000003C0: 35 20 4B 45 59 20 41 4E 44 20 4C 4F 4F 50 20 54 |5 KEY AND LOOP T| 000003D0: 4F 20 4E 4F 52 4D 41 4C 20 53 43 52 45 45 4E 20 |O NORMAL SCREEN | 000003E0: 53 55 42 52 4F 55 54 49 4E 45 20 2D 20 54 48 45 |SUBROUTINE - THE| 000003F0: 4E 20 45 4E 44 00 0C 0C B8 01 8B 20 4B 24 B2 22 |N END...... K$."| 00000400: 87 22 20 A7 20 8D 20 32 36 30 3A 80 00 48 0C C2 |." . . 260:..H..| 00000410: 01 8F 12 43 48 45 43 4B 20 46 4F 52 20 46 37 20 |...CHECK FOR F7 | 00000420: 4B 45 59 20 41 4E 44 20 4C 4F 4F 50 20 54 4F 20 |KEY AND LOOP TO | 00000430: 4E 4F 52 4D 41 4C 20 53 43 52 45 45 4E 20 53 55 |NORMAL SCREEN SU| 00000440: 42 52 4F 55 54 49 4E 45 00 8F 0C CC 01 8F 12 54 |BROUTINE.......T| 00000450: 48 45 4E 20 53 45 54 20 46 49 4C 45 20 4C 4F 41 |HEN SET FILE LOA| 00000460: 44 20 46 4C 41 47 20 2D 20 54 48 45 4E 20 47 4F |D FLAG - THEN GO| 00000470: 54 4F 20 47 45 54 20 4E 45 57 20 46 49 4C 45 20 |TO GET NEW FILE | 00000480: 4E 41 4D 45 20 53 55 42 52 4F 55 54 49 4E 45 00 |NAME SUBROUTINE.| 00000490: AE 0C D6 01 8B 20 4B 24 B2 22 88 22 20 A7 20 8D |..... K$."." . .| 000004A0: 20 32 36 30 3A 41 B2 30 3A 89 20 31 34 30 00 D2 | 260:A.0:. 140..| 000004B0: 0C E0 01 8F 12 43 48 45 43 4B 20 41 47 41 49 4E |.....CHECK AGAIN| 000004C0: 20 46 4F 52 20 46 4B 45 59 20 4B 45 59 50 52 45 | FOR FKEY KEYPRE| 000004D0: 53 53 00 DC 0C EA 01 89 20 33 38 30 00 E2 0C F4 |SS...... 380....| 000004E0: 01 80 00 00 00 |..... |
..M.D...BASIC LISTING TO LOAD AND DISPLA Y FILES CREATED USING THE 'F' COMMAND.]. N...IN 3D CAD.X.X...CHECK FILE LOAD FLAG ...... A.1 . . 190.M.....SET SCREEN COLO RS - CLEAR KEYBOARD BUFFER - GET FILE NA ME N$......53280,1:.53281,1:.".":.646,0: .198,0:."WHICH FILE";N$.). ...SET FILE F LAG AND LOAD FILE.A.... A.0 . A.1:.N$,8, 1.\.....GOTO DISPLAY OPTIONS.F.... 310.. .H...SUBROUTINE TO DISPLAY FILE...R..532 65,59......53272,120......56576,B(56576) .254.B...........SUBROUTINE TO DISPLAY N ORMAL SCREEN......53265,27......53272,23 ......56576,B(56576).1.$."...:.,...DISPL AY OPTIONS.].6.."PRESS F1 TO SEE 3D CAD FILE"...@.."PRESS F3 TO SEE NORMAL SCREE N"...J.."PRESS F5 TO END PROGRAM"...T.." PRESS F7 FOR NEW FILE".Z.^...CLEAR KEYBO ARD BUFFER...H..198,0...R...GET RESPONSE ...|.. K$.=.....CHECK FOR F1 KEY AND LOO P TO DISPLAY FILE SUBROUTIONE.X.... K$." ." . . 210:. 360......CHECK FOR F3 KEY A ND LOOP TO NORMAL SCREEN SUBROUTINE..... . K$."." . . 260:. 360.......CHECK FOR F 5 KEY AND LOOP TO NORMAL SCREEN SUBROUTI NE - THEN END...... K$."." . . 260:..H.B ...CHECK FOR F7 KEY AND LOOP TO NORMAL S CREEN SUBROUTINE...L...THEN SET FILE LOA D FLAG - THEN GOTO GET NEW FILE NAME SUB ROUTINE...V.. K$."." . . 260:A.0:. 140.R .....CHECK AGAIN FOR FKEY KEYPRESS...... 380.........
> CLICK IMAGE PREVIEW FOR FULL MODAL