LG-DYNATRACK
FILE INFORMATION
FILENAME(S): LG-DYNATRACK
FILE TYPE(S): PRG
FILE SIZE: 2.3K
FIRST SEEN: 2025-11-30 21:14:31
APPEARS ON: 1 disk(s)
FILE HASH
5139b0fe2dcbdda1935e541700e43fd4b6c9dbb5b08adc599799b0e1150abfac
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOGO FILES | LG-DYNATRACK | PRG | DuncanTwain | 15 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 20 54 4F 20 52 43 50 20 3A 52 0D 20 52 49 47 |. TO RCP :R. RIG| 00000010: 48 54 20 35 0D 20 46 4F 52 57 41 52 44 20 33 2E |HT 5. FORWARD 3.| 00000020: 31 34 31 35 39 20 2A 20 3A 52 20 2F 20 31 38 0D |14159 * :R / 18.| 00000030: 20 52 49 47 48 54 20 35 0D 45 4E 44 0D 0D 54 4F | RIGHT 5.END..TO| 00000040: 20 52 45 50 4C 41 59 3F 0D 20 50 52 49 4E 54 20 | REPLAY?. PRINT | 00000050: 5B 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 |[DO YOU WANT TO | 00000060: 50 4C 41 59 20 41 47 41 49 4E 3F 5D 0D 20 49 46 |PLAY AGAIN?]. IF| 00000070: 20 28 20 46 49 52 53 54 20 46 49 52 53 54 20 52 | ( FIRST FIRST R| 00000080: 45 51 55 45 53 54 20 29 20 3D 20 22 59 20 52 45 |EQUEST ) = "Y RE| 00000090: 50 4C 41 59 20 53 54 4F 50 0D 20 54 4F 50 4C 45 |PLAY STOP. TOPLE| 000000A0: 56 45 4C 0D 45 4E 44 0D 0D 54 4F 20 52 45 41 44 |VEL.END..TO READ| 000000B0: 4B 45 59 0D 20 49 46 20 52 43 3F 20 4F 55 54 50 |KEY. IF RC? OUTP| 000000C0: 55 54 20 52 45 41 44 43 48 41 52 41 43 54 45 52 |UT READCHARACTER| 000000D0: 0D 20 4F 55 54 50 55 54 20 22 0D 45 4E 44 0D 0D |. OUTPUT ".END..| 000000E0: 54 4F 20 45 4E 44 47 41 4D 45 0D 20 43 4C 45 41 |TO ENDGAME. CLEA| 000000F0: 52 49 4E 50 55 54 0D 20 53 50 4C 49 54 53 43 52 |RINPUT. SPLITSCR| 00000100: 45 45 4E 0D 20 50 52 49 4E 54 20 5B 59 4F 55 20 |EEN. PRINT [YOU | 00000110: 43 52 41 53 48 45 44 5D 0D 20 50 52 49 4E 54 20 |CRASHED]. PRINT | 00000120: 53 45 20 5B 59 4F 55 52 20 54 49 4D 45 20 57 41 |SE [YOUR TIME WA| 00000130: 53 5D 20 3A 54 0D 20 52 45 50 4C 41 59 3F 0D 45 |S] :T. REPLAY?.E| 00000140: 4E 44 0D 0D 54 4F 20 44 49 53 54 41 4E 43 45 2E |ND..TO DISTANCE.| 00000150: 53 51 55 41 52 45 44 20 3A 58 20 3A 59 0D 20 4F |SQUARED :X :Y. O| 00000160: 55 54 50 55 54 20 28 20 58 43 4F 52 20 2D 20 3A |UTPUT ( XCOR - :| 00000170: 58 20 29 20 2A 20 28 20 58 43 4F 52 20 2D 20 3A |X ) * ( XCOR - :| 00000180: 58 20 29 20 2B 20 28 20 59 43 4F 52 20 2D 20 3A |X ) + ( YCOR - :| 00000190: 59 20 29 20 2A 20 28 20 59 43 4F 52 20 2D 20 3A |Y ) * ( YCOR - :| 000001A0: 59 20 29 0D 45 4E 44 0D 0D 54 4F 20 43 48 45 43 |Y ).END..TO CHEC| 000001B0: 4B 2E 53 54 4F 50 50 45 44 0D 20 49 46 20 41 4C |K.STOPPED. IF AL| 000001C0: 4C 4F 46 20 3A 56 58 20 3D 20 30 20 3A 56 59 20 |LOF :VX = 0 :VY | 000001D0: 3D 20 30 20 4D 41 4B 45 20 22 54 20 3A 54 20 2D |= 0 MAKE "T :T -| 000001E0: 20 31 0D 45 4E 44 0D 0D 54 4F 20 52 43 49 52 43 | 1.END..TO RCIRC| 000001F0: 4C 45 20 3A 52 0D 20 52 45 50 45 41 54 20 33 36 |LE :R. REPEAT 36| 00000200: 20 5B 52 43 50 20 3A 52 5D 0D 45 4E 44 0D 0D 54 | [RCP :R].END..T| 00000210: 4F 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 0D 20 |O INSTRUCTIONS. | 00000220: 49 4E 53 54 52 55 43 54 49 4F 4E 53 31 0D 20 49 |INSTRUCTIONS1. I| 00000230: 4E 53 54 52 55 43 54 49 4F 4E 53 32 0D 45 4E 44 |NSTRUCTIONS2.END| 00000240: 0D 0D 54 4F 20 49 4E 53 54 52 55 43 54 49 4F 4E |..TO INSTRUCTION| 00000250: 53 31 0D 20 50 52 49 4E 54 20 5B 54 48 45 20 4F |S1. PRINT [THE O| 00000260: 42 4A 45 43 54 20 4F 46 20 54 48 49 53 20 47 41 |BJECT OF THIS GA| 00000270: 4D 45 20 49 53 20 54 4F 20 53 45 45 5D 0D 20 50 |ME IS TO SEE]. P| 00000280: 52 49 4E 54 20 5B 48 4F 57 20 4C 4F 4E 47 20 59 |RINT [HOW LONG Y| 00000290: 4F 55 20 43 41 4E 20 4B 45 45 50 20 54 48 45 20 |OU CAN KEEP THE | 000002A0: 44 59 4E 41 54 55 52 54 4C 45 5D 0D 20 50 52 49 |DYNATURTLE]. PRI| 000002B0: 4E 54 20 5B 4D 4F 56 49 4E 47 20 4F 4E 20 41 20 |NT [MOVING ON A | 000002C0: 43 49 52 43 55 4C 41 52 20 54 52 41 43 4B 2C 5D |CIRCULAR TRACK,]| 000002D0: 0D 20 50 52 49 4E 54 20 5B 57 49 54 48 4F 55 54 |. PRINT [WITHOUT| 000002E0: 20 43 52 41 53 48 49 4E 47 21 5D 0D 20 50 52 49 | CRASHING!]. PRI| 000002F0: 4E 54 20 5B 5D 0D 20 50 52 49 4E 54 20 5B 59 4F |NT []. PRINT [YO| 00000300: 55 20 4D 4F 56 45 20 54 48 45 20 54 55 52 54 4C |U MOVE THE TURTL| 00000310: 45 20 41 4C 4F 4E 47 20 54 48 45 20 54 52 41 43 |E ALONG THE TRAC| 00000320: 4B 5D 0D 20 50 52 49 4E 54 20 5B 57 49 54 48 20 |K]. PRINT [WITH | 00000330: 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 4B 45 |THE FOLLOWING KE| 00000340: 59 53 3A 5D 0D 20 50 52 49 4E 54 20 5B 5D 0D 20 |YS:]. PRINT []. | 00000350: 50 52 49 4E 54 20 5B 4C 20 54 55 52 4E 20 54 48 |PRINT [L TURN TH| 00000360: 45 20 54 55 52 54 4C 45 20 4C 45 46 54 5D 0D 20 |E TURTLE LEFT]. | 00000370: 50 52 49 4E 54 20 5B 52 20 54 55 52 4E 20 54 48 |PRINT [R TURN TH| 00000380: 45 20 54 55 52 54 4C 45 20 52 49 47 48 54 5D 0D |E TURTLE RIGHT].| 00000390: 20 50 52 49 4E 54 20 5B 4B 20 47 49 56 45 20 54 | PRINT [K GIVE T| 000003A0: 48 45 20 54 55 52 54 4C 45 20 41 20 22 4B 49 43 |HE TURTLE A "KIC| 000003B0: 4B 22 20 49 4E 20 54 48 45 5D 0D 20 50 52 49 4E |K" IN THE]. PRIN| 000003C0: 54 20 5B 44 49 52 45 43 54 49 4F 4E 20 49 54 20 |T [DIRECTION IT | 000003D0: 49 53 20 50 4F 49 4E 54 49 4E 47 2E 5D 0D 20 50 |IS POINTING.]. P| 000003E0: 52 49 4E 54 20 5B 5D 0D 45 4E 44 0D 0D 54 4F 20 |RINT [].END..TO | 000003F0: 4B 49 43 4B 0D 20 4D 41 4B 45 20 22 56 58 20 3A |KICK. MAKE "VX :| 00000400: 56 58 20 2B 20 3A 46 4F 52 43 45 20 2A 20 53 49 |VX + :FORCE * SI| 00000410: 4E 20 48 45 41 44 49 4E 47 0D 20 4D 41 4B 45 20 |N HEADING. MAKE | 00000420: 22 56 59 20 3A 56 59 20 2B 20 3A 46 4F 52 43 45 |"VY :VY + :FORCE| 00000430: 20 2A 20 43 4F 53 20 48 45 41 44 49 4E 47 0D 45 | * COS HEADING.E| 00000440: 4E 44 0D 0D 54 4F 20 49 4E 53 54 52 55 43 54 49 |ND..TO INSTRUCTI| 00000450: 4F 4E 53 32 0D 20 50 52 49 4E 54 20 5B 48 4F 57 |ONS2. PRINT [HOW| 00000460: 20 57 49 44 45 20 44 4F 20 59 4F 55 20 57 41 4E | WIDE DO YOU WAN| 00000470: 54 20 54 48 45 20 54 52 41 43 4B 20 54 4F 20 42 |T THE TRACK TO B| 00000480: 45 3F 5D 0D 20 50 52 49 4E 54 20 5B 28 35 30 20 |E?]. PRINT [(50 | 00000490: 49 53 20 41 20 47 4F 4F 44 20 53 49 5A 45 2E 29 |IS A GOOD SIZE.)| 000004A0: 5D 0D 20 4D 41 4B 45 20 22 57 20 46 49 52 53 54 |]. MAKE "W FIRST| 000004B0: 20 52 45 51 55 45 53 54 0D 20 49 46 20 4E 4F 54 | REQUEST. IF NOT| 000004C0: 20 4E 55 4D 42 45 52 3F 20 3A 57 20 49 4E 53 54 | NUMBER? :W INST| 000004D0: 52 55 43 54 49 4F 4E 53 32 20 53 54 4F 50 0D 20 |RUCTIONS2 STOP. | 000004E0: 50 52 49 4E 54 20 5B 48 4F 57 20 53 54 52 4F 4E |PRINT [HOW STRON| 000004F0: 47 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 48 |G DO YOU WANT TH| 00000500: 45 20 4B 49 43 4B 20 54 4F 20 42 45 3F 5D 0D 20 |E KICK TO BE?]. | 00000510: 50 52 49 4E 54 20 5B 28 33 20 49 53 20 41 20 47 |PRINT [(3 IS A G| 00000520: 4F 4F 44 20 53 54 52 45 4E 47 54 48 2E 29 5D 0D |OOD STRENGTH.)].| 00000530: 20 4D 41 4B 45 20 22 46 4F 52 43 45 20 46 49 52 | MAKE "FORCE FIR| 00000540: 53 54 20 52 45 51 55 45 53 54 0D 20 49 46 20 4E |ST REQUEST. IF N| 00000550: 4F 54 20 4E 55 4D 42 45 52 3F 20 3A 46 4F 52 43 |OT NUMBER? :FORC| 00000560: 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 32 20 |E INSTRUCTIONS2 | 00000570: 53 54 4F 50 0D 45 4E 44 0D 0D 54 4F 20 52 45 50 |STOP.END..TO REP| 00000580: 4C 41 59 0D 20 4E 4F 44 52 41 57 0D 20 49 4E 53 |LAY. NODRAW. INS| 00000590: 54 52 55 43 54 49 4F 4E 53 32 0D 20 44 54 52 41 |TRUCTIONS2. DTRA| 000005A0: 43 4B 20 3A 57 0D 45 4E 44 0D 0D 54 4F 20 43 4F |CK :W.END..TO CO| 000005B0: 4D 4D 41 4E 44 0D 20 4C 4F 43 41 4C 20 22 43 4F |MMAND. LOCAL "CO| 000005C0: 4D 0D 20 4D 41 4B 45 20 22 43 4F 4D 20 52 45 41 |M. MAKE "COM REA| 000005D0: 44 4B 45 59 0D 20 49 46 20 3A 43 4F 4D 20 3D 20 |DKEY. IF :COM = | 000005E0: 22 20 53 54 4F 50 0D 20 49 46 20 3A 43 4F 4D 20 |" STOP. IF :COM | 000005F0: 3D 20 22 52 20 52 49 47 48 54 20 33 30 20 53 54 |= "R RIGHT 30 ST| 00000600: 4F 50 0D 20 49 46 20 3A 43 4F 4D 20 3D 20 22 4C |OP. IF :COM = "L| 00000610: 20 4C 45 46 54 20 33 30 20 53 54 4F 50 0D 20 49 | LEFT 30 STOP. I| 00000620: 46 20 3A 43 4F 4D 20 3D 20 22 4B 20 4B 49 43 4B |F :COM = "K KICK| 00000630: 20 53 54 4F 50 0D 45 4E 44 0D 0D 54 4F 20 43 48 | STOP.END..TO CH| 00000640: 45 43 4B 2E 44 54 52 41 43 4B 0D 20 43 48 45 43 |ECK.DTRACK. CHEC| 00000650: 4B 2E 53 54 4F 50 50 45 44 0D 20 49 46 20 44 49 |K.STOPPED. IF DI| 00000660: 53 54 41 4E 43 45 2E 53 51 55 41 52 45 44 20 30 |STANCE.SQUARED 0| 00000670: 20 30 20 3C 20 35 30 20 2A 20 35 30 20 45 4E 44 | 0 < 50 * 50 END| 00000680: 47 41 4D 45 20 53 54 4F 50 0D 20 49 46 20 44 49 |GAME STOP. IF DI| 00000690: 53 54 41 4E 43 45 2E 53 51 55 41 52 45 44 20 30 |STANCE.SQUARED 0| 000006A0: 20 30 20 3E 20 28 20 35 30 20 2B 20 3A 57 20 29 | 0 > ( 50 + :W )| 000006B0: 20 2A 20 28 20 35 30 20 2B 20 3A 57 20 29 20 45 | * ( 50 + :W ) E| 000006C0: 4E 44 47 41 4D 45 0D 45 4E 44 0D 0D 54 4F 20 44 |NDGAME.END..TO D| 000006D0: 59 4E 41 4D 4F 56 45 0D 20 53 45 54 58 59 20 58 |YNAMOVE. SETXY X| 000006E0: 43 4F 52 20 2B 20 3A 56 58 20 59 43 4F 52 20 2B |COR + :VX YCOR +| 000006F0: 20 3A 56 59 0D 45 4E 44 0D 0D 54 4F 20 44 54 2E | :VY.END..TO DT.| 00000700: 44 54 52 41 43 4B 20 3A 54 0D 20 44 59 4E 41 4D |DTRACK :T. DYNAM| 00000710: 4F 56 45 0D 20 43 48 45 43 4B 2E 44 54 52 41 43 |OVE. CHECK.DTRAC| 00000720: 4B 0D 20 43 4F 4D 4D 41 4E 44 0D 20 44 54 2E 44 |K. COMMAND. DT.D| 00000730: 54 52 41 43 4B 20 3A 54 20 2B 20 31 0D 45 4E 44 |TRACK :T + 1.END| 00000740: 0D 0D 54 4F 20 53 54 41 52 54 0D 20 50 45 4E 55 |..TO START. PENU| 00000750: 50 0D 20 4D 41 4B 45 20 22 56 58 20 30 0D 20 4D |P. MAKE "VX 0. M| 00000760: 41 4B 45 20 22 56 59 20 30 0D 45 4E 44 0D 0D 54 |AKE "VY 0.END..T| 00000770: 4F 20 43 49 52 43 4C 45 20 3A 52 0D 20 4C 45 46 |O CIRCLE :R. LEF| 00000780: 54 20 39 30 0D 20 50 45 4E 55 50 20 46 4F 52 57 |T 90. PENUP FORW| 00000790: 41 52 44 20 3A 52 20 50 45 4E 44 4F 57 4E 0D 20 |ARD :R PENDOWN. | 000007A0: 52 49 47 48 54 20 39 30 0D 20 52 43 49 52 43 4C |RIGHT 90. RCIRCL| 000007B0: 45 20 3A 52 0D 20 52 49 47 48 54 20 39 30 0D 20 |E :R. RIGHT 90. | 000007C0: 50 45 4E 55 50 20 46 4F 52 57 41 52 44 20 3A 52 |PENUP FORWARD :R| 000007D0: 20 50 45 4E 44 4F 57 4E 0D 20 4C 45 46 54 20 39 | PENDOWN. LEFT 9| 000007E0: 30 0D 45 4E 44 0D 0D 54 4F 20 44 52 41 57 54 52 |0.END..TO DRAWTR| 000007F0: 41 43 4B 20 3A 52 31 20 3A 52 32 0D 20 44 52 41 |ACK :R1 :R2. DRA| 00000800: 57 20 46 55 4C 4C 53 43 52 45 45 4E 0D 20 48 49 |W FULLSCREEN. HI| 00000810: 44 45 54 55 52 54 4C 45 0D 20 43 49 52 43 4C 45 |DETURTLE. CIRCLE| 00000820: 20 3A 52 31 0D 20 43 49 52 43 4C 45 20 3A 52 32 | :R1. CIRCLE :R2| 00000830: 0D 20 4C 45 46 54 20 39 30 0D 20 50 45 4E 55 50 |. LEFT 90. PENUP| 00000840: 20 46 4F 52 57 41 52 44 20 28 20 3A 52 32 20 2B | FORWARD ( :R2 +| 00000850: 20 3A 52 31 20 29 20 2F 20 32 0D 20 52 49 47 48 | :R1 ) / 2. RIGH| 00000860: 54 20 39 30 0D 20 53 48 4F 57 54 55 52 54 4C 45 |T 90. SHOWTURTLE| 00000870: 0D 45 4E 44 0D 0D 54 4F 20 44 54 52 41 43 4B 20 |.END..TO DTRACK | 00000880: 3A 57 0D 20 44 52 41 57 54 52 41 43 4B 20 35 30 |:W. DRAWTRACK 50| 00000890: 20 3A 57 20 2B 20 35 30 0D 20 53 54 41 52 54 0D | :W + 50. START.| 000008A0: 20 44 54 2E 44 54 52 41 43 4B 20 30 0D 45 4E 44 | DT.DTRACK 0.END| 000008B0: 0D 0D 54 4F 20 53 45 54 55 50 0D 20 4E 4F 44 52 |..TO SETUP. NODR| 000008C0: 41 57 0D 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |AW. INSTRUCTIONS| 000008D0: 0D 45 4E 44 0D 0D 54 4F 20 44 59 4E 41 54 52 41 |.END..TO DYNATRA| 000008E0: 43 4B 0D 20 53 45 54 55 50 0D 20 44 54 52 41 43 |CK. SETUP. DTRAC| 000008F0: 4B 20 3A 57 0D 45 4E 44 0D 0D 4D 41 4B 45 20 22 |K :W.END..MAKE "| 00000900: 53 54 41 52 54 55 50 20 5B 44 59 4E 41 54 52 41 |STARTUP [DYNATRA| 00000910: 43 4B 5D 0D |CK]. |
. TO RCP :R. RIGHT 5. FORWARD 3.14159 * :R / 18. RIGHT 5.END..TO REPLAY?. PRINT [DO YOU WANT TO PLAY AGAIN?]. IF ( FIRST FIRST REQUEST ) = "Y REPLAY STOP. TOPLE VEL.END..TO READKEY. IF RC? OUTPUT READC HARACTER. OUTPUT ".END..TO ENDGAME. CLEA RINPUT. SPLITSCREEN. PRINT [YOU CRASHED] . PRINT SE [YOUR TIME WAS] :T. REPLAY?.E ND..TO DISTANCE.SQUARED :X :Y. OUTPUT ( XCOR - :X ) * ( XCOR - :X ) + ( YCOR - : Y ) * ( YCOR - :Y ).END..TO CHECK.STOPPE D. IF ALLOF :VX = 0 :VY = 0 MAKE "T :T - 1.END..TO RCIRCLE :R. REPEAT 36 [RCP :R ].END..TO INSTRUCTIONS. INSTRUCTIONS1. I NSTRUCTIONS2.END..TO INSTRUCTIONS1. PRIN T [THE OBJECT OF THIS GAME IS TO SEE]. P RINT [HOW LONG YOU CAN KEEP THE DYNATURT LE]. PRINT [MOVING ON A CIRCULAR TRACK,] . PRINT [WITHOUT CRASHING!]. PRINT []. P RINT [YOU MOVE THE TURTLE ALONG THE TRAC K]. PRINT [WITH THE FOLLOWING KEYS:]. PR INT []. PRINT [L TURN THE TURTLE LEFT]. PRINT [R TURN THE TURTLE RIGHT]. PRINT [ K GIVE THE TURTLE A "KICK" IN THE]. PRIN T [DIRECTION IT IS POINTING.]. PRINT []. END..TO KICK. MAKE "VX :VX + :FORCE * SI N HEADING. MAKE "VY :VY + :FORCE * COS H EADING.END..TO INSTRUCTIONS2. PRINT [HOW WIDE DO YOU WANT THE TRACK TO BE?]. PRI NT [(50 IS A GOOD SIZE.)]. MAKE "W FIRST REQUEST. IF NOT NUMBER? :W INSTRUCTIONS 2 STOP. PRINT [HOW STRONG DO YOU WANT TH E KICK TO BE?]. PRINT [(3 IS A GOOD STRE NGTH.)]. MAKE "FORCE FIRST REQUEST. IF N OT NUMBER? :FORCE INSTRUCTIONS2 STOP.END ..TO REPLAY. NODRAW. INSTRUCTIONS2. DTRA CK :W.END..TO COMMAND. LOCAL "COM. MAKE "COM READKEY. IF :COM = " STOP. IF :COM = "R RIGHT 30 STOP. IF :COM = "L LEFT 30 STOP. IF :COM = "K KICK STOP.END..TO CH ECK.DTRACK. CHECK.STOPPED. IF DISTANCE.S QUARED 0 0 < 50 * 50 ENDGAME STOP. IF DI STANCE.SQUARED 0 0 > ( 50 + :W ) * ( 50 + :W ) ENDGAME.END..TO DYNAMOVE. SETXY X COR + :VX YCOR + :VY.END..TO DT.DTRACK : T. DYNAMOVE. CHECK.DTRACK. COMMAND. DT.D TRACK :T + 1.END..TO START. PENUP. MAKE "VX 0. MAKE "VY 0.END..TO CIRCLE :R. LEF T 90. PENUP FORWARD :R PENDOWN. RIGHT 90 . RCIRCLE :R. RIGHT 90. PENUP FORWARD :R PENDOWN. LEFT 90.END..TO DRAWTRACK :R1 :R2. DRAW FULLSCREEN. HIDETURTLE. CIRCLE :R1. CIRCLE :R2. LEFT 90. PENUP FORWARD ( :R2 + :R1 ) / 2. RIGHT 90. SHOWTURTLE .END..TO DTRACK :W. DRAWTRACK 50 :W + 50 . START. DT.DTRACK 0.END..TO SETUP. NODR AW. INSTRUCTIONS.END..TO DYNATRACK. SETU P. DTRACK :W.END..MAKE "STARTUP [DYNATRA CK].
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL