MAKE SHAPE2
FILE INFORMATION
FILENAME(S): MAKE SHAPE2
FILE TYPE(S): PRG
FILE SIZE: 1K
FIRST SEEN: 2025-11-30 21:24:59
APPEARS ON: 1 disk(s)
FILE HASH
0c3e8e0c0da87a9c7e974f33b2350a86d2fd5ec116f59ce2fc1b272055d99d79
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PASCAL | MAKE SHAPE2 | PRG | DuncanTwain | 31 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1F 08 64 00 8F 20 4D 41 4B 45 20 53 48 41 |....d.. MAKE SHA| 00000010: 50 45 32 20 3A 20 52 45 4D 20 4B 55 42 55 53 00 |PE2 : REM KUBUS.| 00000020: 3C 08 8C 00 87 20 4E 3A 20 8F 20 41 41 4E 54 41 |<.... N: . AANTA| 00000030: 4C 20 48 4F 45 4B 50 55 4E 54 45 4E 00 55 08 96 |L HOEKPUNTEN.U..| 00000040: 00 87 20 41 50 3A 8F 20 41 41 4E 54 41 4C 20 50 |.. AP:. AANTAL P| 00000050: 4F 4C 59 27 53 00 5B 08 A0 00 3A 00 73 08 AA 00 |OLY'S.[...:.s...| 00000060: 86 20 48 50 28 4E 2C 33 29 2C 50 4E 28 41 50 2C |. HP(N,3),PN(AP,| 00000070: 31 35 29 00 79 08 B4 00 3A 00 87 08 BE 00 81 20 |15).y...:...... | 00000080: 49 B2 31 20 A4 20 4E 00 A7 08 C8 00 3A 20 87 20 |I.1 . N.....: . | 00000090: 48 50 28 49 2C 31 29 2C 48 50 28 49 2C 32 29 2C |HP(I,1),HP(I,2),| 000000A0: 48 50 28 49 2C 33 29 00 AF 08 D2 00 82 20 49 00 |HP(I,3)...... I.| 000000B0: B5 08 DC 00 3A 00 DD 08 E6 00 87 20 53 24 3A 20 |....:...... S$: | 000000C0: 8B 20 53 24 B3 B1 22 53 43 48 45 49 44 45 52 22 |. S$.."SCHEIDER"| 000000D0: 20 A7 20 99 C5 20 28 53 24 29 3A 20 90 00 E3 08 | . .. (S$): ....| 000000E0: F0 00 3A 00 F2 08 FA 00 81 20 52 B2 31 20 A4 20 |..:...... R.1 . | 000000F0: 41 50 00 02 09 04 01 3A 20 87 20 50 4E 28 52 2C |AP.....: . PN(R,| 00000100: 30 29 00 18 09 0E 01 3A 20 81 20 4A B2 31 20 A4 |0).....: . J.1 .| 00000110: 20 50 4E 28 52 2C 30 29 00 2A 09 18 01 3A 20 3A | PN(R,0).*...: :| 00000120: 20 87 20 50 4E 28 52 2C 4A 29 00 34 09 1D 01 3A | . PN(R,J).4...:| 00000130: 20 82 20 4A 00 3C 09 22 01 82 20 52 00 42 09 2C | . J.<.".. R.B.,| 00000140: 01 3A 00 68 09 36 01 85 20 22 93 11 11 11 4F 50 |.:.h.6.. "....OP| 00000150: 53 4C 41 41 4E 20 49 4E 20 57 45 4C 4B 45 20 46 |SLAAN IN WELKE F| 00000160: 49 4C 45 22 3B 20 46 24 00 90 09 40 01 8B 20 C9 |ILE"; F$...@.. .| 00000170: 28 46 24 2C 34 29 B2 22 2E 53 48 50 22 20 A7 20 |(F$,4).".SHP" . | 00000180: 46 24 B2 C8 28 46 24 2C C3 28 46 24 29 AB 34 29 |F$..(F$,.(F$).4)| 00000190: 00 9E 09 4A 01 43 52 24 B2 C7 28 31 33 29 00 BC |...J.CR$..(13)..| 000001A0: 09 54 01 85 20 22 11 11 57 45 4C 4B 45 20 44 52 |.T.. "..WELKE DR| 000001B0: 49 56 45 20 20 38 9D 9D 9D 22 3B 44 00 DD 09 5E |IVE 8...";D...^| 000001C0: 01 9F 20 31 2C 44 2C 31 30 2C 22 40 30 3A 22 AA |.. 1,D,10,"@0:".| 000001D0: 46 24 AA 22 2E 53 48 50 2C 53 2C 57 22 00 F2 09 |F$.".SHP,S,W"...| 000001E0: 68 01 98 31 2C 4E 3B 43 52 24 3B 41 50 3B 43 52 |h..1,N;CR$;AP;CR| 000001F0: 24 3B 00 00 0A 72 01 81 20 49 B2 31 20 A4 20 4E |$;...r.. I.1 . N| 00000200: 00 10 0A 7C 01 3A 20 81 20 58 B2 31 20 A4 20 33 |...|.: . X.1 . 3| 00000210: 00 28 0A 86 01 3A 20 3A 20 98 31 2C 48 50 28 49 |.(...: : .1,HP(I| 00000220: 2C 58 29 3B 43 52 24 3B 00 32 0A 8B 01 3A 20 82 |,X);CR$;.2...: .| 00000230: 20 58 00 3A 0A 90 01 82 20 49 00 40 0A 9A 01 3A | X.:.... I.@...:| 00000240: 00 46 0A A4 01 3A 00 55 0A AE 01 81 20 49 B2 31 |.F...:.U.... I.1| 00000250: 20 A4 20 41 50 00 6B 0A B8 01 3A 20 98 31 2C 50 | . AP.k...: .1,P| 00000260: 4E 28 49 2C 30 29 3B 43 52 24 3B 00 81 0A C2 01 |N(I,0);CR$;.....| 00000270: 3A 20 81 20 58 B2 31 20 A4 20 50 4E 28 49 2C 30 |: . X.1 . PN(I,0| 00000280: 29 00 99 0A CC 01 3A 20 3A 20 98 31 2C 50 4E 28 |).....: : .1,PN(| 00000290: 49 2C 58 29 3B 43 52 24 3B 00 A3 0A D1 01 3A 20 |I,X);CR$;.....: | 000002A0: 82 20 58 00 AB 0A D6 01 82 20 49 00 B1 0A E0 01 |. X...... I.....| 000002B0: 3A 00 B9 0A EA 01 A0 20 31 00 BF 0A F4 01 80 00 |:...... 1.......| 000002C0: C5 0A FE 01 3A 00 CB 0A 08 02 3A 00 ED 0A 12 02 |....:.....:.....| 000002D0: 83 20 38 2C 34 20 20 3A 20 8F 20 23 20 50 55 4E |. 8,4 : . # PUN| 000002E0: 54 45 4E 2C 20 23 20 50 4F 4C 59 27 53 00 F3 0A |TEN, # POLY'S...| 000002F0: 1C 02 3A 00 04 0B 26 02 8F 20 48 45 54 20 53 4B |..:...&.. HET SK| 00000300: 45 4C 45 54 00 13 0B 30 02 83 20 2D 35 2C 2D 35 |ELET...0.. -5,-5| 00000310: 2C 20 35 00 22 0B 35 02 83 20 20 35 2C 2D 35 2C |, 5.".5.. 5,-5,| 00000320: 20 35 00 31 0B 3A 02 83 20 20 35 2C 2D 35 2C 2D | 5.1.:.. 5,-5,-| 00000330: 35 00 40 0B 3F 02 83 20 2D 35 2C 2D 35 2C 2D 35 |5.@.?.. -5,-5,-5| 00000340: 00 4F 0B 44 02 83 20 2D 35 2C 20 35 2C 20 35 00 |.O.D.. -5, 5, 5.| 00000350: 5E 0B 49 02 83 20 20 35 2C 20 35 2C 20 35 00 6D |^.I.. 5, 5, 5.m| 00000360: 0B 4E 02 83 20 20 35 2C 20 35 2C 2D 35 00 7C 0B |.N.. 5, 5,-5.|.| 00000370: 53 02 83 20 2D 35 2C 20 35 2C 2D 35 00 82 0B 76 |S.. -5, 5,-5...v| 00000380: 02 3A 00 93 0B 80 02 83 20 22 53 43 48 45 49 44 |.:...... "SCHEID| 00000390: 45 52 22 00 99 0B 8A 02 3A 00 BD 0B 94 02 8F 20 |ER".....:...... | 000003A0: 20 50 4F 4C 59 27 53 20 2D 2D 20 41 41 4E 54 41 | POLY'S -- AANTA| 000003B0: 4C 2C 20 48 4F 45 4B 50 55 4E 54 45 4E 00 CF 0B |L, HOEKPUNTEN...| 000003C0: 9E 02 83 20 34 2C 20 20 31 2C 32 2C 36 2C 35 00 |... 4, 1,2,6,5.| 000003D0: E1 0B A8 02 83 20 34 2C 20 20 34 2C 33 2C 37 2C |..... 4, 4,3,7,| 000003E0: 38 00 F3 0B B2 02 83 20 34 2C 20 20 32 2C 33 2C |8...... 4, 2,3,| 000003F0: 37 2C 36 00 05 0C BC 02 83 20 34 2C 20 20 31 2C |7,6...... 4, 1,| 00000400: 34 2C 38 2C 35 00 00 00 |4,8,5... |
....D.. MAKE SHAPE2 : REM KUBUS.<.... N: . AANTAL HOEKPUNTEN.U.... AP:. AANTAL P OLY'S.[. .:.S.... HP(N,3),PN(AP,15).Y... :...... I.1 . N...H.: . HP(I,1),HP(I,2), HP(I,3)...R.. I.....:...... S$: . S$.."S CHEIDER" . .E (S$): ......:...... R.1 . AP.....: . PN(R,0).....: . J.1 . PN(R,0) .*...: : . PN(R,J).4...: . J.<.".. R.B., .:.H.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$;.2...: . X.:.... I.@...:.F...:.U.... I.1 . AP.K. ..: .1,PN(I,0);CR$;...B.: . X.1 . PN(I,0 )...L.: : .1,PN(I,X);CR$;...Q.: . X...V. . I.....:..... 1.......E...:.K...:..... . 8,4 : . # PUNTEN, # POLY'S.....:...&. . HET SKELET...0.. -5,-5, 5.".5.. 5,-5, 5.1.:.. 5,-5,-5.@.?.. -5,-5,-5.O.D.. - 5, 5, 5.^.I.. 5, 5, 5.M.N.. 5, 5,-5.|. S.. -5, 5,-5...V.:...... "SCHEIDER"..... :...... POLY'S -- AANTAL, HOEKPUNTEN.O. ... 4, 1,2,6,5...... 4, 4,3,7,8...... 4, 2,3,7,6...... 4, 1,4,8,5...
> CLICK IMAGE PREVIEW FOR FULL MODAL