DISPLAY 3D
FILE INFORMATION
FILENAME(S): DISPLAY 3D
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-12-01 02:03:38
APPEARS ON: 1 disk(s)
FILE HASH
bdc75293e1bcf70105899710850eb643959354fb6e0c99a2ba741c77c8ccf8d2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| L MC | DISPLAY 3D | PRG | hedning, pewp | 17 | 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 31 00 1E 0A 18 01 97 35 36 |53272,21......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 C4 20 C3 C1 C4 20 46 49 4C 45 22 00 82 0A | 3. ... 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 52 0B |E SUBROUTIONE.R.| 00000340: 90 01 8B 20 4B 24 B2 22 85 22 20 A7 20 8D 20 32 |... K$."." . . 2| 00000350: 31 30 00 8E 0B 9A 01 8F 12 43 48 45 43 4B 20 46 |10.......CHECK F| 00000360: 4F 52 20 46 33 20 4B 45 59 20 41 4E 44 20 4C 4F |OR F3 KEY AND LO| 00000370: 4F 50 20 54 4F 20 4E 4F 52 4D 41 4C 20 53 43 52 |OP TO NORMAL SCR| 00000380: 45 45 4E 20 53 55 42 52 4F 55 54 49 4E 45 00 A3 |EEN SUBROUTINE..| 00000390: 0B A4 01 8B 20 4B 24 B2 22 86 22 20 A7 20 8D 20 |.... K$."." . . | 000003A0: 32 36 30 00 EA 0B AE 01 8F 12 43 48 45 43 4B 20 |260.......CHECK | 000003B0: 46 4F 52 20 46 35 20 4B 45 59 20 41 4E 44 20 4C |FOR F5 KEY AND L| 000003C0: 4F 4F 50 20 54 4F 20 4E 4F 52 4D 41 4C 20 53 43 |OOP TO NORMAL SC| 000003D0: 52 45 45 4E 20 53 55 42 52 4F 55 54 49 4E 45 20 |REEN SUBROUTINE | 000003E0: 2D 20 54 48 45 4E 20 45 4E 44 00 01 0C B8 01 8B |- THEN END......| 000003F0: 20 4B 24 B2 22 87 22 20 A7 20 8D 20 32 36 30 3A | K$."." . . 260:| 00000400: 80 00 3D 0C C2 01 8F 12 43 48 45 43 4B 20 46 4F |..=.....CHECK FO| 00000410: 52 20 46 37 20 4B 45 59 20 41 4E 44 20 4C 4F 4F |R F7 KEY AND LOO| 00000420: 50 20 54 4F 20 4E 4F 52 4D 41 4C 20 53 43 52 45 |P TO NORMAL SCRE| 00000430: 45 4E 20 53 55 42 52 4F 55 54 49 4E 45 00 84 0C |EN SUBROUTINE...| 00000440: CC 01 8F 12 54 48 45 4E 20 53 45 54 20 46 49 4C |....THEN SET FIL| 00000450: 45 20 4C 4F 41 44 20 46 4C 41 47 20 2D 20 54 48 |E LOAD FLAG - TH| 00000460: 45 4E 20 47 4F 54 4F 20 47 45 54 20 4E 45 57 20 |EN GOTO GET NEW | 00000470: 46 49 4C 45 20 4E 41 4D 45 20 53 55 42 52 4F 55 |FILE NAME SUBROU| 00000480: 54 49 4E 45 00 A3 0C D6 01 8B 20 4B 24 B2 22 88 |TINE...... K$.".| 00000490: 22 20 A7 20 8D 20 32 36 30 3A 41 B2 30 3A 89 20 |" . . 260:A.0:. | 000004A0: 31 34 30 00 C7 0C E0 01 8F 12 43 48 45 43 4B 20 |140.......CHECK | 000004B0: 41 47 41 49 4E 20 46 4F 52 20 46 4B 45 59 20 4B |AGAIN FOR FKEY K| 000004C0: 45 59 50 52 45 53 53 00 D1 0C EA 01 89 20 33 36 |EYPRESS...... 36| 000004D0: 30 00 D7 0C F4 01 80 00 00 00 00 00 00 00 00 00 |0...............| 000004E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................| 000004F0: 00 00 00 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,21 ......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.R.... K$." ." . . 210.......CHECK FOR F3 KEY AND LO OP TO NORMAL SCREEN SUBROUTINE...... K$. "." . . 260.......CHECK FOR F5 KEY AND L OOP TO NORMAL SCREEN SUBROUTINE - THEN E ND...... K$."." . . 260:..=.B...CHECK FO R F7 KEY AND LOOP TO NORMAL SCREEN SUBRO UTINE...L...THEN SET FILE LOAD FLAG - TH EN GOTO GET NEW FILE NAME SUBROUTINE...V .. K$."." . . 260:A.0:. 140.G.....CHECK AGAIN FOR FKEY KEYPRESS.Q.... 360.W..... ..............................
> CLICK IMAGE PREVIEW FOR FULL MODAL