DYNATRACK.LOGO
FILE INFORMATION
FILENAME(S): DYNATRACK.LOGO
FILE TYPE(S): DEL
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 21:09:48
APPEARS ON: 1 disk(s)
FILE HASH
5f695d329e22ef3c6138cf90e67282753a7f920177d1ba5df5f5c224e733afc3
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SIMONS BASIC PRO | DYNATRACK.LOGO | DEL | DuncanTwain | 35 | 3 |
⚠ CORRUPT 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 01 01 01 01 01 01 01 01 |ING ON A........| 00000400: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000410: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000420: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000430: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000440: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000450: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000460: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000470: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000480: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 00000490: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 000004A0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 000004B0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 000004C0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 000004D0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 000004E0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................| 000004F0: 01 01 01 01 01 01 |...... |
. 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........................ ........................................ ........................................ ........................................ ........................................ ........................................ ..............................
> CLICK IMAGE PREVIEW FOR FULL MODAL