_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

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 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL