_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

DISPLAY 3D

FILE INFORMATION

FILENAME(S): DISPLAY 3D

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-11-30 21:12:42

APPEARS ON: 3 disk(s)

FILE HASH

a537f640f0742703d6f87e7efa8a88a5f58d1a90220713178760eda08cbea8a8

FOUND ON DISKS (3 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
NERO SOFT 86 DISPLAY 3D PRG DuncanTwain 21 2 DOWNLOAD FILE
NERO SOFT 86 DISPLAY 3D PRG DuncanTwain 21 2 DOWNLOAD FILE
SCO DISPLAY 3D PRG hedning, Kaevlinge 1 2 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                    |0.........      |
..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.....
..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL