DYNATRACK.LOGO

FILE INFORMATION

FILENAME(S): DYNATRACK.LOGO

FILE TYPE(S): PRG

FILE SIZE: 2.2K

FIRST SEEN: 2025-11-30 21:06:56

APPEARS ON: 1 disk(s)

FILE HASH

551b5ca637e9a4658c35cbc704bbf4a20da27b947b9e597dd8f00f2783bc993e

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
0020B	DYNATRACK.LOGO	PRG	DuncanTwain	23	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 00 20 54 4F 20 43 49 52  43 4C 45 20 3A 52 0D 20  |. TO CIRCLE :R. |
00000010: 4C 45 46 54 20 39 30 0D  20 50 45 4E 55 50 20 46  |LEFT 90. PENUP F|
00000020: 4F 52 57 41 52 44 20 3A  52 20 50 45 4E 44 4F 57  |ORWARD :R PENDOW|
00000030: 4E 0D 20 52 49 47 48 54  20 39 30 0D 20 52 43 49  |N. RIGHT 90. RCI|
00000040: 52 43 4C 45 20 3A 52 0D  20 52 49 47 48 54 20 39  |RCLE :R. RIGHT 9|
00000050: 30 0D 20 50 45 4E 55 50  20 46 4F 52 57 41 52 44  |0. PENUP FORWARD|
00000060: 20 3A 52 20 50 45 4E 44  4F 57 4E 0D 20 4C 45 46  | :R PENDOWN. LEF|
00000070: 54 20 39 30 0D 45 4E 44  0D 0D 54 4F 20 44 59 4E  |T 90.END..TO DYN|
00000080: 41 4D 4F 56 45 0D 20 53  45 54 58 59 20 58 43 4F  |AMOVE. SETXY XCO|
00000090: 52 20 2B 20 3A 56 58 20  59 43 4F 52 20 2B 20 3A  |R + :VX YCOR + :|
000000A0: 56 59 0D 45 4E 44 0D 0D  54 4F 20 43 48 45 43 4B  |VY.END..TO CHECK|
000000B0: 2E 44 54 52 41 43 4B 0D  20 43 48 45 43 4B 2E 53  |.DTRACK. CHECK.S|
000000C0: 54 4F 50 50 45 44 0D 20  49 46 20 44 49 53 54 41  |TOPPED. IF DISTA|
000000D0: 4E 43 45 2E 53 51 55 41  52 45 44 20 30 20 30 20  |NCE.SQUARED 0 0 |
000000E0: 3C 20 35 30 20 2A 20 35  30 20 45 4E 44 47 41 4D  |< 50 * 50 ENDGAM|
000000F0: 45 20 53 54 4F 50 0D 20  49 46 20 44 49 53 54 41  |E STOP. IF DISTA|
00000100: 4E 43 45 2E 53 51 55 41  52 45 44 20 30 20 30 20  |NCE.SQUARED 0 0 |
00000110: 3E 20 28 20 35 30 20 2B  20 3A 57 20 29 20 2A 20  |> ( 50 + :W ) * |
00000120: 28 20 35 30 20 2B 20 3A  57 20 29 20 45 4E 44 47  |( 50 + :W ) ENDG|
00000130: 41 4D 45 0D 45 4E 44 0D  0D 54 4F 20 43 4F 4D 4D  |AME.END..TO COMM|
00000140: 41 4E 44 0D 20 4C 4F 43  41 4C 20 22 43 4F 4D 0D  |AND. LOCAL "COM.|
00000150: 20 4D 41 4B 45 20 22 43  4F 4D 20 52 45 41 44 4B  | MAKE "COM READK|
00000160: 45 59 0D 20 49 46 20 3A  43 4F 4D 20 3D 20 22 20  |EY. IF :COM = " |
00000170: 53 54 4F 50 0D 20 49 46  20 3A 43 4F 4D 20 3D 20  |STOP. IF :COM = |
00000180: 22 52 20 52 49 47 48 54  20 33 30 20 53 54 4F 50  |"R RIGHT 30 STOP|
00000190: 0D 20 49 46 20 3A 43 4F  4D 20 3D 20 22 4C 20 4C  |. IF :COM = "L L|
000001A0: 45 46 54 20 33 30 20 53  54 4F 50 0D 20 49 46 20  |EFT 30 STOP. IF |
000001B0: 3A 43 4F 4D 20 3D 20 22  4B 20 4B 49 43 4B 20 53  |:COM = "K KICK S|
000001C0: 54 4F 50 0D 45 4E 44 0D  0D 54 4F 20 44 54 2E 44  |TOP.END..TO DT.D|
000001D0: 54 52 41 43 4B 20 3A 54  0D 20 44 59 4E 41 4D 4F  |TRACK :T. DYNAMO|
000001E0: 56 45 0D 20 43 48 45 43  4B 2E 44 54 52 41 43 4B  |VE. CHECK.DTRACK|
000001F0: 0D 20 43 4F 4D 4D 41 4E  44 0D 20 44 54 2E 44 54  |. COMMAND. DT.DT|
00000200: 52 41 43 4B 20 3A 54 20  2B 20 31 0D 45 4E 44 0D  |RACK :T + 1.END.|
00000210: 0D 54 4F 20 53 54 41 52  54 0D 20 50 45 4E 55 50  |.TO START. PENUP|
00000220: 0D 20 4D 41 4B 45 20 22  56 58 20 30 0D 20 4D 41  |. MAKE "VX 0. MA|
00000230: 4B 45 20 22 56 59 20 30  0D 45 4E 44 0D 0D 54 4F  |KE "VY 0.END..TO|
00000240: 20 44 52 41 57 54 52 41  43 4B 20 3A 52 31 20 3A  | DRAWTRACK :R1 :|
00000250: 52 32 0D 20 44 52 41 57  20 46 55 4C 4C 53 43 52  |R2. DRAW FULLSCR|
00000260: 45 45 4E 0D 20 48 49 44  45 54 55 52 54 4C 45 0D  |EEN. HIDETURTLE.|
00000270: 20 43 49 52 43 4C 45 20  3A 52 31 0D 20 43 49 52  | CIRCLE :R1. CIR|
00000280: 43 4C 45 20 3A 52 32 0D  20 4C 45 46 54 20 39 30  |CLE :R2. LEFT 90|
00000290: 0D 20 50 45 4E 55 50 20  46 4F 52 57 41 52 44 20  |. PENUP FORWARD |
000002A0: 28 20 3A 52 32 20 2B 20  3A 52 31 20 29 20 2F 20  |( :R2 + :R1 ) / |
000002B0: 32 0D 20 52 49 47 48 54  20 39 30 0D 20 53 48 4F  |2. RIGHT 90. SHO|
000002C0: 57 54 55 52 54 4C 45 0D  45 4E 44 0D 0D 54 4F 20  |WTURTLE.END..TO |
000002D0: 53 45 54 55 50 0D 20 4E  4F 44 52 41 57 0D 20 49  |SETUP. NODRAW. I|
000002E0: 4E 53 54 52 55 43 54 49  4F 4E 53 0D 45 4E 44 0D  |NSTRUCTIONS.END.|
000002F0: 0D 54 4F 20 49 4E 53 54  52 55 43 54 49 4F 4E 53  |.TO INSTRUCTIONS|
00000300: 0D 20 49 4E 53 54 52 55  43 54 49 4F 4E 53 31 0D  |. INSTRUCTIONS1.|
00000310: 20 49 4E 53 54 52 55 43  54 49 4F 4E 53 32 0D 45  | INSTRUCTIONS2.E|
00000320: 4E 44 0D 0D 54 4F 20 4B  49 43 4B 0D 20 4D 41 4B  |ND..TO KICK. MAK|
00000330: 45 20 22 56 58 20 3A 56  58 20 2B 20 3A 46 4F 52  |E "VX :VX + :FOR|
00000340: 43 45 20 2A 20 53 49 4E  20 48 45 41 44 49 4E 47  |CE * SIN HEADING|
00000350: 0D 20 4D 41 4B 45 20 22  56 59 20 3A 56 59 20 2B  |. MAKE "VY :VY +|
00000360: 20 3A 46 4F 52 43 45 20  2A 20 43 4F 53 20 48 45  | :FORCE * COS HE|
00000370: 41 44 49 4E 47 0D 45 4E  44 0D 0D 54 4F 20 49 4E  |ADING.END..TO IN|
00000380: 53 54 52 55 43 54 49 4F  4E 53 31 0D 20 50 52 49  |STRUCTIONS1. PRI|
00000390: 4E 54 20 5B 54 48 45 20  4F 42 4A 45 43 54 20 4F  |NT [THE OBJECT O|
000003A0: 46 20 54 48 49 53 20 47  41 4D 45 20 49 53 20 54  |F THIS GAME IS T|
000003B0: 4F 20 53 45 45 5D 0D 20  50 52 49 4E 54 20 5B 48  |O SEE]. PRINT [H|
000003C0: 4F 57 20 4C 4F 4E 47 20  59 4F 55 20 43 41 4E 20  |OW LONG YOU CAN |
000003D0: 4B 45 45 50 20 54 48 45  20 44 59 4E 41 54 55 52  |KEEP THE DYNATUR|
000003E0: 54 4C 45 5D 0D 20 50 52  49 4E 54 20 5B 4D 4F 56  |TLE]. PRINT [MOV|
000003F0: 49 4E 47 20 4F 4E 20 41  20 43 49 52 43 55 4C 41  |ING ON A CIRCULA|
00000400: 52 20 54 52 41 43 4B 2C  5D 0D 20 50 52 49 4E 54  |R TRACK,]. PRINT|
00000410: 20 5B 57 49 54 48 4F 55  54 20 43 52 41 53 48 49  | [WITHOUT CRASHI|
00000420: 4E 47 21 5D 0D 20 50 52  49 4E 54 20 5B 5D 0D 20  |NG!]. PRINT []. |
00000430: 50 52 49 4E 54 20 5B 59  4F 55 20 4D 4F 56 45 20  |PRINT [YOU MOVE |
00000440: 54 48 45 20 54 55 52 54  4C 45 20 41 4C 4F 4E 47  |THE TURTLE ALONG|
00000450: 20 54 48 45 20 54 52 41  43 4B 5D 0D 20 50 52 49  | THE TRACK]. PRI|
00000460: 4E 54 20 5B 57 49 54 48  20 54 48 45 20 46 4F 4C  |NT [WITH THE FOL|
00000470: 4C 4F 57 49 4E 47 20 4B  45 59 53 3A 5D 0D 20 50  |LOWING KEYS:]. P|
00000480: 52 49 4E 54 20 5B 5D 0D  20 50 52 49 4E 54 20 5B  |RINT []. PRINT [|
00000490: 4C 20 54 55 52 4E 20 54  48 45 20 54 55 52 54 4C  |L TURN THE TURTL|
000004A0: 45 20 4C 45 46 54 5D 0D  20 50 52 49 4E 54 20 5B  |E LEFT]. PRINT [|
000004B0: 52 20 54 55 52 4E 20 54  48 45 20 54 55 52 54 4C  |R TURN THE TURTL|
000004C0: 45 20 52 49 47 48 54 5D  0D 20 50 52 49 4E 54 20  |E RIGHT]. PRINT |
000004D0: 5B 4B 20 47 49 56 45 20  54 48 45 20 54 55 52 54  |[K GIVE THE TURT|
000004E0: 4C 45 20 41 20 22 4B 49  43 4B 22 20 49 4E 20 54  |LE A "KICK" IN T|
000004F0: 48 45 5D 0D 20 50 52 49  4E 54 20 5B 44 49 52 45  |HE]. PRINT [DIRE|
00000500: 43 54 49 4F 4E 20 49 54  20 49 53 20 50 4F 49 4E  |CTION IT IS POIN|
00000510: 54 49 4E 47 2E 5D 0D 20  50 52 49 4E 54 20 5B 5D  |TING.]. PRINT []|
00000520: 0D 45 4E 44 0D 0D 54 4F  20 52 43 49 52 43 4C 45  |.END..TO RCIRCLE|
00000530: 20 3A 52 0D 20 52 45 50  45 41 54 20 33 36 20 5B  | :R. REPEAT 36 [|
00000540: 52 43 50 20 3A 52 5D 0D  45 4E 44 0D 0D 54 4F 20  |RCP :R].END..TO |
00000550: 43 48 45 43 4B 2E 53 54  4F 50 50 45 44 0D 20 49  |CHECK.STOPPED. I|
00000560: 46 20 41 4C 4C 4F 46 20  3A 56 58 20 3D 20 30 20  |F ALLOF :VX = 0 |
00000570: 3A 56 59 20 3D 20 30 20  4D 41 4B 45 20 22 54 20  |:VY = 0 MAKE "T |
00000580: 3A 54 20 2D 20 31 0D 45  4E 44 0D 0D 54 4F 20 44  |:T - 1.END..TO D|
00000590: 49 53 54 41 4E 43 45 2E  53 51 55 41 52 45 44 20  |ISTANCE.SQUARED |
000005A0: 3A 58 20 3A 59 0D 20 4F  55 54 50 55 54 20 28 20  |:X :Y. OUTPUT ( |
000005B0: 58 43 4F 52 20 2D 20 3A  58 20 29 20 2A 20 28 20  |XCOR - :X ) * ( |
000005C0: 58 43 4F 52 20 2D 20 3A  58 20 29 20 2B 20 28 20  |XCOR - :X ) + ( |
000005D0: 59 43 4F 52 20 2D 20 3A  59 20 29 20 2A 20 28 20  |YCOR - :Y ) * ( |
000005E0: 59 43 4F 52 20 2D 20 3A  59 20 29 0D 45 4E 44 0D  |YCOR - :Y ).END.|
000005F0: 0D 54 4F 20 45 4E 44 47  41 4D 45 0D 20 43 4C 45  |.TO ENDGAME. CLE|
00000600: 41 52 49 4E 50 55 54 0D  20 53 50 4C 49 54 53 43  |ARINPUT. SPLITSC|
00000610: 52 45 45 4E 0D 20 50 52  49 4E 54 20 5B 59 4F 55  |REEN. PRINT [YOU|
00000620: 20 43 52 41 53 48 45 44  5D 0D 20 50 52 49 4E 54  | CRASHED]. PRINT|
00000630: 20 53 45 20 5B 59 4F 55  52 20 54 49 4D 45 20 57  | SE [YOUR TIME W|
00000640: 41 53 5D 20 3A 54 0D 20  52 45 50 4C 41 59 3F 0D  |AS] :T. REPLAY?.|
00000650: 45 4E 44 0D 0D 54 4F 20  52 45 41 44 4B 45 59 0D  |END..TO READKEY.|
00000660: 20 49 46 20 52 43 3F 20  4F 55 54 50 55 54 20 52  | IF RC? OUTPUT R|
00000670: 45 41 44 43 48 41 52 41  43 54 45 52 0D 20 4F 55  |EADCHARACTER. OU|
00000680: 54 50 55 54 20 22 0D 45  4E 44 0D 0D 54 4F 20 52  |TPUT ".END..TO R|
00000690: 43 50 20 3A 52 0D 20 52  49 47 48 54 20 35 0D 20  |CP :R. RIGHT 5. |
000006A0: 46 4F 52 57 41 52 44 20  33 2E 31 34 31 35 39 20  |FORWARD 3.14159 |
000006B0: 2A 20 3A 52 20 2F 20 31  38 0D 20 52 49 47 48 54  |* :R / 18. RIGHT|
000006C0: 20 35 0D 45 4E 44 0D 0D  54 4F 20 52 45 50 4C 41  | 5.END..TO REPLA|
000006D0: 59 3F 0D 20 50 52 49 4E  54 20 5B 44 4F 20 59 4F  |Y?. PRINT [DO YO|
000006E0: 55 20 57 41 4E 54 20 54  4F 20 50 4C 41 59 20 41  |U WANT TO PLAY A|
000006F0: 47 41 49 4E 3F 5D 0D 20  49 46 20 28 20 46 49 52  |GAIN?]. IF ( FIR|
00000700: 53 54 20 46 49 52 53 54  20 52 45 51 55 45 53 54  |ST FIRST REQUEST|
00000710: 20 29 20 3D 20 22 59 20  52 45 50 4C 41 59 20 53  | ) = "Y REPLAY S|
00000720: 54 4F 50 0D 20 54 4F 50  4C 45 56 45 4C 0D 45 4E  |TOP. TOPLEVEL.EN|
00000730: 44 0D 0D 54 4F 20 44 54  52 41 43 4B 20 3A 57 0D  |D..TO DTRACK :W.|
00000740: 20 44 52 41 57 54 52 41  43 4B 20 35 30 20 3A 57  | DRAWTRACK 50 :W|
00000750: 20 2B 20 35 30 0D 20 53  54 41 52 54 0D 20 44 54  | + 50. START. DT|
00000760: 2E 44 54 52 41 43 4B 20  30 0D 45 4E 44 0D 0D 54  |.DTRACK 0.END..T|
00000770: 4F 20 49 4E 53 54 52 55  43 54 49 4F 4E 53 32 0D  |O INSTRUCTIONS2.|
00000780: 20 50 52 49 4E 54 20 5B  48 4F 57 20 57 49 44 45  | PRINT [HOW WIDE|
00000790: 20 44 4F 20 59 4F 55 20  57 41 4E 54 20 54 48 45  | DO YOU WANT THE|
000007A0: 20 54 52 41 43 4B 20 54  4F 20 42 45 3F 5D 0D 20  | TRACK TO BE?]. |
000007B0: 50 52 49 4E 54 20 5B 28  35 30 20 49 53 20 41 20  |PRINT [(50 IS A |
000007C0: 47 4F 4F 44 20 53 49 5A  45 2E 29 5D 0D 20 4D 41  |GOOD SIZE.)]. MA|
000007D0: 4B 45 20 22 57 20 46 49  52 53 54 20 52 45 51 55  |KE "W FIRST REQU|
000007E0: 45 53 54 0D 20 50 52 49  4E 54 20 5B 48 4F 57 20  |EST. PRINT [HOW |
000007F0: 53 54 52 4F 4E 47 20 44  4F 20 59 4F 55 20 57 41  |STRONG DO YOU WA|
00000800: 4E 54 20 54 48 45 20 4B  49 43 4B 20 54 4F 20 42  |NT THE KICK TO B|
00000810: 45 3F 5D 0D 20 50 52 49  4E 54 20 5B 28 33 20 49  |E?]. PRINT [(3 I|
00000820: 53 20 41 20 47 4F 4F 44  20 53 54 52 45 4E 47 54  |S A GOOD STRENGT|
00000830: 48 2E 29 5D 0D 20 4D 41  4B 45 20 22 46 4F 52 43  |H.)]. MAKE "FORC|
00000840: 45 20 46 49 52 53 54 20  52 45 51 55 45 53 54 0D  |E FIRST REQUEST.|
00000850: 45 4E 44 0D 0D 54 4F 20  52 45 50 4C 41 59 0D 20  |END..TO REPLAY. |
00000860: 4E 4F 44 52 41 57 0D 20  49 4E 53 54 52 55 43 54  |NODRAW. INSTRUCT|
00000870: 49 4F 4E 53 32 0D 20 44  54 52 41 43 4B 20 3A 57  |IONS2. DTRACK :W|
00000880: 0D 45 4E 44 0D 0D 54 4F  20 44 59 4E 41 54 52 41  |.END..TO DYNATRA|
00000890: 43 4B 0D 20 53 45 54 55  50 0D 20 44 54 52 41 43  |CK. SETUP. DTRAC|
000008A0: 4B 20 3A 57 0D 45 4E 44  0D 0D 00                 |K :W.END...     |

. TO CIRCLE :R. LEFT 90. PENUP FORWARD :
R PENDOWN. RIGHT 90. RCIRCLE :R. RIGHT 9
0. PENUP FORWARD :R PENDOWN. LEFT 90.END
..TO DYNAMOVE. SETXY XCOR + :VX YCOR + :
VY.END..TO CHECK.DTRACK. CHECK.STOPPED. 
IF DISTANCE.SQUARED 0 0 < 50 * 50 ENDGAM
E STOP. IF DISTANCE.SQUARED 0 0 > ( 50 +
 :W ) * ( 50 + :W ) ENDGAME.END..TO COMM
AND. 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 DT.DTRACK :T. DYNAMO
VE. CHECK.DTRACK. COMMAND. DT.DTRACK :T 
+ 1.END..TO START. PENUP. MAKE "VX 0. MA
KE "VY 0.END..TO DRAWTRACK :R1 :R2. DRAW
 FULLSCREEN. HIDETURTLE. CIRCLE :R1. CIR
CLE :R2. LEFT 90. PENUP FORWARD ( :R2 + 
:R1 ) / 2. RIGHT 90. SHOWTURTLE.END..TO 
SETUP. NODRAW. INSTRUCTIONS.END..TO INST
RUCTIONS. INSTRUCTIONS1. INSTRUCTIONS2.E
ND..TO KICK. MAKE "VX :VX + :FORCE * SIN
 HEADING. MAKE "VY :VY + :FORCE * COS HE
ADING.END..TO INSTRUCTIONS1. PRINT [THE 
OBJECT OF THIS GAME IS TO SEE]. PRINT [H
OW LONG YOU CAN KEEP THE DYNATURTLE]. PR
INT [MOVING ON A CIRCULAR TRACK,]. PRINT
 [WITHOUT CRASHING!]. PRINT []. PRINT [Y
OU MOVE THE TURTLE ALONG THE TRACK]. PRI
NT [WITH THE FOLLOWING KEYS:]. PRINT [].
 PRINT [L TURN THE TURTLE LEFT]. PRINT [
R TURN THE TURTLE RIGHT]. PRINT [K GIVE 
THE TURTLE A "KICK" IN THE]. PRINT [DIRE
CTION IT IS POINTING.]. PRINT [].END..TO
 RCIRCLE :R. REPEAT 36 [RCP :R].END..TO 
CHECK.STOPPED. IF ALLOF :VX = 0 :VY = 0 
MAKE "T :T - 1.END..TO DISTANCE.SQUARED 
:X :Y. OUTPUT ( XCOR - :X ) * ( XCOR - :
X ) + ( YCOR - :Y ) * ( YCOR - :Y ).END.
.TO ENDGAME. CLEARINPUT. SPLITSCREEN. PR
INT [YOU CRASHED]. PRINT SE [YOUR TIME W
AS] :T. REPLAY?.END..TO READKEY. IF RC? 
OUTPUT READCHARACTER. OUTPUT ".END..TO R
CP :R. RIGHT 5. FORWARD 3.14159 * :R / 1
8. RIGHT 5.END..TO REPLAY?. PRINT [DO YO
U WANT TO PLAY AGAIN?]. IF ( FIRST FIRST
 REQUEST ) = "Y REPLAY STOP. TOPLEVEL.EN
D..TO DTRACK :W. DRAWTRACK 50 :W + 50. S
TART. DT.DTRACK 0.END..TO INSTRUCTIONS2.
 PRINT [HOW WIDE DO YOU WANT THE TRACK T
O BE?]. PRINT [(50 IS A GOOD SIZE.)]. MA
KE "W FIRST REQUEST. PRINT [HOW STRONG D
O YOU WANT THE KICK TO BE?]. PRINT [(3 I
S A GOOD STRENGTH.)]. MAKE "FORCE FIRST 
REQUEST.END..TO REPLAY. NODRAW. INSTRUCT
IONS2. DTRACK :W.END..TO DYNATRACK. SETU
P. DTRACK :W.END...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL