1520 WIRE FRAME
FILE INFORMATION
FILENAME(S): 1520 WIRE FRAME
FILE TYPE(S): PRG
FILE SIZE: 4.1K
FIRST SEEN: 2025-10-20 14:32:02
APPEARS ON: 1 disk(s)
FILE HASH
eca6e8a8e9cba673240b51fd2d0ccd33f5aa6f3f443fd401d33625958196c2ac
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0055GR | 1520 WIRE FRAME | PRG | Treasure Chest - Klaus Der Suhler | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 28 1C 0A 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A |..(.... *******| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 00 4F 1C 14 00 8F 20 20 |********.O.... | 00000030: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 00000050: 76 1C 1E 00 8F 20 20 2A 20 20 20 20 20 20 20 20 |v.... * | 00000060: 20 20 20 53 50 4C 49 4E 45 20 20 20 20 20 20 20 | SPLINE | 00000070: 20 20 20 20 20 2A 00 9D 1C 28 00 8F 20 20 2A 20 | *...(.. * | 00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 C4 1C | *...| 000000A0: 32 00 8F 20 20 2A 20 20 20 20 33 44 20 57 49 52 |2.. * 3D WIR| 000000B0: 45 20 46 52 41 4D 45 20 47 52 41 50 48 49 43 53 |E FRAME GRAPHICS| 000000C0: 20 20 20 2A 00 EB 1C 3C 00 8F 20 20 2A 20 20 20 | *...<.. * | 000000D0: 55 53 49 4E 47 20 54 48 45 20 31 35 32 30 20 43 |USING THE 1520 C| 000000E0: 4F 4D 4D 4F 44 4F 52 45 20 20 2A 00 12 1D 46 00 |OMMODORE *...F.| 000000F0: 8F 20 20 2A 20 20 20 20 20 20 20 20 50 52 49 4E |. * PRIN| 00000100: 54 45 52 2F 50 4C 4F 54 54 45 52 20 20 20 20 20 |TER/PLOTTER | 00000110: 20 2A 00 39 1D 50 00 8F 20 20 2A 20 20 20 20 20 | *.9.P.. * | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 20 20 20 20 20 20 2A 00 60 1D 5A 00 8F 20 | *.`.Z.. | 00000140: 20 2A 20 20 20 20 20 20 20 20 47 41 52 46 49 45 | * GARFIE| 00000150: 4C 44 20 44 41 56 49 53 20 20 20 20 20 20 20 2A |LD DAVIS *| 00000160: 00 86 1D 64 00 8F 20 2A 20 20 20 20 20 20 20 20 |...d.. * | 00000170: 20 20 20 20 20 31 39 38 36 20 20 20 20 20 20 20 | 1986 | 00000180: 20 20 20 20 20 2A 00 AC 1D 6E 00 8F 20 2A 20 20 | *...n.. * | 00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001A0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 D2 1D 78 | *...x| 000001B0: 00 8F 20 2A 20 20 20 20 20 20 43 4F 4D 4D 4F 44 |.. * COMMOD| 000001C0: 4F 52 45 20 43 4F 4D 50 55 54 49 4E 47 20 20 20 |ORE COMPUTING | 000001D0: 20 2A 00 F8 1D 82 00 8F 20 2A 20 20 20 20 20 20 | *...... * | 000001E0: 20 20 20 20 20 4D 41 59 20 31 39 38 36 20 20 20 | MAY 1986 | 000001F0: 20 20 20 20 20 20 20 2A 00 1E 1E 8C 00 8F 20 2A | *...... *| 00000200: 20 20 20 20 20 20 20 20 20 20 50 41 47 45 20 36 | PAGE 6| 00000210: 37 2D 36 38 20 20 20 20 20 20 20 20 20 2A 00 44 |7-68 *.D| 00000220: 1E 96 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.... * | 00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000240: 20 20 20 2A 00 6A 1E A0 00 8F 20 2A 20 20 20 20 | *.j.... * | 00000250: 20 20 20 20 20 20 20 4D 4F 44 49 46 49 45 44 20 | MODIFIED | 00000260: 20 20 20 20 20 20 20 20 20 2A 00 90 1E AA 00 8F | *......| 00000270: 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | * | 00000280: 42 59 20 20 20 20 20 20 20 20 20 20 20 20 20 2A |BY *| 00000290: 00 B6 1E B4 00 8F 20 2A 20 20 20 20 20 20 20 20 |...... * | 000002A0: 20 20 4D 41 52 4B 20 20 53 45 4C 46 20 20 20 20 | MARK SELF | 000002B0: 20 20 20 20 20 2A 00 DC 1E BE 00 8F 20 2A 20 20 | *...... * | 000002C0: 20 20 20 20 20 20 20 27 53 49 44 45 48 41 43 4B | 'SIDEHACK| 000002D0: 45 52 27 20 20 20 20 20 20 20 20 2A 00 02 1F C8 |ER' *....| 000002E0: 00 8F 20 2A 20 20 20 20 20 20 20 20 20 4A 41 4E |.. * JAN| 000002F0: 55 41 52 59 20 31 39 38 38 20 20 20 20 20 20 20 |UARY 1988 | 00000300: 20 2A 00 28 1F D2 00 8F 20 2A 20 20 20 20 20 20 | *.(.... * | 00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000320: 20 20 20 20 20 20 20 2A 00 4E 1F DC 00 8F 20 2A | *.N.... *| 00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 54 |**************.T| 00000350: 1F E6 00 8F 00 72 1F F0 00 97 20 35 33 32 38 30 |.....r.... 53280| 00000360: 2C 36 3A 97 35 33 32 38 31 2C 36 3A 97 36 34 36 |,6:.53281,6:.646| 00000370: 2C 31 00 7E 1F FA 00 9F 20 31 2C 36 2C 31 00 8A |,1.~.... 1,6,1..| 00000380: 1F 04 01 9F 20 32 2C 36 2C 32 00 94 1F 0E 01 9F |.... 2,6,2......| 00000390: 20 34 2C 36 00 B4 1F 18 01 86 20 4D 28 32 34 2C | 4,6...... M(24,| 000003A0: 35 30 2C 32 29 2C 42 28 32 34 29 2C 59 47 28 32 |50,2),B(24),YG(2| 000003B0: 34 2C 32 29 00 C6 1F 22 01 41 4E B2 30 20 3A 20 |4,2)...".AN.0 : | 000003C0: 89 20 31 33 34 30 00 DE 1F 2C 01 8B 20 41 4E B2 |. 1340...,.. AN.| 000003D0: 32 20 B0 20 41 4E B2 33 20 A7 20 33 32 30 00 00 |2 . AN.3 . 320..| 000003E0: 20 36 01 54 48 B2 31 35 3A 50 48 B2 36 30 3A 50 | 6.TH.15:PH.60:P| 000003F0: 53 B2 30 30 3A 54 57 B2 30 30 3A 4E 45 B2 32 33 |S.00:TW.00:NE.23| 00000400: 00 0D 20 40 01 99 20 C7 28 31 34 37 29 00 1E 20 |.. @.. .(147).. | 00000410: 4A 01 8B 20 41 4E B2 31 20 A7 20 35 35 30 00 49 |J.. AN.1 . 550.I| 00000420: 20 54 01 99 20 22 13 11 4E 55 4D 42 45 52 20 4F | T.. "..NUMBER O| 00000430: 46 20 45 4C 45 4D 45 4E 54 53 20 28 31 2D 32 34 |F ELEMENTS (1-24| 00000440: 29 20 20 35 9D 9D 9D 22 3B 00 52 20 5E 01 85 20 |) 5...";.R ^.. | 00000450: 4E 45 00 6B 20 68 01 8B 20 4E 45 B3 31 20 B0 20 |NE.k h.. NE.1 . | 00000460: 4E 45 B1 32 34 20 A7 20 33 34 30 00 9D 20 72 01 |NE.24 . 340.. r.| 00000470: 99 20 22 13 11 11 44 45 47 52 45 45 53 20 52 4F |. "...DEGREES RO| 00000480: 54 41 54 49 4F 4E 20 53 49 44 45 20 54 4F 20 53 |TATION SIDE TO S| 00000490: 49 44 45 20 20 31 35 9D 9D 9D 9D 22 3B 00 A6 20 |IDE 15....";.. | 000004A0: 7C 01 85 20 54 48 00 C0 20 86 01 8B 20 54 48 B3 ||.. TH.. ... TH.| 000004B0: 30 20 B0 20 54 48 B1 33 36 30 20 A7 20 33 37 30 |0 . TH.360 . 370| 000004C0: 00 F0 20 90 01 99 20 22 13 11 11 11 44 45 47 52 |.. ... "....DEGR| 000004D0: 45 45 53 20 54 49 4C 54 20 46 52 4F 4E 54 20 54 |EES TILT FRONT T| 000004E0: 4F 20 42 41 43 4B 20 20 36 30 9D 9D 9D 9D 22 3B |O BACK 60....";| 000004F0: 00 F9 20 9A 01 85 20 50 48 00 13 21 A4 01 8B 20 |.. ... PH..!... | 00000500: 50 48 B3 30 20 B0 20 50 48 B1 33 36 30 20 A7 20 |PH.0 . PH.360 . | 00000510: 34 30 30 00 45 21 AE 01 99 20 22 13 11 11 11 11 |400.E!... ".....| 00000520: 44 45 47 52 45 45 53 20 52 4F 54 41 54 49 4F 4E |DEGREES ROTATION| 00000530: 20 4F 4E 20 54 48 45 20 41 58 49 53 20 30 30 9D | ON THE AXIS 00.| 00000540: 9D 9D 9D 22 3B 00 4E 21 B8 01 85 20 50 53 00 68 |...";.N!... PS.h| 00000550: 21 C2 01 8B 20 50 53 B3 30 20 B0 20 50 53 B1 33 |!... PS.0 . PS.3| 00000560: 36 30 20 A7 20 34 33 30 00 95 21 CC 01 99 20 22 |60 . 430..!... "| 00000570: 13 11 11 11 11 11 44 45 47 52 45 45 53 20 4F 46 |......DEGREES OF| 00000580: 20 41 58 49 53 20 54 57 49 53 54 20 20 31 35 9D | AXIS TWIST 15.| 00000590: 9D 9D 9D 22 3B 00 9E 21 D6 01 85 20 54 57 00 B8 |...";..!... TW..| 000005A0: 21 E0 01 8B 20 54 57 B3 30 20 B0 20 54 57 B1 33 |!... TW.0 . TW.3| 000005B0: 36 30 20 A7 20 34 36 30 00 C9 21 EA 01 8B 20 41 |60 . 460..!... A| 000005C0: 4E B2 32 20 A7 20 35 34 30 00 D6 21 F4 01 99 20 |N.2 . 540..!... | 000005D0: C7 28 31 34 37 29 00 E6 21 FE 01 81 20 59 47 B2 |.(147)..!... YG.| 000005E0: 31 20 A4 20 4E 45 00 1E 22 08 02 85 20 22 52 41 |1 . NE.."... "RA| 000005F0: 44 49 55 53 22 3B 59 47 28 59 47 2C 31 29 3A 99 |DIUS";YG(YG,1):.| 00000600: 20 22 91 22 2C 2C 3A 85 20 22 56 45 52 54 2E 20 | ".",,:. "VERT. | 00000610: 4C 4F 43 2E 22 3B 59 47 28 59 47 2C 32 29 00 24 |LOC.";YG(YG,2).$| 00000620: 22 12 02 82 00 31 22 1C 02 99 20 C7 28 31 34 37 |"....1"... .(147| 00000630: 29 00 40 22 26 02 81 20 4E B2 31 20 A4 20 4E 45 |).@"&.. N.1 . NE| 00000640: 00 52 22 30 02 8B 20 41 4E B3 B1 33 20 A7 20 35 |.R"0.. AN..3 . 5| 00000650: 38 30 00 74 22 3A 02 52 B2 59 47 28 4E 2C 31 29 |80.t":.R.YG(N,1)| 00000660: 20 3A 20 5A B2 59 47 28 4E 2C 32 29 20 3A 20 89 | : Z.YG(N,2) : .| 00000670: 20 35 39 30 00 7E 22 44 02 87 20 52 2C 5A 00 99 | 590.~"D.. R,Z..| 00000680: 22 4E 02 42 28 4E 29 B2 50 53 AD 31 30 AA 28 4E |"N.B(N).PS.10.(N| 00000690: AB 31 29 AC 54 57 AD 31 30 00 C1 22 58 02 99 20 |.1).TW.10.."X.. | 000006A0: 22 20 20 20 20 20 20 20 20 43 41 4C 43 55 4C 41 |" CALCULA| 000006B0: 54 49 4E 47 20 45 4C 45 4D 45 4E 54 20 23 22 3B |TING ELEMENT #";| 000006C0: 4E 00 D0 22 62 02 81 20 49 B2 30 20 A4 20 33 35 |N.."b.. I.0 . 35| 000006D0: 00 E2 22 6C 02 58 B2 52 AC BE 28 49 AC FF AD 31 |.."l.X.R..(I...1| 000006E0: 32 29 00 F4 22 76 02 59 B2 52 AC BF 28 49 AC FF |2).."v.Y.R..(I..| 000006F0: AD 31 32 29 00 FD 22 80 02 58 54 B2 58 00 24 23 |.12).."..XT.X.$#| 00000700: 8A 02 59 54 B2 59 AC BE 28 50 48 AC 32 AC FF AD |..YT.Y..(PH.2...| 00000710: 33 36 30 29 AA 5A AC BF 28 50 48 AC 32 AC FF AD |360).Z..(PH.2...| 00000720: 33 36 30 29 00 4D 23 94 02 58 55 B2 58 54 AC BE |360).M#..XU.XT..| 00000730: 28 54 48 AC 32 AC FF AD 33 36 30 29 AB 59 54 AC |(TH.2...360).YT.| 00000740: BF 28 54 48 AC 32 AC FF AD 33 36 30 29 00 76 23 |.(TH.2...360).v#| 00000750: 9E 02 59 55 B2 58 54 AC BF 28 54 48 AC 32 AC FF |..YU.XT..(TH.2..| 00000760: AD 33 36 30 29 AA 59 54 AC BE 28 54 48 AC 32 AC |.360).YT..(TH.2.| 00000770: FF AD 33 36 30 29 00 84 23 A8 02 58 58 B2 58 55 |..360)..#..XX.XU| 00000780: AA 32 34 30 00 8E 23 B2 02 59 59 B2 59 55 00 9E |.240..#..YY.YU..| 00000790: 23 BC 02 4D 28 4E 2C 49 2C 30 29 B2 58 58 00 AE |#..M(N,I,0).XX..| 000007A0: 23 C6 02 4D 28 4E 2C 49 2C 31 29 B2 59 59 00 B6 |#..M(N,I,1).YY..| 000007B0: 23 D0 02 82 20 49 00 BE 23 DA 02 82 20 4E 00 D8 |#... I..#... N..| 000007C0: 23 E4 02 8B 20 41 4E B2 31 20 A7 20 4E B2 32 34 |#... AN.1 . N.24| 000007D0: 20 3A 20 89 20 37 38 30 00 0F 24 EE 02 99 20 22 | : . 780..$... "| 000007E0: 93 11 11 11 11 11 11 1D 1D 1D 1D 1D 4E 55 4D 42 |............NUMB| 000007F0: 45 52 20 4F 46 20 53 49 44 45 53 20 28 32 2D 32 |ER OF SIDES (2-2| 00000800: 34 29 20 32 34 20 20 32 34 9D 9D 9D 9D 22 3B 00 |4) 24 24....";.| 00000810: 17 24 F8 02 85 20 4E 00 2E 24 02 03 8B 20 4E B3 |.$... N..$... N.| 00000820: 32 20 B0 20 4E B1 33 36 20 A7 20 37 35 30 00 39 |2 . N.36 . 750.9| 00000830: 24 0C 03 41 B2 32 34 AD 4E 00 42 24 16 03 98 32 |$..A.24.N.B$...2| 00000840: 2C 30 00 51 24 20 03 81 20 4E B2 31 20 A4 20 4E |,0.Q$ .. N.1 . N| 00000850: 45 00 70 24 2A 03 81 20 49 B2 42 28 4E 29 20 A4 |E.p$*.. I.B(N) .| 00000860: 20 28 32 34 AB 41 AA 42 28 4E 29 29 20 A9 20 41 | (24.A.B(N)) . A| 00000870: 00 8C 24 34 03 98 31 2C 22 4D 22 2C 4D 28 4E 2C |..$4..1,"M",M(N,| 00000880: 49 2C 30 29 4D 28 4E 2C 49 2C 31 29 00 AD 24 3E |I,0)M(N,I,1)..$>| 00000890: 03 98 31 2C 22 44 22 2C 4D 28 4E 2C 49 AA 41 2C |..1,"D",M(N,I.A,| 000008A0: 30 29 2C 4D 28 4E 2C 49 AA 41 2C 31 29 00 B5 24 |0),M(N,I.A,1)..$| 000008B0: 48 03 82 20 49 00 BD 24 52 03 82 20 4E 00 CF 24 |H.. I..$R.. N..$| 000008C0: 5C 03 8B 20 4E 45 B2 31 20 A7 20 31 31 39 30 00 |\.. NE.1 . 1190.| 000008D0: EE 24 66 03 81 20 48 B2 42 28 31 29 20 A4 20 28 |.$f.. H.B(1) . (| 000008E0: 32 34 AB 41 AA 42 28 31 29 29 20 A9 20 41 00 0B |24.A.B(1)) . A..| 000008F0: 25 70 03 98 31 2C 22 4D 22 2C 4D 28 31 2C 48 2C |%p..1,"M",M(1,H,| 00000900: 30 29 2C 4D 28 31 2C 48 2C 31 29 00 19 25 7A 03 |0),M(1,H,1)..%z.| 00000910: 4A B2 48 AA 54 57 AD 31 30 00 28 25 84 03 81 20 |J.H.TW.10.(%... | 00000920: 4E B2 32 20 A4 20 4E 45 00 45 25 8E 03 98 31 2C |N.2 . NE.E%...1,| 00000930: 22 44 22 2C 4D 28 4E 2C 4A 2C 30 29 2C 4D 28 4E |"D",M(N,J,0),M(N| 00000940: 2C 4A 2C 31 29 00 53 25 98 03 4A B2 4A AA 54 57 |,J,1).S%..J.J.TW| 00000950: AD 31 30 00 5B 25 A2 03 82 20 4E 00 63 25 AC 03 |.10.[%... N.c%..| 00000960: 82 20 48 00 72 25 B6 03 8F 20 20 20 52 20 20 20 |. H.r%... R | 00000970: 20 5A 00 81 25 C0 03 83 20 30 31 35 2C 20 32 30 | Z..%... 015, 20| 00000980: 30 00 90 25 CA 03 83 20 30 34 34 2C 20 31 38 30 |0..%... 044, 180| 00000990: 00 9F 25 D4 03 83 20 30 37 30 2C 20 31 36 30 00 |..%... 070, 160.| 000009A0: AE 25 DE 03 83 20 30 39 30 2C 20 31 34 30 00 BD |.%... 090, 140..| 000009B0: 25 E8 03 83 20 31 31 30 2C 20 31 32 30 00 CC 25 |%... 110, 120..%| 000009C0: F2 03 83 20 31 32 32 2C 20 31 30 30 00 DB 25 FC |... 122, 100..%.| 000009D0: 03 83 20 31 33 38 2C 20 30 38 30 00 EA 25 06 04 |.. 138, 080..%..| 000009E0: 83 20 31 34 38 2C 20 30 36 30 00 F9 25 10 04 83 |. 148, 060..%...| 000009F0: 20 31 35 32 2C 20 30 34 30 00 08 26 1A 04 83 20 | 152, 040..&... | 00000A00: 31 35 36 2C 20 30 32 30 00 17 26 24 04 83 20 31 |156, 020..&$.. 1| 00000A10: 35 38 2C 20 30 30 30 00 26 26 2E 04 83 20 31 36 |58, 000.&&... 16| 00000A20: 30 2C 2D 30 32 30 00 35 26 38 04 83 20 31 35 38 |0,-020.5&8.. 158| 00000A30: 2C 2D 30 34 30 00 44 26 42 04 83 20 31 35 36 2C |,-040.D&B.. 156,| 00000A40: 2D 30 36 30 00 53 26 4C 04 83 20 31 35 32 2C 2D |-060.S&L.. 152,-| 00000A50: 30 38 30 00 62 26 56 04 83 20 31 34 38 2C 2D 31 |080.b&V.. 148,-1| 00000A60: 30 30 00 71 26 60 04 83 20 31 33 38 2C 2D 31 32 |00.q&`.. 138,-12| 00000A70: 30 00 80 26 6A 04 83 20 31 32 32 2C 2D 31 34 30 |0..&j.. 122,-140| 00000A80: 00 8F 26 74 04 83 20 31 31 30 2C 2D 31 36 30 00 |..&t.. 110,-160.| 00000A90: 9E 26 7E 04 83 20 30 39 30 2C 2D 31 38 30 00 AD |.&~.. 090,-180..| 00000AA0: 26 88 04 83 20 30 37 30 2C 2D 32 30 30 00 BC 26 |&... 070,-200..&| 00000AB0: 92 04 83 20 30 34 34 2C 2D 32 32 30 00 CB 26 9C |... 044,-220..&.| 00000AC0: 04 83 20 30 31 35 2C 2D 32 34 30 00 D6 26 A6 04 |.. 015,-240..&..| 00000AD0: 98 31 2C 22 48 22 00 DF 26 B0 04 98 32 2C 30 00 |.1,"H"..&...2,0.| 00000AE0: E5 26 BA 04 8C 00 F0 26 C4 04 89 20 31 33 34 30 |.&.....&... 1340| 00000AF0: 00 16 27 CE 04 8F 2D 2D 2D 2D 2D 20 50 52 4F 47 |..'...----- PROG| 00000B00: 52 41 4D 20 49 4E 46 4F 20 2D 2D 2D 2D 2D 2D 2D |RAM INFO -------| 00000B10: 2D 2D 2D 2D 2D 2D 00 44 27 D8 04 52 B2 52 41 44 |------.D'..R.RAD| 00000B20: 49 55 53 20 4F 46 20 E2 20 96 49 4E 49 4E 47 20 |IUS OF . .INING | 00000B30: 45 41 43 48 20 20 20 20 20 20 20 20 45 4C 45 4D |EACH ELEM| 00000B40: 45 4E 54 2E 00 7D 27 E2 04 5A B2 B9 49 54 49 91 |ENT..}'..Z..ITI.| 00000B50: 20 4F 46 20 45 4C 45 4D 45 4E 54 20 91 20 41 58 | OF ELEMENT . AX| 00000B60: 49 53 20 AA 20 B0 20 AB 20 20 20 20 46 52 4F 4D |IS . . . FROM| 00000B70: 20 43 45 4E 54 52 41 4C 20 50 4F B5 2E 00 B5 27 | CENTRAL PO....'| 00000B80: EC 04 54 48 B2 41 4E 47 4C 45 20 4F 46 20 52 4F |..TH.ANGLE OF RO| 00000B90: 54 41 54 49 91 20 4F 46 20 46 49 47 55 52 45 20 |TATI. OF FIGURE | 00000BA0: 46 52 4F 4D 20 20 20 20 20 53 49 44 45 20 A4 20 |FROM SIDE . | 00000BB0: 53 49 44 45 2E 00 D7 27 F6 04 50 48 B2 41 4E 47 |SIDE...'..PH.ANG| 00000BC0: 4C 45 20 4F 46 20 54 49 4C 54 20 46 52 91 54 20 |LE OF TILT FR.T | 00000BD0: A4 20 42 41 43 4B 2E 00 F6 27 00 05 50 53 B2 41 |. BACK...'..PS.A| 00000BE0: 4E 47 4C 45 20 4F 46 20 52 4F 54 41 54 49 91 20 |NGLE OF ROTATI. | 00000BF0: 91 20 41 58 49 53 00 2A 28 0A 05 54 57 B2 41 4E |. AXIS.*(..TW.AN| 00000C00: 47 4C 45 20 4F 46 20 54 57 49 53 54 20 46 52 4F |GLE OF TWIST FRO| 00000C10: 4D 20 45 4C 45 4D 45 4E 54 20 A4 20 20 20 20 20 |M ELEMENT . | 00000C20: 20 20 45 4C 45 4D 45 4E 54 2E 00 77 28 14 05 41 | ELEMENT..w(..A| 00000C30: 4C 4C 20 41 4E 47 4C 45 53 20 41 52 45 20 4D 45 |LL ANGLES ARE ME| 00000C40: 53 41 53 55 52 45 44 20 49 4E 20 44 45 47 52 45 |SASURED IN DEGRE| 00000C50: 45 53 2C 20 20 20 20 55 53 45 20 91 4C 59 20 4D |ES, USE .LY M| 00000C60: 55 4C 54 49 50 4C 45 53 20 4F 46 20 31 35 20 44 |ULTIPLES OF 15 D| 00000C70: 45 47 52 45 45 53 2E 00 AC 28 1E 05 50 52 4F 47 |EGREES...(..PROG| 00000C80: 52 41 4D 20 54 41 4B 45 53 20 55 50 20 A4 20 31 |RAM TAKES UP . 1| 00000C90: 20 4D 49 4E 55 54 45 20 A4 20 20 20 20 20 20 20 | MINUTE . | 00000CA0: 20 20 43 41 4C 43 55 4C 41 54 45 2E 00 F4 28 28 | CALCULATE...((| 00000CB0: 05 54 48 45 20 57 B0 44 20 22 43 41 4C 43 55 4C |.THE W.D "CALCUL| 00000CC0: 41 54 49 4E 47 22 20 57 49 4C 4C 20 41 50 50 45 |ATING" WILL APPE| 00000CD0: 41 52 20 20 20 20 20 20 41 53 20 45 41 43 48 20 |AR AS EACH | 00000CE0: 53 54 41 47 45 20 49 53 20 43 41 4C 43 55 4C 41 |STAGE IS CALCULA| 00000CF0: 54 45 44 2E 00 1A 29 32 05 8F 2D 2D 2D 2D 2D 2D |TED...)2..------| 00000D00: 2D 2D 20 4D 41 49 4E 20 4D 45 4E 55 20 2D 2D 2D |-- MAIN MENU ---| 00000D10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 27 29 3C 05 99 |----------.')<..| 00000D20: 20 C7 28 31 34 37 29 00 32 29 46 05 99 20 22 13 | .(147).2)F.. ".| 00000D30: 11 22 00 5B 29 50 05 99 20 22 20 20 20 20 20 20 |.".[)P.. " | 00000D40: 20 20 20 33 2D 44 20 57 49 52 45 20 46 52 41 4D | 3-D WIRE FRAM| 00000D50: 45 20 47 52 41 50 48 49 43 53 22 00 7E 29 5A 05 |E GRAPHICS".~)Z.| 00000D60: 99 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |. " | 00000D70: 20 46 4F 52 20 54 48 45 20 31 35 32 30 22 00 A3 | FOR THE 1520"..| 00000D80: 29 64 05 99 20 22 20 20 20 20 20 20 20 20 20 20 |)d.. " | 00000D90: 20 20 20 50 52 49 4E 54 45 52 2F 50 4C 4F 54 54 | PRINTER/PLOTT| 00000DA0: 45 52 22 00 AB 29 6E 05 99 20 22 00 C8 29 78 05 |ER"..)n.. "..)x.| 00000DB0: 99 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |. " | 00000DC0: 20 20 20 20 20 20 42 59 00 ED 29 82 05 99 20 22 | BY..)... "| 00000DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 47 41 52 | GAR| 00000DE0: 46 49 45 4C 44 20 20 44 41 56 49 53 22 00 0B 2A |FIELD DAVIS"..*| 00000DF0: 8C 05 99 20 22 20 20 20 20 20 20 20 20 20 20 20 |... " | 00000E00: 20 20 20 20 20 20 20 31 39 38 36 00 13 2A 96 05 | 1986..*..| 00000E10: 99 20 22 00 33 2A A0 05 99 20 22 20 20 20 20 20 |. ".3*... " | 00000E20: 20 20 20 20 20 20 20 20 20 20 20 4D 4F 44 49 46 | MODIF| 00000E30: 49 45 44 00 54 2A AA 05 99 20 22 20 20 20 20 20 |IED.T*... " | 00000E40: 20 20 20 20 20 20 20 20 20 20 46 4F 52 20 36 34 | FOR 64| 00000E50: 2F 31 32 38 00 71 2A B4 05 99 20 22 20 20 20 20 |/128.q*... " | 00000E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 | B| 00000E70: 59 00 92 2A BE 05 99 20 22 20 20 20 20 20 20 20 |Y..*... " | 00000E80: 20 20 20 20 20 20 20 20 4D 41 52 4B 20 20 53 45 | MARK SE| 00000E90: 4C 46 00 B0 2A C8 05 99 20 22 20 20 20 20 20 20 |LF..*... " | 00000EA0: 20 20 20 20 20 20 20 20 20 20 20 20 31 39 38 38 | 1988| 00000EB0: 00 B8 2A D2 05 99 20 22 00 D3 2A DC 05 99 20 22 |..*... "..*... "| 00000EC0: 20 20 20 20 20 20 20 31 2E 20 52 55 4E 20 44 45 | 1. RUN DE| 00000ED0: 4D 4F 22 00 F1 2A E6 05 99 20 22 20 20 20 20 20 |MO"..*... " | 00000EE0: 20 20 32 2E 20 4D 4F 44 49 46 59 20 44 45 4D 4F | 2. MODIFY DEMO| 00000EF0: 22 00 16 2B F0 05 99 20 22 20 20 20 20 20 20 20 |"..+... " | 00000F00: 33 2E 20 44 45 46 49 4E 45 20 4E 45 57 20 47 52 |3. DEFINE NEW GR| 00000F10: 41 50 48 49 43 22 00 40 2B FA 05 99 20 22 20 20 |APHIC".@+... " | 00000F20: 20 20 20 20 20 34 2E 20 45 4A 45 43 54 20 50 41 | 4. EJECT PA| 00000F30: 50 45 52 20 46 4F 52 20 47 52 41 50 48 49 43 22 |PER FOR GRAPHIC"| 00000F40: 00 5F 2B 04 06 99 20 22 20 20 20 20 20 20 20 35 |._+... " 5| 00000F50: 2E 20 45 58 49 54 20 50 52 4F 47 52 41 4D 22 00 |. EXIT PROGRAM".| 00000F60: 65 2B 0E 06 99 00 8B 2B 18 06 99 20 22 20 20 20 |e+.....+... " | 00000F70: 20 20 20 20 50 4C 45 41 53 45 20 4D 41 4B 45 20 | PLEASE MAKE | 00000F80: 53 45 4C 45 43 54 49 4F 4E 22 3B 00 94 2B 22 06 |SELECTION";..+".| 00000F90: 85 20 4D 41 00 AE 2B 2C 06 8B 20 4D 41 B2 31 20 |. MA..+,.. MA.1 | 00000FA0: A7 20 41 4E B2 31 20 3A 20 89 20 33 30 30 00 C8 |. AN.1 : . 300..| 00000FB0: 2B 36 06 8B 20 4D 41 B2 32 20 A7 20 41 4E B2 32 |+6.. MA.2 . AN.2| 00000FC0: 20 3A 20 89 20 33 30 30 00 E2 2B 40 06 8B 20 4D | : . 300..+@.. M| 00000FD0: 41 B2 33 20 A7 20 41 4E B2 33 20 3A 20 89 20 33 |A.3 . AN.3 : . 3| 00000FE0: 30 30 00 F4 2B 4A 06 8B 20 4D 41 B2 34 20 A7 20 |00..+J.. MA.4 . | 00000FF0: 31 36 34 30 00 0E 2C 54 06 8B 20 4D 41 B2 35 20 |1640..,T.. MA.5 | 00001000: A7 20 99 20 C7 28 31 34 37 29 20 3A 20 80 00 33 |. . .(147) : ..3| 00001010: 2C 5E 06 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 20 45 4A |,^.. -------- EJ| 00001020: 45 43 54 20 50 41 50 45 52 20 2D 2D 2D 2D 2D 2D |ECT PAPER ------| 00001030: 2D 2D 2D 00 43 2C 68 06 81 20 42 43 B2 31 20 A4 |---.C,h.. BC.1 .| 00001040: 20 31 30 00 51 2C 72 06 97 20 35 33 32 38 30 2C | 10.Q,r.. 53280,| 00001050: 30 00 65 2C 7C 06 98 31 2C 22 4D 22 2C 30 2C 42 |0.e,|..1,"M",0,B| 00001060: 43 AC AB 33 30 00 73 2C 86 06 97 20 35 33 32 38 |C..30.s,... 5328| 00001070: 30 2C 36 00 79 2C 90 06 82 00 80 2C 9A 06 98 34 |0,6.y,.....,...4| 00001080: 00 8B 2C A4 06 89 20 31 33 35 30 00 00 00 |..,... 1350... |
..(.... *******************************
.O.... * *.
V.... * SPLINE *..
.(.. * *.D.
2.. * 3D WIRE FRAME GRAPHICS *...<
.. * USING THE 1520 COMMODORE *...F.
. * PRINTER/PLOTTER *.9.P..
* *.`.Z..
* GARFIELD DAVIS *...D.. *
1986 *...N.. *
*.R.X.. *
COMMODORE COMPUTING *...... *
MAY 1986 *...... *
PAGE 67-68 *.D.... *
*.J. .. * M
ODIFIED *...... *
BY *...... * MARK
SELF *...... * 'SIDEHACK
ER' *...H.. * JANUARY 198
8 *.(.R.. *
*.N.... *************************
******.T.....R.... 53280,6:.53281,6:.646
,1.~.... 1,6,1...... 2,6,2...... 4,6....
.. M(24,50,2),B(24),YG(24,2).F.".AN.0 :
. 1340...,.. AN.2 . AN.3 . 320.. 6.TH.15
:PH.60:PS.00:TW.00:NE.23.. @.. G(147)..
J.. AN.1 . 550.I T.. "..NUMBER OF ELEMEN
TS (1-24) 5...";.R ^.. NE.K H.. NE.1 .
NE.24 . 340.. R.. "...DEGREES ROTATION S
IDE TO SIDE 15....";.. |.. TH.. ... TH.
0 . TH.360 . 370.. ... "....DEGREES TILT
FRONT TO BACK 60....";.. ... PH..!...
PH.0 . PH.360 . 400.E!... ".....DEGREES
ROTATION ON THE AXIS 00....";.N!... PS.H
!B.. PS.0 . PS.360 . 430..!L.. "......DE
GREES OF AXIS TWIST 15....";..!V.. TW..
!... TW.0 . TW.360 . 460.I!... AN.2 . 54
0.V!... G(147)..!... YG.1 . NE.."... "RA
DIUS";YG(YG,1):. ".",,:. "VERT. LOC.";YG
(YG,2).$"....1"... G(147).@"&.. N.1 . NE
.R"0.. AN..3 . 580.T":.R.YG(N,1) : Z.YG(
N,2) : . 590.~"D.. R,Z.."N.B(N).PS.10.(N
.1).TW.10.A"X.. " CALCULATING ELE
MENT #";N.P"B.. I.0 . 35.."L.X.R..(I...1
2).."V.Y.R..(I...12).."..XT.X.$#..YT.Y..
(PH.2...360).Z..(PH.2...360).M#..XU.XT..
(TH.2...360).YT..(TH.2...360).V#..YU.XT.
.(TH.2...360).YT..(TH.2...360)..#..XX.XU
.240..#..YY.YU..#..M(N,I,0).XX..#F.M(N,I
,1).YY..#P.. I..#Z.. N.X#... AN.1 . N.24
: . 780..$... "............NUMBER OF SI
DES (2-24) 24 24....";..$... N..$... N.
2 . N.36 . 750.9$..A.24.N.B$...2,0.Q$ ..
N.1 . NE.P$*.. I.B(N) . (24.A.B(N)) . A
..$4..1,"M",M(N,I,0)M(N,I,1)..$>..1,"D",
M(N,I.A,0),M(N,I.A,1)..$H.. I..$R.. N.O$
\.. NE.1 . 1190..$F.. H.B(1) . (24.A.B(1
)) . A..%P..1,"M",M(1,H,0),M(1,H,1)..%Z.
J.H.TW.10.(%... N.2 . NE.E%...1,"D",M(N,
J,0),M(N,J,1).S%..J.J.TW.10.[%... N.C%..
. H.R%... R Z..%... 015, 200..%J..
044, 180..%T.. 070, 160..%... 090, 140..
%... 110, 120.L%... 122, 100..%... 138,
080..%... 148, 060..%... 152, 040..&...
156, 020..&$.. 158, 000.&&... 160,-020.5
&8.. 158,-040.D&B.. 156,-060.S&L.. 152,-
080.B&V.. 148,-100.Q&`.. 138,-120..&J..
122,-140..&T.. 110,-160..&~.. 090,-180..
&... 070,-200..&... 044,-220.K&... 015,-
240.V&...1,"H"..&...2,0..&.....&D.. 1340
..'N..----- PROGRAM INFO -------------.D
'X.R.RADIUS OF . .INING EACH ELEM
ENT..}'..Z..ITI. OF ELEMENT . AXIS . . .
FROM CENTRAL PO....'..TH.ANGLE OF RO
TATI. OF FIGURE FROM SIDE . SIDE..W'
..PH.ANGLE OF TILT FR.T . BACK...'..PS.A
NGLE OF ROTATI. . AXIS.*(..TW.ANGLE OF T
WIST FROM ELEMENT . ELEMENT..W(..A
LL ANGLES ARE MESASURED IN DEGREES, U
SE .LY MULTIPLES OF 15 DEGREES...(..PROG
RAM TAKES UP . 1 MINUTE . CALCUL
ATE...((.THE W.D "CALCULATING" WILL APPE
AR AS EACH STAGE IS CALCULATED...)2
..-------- MAIN MENU -------------.')<..
G(147).2)F.. "..".[)P.. " 3-D W
IRE FRAME GRAPHICS".~)Z.. "
FOR THE 1520"..)D.. " PRINT
ER/PLOTTER"..)N.. ".H)X.. "
BY..)... " GARFIELD D
AVIS"..*... " 1986..*..
. ".3* .. " MODIFIED.T*..
. " FOR 64/128.Q*... "
BY..*... "
MARK SELF..*H.. " 1988
..*R.. ".S*... " 1. RUN DEMO"..*..
. " 2. MODIFY DEMO"..+... "
3. DEFINE NEW GRAPHIC".@+... " 4.
EJECT PAPER FOR GRAPHIC"._+... " 5
. EXIT PROGRAM".E+.....+... " PLEA
SE MAKE SELECTION";..+".. MA..+,.. MA.1
. AN.1 : . 300.H+6.. MA.2 . AN.2 : . 300
..+@.. MA.3 . AN.3 : . 300..+J.. MA.4 .
1640..,T.. MA.5 . . G(147) : ..3,^.. ---
----- EJECT PAPER ---------.C,H.. BC.1 .
10.Q,R.. 53280,0.E,|..1,"M",0,BC..30.S,
... 53280,6.Y,.....,...4..,... 1350...
> CLICK IMAGE PREVIEW FOR FULL MODAL