SHAPE GENERATOR
FILE INFORMATION
FILENAME(S): SHAPE GENERATOR
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
0540ba91f7ac20052ab7b5b7a66481ce5ef4b5f2b2262148ba12a164d2acccee
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CBM 64 2 | SHAPE GENERATOR | PRG | DuncanTwain | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 52 08 01 00 8F 41 41 41 41 41 41 41 41 41 |..R....AAAAAAAAA| 00000010: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 00000020: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 00000030: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 00000040: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 00000050: 41 41 00 A3 08 02 00 8F 41 41 41 41 41 41 41 41 |AA......AAAAAAAA| 00000060: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 00000070: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 00000080: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 00000090: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 000000A0: 41 41 41 00 F4 08 03 00 8F 41 41 41 41 41 41 41 |AAA......AAAAAAA| 000000B0: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 000000C0: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 000000D0: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 000000E0: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 000000F0: 41 41 41 41 00 45 09 04 00 8F 41 41 41 41 41 41 |AAAA.E....AAAAAA| 00000100: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 00000110: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 00000120: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 00000130: 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 41 |AAAAAAAAAAAAAAAA| 00000140: 41 41 41 41 41 00 4B 09 32 00 8F 00 51 09 3C 00 |AAAAA.K.2...Q.<.| 00000150: 8F 00 73 09 64 00 99 C7 28 31 34 37 29 3A 81 58 |..s.d...(147):.X| 00000160: B2 35 35 32 39 36 A4 35 36 32 39 35 3A 97 58 2C |.55296.56295:.X,| 00000170: 33 3A 82 00 A1 09 69 00 99 C7 28 31 34 35 29 3B |3:....i...(145);| 00000180: A3 31 33 29 3B C7 28 31 38 29 3B 22 53 48 41 50 |.13);.(18);"SHAP| 00000190: 45 20 47 45 4E 20 31 2E 30 22 3B C7 28 31 34 36 |E GEN 1.0";.(146| 000001A0: 29 00 C7 09 6B 00 99 3A 99 22 20 22 3B C7 28 31 |)...k..:." ";.(1| 000001B0: 38 29 3B 22 49 22 3B C7 28 31 34 36 29 3B 22 20 |8);"I";.(146);" | 000001C0: 20 20 3D 20 55 50 22 00 ED 09 6D 00 99 22 20 22 | = UP"...m.." "| 000001D0: 3B C7 28 31 38 29 3B 22 4D 22 3B C7 28 31 34 36 |;.(18);"M";.(146| 000001E0: 29 3B 22 20 20 20 3D 20 44 4F 57 4E 22 00 13 0A |);" = DOWN"...| 000001F0: 6F 00 99 22 20 22 3B C7 28 31 38 29 3B 22 4A 22 |o.." ";.(18);"J"| 00000200: 3B C7 28 31 34 36 29 3B 22 20 20 20 3D 20 4C 45 |;.(146);" = LE| 00000210: 46 54 22 00 3A 0A 71 00 99 22 20 22 3B C7 28 31 |FT".:.q.." ";.(1| 00000220: 38 29 3B 22 4B 22 3B C7 28 31 34 36 29 3B 22 20 |8);"K";.(146);" | 00000230: 20 20 3D 20 52 49 47 48 54 22 00 62 0A 72 00 99 | = RIGHT".b.r..| 00000240: 22 20 22 3B C7 28 31 38 29 3B 22 43 4F 4D 22 3B |" ";.(18);"COM";| 00000250: C7 28 31 34 36 29 3B 22 20 3D 20 44 45 4C 45 54 |.(146);" = DELET| 00000260: 45 22 00 88 0A 73 00 99 22 20 22 3B C7 28 31 38 |E"...s.." ";.(18| 00000270: 29 3B 22 53 48 46 54 22 3B C7 28 31 34 36 29 3B |);"SHFT";.(146);| 00000280: 22 3D 20 44 52 41 57 22 00 AE 0A 74 00 99 22 20 |"= DRAW"...t.." | 00000290: 22 3B C7 28 31 38 29 3B 22 A4 22 3B C7 28 31 34 |";.(18);".";.(14| 000002A0: 36 29 3B 22 20 20 20 3D 20 44 41 54 41 22 00 D5 |6);" = DATA"..| 000002B0: 0A 75 00 99 22 20 22 3B C7 28 31 38 29 3B 22 46 |.u.." ";.(18);"F| 000002C0: 31 22 3B C7 28 31 34 36 29 3B 22 20 20 3D 20 53 |1";.(146);" = S| 000002D0: 48 41 50 45 22 00 FC 0A 76 00 99 22 20 22 3B C7 |HAPE"...v.." ";.| 000002E0: 28 31 38 29 3B 22 48 4F 4D 45 22 3B C7 28 31 34 |(18);"HOME";.(14| 000002F0: 36 29 3B 22 3D 20 43 4C 45 41 52 22 00 18 0B 77 |6);"= CLEAR"...w| 00000300: 00 99 3A 99 3A 99 22 20 53 4D 41 4C 4C 22 3A 99 |..:.:." SMALL":.| 00000310: 22 20 53 48 41 50 45 22 00 36 0B 78 00 99 3A 99 |" SHAPE".6.x..:.| 00000320: 3A 99 3A 99 22 20 4C 41 52 47 45 22 3A 99 22 20 |:.:." LARGE":." | 00000330: 53 48 41 50 45 22 00 68 0B 79 00 99 3A 99 3A 99 |SHAPE".h.y..:.:.| 00000340: 3A 99 3A 99 A3 31 33 29 3B C7 28 31 38 29 3B 22 |:.:..13);.(18);"| 00000350: 44 52 41 57 49 4E 47 20 4D 4F 44 45 20 20 20 22 |DRAWING MODE "| 00000360: 3B C7 28 31 34 36 29 3B 00 A5 0B 80 00 86 47 28 |;.(146);......G(| 00000370: 36 32 29 3A 56 B2 35 33 32 34 38 3A 55 4C B2 31 |62):V.53248:UL.1| 00000380: 30 37 38 3A 81 58 B2 30 A4 32 35 3A 97 55 4C AA |078:.X.0.25:.UL.| 00000390: 58 2C 34 32 3A 97 55 4C AA 32 32 AC 34 30 AA 58 |X,42:.UL.22.40.X| 000003A0: 2C 34 32 3A 82 00 CE 0B 82 00 81 58 B2 30 A4 32 |,42:.......X.0.2| 000003B0: 32 3A 97 55 4C AA 58 AC 34 30 2C 34 32 3A 97 55 |2:.UL.X.40,42:.U| 000003C0: 4C AA 32 35 AA 58 AC 34 30 2C 34 32 3A 82 00 DB |L.25.X.40,42:...| 000003D0: 0B 8C 00 50 54 B2 55 4C AA 34 31 00 00 0C 96 00 |...PT.UL.41.....| 000003E0: 53 4C B2 C2 28 50 54 29 3A 97 50 54 2C 38 31 3A |SL..(PT):.PT,81:| 000003F0: 81 58 B2 30 A4 38 30 3A 82 3A 97 50 54 2C 53 4C |.X.0.80:.:.PT,SL| 00000400: 00 16 0C A0 00 41 B2 C2 28 31 39 37 29 3A 43 B2 |.....A..(197):C.| 00000410: C2 28 36 35 33 29 00 27 0C A2 00 8B 43 B2 31 A7 |.(653).'....C.1.| 00000420: 97 50 54 2C 31 36 30 00 37 0C A4 00 8B 43 B2 32 |.PT,160.7....C.2| 00000430: A7 97 50 54 2C 33 32 00 4C 0C AA 00 8B 41 B2 33 |..PT,32.L....A.3| 00000440: 33 A7 4D B2 AB 34 30 3A 89 33 30 30 00 60 0C B4 |3.M..40:.300.`..| 00000450: 00 8B 41 B2 33 34 A7 4D B2 AB 31 3A 89 33 30 30 |..A.34.M..1:.300| 00000460: 00 73 0C BE 00 8B 41 B2 33 37 A7 4D B2 31 3A 89 |.s....A.37.M.1:.| 00000470: 33 30 30 00 87 0C C8 00 8B 41 B2 33 36 A7 4D B2 |300......A.36.M.| 00000480: 34 30 3A 89 33 30 30 00 A6 0C D2 00 8B 41 B2 35 |40:.300......A.5| 00000490: 31 A7 99 C7 28 31 34 37 29 3A 97 56 AA 32 31 2C |1...(147):.V.21,| 000004A0: 30 3A 8A 31 30 35 00 B3 0C DC 00 8B 41 B2 34 A7 |0:.105......A.4.| 000004B0: 34 30 30 00 C1 0C E1 00 8B 41 B2 35 37 A7 35 30 |400......A.57.50| 000004C0: 30 00 CA 0C E6 00 89 31 35 30 00 DE 0C 2C 01 8B |0......150...,..| 000004D0: C2 28 50 54 AA 4D 29 B2 34 32 A7 31 35 30 00 EF |.(PT.M).42.150..| 000004E0: 0C 36 01 50 54 B2 50 54 AA 4D 3A 89 31 35 30 00 |.6.PT.PT.M:.150.| 000004F0: 27 0D 90 01 81 58 B2 31 A4 31 35 3A 99 C7 28 31 |'....X.1.15:..(1| 00000500: 35 37 29 3B 3A 82 3A 99 C7 28 31 38 29 3B 22 43 |57);:.:..(18);"C| 00000510: 4F 4D 50 49 4C 49 4E 47 20 53 48 41 50 45 22 3B |OMPILING SHAPE";| 00000520: C7 28 31 34 36 29 3B 00 58 0D 91 01 4E B2 30 3A |.(146);.X...N.0:| 00000530: 5A B2 38 3A 81 59 B2 31 A4 32 31 3A 81 58 B2 31 |Z.8:.Y.1.21:.X.1| 00000540: A4 32 34 3A 50 B2 C2 28 55 4C AA 59 AC 34 30 AA |.24:P..(UL.Y.40.| 00000550: 58 29 3A 5A B2 5A AB 31 00 70 0D 9A 01 8B 5A B2 |X):Z.Z.1.p....Z.| 00000560: AB 31 A7 43 B2 30 3A 5A B2 37 3A 4E B2 4E AA 31 |.1.C.0:Z.7:N.N.1| 00000570: 00 83 0D A4 01 8B 50 B2 31 36 30 A7 43 B2 43 AA |......P.160.C.C.| 00000580: 32 AE 5A 00 9C 0D A9 01 8B 5A B2 30 A7 97 38 33 |2.Z......Z.0..83| 00000590: 32 AA 4E 2C 43 3A 47 28 4E 29 B2 43 00 A4 0D AE |2.N,C:G(N).C....| 000005A0: 01 82 3A 82 00 D4 0D B8 01 97 56 AA 32 31 2C 31 |..:.......V.21,1| 000005B0: 32 3A 97 32 30 34 32 2C 31 33 3A 97 32 30 34 33 |2:.2042,13:.2043| 000005C0: 2C 31 33 3A 97 56 AA 34 2C 39 30 3A 97 56 AA 35 |,13:.V.4,90:.V.5| 000005D0: 2C 31 35 30 00 F9 0D BD 01 97 56 AA 36 2C 38 30 |,150......V.6,80| 000005E0: 3A 97 56 AA 37 2C 31 38 30 3A 97 56 AA 32 33 2C |:.V.7,180:.V.23,| 000005F0: 38 3A 97 56 AA 32 39 2C 38 00 10 0E C2 01 81 58 |8:.V.29,8......X| 00000600: B2 31 A4 31 35 3A 99 C7 28 31 35 37 29 3B 3A 82 |.1.15:..(157);:.| 00000610: 00 3A 0E CC 01 99 C7 28 31 38 29 3B 22 44 52 41 |.:.....(18);"DRA| 00000620: 57 49 4E 47 20 4D 4F 44 45 20 20 20 22 3B C7 28 |WING MODE ";.(| 00000630: 31 34 36 29 3B 3A 89 31 35 30 00 60 0E F4 01 44 |146);:.150.`...D| 00000640: 54 B2 30 3A 43 55 B2 C2 28 34 33 29 AA C2 28 34 |T.0:CU..(43)..(4| 00000650: 34 29 AC 32 35 36 AA 34 3A 97 56 AA 32 31 2C 30 |4).256.4:.V.21,0| 00000660: 00 77 0E F5 01 81 58 B2 31 A4 32 35 3A 99 C7 28 |.w....X.1.25:..(| 00000670: 31 35 37 29 3B 3A 82 00 AB 0E F6 01 99 22 44 41 |157);:......."DA| 00000680: 54 41 20 57 49 4C 4C 20 45 52 41 53 45 20 50 52 |TA WILL ERASE PR| 00000690: 4F 47 52 41 4D 20 2D 2D 20 43 4F 4E 54 49 4E 55 |OGRAM -- CONTINU| 000006A0: 45 3F 22 3B 3A 97 31 39 38 2C 30 00 C8 0E F7 01 |E?";:.198,0.....| 000006B0: A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 |.A$:.A$.."Y".A$.| 000006C0: B1 22 4E 22 A7 35 30 33 00 E7 0E F8 01 8B 41 24 |."N".503......A$| 000006D0: B2 22 4E 22 A7 81 58 B2 31 A4 32 36 3A 99 C7 28 |."N"..X.1.26:..(| 000006E0: 31 35 37 29 3B 3A 82 00 0D 0F F9 01 8B 41 24 B2 |157);:.......A$.| 000006F0: 22 4E 22 A7 81 58 B2 31 39 38 34 A4 32 30 32 33 |"N"..X.1984.2023| 00000700: 3A 97 58 2C 33 32 3A 82 3A 89 34 36 30 00 33 0F |:.X,32:.:.460.3.| 00000710: FA 01 99 C7 28 31 34 37 29 3B A3 31 33 29 3B 22 |....(147);.13);"| 00000720: 50 55 54 54 49 4E 47 20 53 48 41 50 45 20 49 4E |PUTTING SHAPE IN| 00000730: 54 4F 22 00 4F 0F FB 01 99 A3 31 33 29 3B 22 44 |TO".O.....13);"D| 00000740: 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 22 00 |ATA STATEMENTS".| 00000750: 60 0F FE 01 97 43 55 2C 31 33 31 3A 43 4E B2 31 |`....CU,131:CN.1| 00000760: 00 8A 0F 12 02 44 24 B2 C4 28 47 28 44 54 29 29 |.....D$..(G(DT))| 00000770: 3A 81 58 B2 32 A4 C3 28 44 24 29 3A 43 B2 C6 28 |:.X.2..(D$):C..(| 00000780: CA 28 44 24 2C 58 2C 31 29 29 00 A1 0F 14 02 97 |.(D$,X,1))......| 00000790: 43 55 AA 43 4E 2C 43 3A 43 4E B2 43 4E AA 31 3A |CU.CN,C:CN.CN.1:| 000007A0: 82 00 B8 0F 17 02 44 54 B2 44 54 AA 31 3A 8B 44 |......DT.DT.1:.D| 000007B0: 54 B2 36 33 A7 35 36 30 00 EE 0F 1C 02 8B 43 4E |T.63.560......CN| 000007C0: B1 37 31 A7 81 58 B2 43 4E A4 37 35 3A 97 43 55 |.71..X.CN.75:.CU| 000007D0: AA 58 2C 33 32 3A 82 3A 97 43 55 AA 37 36 2C 30 |.X,32:.:.CU.76,0| 000007E0: 3A 43 55 B2 43 55 AA 38 31 3A 89 35 31 30 00 09 |:CU.CU.81:.510..| 000007F0: 10 26 02 97 43 55 AA 43 4E 2C 34 34 3A 43 4E B2 |.&..CU.CN,44:CN.| 00000800: 43 4E AA 31 3A 89 35 33 30 00 38 10 30 02 81 58 |CN.1:.530.8.0..X| 00000810: B2 43 4E A4 37 35 3A 97 43 55 AA 58 2C 33 32 3A |.CN.75:.CU.X,32:| 00000820: 82 3A 81 58 B2 37 36 A4 37 38 3A 97 43 55 AA 58 |.:.X.76.78:.CU.X| 00000830: 2C 30 3A 82 3A 9B 3A 80 00 00 00 |,0:.:.:.... |
..R....AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AA......AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAA......AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAA.E....AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAA.K.2...Q.<...S.D..G(147):.X.55296.5 6295:.X,3:....I..G(145);.13);G(18);"SHAP E GEN 1.0";G(146).G.K..:." ";G(18);"I";G (146);" = UP"...M.." ";G(18);"M";G(146 );" = DOWN"...O.." ";G(18);"J";G(146); " = LEFT".:.Q.." ";G(18);"K";G(146);" = RIGHT".B.R.." ";G(18);"COM";G(146);" = DELETE"...S.." ";G(18);"SHFT";G(146); "= DRAW"...T.." ";G(18);".";G(146);" = DATA".U.U.." ";G(18);"F1";G(146);" = S HAPE"...V.." ";G(18);"HOME";G(146);"= CL EAR"...W..:.:." SMALL":." SHAPE".6.X..:. :.:." LARGE":." SHAPE".H.Y..:.:.:.:..13) ;G(18);"DRAWING MODE ";G(146);......G( 62):V.53248:UL.1078:.X.0.25:.UL.X,42:.UL .22.40.X,42:..N....X.0.22:.UL.X.40,42:.U L.25.X.40,42:......PT.UL.41.....SL.B(PT) :.PT,81:.X.0.80:.:.PT,SL... .A.B(197):C. B(653).'....C.1..PT,160.7....C.2..PT,32. L....A.33.M..40:.300.`....A.34.M..1:.300 .S....A.37.M.1:.300...H..A.36.M.40:.300. ..R..A.51..G(147):.V.21,0:.105......A.4. 400.A....A.57.500.J....150...,..B(PT.M). 42.150...6.PT.PT.M:.150.'....X.1.15:.G(1 57);:.:.G(18);"COMPILING SHAPE";G(146);. X...N.0:Z.8:.Y.1.21:.X.1.24:P.B(UL.Y.40. X):Z.Z.1.P....Z..1.C.0:Z.7:N.N.1......P. 160.C.C.2.Z......Z.0..832.N,C:G(N).C.... ..:..T....V.21,12:.2042,13:.2043,13:.V.4 ,90:.V.5,150......V.6,80:.V.7,180:.V.23, 8:.V.29,8...B..X.1.15:.G(157);:..:.L..G( 18);"DRAWING MODE ";G(146);:.150.`...D T.0:CU.B(43).B(44).256.4:.V.21,0.W....X. 1.25:.G(157);:......."DATA WILL ERASE PR OGRAM -- CONTINUE?";:.198,0.H....A$:.A$. ."Y".A$.."N".503......A$."N"..X.1.26:.G( 157);:.......A$."N"..X.1984.2023:.X,32:. :.460.3....G(147);.13);"PUTTING SHAPE IN TO".O.....13);"DATA STATEMENTS".`....CU, 131:CN.1.....D$.D(G(DT)):.X.2.C(D$):C.F( J(D$,X,1))......CU.CN,C:CN.CN.1:......DT .DT.1:.DT.63.560......CN.71..X.CN.75:.CU .X,32:.:.CU.76,0:CU.CU.81:.510...&..CU.C N,44:CN.CN.1:.530.8.0..X.CN.75:.CU.X,32: .:.X.76.78:.CU.X,0:.:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL