MAKE SHAPE1
FILE INFORMATION
FILENAME(S): MAKE SHAPE1
FILE TYPE(S): PRG
FILE SIZE: 969b
FIRST SEEN: 2025-11-30 21:24:59
APPEARS ON: 1 disk(s)
FILE HASH
5b76372f1c83674e12cf9e501137555fc90a4f9eab8bbf35c2f02e58e0c7bc41
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PASCAL | MAKE SHAPE1 | PRG | DuncanTwain | 5 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 64 00 8F 20 4D 41 4B 45 20 53 48 41 |..".d.. MAKE SHA| 00000010: 50 45 31 20 3A 20 52 45 4D 20 50 59 52 41 4D 49 |PE1 : REM PYRAMI| 00000020: 44 45 00 3F 08 8C 00 87 20 4E 3A 20 8F 20 41 41 |DE.?.... N: . AA| 00000030: 4E 54 41 4C 20 48 4F 45 4B 50 55 4E 54 45 4E 00 |NTAL HOEKPUNTEN.| 00000040: 58 08 96 00 87 20 41 50 3A 8F 20 41 41 4E 54 41 |X.... AP:. AANTA| 00000050: 4C 20 50 4F 4C 59 27 53 00 5E 08 A0 00 3A 00 76 |L POLY'S.^...:.v| 00000060: 08 AA 00 86 20 48 50 28 4E 2C 33 29 2C 50 4E 28 |.... HP(N,3),PN(| 00000070: 41 50 2C 31 35 29 00 7C 08 B4 00 3A 00 8A 08 BE |AP,15).|...:....| 00000080: 00 81 20 49 B2 31 20 A4 20 4E 00 AA 08 C8 00 3A |.. I.1 . N.....:| 00000090: 20 87 20 48 50 28 49 2C 31 29 2C 48 50 28 49 2C | . HP(I,1),HP(I,| 000000A0: 32 29 2C 48 50 28 49 2C 33 29 00 B2 08 D2 00 82 |2),HP(I,3)......| 000000B0: 20 49 00 B8 08 DC 00 3A 00 E0 08 E6 00 87 20 53 | I.....:...... S| 000000C0: 24 3A 20 8B 20 53 24 B3 B1 22 53 43 48 45 49 44 |$: . S$.."SCHEID| 000000D0: 45 52 22 20 A7 20 99 C5 20 28 53 24 29 3A 20 90 |ER" . .. (S$): .| 000000E0: 00 E6 08 F0 00 3A 00 F5 08 FA 00 81 20 52 B2 31 |.....:...... R.1| 000000F0: 20 A4 20 41 50 00 05 09 04 01 3A 20 87 20 50 4E | . AP.....: . PN| 00000100: 28 52 2C 30 29 00 1B 09 0E 01 3A 20 81 20 4A B2 |(R,0).....: . J.| 00000110: 31 20 A4 20 50 4E 28 52 2C 30 29 00 2D 09 18 01 |1 . PN(R,0).-...| 00000120: 3A 20 3A 20 87 20 50 4E 28 52 2C 4A 29 00 37 09 |: : . PN(R,J).7.| 00000130: 1D 01 3A 20 82 20 4A 00 3F 09 22 01 82 20 52 00 |..: . J.?.".. R.| 00000140: 45 09 2C 01 3A 00 6B 09 36 01 85 20 22 93 11 11 |E.,.:.k.6.. "...| 00000150: 11 4F 50 53 4C 41 41 4E 20 49 4E 20 57 45 4C 4B |.OPSLAAN IN WELK| 00000160: 45 20 46 49 4C 45 22 3B 20 46 24 00 93 09 40 01 |E FILE"; F$...@.| 00000170: 8B 20 C9 28 46 24 2C 34 29 B2 22 2E 53 48 50 22 |. .(F$,4).".SHP"| 00000180: 20 A7 20 46 24 B2 C8 28 46 24 2C C3 28 46 24 29 | . F$..(F$,.(F$)| 00000190: AB 34 29 00 A1 09 4A 01 43 52 24 B2 C7 28 31 33 |.4)...J.CR$..(13| 000001A0: 29 00 BF 09 54 01 85 20 22 11 11 57 45 4C 4B 45 |)...T.. "..WELKE| 000001B0: 20 44 52 49 56 45 20 20 38 9D 9D 9D 22 3B 44 00 | DRIVE 8...";D.| 000001C0: E0 09 5E 01 9F 20 31 2C 44 2C 31 30 2C 22 40 30 |..^.. 1,D,10,"@0| 000001D0: 3A 22 AA 46 24 AA 22 2E 53 48 50 2C 53 2C 57 22 |:".F$.".SHP,S,W"| 000001E0: 00 F5 09 68 01 98 31 2C 4E 3B 43 52 24 3B 41 50 |...h..1,N;CR$;AP| 000001F0: 3B 43 52 24 3B 00 03 0A 72 01 81 20 49 B2 31 20 |;CR$;...r.. I.1 | 00000200: A4 20 4E 00 13 0A 7C 01 3A 20 81 20 58 B2 31 20 |. N...|.: . X.1 | 00000210: A4 20 33 00 2B 0A 86 01 3A 20 3A 20 98 31 2C 48 |. 3.+...: : .1,H| 00000220: 50 28 49 2C 58 29 3B 43 52 24 3B 00 35 0A 8B 01 |P(I,X);CR$;.5...| 00000230: 3A 20 82 20 58 00 3D 0A 90 01 82 20 49 00 43 0A |: . X.=.... I.C.| 00000240: 9A 01 3A 00 49 0A A4 01 3A 00 58 0A AE 01 81 20 |..:.I...:.X.... | 00000250: 49 B2 31 20 A4 20 41 50 00 6E 0A B8 01 3A 20 98 |I.1 . AP.n...: .| 00000260: 31 2C 50 4E 28 49 2C 30 29 3B 43 52 24 3B 00 84 |1,PN(I,0);CR$;..| 00000270: 0A C2 01 3A 20 81 20 58 B2 31 20 A4 20 50 4E 28 |...: . X.1 . PN(| 00000280: 49 2C 30 29 00 9C 0A CC 01 3A 20 3A 20 98 31 2C |I,0).....: : .1,| 00000290: 50 4E 28 49 2C 58 29 3B 43 52 24 3B 00 A6 0A D1 |PN(I,X);CR$;....| 000002A0: 01 3A 20 82 20 58 00 AE 0A D6 01 82 20 49 00 B4 |.: . X...... I..| 000002B0: 0A E0 01 3A 00 BC 0A EA 01 A0 20 31 00 C2 0A F4 |...:...... 1....| 000002C0: 01 80 00 C8 0A FE 01 3A 00 CE 0A 08 02 3A 00 F0 |.......:.....:..| 000002D0: 0A 12 02 83 20 34 2C 34 20 20 3A 20 8F 20 23 20 |.... 4,4 : . # | 000002E0: 50 55 4E 54 45 4E 2C 20 23 20 50 4F 4C 59 27 53 |PUNTEN, # POLY'S| 000002F0: 00 F6 0A 1C 02 3A 00 07 0B 26 02 8F 20 48 45 54 |.....:...&.. HET| 00000300: 20 53 4B 45 4C 45 54 00 16 0B 30 02 83 20 2D 35 | SKELET...0.. -5| 00000310: 2C 2D 35 2C 2D 35 00 24 0B 3A 02 83 20 35 2C 2D |,-5,-5.$.:.. 5,-| 00000320: 35 2C 2D 35 00 31 0B 44 02 83 20 30 2C 2D 35 2C |5,-5.1.D.. 0,-5,| 00000330: 35 00 3D 0B 4E 02 83 20 30 2C 35 2C 30 00 43 0B |5.=.N.. 0,5,0.C.| 00000340: 76 02 3A 00 54 0B 80 02 83 20 22 53 43 48 45 49 |v.:.T.... "SCHEI| 00000350: 44 45 52 22 00 5A 0B 8A 02 3A 00 7E 0B 94 02 8F |DER".Z...:.~....| 00000360: 20 20 50 4F 4C 59 27 53 20 2D 2D 20 41 41 4E 54 | POLY'S -- AANT| 00000370: 41 4C 2C 20 48 4F 45 4B 50 55 4E 54 45 4E 00 90 |AL, HOEKPUNTEN..| 00000380: 0B 9E 02 83 20 34 2C 20 20 31 2C 32 2C 34 2C 31 |.... 4, 1,2,4,1| 00000390: 00 A2 0B A8 02 83 20 34 2C 20 20 32 2C 33 2C 34 |...... 4, 2,3,4| 000003A0: 2C 32 00 B4 0B B2 02 83 20 34 2C 20 20 31 2C 33 |,2...... 4, 1,3| 000003B0: 2C 34 2C 31 00 C6 0B BC 02 83 20 34 2C 20 20 31 |,4,1...... 4, 1| 000003C0: 2C 32 2C 33 2C 31 00 00 00 |,2,3,1... |
..".D.. MAKE SHAPE1 : REM PYRAMIDE.?.... N: . AANTAL HOEKPUNTEN.X.... AP:. AANTA L POLY'S.^. .:.V.... HP(N,3),PN(AP,15).| ...:...... I.1 . N...H.: . HP(I,1),HP(I, 2),HP(I,3)...R.. I.....:...... S$: . S$. ."SCHEIDER" . .E (S$): ......:...... R.1 . AP.....: . PN(R,0).....: . J.1 . PN(R ,0).-...: : . PN(R,J).7...: . J.?.".. R. E.,.:.K.6.. "....OPSLAAN IN WELKE FILE"; F$...@.. I(F$,4).".SHP" . F$.H(F$,C(F$) .4)...J.CR$.G(13)...T.. "..WELKE DRIVE 8...";D...^.. 1,D,10,"@0:".F$.".SHP,S,W" ...H..1,N;CR$;AP;CR$;...R.. I.1 . N...|. : . X.1 . 3.+...: : .1,HP(I,X);CR$;.5... : . X.=.... I.C...:.I...:.X.... I.1 . AP .N...: .1,PN(I,0);CR$;...B.: . X.1 . PN( I,0)...L.: : .1,PN(I,X);CR$;...Q.: . X.. .V.. I.....:..... 1.B.....H...:.N...:.. .... 4,4 : . # PUNTEN, # POLY'S.....:.. .&.. HET SKELET...0.. -5,-5,-5.$.:.. 5,- 5,-5.1.D.. 0,-5,5.=.N.. 0,5,0.C.V.:.T... . "SCHEIDER".Z...:.~.... POLY'S -- AANT AL, HOEKPUNTEN...... 4, 1,2,4,1...... 4 , 2,3,4,2...... 4, 1,3,4,1.F.... 4, 1 ,2,3,1...
> CLICK IMAGE PREVIEW FOR FULL MODAL