JOGGER.C
FILE INFORMATION
FILENAME(S): JOGGER.C
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-11-30 01:08:00
APPEARS ON: 3 disk(s)
FILE HASH
e1d459b460cb6674fa3fb914228466d98f8a7d143973a478b00a981f369b5fa6
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | JOGGER.C | PRG | Treasure Chest - Wolfgang Rauprich | 24 | 2 | DOWNLOAD FILE |
| U TILITIE | JOGGER.C | PRG | Treasure Chest - Wolfgang Rauprich | 24 | 2 | DOWNLOAD FILE |
| TPUG DEC 83 C | JOGGER.C | PRG | DuncanTwain | 4 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 01 00 8D 31 30 30 30 30 00 1B 08 0B |.......10000....|
00000010: 00 86 20 44 45 28 31 31 2C 36 29 00 27 08 0C 00 |.. DE(11,6).'...|
00000020: 81 49 B2 30 A4 31 30 00 3A 08 0D 00 44 45 28 49 |.I.0.10.:...DE(I|
00000030: 2C 30 29 B2 43 41 4C 28 49 29 00 4D 08 0E 00 44 |,0).CAL(I).M...D|
00000040: 45 28 49 2C 31 29 B2 54 4D 45 28 49 29 00 60 08 |E(I,1).TME(I).`.|
00000050: 0F 00 44 45 28 49 2C 32 29 B2 44 49 53 28 49 29 |..DE(I,2).DIS(I)|
00000060: 00 73 08 10 00 44 45 28 49 2C 33 29 B2 53 54 44 |.s...DE(I,3).STD|
00000070: 28 49 29 00 86 08 11 00 44 45 28 49 2C 34 29 B2 |(I).....DE(I,4).|
00000080: 20 4D 48 28 49 29 00 99 08 12 00 44 45 28 49 2C | MH(I).....DE(I,|
00000090: 35 29 B2 20 4D 4D 28 49 29 00 9F 08 13 00 82 00 |5). MM(I).......|
000000A0: A7 08 14 00 49 B2 30 00 B0 08 19 00 99 22 93 22 |....I.0......"."|
000000B0: 00 B6 08 1A 00 99 00 DC 08 1B 00 99 A3 35 29 22 |.............5)"|
000000C0: 46 55 4E 43 54 49 4F 4E 53 20 28 53 45 4C 45 43 |FUNCTIONS (SELEC|
000000D0: 54 20 41 20 4E 55 4D 42 45 52 29 22 00 E2 08 1C |T A NUMBER)"....|
000000E0: 00 99 00 FF 08 1D 00 99 22 31 20 52 45 41 44 20 |........"1 READ |
000000F0: 44 41 54 41 20 46 52 4F 4D 20 54 41 50 45 22 00 |DATA FROM TAPE".|
00000100: 1F 09 1E 00 99 22 32 20 45 4E 54 45 52 20 4E 45 |....."2 ENTER NE|
00000110: 57 20 4A 4F 47 47 49 4E 47 20 44 41 54 41 22 00 |W JOGGING DATA".|
00000120: 41 09 1F 00 99 22 33 20 53 55 4D 4D 41 52 59 20 |A...."3 SUMMARY |
00000130: 4F 46 20 44 41 49 4C 59 20 52 45 43 4F 52 44 53 |OF DAILY RECORDS|
00000140: 22 00 5D 09 20 00 99 22 34 20 50 52 49 4E 54 20 |".]. .."4 PRINT |
00000150: 44 41 54 41 20 54 4F 20 54 41 50 45 22 00 72 09 |DATA TO TAPE".r.|
00000160: 21 00 99 22 35 20 56 49 45 57 20 43 48 41 52 54 |!.."5 VIEW CHART|
00000170: 53 22 00 87 09 22 00 99 22 36 20 45 4E 44 20 50 |S"...".."6 END P|
00000180: 52 4F 47 52 41 4D 22 00 8E 09 23 00 85 41 00 9A |ROGRAM"...#..A..|
00000190: 09 24 00 8B 41 B2 31 A7 34 34 00 A7 09 25 00 8B |.$..A.1.44...%..|
000001A0: 41 B2 32 A7 32 32 30 00 B4 09 26 00 8B 41 B2 33 |A.2.220...&..A.3|
000001B0: A7 35 30 30 00 C1 09 27 00 8B 41 B2 34 A7 38 30 |.500...'..A.4.80|
000001C0: 30 00 CF 09 28 00 8B 41 B2 35 A7 32 30 30 30 00 |0...(..A.5.2000.|
000001D0: DD 09 29 00 8B 41 B2 36 A7 37 30 30 30 00 F2 09 |..)..A.6.7000...|
000001E0: 2C 00 8F 20 52 45 41 44 20 46 52 4F 4D 20 54 41 |,.. READ FROM TA|
000001F0: 50 45 00 1F 0A 2D 00 99 22 93 11 11 11 2A 2A 52 |PE...-.."....**R|
00000200: 45 41 44 20 4A 4F 47 47 49 4E 47 20 44 41 54 41 |EAD JOGGING DATA|
00000210: 20 46 52 4F 4D 20 54 41 50 45 2A 2A 22 3A 99 00 | FROM TAPE**":..|
00000220: 37 0A 32 00 99 22 2A 2A 4D 4F 55 4E 54 20 54 41 |7.2.."**MOUNT TA|
00000230: 50 45 2A 2A 22 3A 99 00 5E 0A 37 00 99 22 2A 2A |PE**":..^.7.."**|
00000240: 50 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 20 57 |PRESS <RETURN> W|
00000250: 48 45 4E 20 52 45 41 44 59 2A 2A 22 3A 99 00 70 |HEN READY**":..p|
00000260: 0A 3C 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 30 |.<..A$:.A$."".60|
00000270: 00 9F 0A 41 00 99 22 2A 2A 4F 50 45 4E 49 4E 47 |...A.."**OPENING|
00000280: 20 44 41 54 41 20 46 49 4C 45 2A 2A 22 3A 9F 31 | DATA FILE**":.1|
00000290: 2C 31 2C 30 2C 22 4A 4F 47 47 45 52 22 3A 99 00 |,1,0,"JOGGER":..|
000002A0: B6 0A 44 00 84 31 2C 49 3A 99 22 49 4E 44 45 58 |..D..1,I:."INDEX|
000002B0: 20 49 53 20 22 49 00 C1 0A 46 00 81 58 B2 31 A4 | IS "I...F..X.1.|
000002C0: 49 00 E4 0A 4B 00 84 31 2C 43 41 4C 24 28 58 29 |I...K..1,CAL$(X)|
000002D0: 3A 99 22 44 41 54 45 20 20 20 20 3A 22 43 41 4C |:."DATE :"CAL|
000002E0: 24 28 58 29 00 01 0B 4D 00 84 31 2C 54 28 58 29 |$(X)...M..1,T(X)|
000002F0: 3A 99 22 54 49 4D 45 20 20 20 20 3A 22 54 28 58 |:."TIME :"T(X|
00000300: 29 00 1E 0B 4F 00 84 31 2C 44 28 58 29 3A 99 22 |)...O..1,D(X):."|
00000310: 44 49 53 54 41 4E 43 45 3A 22 44 28 58 29 00 3B |DISTANCE:"D(X).;|
00000320: 0B 51 00 84 31 2C 53 28 58 29 3A 99 22 53 54 52 |.Q..1,S(X):."STR|
00000330: 49 44 45 53 20 3A 22 53 28 58 29 00 5A 0B 53 00 |IDES :"S(X).Z.S.|
00000340: 84 31 2C 4D 48 28 58 29 3A 99 22 4D 49 4C 45 53 |.1,MH(X):."MILES|
00000350: 2F 48 52 3A 22 4D 48 28 58 29 00 79 0B 55 00 84 |/HR:"MH(X).y.U..|
00000360: 31 2C 4D 4D 28 58 29 3A 99 22 4D 49 4E 2F 4D 49 |1,MM(X):."MIN/MI|
00000370: 4C 45 3A 22 4D 4D 28 58 29 00 7F 0B 5A 00 82 00 |LE:"MM(X)...Z...|
00000380: 9F 0B 5B 00 99 22 2A 2A 43 4C 4F 53 49 4E 47 20 |..[.."**CLOSING |
00000390: 44 41 54 41 20 46 49 4C 45 2A 2A 22 3A A0 31 00 |DATA FILE**":.1.|
000003A0: CC 0B 69 00 99 22 11 50 52 45 53 53 20 3C 52 45 |..i..".PRESS <RE|
000003B0: 54 55 52 4E 3E 20 57 48 45 4E 20 52 45 41 44 59 |TURN> WHEN READY|
000003C0: 20 54 4F 20 50 52 4F 43 45 45 44 22 00 DF 0B 6A | TO PROCEED"...j|
000003D0: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 36 00 |..A$:.A$."".106.|
000003E0: E7 0B 6B 00 89 32 35 00 14 0C DC 00 97 35 33 32 |..k..25......532|
000003F0: 38 31 2C 35 3A 99 C7 28 31 34 34 29 3A 99 22 93 |81,5:..(144):.".|
00000400: 11 45 4E 54 45 52 20 4A 4F 47 47 49 4E 47 20 44 |.ENTER JOGGING D|
00000410: 41 54 41 22 00 1E 0C E1 00 49 B2 49 AA 31 00 42 |ATA".....I.I.1.B|
00000420: 0C E4 00 99 22 20 22 C7 28 31 38 29 22 30 22 C7 |...." ".(18)"0".|
00000430: 28 31 34 36 29 22 20 20 20 20 20 20 44 41 54 45 |(146)" DATE|
00000440: 3A 22 00 66 0C E6 00 99 22 20 22 C7 28 31 38 29 |:".f...." ".(18)|
00000450: 22 31 22 C7 28 31 34 36 29 22 20 54 49 4D 45 28 |"1".(146)" TIME(|
00000460: 4D 49 4E 29 3A 22 00 8A 0C F0 00 99 22 20 22 C7 |MIN):"......" ".|
00000470: 28 31 38 29 22 32 22 C7 28 31 34 36 29 22 20 20 |(18)"2".(146)" |
00000480: 44 49 53 54 41 4E 43 45 3A 22 00 AE 0C FA 00 99 |DISTANCE:"......|
00000490: 22 20 22 C7 28 31 38 29 22 33 22 C7 28 31 34 36 |" ".(18)"3".(146|
000004A0: 29 22 20 20 20 53 54 52 49 44 45 53 3A 22 00 D2 |)" STRIDES:"..|
000004B0: 0C 04 01 99 22 20 22 C7 28 31 38 29 22 34 22 C7 |...." ".(18)"4".|
000004C0: 28 31 34 36 29 22 20 20 4D 49 4C 45 53 2F 48 52 |(146)" MILES/HR|
000004D0: 3A 22 00 F6 0C 0E 01 99 22 20 22 C7 28 31 38 29 |:"......" ".(18)|
000004E0: 22 35 22 C7 28 31 34 36 29 22 20 20 4D 49 4E 2F |"5".(146)" MIN/|
000004F0: 4D 49 4C 45 3A 22 00 00 0D 18 01 49 4E 25 B2 35 |MILE:".....IN%.5|
00000500: 00 11 0D 22 01 99 22 13 11 11 22 3B A3 31 33 29 |...".."...";.13)|
00000510: 3B 00 27 0D 27 01 8D 38 30 30 30 3A 43 41 4C 24 |;.'.'..8000:CAL$|
00000520: 28 49 29 B2 43 43 24 00 37 0D 2A 01 99 C7 28 31 |(I).CC$.7.*...(1|
00000530: 33 29 3B A3 31 33 29 00 4D 0D 2C 01 8D 38 30 30 |3);.13).M.,..800|
00000540: 30 3A 54 4D 45 24 28 49 29 B2 43 43 24 00 5D 0D |0:TME$(I).CC$.].|
00000550: 36 01 99 C7 28 31 33 29 3B A3 31 33 29 00 73 0D |6...(13);.13).s.|
00000560: 40 01 8D 38 30 30 30 3A 44 49 53 24 28 49 29 B2 |@..8000:DIS$(I).|
00000570: 43 43 24 00 83 0D 4A 01 99 C7 28 31 33 29 3B A3 |CC$...J...(13);.|
00000580: 31 33 29 00 99 0D 54 01 8D 38 30 30 30 3A 53 54 |13)...T..8000:ST|
00000590: 44 24 28 49 29 B2 43 43 24 00 CD 0D 5E 01 54 28 |D$(I).CC$...^.T(|
000005A0: 49 29 B2 C5 28 54 4D 45 24 28 49 29 29 3A 44 28 |I)..(TME$(I)):D(|
000005B0: 49 29 B2 C5 28 44 49 53 24 28 49 29 29 3A 53 28 |I)..(DIS$(I)):S(|
000005C0: 49 29 B2 C5 28 53 54 44 24 28 49 29 29 00 F6 0D |I)..(STD$(I))...|
000005D0: 68 01 4D 48 28 49 29 B2 44 28 49 29 AD 28 54 28 |h.MH(I).D(I).(T(|
000005E0: 49 29 AD 36 30 29 3A 4D 4D 28 49 29 B2 54 28 49 |I).60):MM(I).T(I|
000005F0: 29 AD 44 28 49 29 00 25 0E 72 01 99 C7 28 31 33 |).D(I).%.r...(13|
00000600: 29 A3 31 33 29 3B 4D 48 28 49 29 3B 22 9D 9D 9D |).13);MH(I);"...|
00000610: 9D 9D 9D 9D 9D 22 3B A3 31 38 29 22 20 20 20 20 |.....";.18)" |
00000620: 20 20 20 20 22 00 51 0E 7C 01 99 A3 31 33 29 3B | ".Q.|...13);|
00000630: 4D 4D 28 49 29 3B 22 9D 9D 9D 9D 9D 9D 9D 9D 22 |MM(I);"........"|
00000640: 3B A3 31 38 29 22 20 20 20 20 20 20 20 20 20 20 |;.18)" |
00000650: 22 00 81 0E 86 01 99 22 44 4F 20 59 4F 55 20 57 |"......"DO YOU W|
00000660: 41 4E 54 20 54 4F 20 45 4E 54 45 52 20 4D 4F 52 |ANT TO ENTER MOR|
00000670: 45 20 44 41 54 41 20 28 59 2F 4E 29 22 3A 85 41 |E DATA (Y/N)":.A|
00000680: 24 00 91 0E 8B 01 8B 41 24 B2 22 59 22 A7 32 32 |$......A$."Y".22|
00000690: 30 00 A3 0E 90 01 81 58 B2 31 A4 49 3A 99 C7 28 |0......X.1.I:..(|
000006A0: 31 33 29 00 BD 0E 95 01 99 22 20 44 41 54 45 3A |13)......" DATE:|
000006B0: 20 20 20 20 20 22 43 41 4C 24 28 58 29 00 D5 0E | "CAL$(X)...|
000006C0: 96 01 99 22 20 20 20 20 20 20 20 20 20 20 20 A3 |..." .|
000006D0: A3 A3 A3 A3 22 00 EB 0E 9A 01 99 22 20 54 49 4D |...."......" TIM|
000006E0: 45 3A 20 20 20 20 22 54 28 58 29 00 18 0F A4 01 |E: "T(X).....|
000006F0: 99 22 20 44 49 53 54 41 4E 43 45 3A 22 44 28 58 |." DISTANCE:"D(X|
00000700: 29 22 9D 9D 9D 9D 9D 9D 9D 9D 22 A3 31 35 29 22 |)"........".15)"|
00000710: 20 20 20 20 20 20 20 22 00 2E 0F AE 01 99 22 20 | "......" |
00000720: 53 54 52 49 44 45 53 3A 20 22 53 28 58 29 00 5B |STRIDES: "S(X).[|
00000730: 0F B8 01 99 22 20 4D 49 4C 45 53 2F 48 52 3A 22 |...." MILES/HR:"|
00000740: 4D 48 28 58 29 22 9D 9D 9D 9D 9D 9D 9D 9D 22 A3 |MH(X)"........".|
00000750: 31 35 29 22 20 20 20 20 20 20 22 00 8B 0F C2 01 |15)" ".....|
00000760: 99 22 20 4D 49 4E 2F 4D 49 4C 45 3A 22 4D 4D 28 |." MIN/MILE:"MM(|
00000770: 58 29 22 9D 9D 9D 9D 9D 9D 9D 9D 22 A3 31 35 29 |X)"........".15)|
00000780: 22 20 20 20 20 20 20 20 20 20 22 00 AB 0F C7 01 |" ".....|
00000790: 8B 58 B2 32 B0 58 B2 34 B0 58 B2 36 B0 58 B2 38 |.X.2.X.4.X.6.X.8|
000007A0: B0 58 B2 31 30 A7 89 37 30 31 30 00 B1 0F CC 01 |.X.10..7010.....|
000007B0: 82 00 B7 0F D1 01 99 00 BD 0F D2 01 99 00 DE 0F |................|
000007C0: D3 01 99 22 50 52 45 53 53 20 3C 52 45 54 55 52 |..."PRESS <RETUR|
000007D0: 4E 3E 20 57 48 45 4E 20 52 45 41 44 59 22 00 F1 |N> WHEN READY"..|
000007E0: 0F D4 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 36 |....A$:.A$."".46|
000007F0: 38 00 F9 0F D5 01 89 32 35 00 16 10 F4 01 54 53 |8......25.....TS|
00000800: B2 30 3A 53 44 B2 30 3A 53 53 B2 30 3A 53 48 B2 |.0:SD.0:SS.0:SH.|
00000810: 30 3A 53 4D B2 30 00 21 10 FE 01 81 58 B2 31 A4 |0:SM.0.!....X.1.|
00000820: 49 00 5E 10 03 02 54 53 B2 54 53 AA 54 28 58 29 |I.^...TS.TS.T(X)|
00000830: 3A 53 44 B2 53 44 AA 44 28 58 29 3A 53 53 B2 53 |:SD.SD.D(X):SS.S|
00000840: 53 AA 53 28 58 29 3A 53 48 B2 53 48 AA 4D 48 28 |S.S(X):SH.SH.MH(|
00000850: 58 29 3A 53 4D B2 53 4D AA 4D 4D 28 58 29 00 64 |X):SM.SM.MM(X).d|
00000860: 10 08 02 82 00 90 10 12 02 54 53 B2 54 53 AD 49 |.........TS.TS.I|
00000870: 3A 53 44 B2 53 44 AD 49 3A 53 53 B2 53 53 AD 49 |:SD.SD.I:SS.SS.I|
00000880: 3A 53 48 B2 53 48 AD 49 3A 53 4D B2 53 4D AD 49 |:SH.SH.I:SM.SM.I|
00000890: 00 B5 10 1C 02 99 22 45 4E 54 45 52 20 27 4D 4F |......"ENTER 'MO|
000008A0: 4E 54 48 27 20 4F 46 20 53 55 4D 4D 41 52 59 27 |NTH' OF SUMMARY'|
000008B0: 22 3A 85 42 24 00 CA 10 26 02 99 22 93 11 11 11 |":.B$...&.."....|
000008C0: 11 11 22 A3 31 32 29 3B 42 24 00 DD 10 2B 02 99 |..".12);B$...+..|
000008D0: A3 31 30 29 22 53 55 4D 4D 41 52 59 22 00 F6 10 |.10)"SUMMARY"...|
000008E0: 30 02 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A3 A3 |0.."............|
000008F0: A3 A3 A3 A3 A3 22 00 2B 11 3A 02 99 22 54 49 4D |.....".+.:.."TIM|
00000900: 45 20 20 20 20 3A 22 3B 54 53 3B 22 9D 9D 9D 9D |E :";TS;"....|
00000910: 9D 9D 9D 9D 9D 9D 22 A3 31 34 29 22 20 20 20 20 |......".14)" |
00000920: 20 20 20 20 20 20 20 20 20 20 22 00 60 11 3F 02 | ".`.?.|
00000930: 99 22 44 49 53 54 41 4E 43 45 3A 22 3B 53 44 3B |."DISTANCE:";SD;|
00000940: 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 A3 31 34 29 |"..........".14)|
00000950: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |" "|
00000960: 00 95 11 44 02 99 22 53 54 52 49 44 45 53 20 3A |...D.."STRIDES :|
00000970: 22 3B 53 53 3B 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |";SS;"..........|
00000980: 22 A3 31 34 29 22 20 20 20 20 20 20 20 20 20 20 |".14)" |
00000990: 20 20 20 20 22 00 CA 11 49 02 99 22 4D 49 4C 45 | "...I.."MILE|
000009A0: 53 2F 48 52 3A 22 3B 53 48 3B 22 9D 9D 9D 9D 9D |S/HR:";SH;".....|
000009B0: 9D 9D 9D 9D 9D 22 A3 31 34 29 22 20 20 20 20 20 |.....".14)" |
000009C0: 20 20 20 20 20 20 20 20 20 22 00 00 12 4E 02 99 | "...N..|
000009D0: 22 4D 49 4E 2F 4D 49 4C 45 3A 22 3B 53 4D 3B 22 |"MIN/MILE:";SM;"|
000009E0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 A3 31 34 29 22 |..........".14)"|
000009F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000A00: 00 06 12 53 02 99 00 0C 12 54 02 99 00 2D 12 55 |...S.....T...-.U|
00000A10: 02 99 22 50 52 45 53 53 20 3C 52 45 54 55 52 4E |.."PRESS <RETURN|
00000A20: 3E 20 57 48 45 4E 20 52 45 41 44 59 22 00 40 12 |> WHEN READY".@.|
00000A30: 56 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 39 38 |V..A$:.A$."".598|
00000A40: 00 48 12 57 02 89 32 35 00 68 12 20 03 8F 20 50 |.H.W..25.h. .. P|
00000A50: 52 49 4E 54 20 44 45 54 41 49 4C 20 44 41 54 41 |RINT DETAIL DATA|
00000A60: 20 54 4F 20 54 41 50 45 00 86 12 25 03 99 22 93 | TO TAPE...%..".|
00000A70: 2A 2A 43 52 45 41 54 45 20 44 41 54 41 20 46 49 |**CREATE DATA FI|
00000A80: 4C 45 2A 2A 3A 3F 00 9D 12 2A 03 99 22 20 2A 2A |LE**:?...*.." **|
00000A90: 4D 4F 55 4E 54 20 54 41 50 45 2A 2A 22 00 C5 12 |MOUNT TAPE**"...|
00000AA0: 2F 03 99 22 20 2A 2A 50 52 45 53 53 20 3C 52 45 |/.." **PRESS <RE|
00000AB0: 54 55 52 4E 3E 20 57 48 45 4E 20 52 45 41 44 59 |TURN> WHEN READY|
00000AC0: 2A 2A 22 3A 99 00 D8 12 34 03 A1 41 24 3A 8B 41 |**":....4..A$:.A|
00000AD0: 24 B2 22 22 A7 38 32 30 00 08 13 39 03 99 22 20 |$."".820...9.." |
00000AE0: 2A 2A 4F 50 45 4E 49 4E 47 20 44 41 54 41 20 46 |**OPENING DATA F|
00000AF0: 49 4C 45 2A 2A 22 3A 9F 31 2C 31 2C 31 2C 22 4A |ILE**":.1,1,1,"J|
00000B00: 4F 47 47 45 52 22 3A 99 00 11 13 3C 03 98 31 2C |OGGER":....<..1,|
00000B10: 49 00 1C 13 3E 03 81 58 B2 31 A4 49 00 2B 13 43 |I...>..X.1.I.+.C|
00000B20: 03 98 31 2C 43 41 4C 24 28 58 29 00 37 13 48 03 |..1,CAL$(X).7.H.|
00000B30: 98 31 2C 54 28 58 29 00 43 13 4D 03 98 31 2C 44 |.1,T(X).C.M..1,D|
00000B40: 28 58 29 00 4F 13 52 03 98 31 2C 53 28 58 29 00 |(X).O.R..1,S(X).|
00000B50: 5C 13 57 03 98 31 2C 4D 48 28 58 29 00 69 13 5C |\.W..1,MH(X).i.\|
00000B60: 03 98 31 2C 4D 4D 28 58 29 00 6F 13 61 03 82 00 |..1,MM(X).o.a...|
00000B70: 76 13 66 03 A0 31 00 7C 13 6B 03 99 00 82 13 6C |v.f..1.|.k.....l|
00000B80: 03 99 00 A3 13 6D 03 99 22 50 52 45 53 53 20 3C |.....m.."PRESS <|
00000B90: 52 45 54 55 52 4E 3E 20 57 48 45 4E 20 52 45 41 |RETURN> WHEN REA|
00000BA0: 44 59 22 00 B6 13 6E 03 A1 41 24 3A 8B 41 24 B2 |DY"...n..A$:.A$.|
00000BB0: 22 22 A7 38 37 38 00 BE 13 6F 03 89 32 35 00 D3 |"".878...o..25..|
00000BC0: 13 D0 07 8F 20 44 45 56 45 4C 4F 50 20 43 48 41 |.... DEVELOP CHA|
00000BD0: 52 54 53 00 F6 13 F8 07 99 22 93 11 11 43 48 41 |RTS......"...CHA|
00000BE0: 52 54 53 20 28 53 45 4C 45 43 54 20 41 20 4E 55 |RTS (SELECT A NU|
00000BF0: 4D 42 45 52 29 22 00 05 14 FD 07 99 22 31 2E 20 |MBER)"......"1. |
00000C00: 54 49 4D 45 22 00 18 14 FE 07 99 22 32 2E 20 44 |TIME"......"2. D|
00000C10: 49 53 54 41 4E 43 45 22 00 2A 14 FF 07 99 22 33 |ISTANCE".*...."3|
00000C20: 2E 20 53 54 52 49 44 45 53 22 00 3D 14 00 08 99 |. STRIDES".=....|
00000C30: 22 34 2E 20 4D 49 4C 45 53 2F 48 52 22 00 50 14 |"4. MILES/HR".P.|
00000C40: 01 08 99 22 35 2E 20 4D 49 4E 2F 4D 49 4C 45 22 |..."5. MIN/MILE"|
00000C50: 00 69 14 02 08 99 22 36 2E 20 4C 49 53 54 20 46 |.i...."6. LIST F|
00000C60: 55 4E 43 54 49 4F 4E 53 22 00 7F 14 03 08 99 22 |UNCTIONS"......"|
00000C70: 37 2E 20 45 4E 44 20 50 52 4F 47 52 41 4D 22 00 |7. END PROGRAM".|
00000C80: 93 14 04 08 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 |.....A$:.A$."".2|
00000C90: 30 35 32 00 A4 14 07 08 8B 41 24 B2 22 31 22 A7 |052......A$."1".|
00000CA0: 32 30 38 30 00 B5 14 08 08 8B 41 24 B2 22 32 22 |2080......A$."2"|
00000CB0: A7 32 35 30 30 00 C6 14 09 08 8B 41 24 B2 22 33 |.2500......A$."3|
00000CC0: 22 A7 33 30 30 30 00 D7 14 0A 08 8B 41 24 B2 22 |".3000......A$."|
00000CD0: 34 22 A7 33 35 30 30 00 E8 14 0B 08 8B 41 24 B2 |4".3500......A$.|
00000CE0: 22 35 22 A7 34 30 30 30 00 F7 14 0C 08 8B 41 24 |"5".4000......A$|
00000CF0: B2 22 36 22 A7 32 35 00 08 15 0D 08 8B 41 24 B2 |."6".25......A$.|
00000D00: 22 37 22 A7 37 30 30 30 00 27 15 20 08 97 35 33 |"7".7000.'. ..53|
00000D10: 32 38 31 2C 31 33 3A 97 35 33 32 38 30 2C 39 3A |281,13:.53280,9:|
00000D20: 99 C7 28 31 34 34 29 00 45 15 25 08 99 22 93 22 |..(144).E.%.."."|
00000D30: A3 31 32 29 22 54 49 4D 45 20 49 4E 20 4D 49 4E |.12)"TIME IN MIN|
00000D40: 55 54 45 53 22 00 4F 15 2A 08 8D 39 30 39 30 00 |UTES".O.*..9090.|
00000D50: 68 15 48 08 99 22 11 11 22 A3 32 29 22 34 38 22 |h.H.."..".2)"48"|
00000D60: A3 33 36 29 22 34 38 22 00 82 15 4D 08 99 22 11 |.36)"48"...M..".|
00000D70: 11 11 22 A3 32 29 22 34 36 22 A3 33 36 29 22 34 |..".2)"46".36)"4|
00000D80: 36 22 00 9C 15 52 08 99 22 11 11 11 22 A3 32 29 |6"...R.."...".2)|
00000D90: 22 34 34 22 A3 33 36 29 22 34 34 22 00 B6 15 57 |"44".36)"44"...W|
00000DA0: 08 99 22 11 11 11 22 A3 32 29 22 34 32 22 A3 33 |.."...".2)"42".3|
00000DB0: 36 29 22 34 32 22 00 D0 15 5C 08 99 22 11 11 11 |6)"42"...\.."...|
00000DC0: 22 A3 32 29 22 34 30 22 A3 33 36 29 22 34 30 22 |".2)"40".36)"40"|
00000DD0: 00 FB 15 5D 08 50 B2 37 3A 81 58 B2 31 A4 49 3A |...].P.7:.X.1.I:|
00000DE0: 99 A3 50 AB 31 29 C8 28 43 41 4C 24 28 58 29 2C |..P.1).(CAL$(X),|
00000DF0: 33 29 3B 3A 50 B2 50 AA 35 3A 82 00 2E 16 5E 08 |3);:P.P.5:....^.|
00000E00: 99 C7 28 31 33 29 22 91 22 3A 50 B2 37 3A 81 58 |..(13)".":P.7:.X|
00000E10: B2 31 A4 49 3A 99 A3 50 29 C9 28 43 41 4C 24 28 |.1.I:..P).(CAL$(|
00000E20: 58 29 2C 32 29 3B 3A 50 B2 50 AA 35 3A 82 00 5E |X),2);:P.P.5:..^|
00000E30: 16 5F 08 99 C7 28 31 33 29 3A 99 20 22 50 52 45 |._...(13):. "PRE|
00000E40: 53 53 20 3C 52 45 54 55 52 4E 3E 20 46 4F 52 20 |SS <RETURN> FOR |
00000E50: 4E 45 57 20 53 45 4C 45 43 54 49 4F 4E 22 00 66 |NEW SELECTION".f|
00000E60: 16 60 08 50 B2 37 00 71 16 61 08 81 58 B2 31 A4 |.`.P.7.q.a..X.1.|
00000E70: 49 00 93 16 66 08 8B 54 28 58 29 B3 B5 28 54 28 |I...f..T(X)..(T(|
00000E80: 58 29 29 AA 2E 33 A7 54 28 58 29 B2 B5 28 54 28 |X))..3.T(X)..(T(|
00000E90: 58 29 29 00 C8 16 6B 08 8B 54 28 58 29 B1 B5 28 |X))...k..T(X)..(|
00000EA0: 54 28 58 29 29 AA 2E 33 AF 54 28 58 29 B3 B5 28 |T(X))..3.T(X)..(|
00000EB0: 54 28 58 29 29 AA 2E 37 A7 54 28 58 29 B2 B5 28 |T(X))..7.T(X)..(|
00000EC0: 54 28 58 29 29 AA 2E 35 00 EC 16 70 08 8B 54 28 |T(X))..5...p..T(|
00000ED0: 58 29 B1 B5 28 54 28 58 29 29 AA 2E 37 A7 54 28 |X)..(T(X))..7.T(|
00000EE0: 58 29 B2 B5 28 54 28 58 29 29 AA 31 00 1D 17 7F |X)..(T(X)).1....|
00000EF0: 08 81 54 B2 31 37 38 34 AA 50 A4 28 31 37 38 34 |..T.1784.P.(1784|
00000F00: AA 50 29 AB 28 54 28 58 29 AB 34 30 29 AC 38 30 |.P).(T(X).40).80|
00000F10: A9 AB 34 30 3A 97 54 2C 31 36 30 3A 82 00 4E 17 |..40:.T,160:..N.|
00000F20: 84 08 81 54 B2 35 36 30 35 36 AA 50 A4 28 35 36 |...T.56056.P.(56|
00000F30: 30 35 36 AA 50 29 AB 28 54 28 58 29 AB 34 30 29 |056.P).(T(X).40)|
00000F40: AC 38 30 A9 AB 34 30 3A 97 54 2C 36 3A 82 00 58 |.80..40:.T,6:..X|
00000F50: 17 89 08 50 B2 50 AA 35 00 5E 17 8E 08 82 00 72 |...P.P.5.^.....r|
00000F60: 17 98 08 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 32 |....A$:.A$."".22|
00000F70: 30 30 00 7C 17 99 08 89 32 30 34 30 00 9B 17 C4 |00.|....2040....|
00000F80: 09 97 35 33 32 38 31 2C 31 34 3A 97 35 33 32 38 |..53281,14:.5328|
00000F90: 30 2C 35 3A 99 C7 28 31 34 34 29 00 BB 17 C9 09 |0,5:..(144).....|
00000FA0: 99 22 93 22 A3 31 32 29 22 44 49 53 54 41 4E 43 |.".".12)"DISTANC|
00000FB0: 45 20 49 4E 20 4D 49 4C 45 53 22 00 C5 17 CE 09 |E IN MILES".....|
00000FC0: 8D 39 30 39 30 00 E0 17 D3 09 99 22 11 11 22 A3 |.9090......"..".|
00000FD0: 31 29 22 36 2E 30 22 A3 33 36 29 22 36 2E 30 22 |1)"6.0".36)"6.0"|
00000FE0: 00 FC 17 D8 09 99 22 11 11 11 22 A3 31 29 22 35 |......"...".1)"5|
00000FF0: 2E 35 22 A3 33 36 29 22 35 2E 35 22 00 18 18 DD |.5".36)"5.5"....|
00001000: 09 99 22 11 11 11 22 A3 31 29 22 35 2E 30 22 A3 |.."...".1)"5.0".|
00001010: 33 36 29 22 35 2E 30 22 00 34 18 E2 09 99 22 11 |36)"5.0".4....".|
00001020: 11 11 22 A3 31 29 22 34 2E 35 22 A3 33 36 29 22 |..".1)"4.5".36)"|
00001030: 34 2E 35 22 00 50 18 E7 09 99 22 11 11 11 22 A3 |4.5".P...."...".|
00001040: 31 29 22 34 2E 30 22 A3 33 36 29 22 34 2E 30 22 |1)"4.0".36)"4.0"|
00001050: 00 8A 18 EC 09 50 B2 37 3A 81 58 B2 31 A4 49 3A |.....P.7:.X.1.I:|
00001060: 99 A3 50 AB 31 29 C8 28 43 41 4C 24 28 58 29 2C |..P.1).(CAL$(X),|
00001070: 33 29 3B 3A 50 B2 50 AA 35 3A 82 20 20 20 20 20 |3);:P.P.5:. |
00001080: 20 20 20 20 20 20 20 20 20 20 00 BD 18 F1 09 99 | ......|
00001090: C7 28 31 33 29 22 91 22 3A 50 B2 37 3A 81 58 B2 |.(13)".":P.7:.X.|
000010A0: 31 A4 49 3A 99 A3 50 29 C9 28 43 41 4C 24 28 58 |1.I:..P).(CAL$(X|
000010B0: 29 2C 32 29 3B 3A 50 B2 50 AA 35 3A 82 00 ED 18 |),2);:P.P.5:....|
000010C0: F6 09 99 C7 28 31 33 29 3A 99 20 22 50 52 45 53 |....(13):. "PRES|
000010D0: 53 20 3C 52 45 54 55 52 4E 3E 20 46 4F 52 20 4E |S <RETURN> FOR N|
000010E0: 45 57 20 53 45 4C 45 43 54 49 4F 4E 22 00 F5 18 |EW SELECTION"...|
000010F0: FB 09 50 B2 37 00 00 19 00 0A 81 58 B2 31 A4 49 |..P.7......X.1.I|
00001100: 00 33 19 14 0A 81 54 B2 31 37 38 34 AA 50 A4 28 |.3....T.1784.P.(|
00001110: 31 37 38 34 AA 50 29 AB 28 44 28 58 29 AB 34 2E |1784.P).(D(X).4.|
00001120: 30 29 AC 33 32 30 A9 AB 34 30 3A 97 54 2C 31 36 |0).320..40:.T,16|
00001130: 30 3A 82 00 66 19 19 0A 81 54 B2 35 36 30 35 36 |0:..f....T.56056|
00001140: AA 50 A4 28 35 36 30 35 36 AA 50 29 AB 28 44 28 |.P.(56056.P).(D(|
00001150: 58 29 AB 34 2E 30 29 AC 33 32 30 A9 AB 34 30 3A |X).4.0).320..40:|
00001160: 97 54 2C 37 3A 82 00 70 19 1E 0A 50 B2 50 AA 35 |.T,7:..p...P.P.5|
00001170: 00 76 19 23 0A 82 00 8A 19 28 0A A1 41 24 3A 8B |.v.#.....(..A$:.|
00001180: 41 24 B2 22 22 A7 32 36 30 30 00 94 19 2D 0A 89 |A$."".2600...-..|
00001190: 32 30 34 30 00 B3 19 B8 0B 97 35 33 32 38 31 2C |2040......53281,|
000011A0: 31 31 3A 97 35 33 32 38 30 2C 37 3A 99 C7 28 31 |11:.53280,7:..(1|
000011B0: 34 34 29 00 D6 19 C2 0B 99 22 93 22 A3 31 31 29 |44)......".".11)|
000011C0: 22 4E 55 4D 42 45 52 20 4F 46 20 53 54 52 49 44 |"NUMBER OF STRID|
000011D0: 45 53 28 4B 29 22 00 E0 19 CC 0B 8D 39 30 39 30 |ES(K)"......9090|
000011E0: 00 FB 19 D1 0B 99 22 11 11 22 A3 31 29 22 38 2E |......"..".1)"8.|
000011F0: 30 22 A3 33 36 29 22 38 2E 30 22 00 17 1A D6 0B |0".36)"8.0".....|
00001200: 99 22 11 11 11 22 A3 31 29 22 37 2E 35 22 A3 33 |."...".1)"7.5".3|
00001210: 36 29 22 37 2E 35 22 00 33 1A DB 0B 99 22 11 11 |6)"7.5".3...."..|
00001220: 11 22 A3 31 29 22 37 2E 30 22 A3 33 36 29 22 37 |.".1)"7.0".36)"7|
00001230: 2E 30 22 00 4F 1A E0 0B 99 22 11 11 11 22 A3 31 |.0".O...."...".1|
00001240: 29 22 36 2E 35 22 A3 33 36 29 22 36 2E 35 22 00 |)"6.5".36)"6.5".|
00001250: 6B 1A E5 0B 99 22 11 11 11 22 A3 31 29 22 36 2E |k...."...".1)"6.|
00001260: 30 22 A3 33 36 29 22 36 2E 30 22 00 96 1A EA 0B |0".36)"6.0".....|
00001270: 50 B2 37 3A 81 58 B2 31 A4 49 3A 99 A3 50 AB 31 |P.7:.X.1.I:..P.1|
00001280: 29 C8 28 43 41 4C 24 28 58 29 2C 33 29 3B 3A 50 |).(CAL$(X),3);:P|
00001290: B2 50 AA 35 3A 82 00 C9 1A EF 0B 99 C7 28 31 33 |.P.5:........(13|
000012A0: 29 22 91 22 3A 50 B2 37 3A 81 58 B2 31 A4 49 3A |)".":P.7:.X.1.I:|
000012B0: 99 A3 50 29 C9 28 43 41 4C 24 28 58 29 2C 32 29 |..P).(CAL$(X),2)|
000012C0: 3B 3A 50 B2 50 AA 35 3A 82 00 F9 1A F4 0B 99 C7 |;:P.P.5:........|
000012D0: 28 31 33 29 3A 99 20 22 50 52 45 53 53 20 3C 52 |(13):. "PRESS <R|
000012E0: 45 54 55 52 4E 3E 20 46 4F 52 20 4E 45 57 20 53 |ETURN> FOR NEW S|
000012F0: 45 4C 45 43 54 49 4F 4E 22 00 01 1B F9 0B 50 B2 |ELECTION".....P.|
00001300: 37 00 0C 1B FE 0B 81 58 B2 31 A4 49 00 45 1B 03 |7......X.1.I.E..|
00001310: 0C 81 54 B2 31 37 38 34 AA 50 A4 28 31 37 38 34 |..T.1784.P.(1784|
00001320: AA 50 29 AB 28 53 28 58 29 AD 31 30 30 30 AB 36 |.P).(S(X).1000.6|
00001330: 2E 30 29 AC 33 32 30 A9 AB 34 30 3A 97 54 2C 31 |.0).320..40:.T,1|
00001340: 36 30 3A 82 54 00 7E 1B 0D 0C 81 54 B2 35 36 30 |60:.T.~....T.560|
00001350: 35 36 AA 50 A4 28 35 36 30 35 36 AA 50 29 AB 28 |56.P.(56056.P).(|
00001360: 53 28 58 29 AD 31 30 30 30 AB 36 2E 30 29 AC 33 |S(X).1000.6.0).3|
00001370: 32 30 A9 AB 34 30 3A 97 54 2C 35 3A 82 54 00 88 |20..40:.T,5:.T..|
00001380: 1B 12 0C 50 B2 50 AA 35 00 8F 1B 17 0C 82 58 00 |...P.P.5......X.|
00001390: A3 1B 1C 0C A1 41 24 3A 8B 41 24 B2 22 22 A7 33 |.....A$:.A$."".3|
000013A0: 31 30 30 00 AD 1B 21 0C 89 32 30 34 30 00 CB 1B |100...!..2040...|
000013B0: AC 0D 97 35 33 32 38 31 2C 37 3A 97 35 33 32 38 |...53281,7:.5328|
000013C0: 30 2C 36 3A 99 C7 28 31 34 34 29 00 E8 1B B1 0D |0,6:..(144).....|
000013D0: 99 22 93 22 A3 31 33 29 22 4D 49 4C 45 53 20 50 |.".".13)"MILES P|
000013E0: 45 52 20 48 4F 55 52 22 00 F2 1B B6 0D 8D 39 30 |ER HOUR"......90|
000013F0: 39 30 00 0D 1C BB 0D 99 22 11 11 22 A3 31 29 22 |90......"..".1)"|
00001400: 37 2E 35 22 A3 33 36 29 22 37 2E 35 22 00 29 1C |7.5".36)"7.5".).|
00001410: C0 0D 99 22 11 11 11 22 A3 31 29 22 37 2E 30 22 |..."...".1)"7.0"|
00001420: A3 33 36 29 22 37 2E 30 22 00 45 1C C5 0D 99 22 |.36)"7.0".E...."|
00001430: 11 11 11 22 A3 31 29 22 36 2E 35 22 A3 33 36 29 |...".1)"6.5".36)|
00001440: 22 36 2E 35 22 00 61 1C CA 0D 99 22 11 11 11 22 |"6.5".a...."..."|
00001450: A3 31 29 22 36 2E 30 22 A3 33 36 29 22 36 2E 30 |.1)"6.0".36)"6.0|
00001460: 22 00 7D 1C CF 0D 99 22 11 11 11 22 A3 31 29 22 |".}...."...".1)"|
00001470: 35 2E 35 22 A3 33 36 29 22 35 2E 35 22 00 A8 1C |5.5".36)"5.5"...|
00001480: D4 0D 50 B2 37 3A 81 58 B2 31 A4 49 3A 99 A3 50 |..P.7:.X.1.I:..P|
00001490: AB 31 29 C8 28 43 41 4C 24 28 58 29 2C 33 29 3B |.1).(CAL$(X),3);|
000014A0: 3A 50 B2 50 AA 35 3A 82 00 DB 1C D9 0D 99 C7 28 |:P.P.5:........(|
000014B0: 31 33 29 22 91 22 3A 50 B2 37 3A 81 58 B2 31 A4 |13)".":P.7:.X.1.|
000014C0: 49 3A 99 A3 50 29 C9 28 43 41 4C 24 28 58 29 2C |I:..P).(CAL$(X),|
000014D0: 32 29 3B 3A 50 B2 50 AA 35 3A 82 00 0B 1D DE 0D |2);:P.P.5:......|
000014E0: 99 C7 28 31 33 29 3A 99 20 22 50 52 45 53 53 20 |..(13):. "PRESS |
000014F0: 3C 52 45 54 55 52 4E 3E 20 46 4F 52 20 4E 45 57 |<RETURN> FOR NEW|
00001500: 20 53 45 4C 45 43 54 49 4F 4E 22 00 13 1D E3 0D | SELECTION".....|
00001510: 50 B2 37 00 1E 1D E8 0D 81 58 B2 31 A4 49 00 52 |P.7......X.1.I.R|
00001520: 1D FC 0D 81 54 B2 31 37 38 34 AA 50 A4 28 31 37 |....T.1784.P.(17|
00001530: 38 34 AA 50 29 AB 28 4D 48 28 58 29 AB 35 2E 35 |84.P).(MH(X).5.5|
00001540: 29 AC 33 32 30 A9 AB 34 30 3A 97 54 2C 31 36 30 |).320..40:.T,160|
00001550: 3A 82 00 86 1D 01 0E 81 54 B2 35 36 30 35 36 AA |:.......T.56056.|
00001560: 50 A4 28 35 36 30 35 36 AA 50 29 AB 28 4D 48 28 |P.(56056.P).(MH(|
00001570: 58 29 AB 35 2E 35 29 AC 33 32 30 A9 AB 34 30 3A |X).5.5).320..40:|
00001580: 97 54 2C 33 3A 82 00 90 1D 06 0E 50 B2 50 AA 35 |.T,3:......P.P.5|
00001590: 00 96 1D 0B 0E 82 00 AA 1D 10 0E A1 41 24 3A 8B |............A$:.|
000015A0: 41 24 B2 22 22 A7 33 36 30 30 00 B4 1D 15 0E 89 |A$."".3600......|
000015B0: 32 30 34 30 00 D4 1D A0 0F 97 35 33 32 38 31 2C |2040......53281,|
000015C0: 31 30 3A 97 35 33 32 38 30 2C 31 35 3A 99 C7 28 |10:.53280,15:..(|
000015D0: 31 34 34 29 00 F3 1D AA 0F 99 22 93 22 A3 31 32 |144)......".".12|
000015E0: 29 22 4D 49 4E 55 54 45 53 20 50 45 52 20 4D 49 |)"MINUTES PER MI|
000015F0: 4C 45 22 00 FD 1D B4 0F 8D 39 30 39 30 00 18 1E |LE"......9090...|
00001600: B9 0F 99 22 11 11 22 A3 31 29 22 39 2E 35 22 A3 |..."..".1)"9.5".|
00001610: 33 36 29 22 39 2E 35 22 00 34 1E BE 0F 99 22 11 |36)"9.5".4....".|
00001620: 11 11 22 A3 31 29 22 39 2E 30 22 A3 33 36 29 22 |..".1)"9.0".36)"|
00001630: 39 2E 30 22 00 50 1E C3 0F 99 22 11 11 11 22 A3 |9.0".P...."...".|
00001640: 31 29 22 38 2E 35 22 A3 33 36 29 22 38 2E 35 22 |1)"8.5".36)"8.5"|
00001650: 00 6C 1E C8 0F 99 22 11 11 11 22 A3 31 29 22 38 |.l...."...".1)"8|
00001660: 2E 30 22 A3 33 36 29 22 38 2E 30 22 00 88 1E CD |.0".36)"8.0"....|
00001670: 0F 99 22 11 11 11 22 A3 31 29 22 37 2E 35 22 A3 |.."...".1)"7.5".|
00001680: 33 36 29 22 37 2E 35 22 00 B3 1E D2 0F 50 B2 37 |36)"7.5".....P.7|
00001690: 3A 81 58 B2 31 A4 49 3A 99 A3 50 AB 31 29 C8 28 |:.X.1.I:..P.1).(|
000016A0: 43 41 4C 24 28 58 29 2C 33 29 3B 3A 50 B2 50 AA |CAL$(X),3);:P.P.|
000016B0: 35 3A 82 00 E6 1E D7 0F 99 C7 28 31 33 29 22 91 |5:........(13)".|
000016C0: 22 3A 50 B2 37 3A 81 58 B2 31 A4 49 3A 99 A3 50 |":P.7:.X.1.I:..P|
000016D0: 29 C9 28 43 41 4C 24 28 58 29 2C 32 29 3B 3A 50 |).(CAL$(X),2);:P|
000016E0: B2 50 AA 35 3A 82 00 16 1F DC 0F 99 C7 28 31 33 |.P.5:........(13|
000016F0: 29 3A 99 20 22 50 52 45 53 53 20 3C 52 45 54 55 |):. "PRESS <RETU|
00001700: 52 4E 3E 20 46 4F 52 20 4E 45 57 20 53 45 4C 45 |RN> FOR NEW SELE|
00001710: 43 54 49 4F 4E 22 00 1E 1F E1 0F 50 B2 37 00 29 |CTION".....P.7.)|
00001720: 1F E6 0F 81 58 B2 31 A4 49 00 5E 1F EB 0F 81 54 |....X.1.I.^....T|
00001730: B2 31 37 38 34 AA 50 A4 28 31 37 38 34 AA 50 29 |.1784.P.(1784.P)|
00001740: AB 28 4D 4D 28 58 29 AB 37 2E 35 29 AC 33 32 30 |.(MM(X).7.5).320|
00001750: A9 AB 34 30 3A 97 54 2C 31 36 30 3A 82 54 00 93 |..40:.T,160:.T..|
00001760: 1F F5 0F 81 54 B2 35 36 30 35 36 AA 50 A4 28 35 |....T.56056.P.(5|
00001770: 36 30 35 36 AA 50 29 AB 28 4D 4D 28 58 29 AB 37 |6056.P).(MM(X).7|
00001780: 2E 35 29 AC 33 32 30 A9 AB 34 30 3A 97 54 2C 34 |.5).320..40:.T,4|
00001790: 3A 82 54 00 9D 1F FA 0F 50 B2 50 AA 35 00 A4 1F |:.T.....P.P.5...|
000017A0: FF 0F 82 58 00 B8 1F 04 10 A1 41 24 3A 8B 41 24 |...X......A$:.A$|
000017B0: B2 22 22 A7 34 31 30 30 00 C2 1F 09 10 89 32 30 |."".4100......20|
000017C0: 34 30 00 C8 1F 58 1B 80 00 08 20 62 1B 99 22 11 |40...X.... b..".|
000017D0: 11 11 57 48 45 4E 20 52 45 41 44 59 20 54 4F 20 |..WHEN READY TO |
000017E0: 53 45 45 20 4E 45 58 54 20 53 45 54 20 4F 46 20 |SEE NEXT SET OF |
000017F0: 44 41 54 41 20 20 20 20 20 20 50 52 45 53 53 20 |DATA PRESS |
00001800: 27 59 27 22 3A 85 41 24 00 18 20 6C 1B 8B 41 24 |'Y'":.A$.. l..A$|
00001810: B2 22 59 22 A7 34 36 30 00 22 20 76 1B 89 37 30 |."Y".460." v..70|
00001820: 30 30 00 2F 20 40 1F 53 54 25 B2 B9 28 58 29 00 |00./ @.ST%..(X).|
00001830: 39 20 4A 1F 99 22 12 22 3B 00 4E 20 54 1F 81 41 |9 J..".";.N T..A|
00001840: B2 31 A4 49 4E 25 3A 99 22 20 22 3B 3A 82 00 67 |.1.IN%:." ";:..g|
00001850: 20 5E 1F 99 22 92 22 3B C7 28 31 33 29 3B 22 91 | ^..".";.(13);".|
00001860: 22 3B A3 53 54 25 29 00 77 20 68 1F 43 43 24 B2 |";.ST%).w h.CC$.|
00001870: 22 22 3A 4A 25 B2 30 00 84 20 72 1F 81 41 B2 31 |"":J%.0.. r..A.1|
00001880: A4 49 4E 25 00 91 20 7C 1F 3A 4A 25 B2 4A 25 AA |.IN%.. |.:J%.J%.|
00001890: 31 00 A6 20 86 1F 3A A1 43 24 3A 8B 43 24 B2 22 |1.. ..:.C$:.C$."|
000018A0: 22 A7 38 30 37 30 00 CB 20 90 1F 3A 8B 43 24 B2 |".8070.. ..:.C$.|
000018B0: 22 5F 22 A7 99 C7 28 31 33 29 C7 28 31 34 35 29 |"_"...(13).(145)|
000018C0: A3 53 54 25 29 3A 89 38 30 31 30 00 DF 20 9A 1F |.ST%):.8010.. ..|
000018D0: 3A 8B 43 24 B2 C7 28 31 33 29 A7 38 31 32 30 00 |:.C$..(13).8120.|
000018E0: F4 20 A4 1F 3A 99 43 24 3B 3A 43 43 24 B2 43 43 |. ..:.C$;:CC$.CC|
000018F0: 24 AA 43 24 00 FA 20 AE 1F 82 00 0B 21 B8 1F 8B |$.C$.. .....!...|
00001900: 4A 25 B2 49 4E 25 A7 38 31 36 30 00 19 21 C2 1F |J%.IN%.8160..!..|
00001910: 81 41 B2 4A 25 A4 49 4E 25 00 2A 21 CC 1F 3A 43 |.A.J%.IN%.*!..:C|
00001920: 43 24 B2 43 43 24 AA 22 20 22 00 30 21 D6 1F 82 |C$.CC$." ".0!...|
00001930: 00 4A 21 E0 1F 99 C7 28 31 33 29 3B 22 91 22 3B |.J!....(13);".";|
00001940: A3 53 54 25 29 3B 43 43 24 3B 00 50 21 EA 1F 8E |.ST%);CC$;.P!...|
00001950: 00 69 21 82 23 81 4A B2 31 30 36 38 A4 31 30 39 |.i!.#.J.1068.109|
00001960: 39 3A 97 4A 2C 39 39 3A 82 00 83 21 8C 23 81 4A |9:.J,99:...!.#.J|
00001970: B2 35 35 33 34 30 A4 35 35 33 37 31 3A 97 4A 2C |.55340.55371:.J,|
00001980: 31 3A 82 00 9C 21 96 23 81 4A B2 31 38 32 39 A4 |1:...!.#.J.1829.|
00001990: 31 38 35 38 3A 97 4A 2C 39 39 3A 82 00 B6 21 97 |1858:.J,99:...!.|
000019A0: 23 81 4A B2 35 36 31 30 31 A4 35 36 31 33 30 3A |#.J.56101.56130:|
000019B0: 97 4A 2C 31 3A 82 00 D3 21 98 23 81 4A B2 31 30 |.J,1:...!.#.J.10|
000019C0: 36 38 A4 31 37 38 38 A9 34 30 3A 97 4A 2C 31 30 |68.1788.40:.J,10|
000019D0: 33 3A 82 00 F0 21 99 23 81 4A B2 35 35 33 34 30 |3:...!.#.J.55340|
000019E0: A4 35 36 30 36 30 A9 34 30 3A 97 4A 2C 31 3A 82 |.56060.40:.J,1:.|
000019F0: 00 0D 22 9A 23 81 4A B2 31 30 39 39 A4 31 38 31 |..".#.J.1099.181|
00001A00: 39 A9 34 30 3A 97 4A 2C 31 30 31 3A 82 00 2A 22 |9.40:.J,101:..*"|
00001A10: 9B 23 81 4A B2 35 35 33 37 31 A4 35 36 30 39 31 |.#.J.55371.56091|
00001A20: A9 34 30 3A 97 4A 2C 31 3A 82 00 30 22 9C 23 8E |.40:.J,1:..0".#.|
00001A30: 00 54 22 10 27 99 22 93 22 3A 97 35 33 32 38 31 |.T".'.".":.53281|
00001A40: 2C 31 3A 97 35 33 32 38 30 2C 31 35 3A 99 C7 28 |,1:.53280,15:..(|
00001A50: 31 34 34 29 00 75 22 1A 27 99 A3 39 29 22 11 11 |144).u".'..9)"..|
00001A60: 4A 4F 47 47 45 52 20 2D 20 34 20 54 4F 20 36 20 |JOGGER - 4 TO 6 |
00001A70: 4D 49 4C 45 53 00 91 22 1F 27 99 A3 31 32 29 22 |MILES..".'..12)"|
00001A80: 11 42 59 20 53 49 44 20 48 4F 52 4F 56 49 54 5A |.BY SID HOROVITZ|
00001A90: 22 00 C6 22 24 27 99 22 11 11 22 A3 33 29 22 27 |".."$'."..".3)"'|
00001AA0: 4A 4F 47 47 45 52 27 20 4B 45 45 50 53 20 41 20 |JOGGER' KEEPS A |
00001AB0: 52 45 43 4F 52 44 20 4F 46 20 59 4F 55 52 20 44 |RECORD OF YOUR D|
00001AC0: 41 54 41 20 22 3B 00 F2 22 2E 27 99 22 46 52 4F |ATA ";..".'."FRO|
00001AD0: 4D 20 52 55 4E 4E 49 4E 47 20 34 20 54 4F 20 36 |M RUNNING 4 TO 6|
00001AE0: 20 4D 49 4C 45 53 2E 20 55 53 45 20 54 48 45 20 | MILES. USE THE |
00001AF0: 22 3B 00 21 23 38 27 99 22 44 49 53 2D 20 50 4C |";.!#8'."DIS- PL|
00001B00: 41 59 20 43 48 41 52 54 53 20 41 53 20 57 45 4C |AY CHARTS AS WEL|
00001B10: 4C 20 41 53 20 50 45 52 4D 41 4E 45 4E 54 20 22 |L AS PERMANENT "|
00001B20: 3B 00 4B 23 42 27 99 22 53 54 4F 52 41 47 45 46 |;.K#B'."STORAGEF|
00001B30: 41 43 49 4C 49 54 59 20 4F 4E 20 54 41 50 45 20 |ACILITY ON TAPE |
00001B40: 46 4F 52 20 46 49 4C 45 20 22 3B 00 7B 23 4C 27 |FOR FILE ";.{#L'|
00001B50: 99 22 4C 45 4E 47 54 48 53 20 55 50 20 54 4F 20 |."LENGTHS UP TO |
00001B60: 36 20 49 54 45 4D 53 20 28 4A 4F 47 53 29 2E 20 |6 ITEMS (JOGS). |
00001B70: 46 4F 52 20 44 49 53 4B 20 22 3B 00 AF 23 56 27 |FOR DISK ";..#V'|
00001B80: 99 22 4F 50 45 52 41 54 49 4F 4E 2C 20 20 20 20 |."OPERATION, |
00001B90: 20 43 48 41 4E 47 45 20 53 55 42 52 4F 55 54 49 | CHANGE SUBROUTI|
00001BA0: 4E 45 53 20 41 54 20 4C 49 4E 45 53 20 22 3B 00 |NES AT LINES ";.|
00001BB0: C2 23 60 27 99 22 34 34 20 41 4E 44 20 38 30 30 |.#`'."44 AND 800|
00001BC0: 2E 22 00 E4 23 CE 27 99 22 11 11 50 52 45 53 53 |."..#.'."..PRESS|
00001BD0: 20 3C 52 45 54 55 52 4E 3E 20 57 48 45 4E 20 52 | <RETURN> WHEN R|
00001BE0: 45 41 44 59 00 F9 23 D3 27 A1 41 24 3A 8B 41 24 |EADY..#.'.A$:.A$|
00001BF0: B2 22 22 A7 31 30 31 39 35 00 15 24 D8 27 99 22 |."".10195..$.'."|
00001C00: 93 22 A3 31 32 29 22 11 49 4E 53 54 52 55 43 54 |.".12)".INSTRUCT|
00001C10: 49 4F 4E 53 22 00 45 24 E2 27 99 22 11 11 54 4F |IONS".E$.'."..TO|
00001C20: 20 45 4E 54 45 52 20 4E 45 57 20 44 41 54 41 20 | ENTER NEW DATA |
00001C30: 28 4D 41 58 2E 20 35 20 44 49 47 49 54 53 20 45 |(MAX. 5 DIGITS E|
00001C40: 41 43 48 29 22 00 89 24 EC 27 99 22 20 20 27 44 |ACH)"..$.'." 'D|
00001C50: 41 54 45 27 3A 20 20 20 20 20 4D 4F 4E 54 48 2D |ATE': MONTH-|
00001C60: 33 20 44 49 47 49 54 53 2C 20 44 41 59 2D 32 20 |3 DIGITS, DAY-2 |
00001C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C80: 20 20 44 49 47 49 54 53 22 00 D1 24 F6 27 99 22 | DIGITS"..$.'."|
00001C90: 20 20 27 54 49 4D 45 27 3A 20 20 20 20 20 4E 55 | 'TIME': NU|
00001CA0: 4D 42 45 52 20 4F 46 20 4D 49 4E 55 54 45 53 20 |MBER OF MINUTES |
00001CB0: 54 4F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |TO |
00001CC0: 20 20 20 20 20 20 32 20 44 45 43 49 4D 41 4C 53 | 2 DECIMALS|
00001CD0: 22 00 19 25 00 28 99 22 20 20 27 44 49 53 54 41 |"..%.(." 'DISTA|
00001CE0: 4E 43 45 27 3A 20 4E 55 4D 42 45 52 20 4F 46 20 |NCE': NUMBER OF |
00001CF0: 4D 49 4C 45 53 20 54 4F 20 20 20 20 20 20 20 20 |MILES TO |
00001D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 33 20 | 3 |
00001D10: 44 45 43 49 4D 41 4C 53 22 00 47 25 0A 28 99 22 |DECIMALS".G%.(."|
00001D20: 20 20 27 53 54 52 49 44 45 53 27 3A 20 20 4E 55 | 'STRIDES': NU|
00001D30: 4D 42 45 52 20 4F 46 20 53 54 52 49 44 45 53 20 |MBER OF STRIDES |
00001D40: 54 41 4B 45 4E 2E 22 00 6D 25 0F 28 99 22 20 20 |TAKEN.".m%.(." |
00001D50: 20 20 20 20 20 20 20 20 20 20 20 20 54 48 49 53 | THIS|
00001D60: 20 49 53 20 4F 50 54 49 4F 4E 41 4C 22 00 9C 25 | IS OPTIONAL"..%|
00001D70: 14 28 99 22 11 59 4F 55 52 20 50 45 52 46 4F 52 |.(.".YOUR PERFOR|
00001D80: 4D 41 4E 43 45 20 57 49 4C 4C 20 42 45 20 44 49 |MANCE WILL BE DI|
00001D90: 53 50 4C 41 59 45 44 20 49 4E 3A 22 00 B6 25 1E |SPLAYED IN:"..%.|
00001DA0: 28 99 22 20 20 20 20 4D 49 4C 45 53 20 50 45 52 |(." MILES PER|
00001DB0: 20 48 4F 55 52 22 00 D2 25 28 28 99 22 20 20 20 | HOUR"..%((." |
00001DC0: 20 4D 49 4E 55 54 45 53 20 50 45 52 20 4D 49 4C | MINUTES PER MIL|
00001DD0: 45 22 00 00 26 32 28 99 22 11 50 52 45 53 53 20 |E"..&2(.".PRESS |
00001DE0: 27 5F 27 20 54 4F 20 43 4F 52 52 45 43 54 20 44 |'_' TO CORRECT D|
00001DF0: 41 54 41 20 4F 4E 20 41 4E 59 20 4C 49 4E 45 22 |ATA ON ANY LINE"|
00001E00: 00 24 26 F0 28 99 22 11 11 11 50 52 45 53 53 20 |.$&.(."...PRESS |
00001E10: 3C 52 45 54 55 52 4E 3E 20 57 48 45 4E 20 52 45 |<RETURN> WHEN RE|
00001E20: 41 44 59 22 00 39 26 FA 28 A1 41 24 3A 8B 41 24 |ADY".9&.(.A$:.A$|
00001E30: B2 22 22 A7 31 30 34 39 30 00 3F 26 04 29 8E 00 |."".10490.?&.)..|
00001E40: 00 00 |.. |
.......10000...... DE(11,6).'....I.0.10.
:...DE(I,0).CAL(I).M...DE(I,1).TME(I).`.
..DE(I,2).DIS(I).S...DE(I,3).STD(I).....
DE(I,4). MH(I).....DE(I,5). MM(I).......
....I.0......".".............5)"FUNCTION
S (SELECT A NUMBER)"............"1 READ
DATA FROM TAPE"......"2 ENTER NEW JOGGIN
G DATA".A...."3 SUMMARY OF DAILY RECORDS
".]. .."4 PRINT DATA TO TAPE".R.!.."5 VI
EW CHARTS"...".."6 END PROGRAM"...#..A..
.$..A.1.44...%..A.2.220...&..A.3.500.A.'
..A.4.800.O.(..A.5.2000...)..A.6.7000...
,.. READ FROM TAPE...-.."....**READ JOGG
ING DATA FROM TAPE**":..7.2.."**MOUNT TA
PE**":..^.7.."**PRESS <RETURN> WHEN READ
Y**":..P.<..A$:.A$."".60...A.."**OPENING
DATA FILE**":.1,1,0,"JOGGER":....D..1,I
:."INDEX IS "I.A.F..X.1.I...K..1,CAL$(X)
:."DATE :"CAL$(X)...M..1,T(X):."TIME
:"T(X)...O..1,D(X):."DISTANCE:"D(X).;
.Q..1,S(X):."STRIDES :"S(X).Z.S..1,MH(X)
:."MILES/HR:"MH(X).Y.U..1,MM(X):."MIN/MI
LE:"MM(X)..Z.....[.."**CLOSING DATA FIL
E**": 1.L.I..".PRESS <RETURN> WHEN READY
TO PROCEED"...J..A$:.A$."".106...K..25.
.....53281,5:.G(144):."..ENTER JOGGING D
ATA".....I.I.1.B...." "G(18)"0"G(146)"
DATE:".F...." "G(18)"1"G(146)" TIME(
MIN):"......" "G(18)"2"G(146)" DISTANCE
:"......" "G(18)"3"G(146)" STRIDES:".R
...." "G(18)"4"G(146)" MILES/HR:"......
" "G(18)"5"G(146)" MIN/MILE:".....IN%.5
...".."...";.13);.'.'..8000:CAL$(I).CC$.
7.*..G(13);.13).M.,..8000:TME$(I).CC$.].
6..G(13);.13).S.@..8000:DIS$(I).CC$...J.
.G(13);.13)...T..8000:STD$(I).CC$.M.^.T(
I).E(TME$(I)):D(I).E(DIS$(I)):S(I).E(STD
$(I))...H.MH(I).D(I).(T(I).60):MM(I).T(I
).D(I).%.R..G(13).13);MH(I);"........";.
18)" ".Q.|...13);MM(I);"........"
;.18)" "......"DO YOU WANT TO E
NTER MORE DATA (Y/N)":.A$......A$."Y".22
0......X.1.I:.G(13)......" DATE: "CA
L$(X).U...." ....."......" TIM
E: "T(X)......" DISTANCE:"D(X)"......
..".15)" "......" STRIDES: "S(X).[
...." MILES/HR:"MH(X)"........".15)"
"...B.." MIN/MILE:"MM(X)"........".15)
" "...G..X.2.X.4.X.6.X.8.X.10..7
010...L.....Q.....R.....S.."PRESS <RETUR
N> WHEN READY"...T..A$:.A$."".468...U..2
5.....TS.0:SD.0:SS.0:SH.0:SM.0.!....X.1.
I.^...TS.TS.T(X):SD.SD.D(X):SS.SS.S(X):S
H.SH.MH(X):SM.SM.MM(X).D.........TS.TS.I
:SD.SD.I:SS.SS.I:SH.SH.I:SM.SM.I......"E
NTER 'MONTH' OF SUMMARY'":.B$.J.&.."....
..".12);B$...+...10)"SUMMARY"...0.."....
.............".+.:.."TIME :";TS;"....
......".14)" ".`.?.."DISTAN
CE:";SD;"..........".14)" "
...D.."STRIDES :";SS;"..........".14)"
".J.I.."MILES/HR:";SH;".....
.....".14)" "...N.."MIN/MIL
E:";SM;"..........".14)" "
...S.....T...-.U.."PRESS <RETURN> WHEN R
EADY".@.V..A$:.A$."".598.H.W..25.H. .. P
RINT DETAIL DATA TO TAPE...%..".**CREATE
DATA FILE**:?...*.." **MOUNT TAPE**".E.
/.." **PRESS <RETURN> WHEN READY**":..X.
4..A$:.A$."".820...9.." **OPENING DATA F
ILE**":.1,1,1,"JOGGER":....<..1,I...>..X
.1.I.+.C..1,CAL$(X).7.H..1,T(X).C.M..1,D
(X).O.R..1,S(X).\.W..1,MH(X).I.\..1,MM(X
).O.A...V.F. 1.|.K.....L.....M.."PRESS <
RETURN> WHEN READY"...N..A$:.A$."".878..
.O..25.S.P.. DEVELOP CHARTS......"...CHA
RTS (SELECT A NUMBER)"......"1. TIME"...
..."2. DISTANCE".*...."3. STRIDES".=....
"4. MILES/HR".P...."5. MIN/MILE".I...."6
. LIST FUNCTIONS"....."7. END PROGRAM".
.....A$:.A$."".2052......A$."1".2080....
..A$."2".2500.F....A$."3".3000.W....A$."
4".3500......A$."5".4000......A$."6".25.
.....A$."7".7000.'. ..53281,13:.53280,9:
.G(144).E.%..".".12)"TIME IN MINUTES".O.
*..9090.H.H.."..".2)"48".36)"48"...M..".
..".2)"46".36)"46"...R.."...".2)"44".36)
"44"...W.."...".2)"42".36)"42".P.\.."...
".2)"40".36)"40"...].P.7:.X.1.I:..P.1)H(
CAL$(X),3);:P.P.5:....^..G(13)".":P.7:.X
.1.I:..P)I(CAL$(X),2);:P.P.5:..^._..G(13
):. "PRESS <RETURN> FOR NEW SELECTION".F
.`.P.7.Q.A..X.1.I...F..T(X)..(T(X))..3.T
(X)..(T(X)).H.K..T(X)..(T(X))..3.T(X)..(
T(X))..7.T(X)..(T(X))..5...P..T(X)..(T(X
))..7.T(X)..(T(X)).1.....T.1784.P.(1784
.P).(T(X).40).80..40:.T,160:..N....T.560
56.P.(56056.P).(T(X).40).80..40:.T,6:..X
...P.P.5.^.....R....A$:.A$."".2200.|....
2040...D..53281,14:.53280,5:.G(144)...I.
.".".12)"DISTANCE IN MILES".E.N..9090...
S.."..".1)"6.0".36)"6.0"...X.."...".1)"5
.5".36)"5.5"......"...".1)"5.0".36)"5.0"
.4...."...".1)"4.5".36)"4.5".P...."...".
1)"4.0".36)"4.0".....P.7:.X.1.I:..P.1)H(
CAL$(X),3);:P.P.5:. ......
G(13)".":P.7:.X.1.I:..P)I(CAL$(X),2);:P.
P.5:.......G(13):. "PRESS <RETURN> FOR N
EW SELECTION".....P.7......X.1.I.3....T.
1784.P.(1784.P).(D(X).4.0).320..40:.T,16
0:..F....T.56056.P.(56056.P).(D(X).4.0).
320..40:.T,7:..P...P.P.5.V.#.....(..A$:.
A$."".2600...-..2040......53281,11:.5328
0,7:.G(144).V.B..".".11)"NUMBER OF STRID
ES(K)"...L..9090...Q.."..".1)"8.0".36)"8
.0"...V.."...".1)"7.5".36)"7.5".3...."..
.".1)"7.0".36)"7.0".O...."...".1)"6.5".3
6)"6.5".K...."...".1)"6.0".36)"6.0".....
P.7:.X.1.I:..P.1)H(CAL$(X),3);:P.P.5:..I
....G(13)".":P.7:.X.1.I:..P)I(CAL$(X),2)
;:P.P.5:.......G(13):. "PRESS <RETURN> F
OR NEW SELECTION".....P.7......X.1.I.E..
..T.1784.P.(1784.P).(S(X).1000.6.0).320.
.40:.T,160:.T.~....T.56056.P.(56056.P).(
S(X).1000.6.0).320..40:.T,5:.T.....P.P.5
......X......A$:.A$."".3100...!..2040.K.
...53281,7:.53280,6:.G(144)......".".13)
"MILES PER HOUR"......9090......"..".1)"
7.5".36)"7.5".)...."...".1)"7.0".36)"7.0
".E.E.."...".1)"6.5".36)"6.5".A.J.."..."
.1)"6.0".36)"6.0".}.O.."...".1)"5.5".36)
"5.5"...T.P.7:.X.1.I:..P.1)H(CAL$(X),3);
:P.P.5:....Y..G(13)".":P.7:.X.1.I:..P)I(
CAL$(X),2);:P.P.5:.......G(13):. "PRESS
<RETURN> FOR NEW SELECTION".....P.7.....
.X.1.I.R....T.1784.P.(1784.P).(MH(X).5.5
).320..40:.T,160:.......T.56056.P.(56056
.P).(MH(X).5.5).320..40:.T,3:......P.P.5
............A$:.A$."".3600......2040.T.
..53281,10:.53280,15:.G(144)......".".12
)"MINUTES PER MILE"......9090......"..".
1)"9.5".36)"9.5".4...."...".1)"9.0".36)"
9.0".P.C.."...".1)"8.5".36)"8.5".L.H..".
..".1)"8.0".36)"8.0"...M.."...".1)"7.5".
36)"7.5"...R.P.7:.X.1.I:..P.1)H(CAL$(X),
3);:P.P.5:....W..G(13)".":P.7:.X.1.I:..P
)I(CAL$(X),2);:P.P.5:.......G(13):. "PRE
SS <RETURN> FOR NEW SELECTION".....P.7.)
....X.1.I.^....T.1784.P.(1784.P).(MM(X).
7.5).320..40:.T,160:.T......T.56056.P.(5
6056.P).(MM(X).7.5).320..40:.T,4:.T.....
P.P.5......X......A$:.A$."".4100.B....20
40.H.X.... B.."...WHEN READY TO SEE NEXT
SET OF DATA PRESS 'Y'":.A$.. L..A$
."Y".460." V..7000./ @.ST%..(X).9 J.."."
;.N T..A.1.IN%:." ";:..G ^..".";G(13);".
";.ST%).W H.CC$."":J%.0.. R..A.1.IN%.. |
.:J%.J%.1.. ..:.C$:.C$."".8070.K ..:.C$.
"_"..G(13)G(145).ST%):.8010.. ..:.C$.G(1
3).8120.. ..:.C$;:CC$.CC$.C$.. .....!...
J%.IN%.8160..!B..A.J%.IN%.*!L.:CC$.CC$."
".0!V...J!...G(13);".";.ST%);CC$;.P!...
.I!.#.J.1068.1099:.J,99:...!.#.J.55340.5
5371:.J,1:...!.#.J.1829.1858:.J,99:...!.
#.J.56101.56130:.J,1:..S!.#.J.1068.1788.
40:.J,103:...!.#.J.55340.56060.40:.J,1:.
..".#.J.1099.1819.40:.J,101:..*".#.J.553
71.56091.40:.J,1:..0".#..T".'.".":.53281
,1:.53280,15:.G(144).U".'..9)"..JOGGER -
4 TO 6 MILES..".'..12)".BY SID HOROVITZ
".F"$'."..".3)"'JOGGER' KEEPS A RECORD O
F YOUR DATA ";..".'."FROM RUNNING 4 TO 6
MILES. USE THE ";.!#8'."DIS- PLAY CHART
S AS WELL AS PERMANENT ";.K#B'."STORAGEF
ACILITY ON TAPE FOR FILE ";.{#L'."LENGTH
S UP TO 6 ITEMS (JOGS). FOR DISK ";..#V'
."OPERATION, CHANGE SUBROUTINES AT L
INES ";.B#`'."44 AND 800."..#N'."..PRESS
<RETURN> WHEN READY..#S'.A$:.A$."".1019
5..$X'.".".12)".INSTRUCTIONS".E$.'."..TO
ENTER NEW DATA (MAX. 5 DIGITS EACH)"..$
.'." 'DATE': MONTH-3 DIGITS, DAY-2
DIGITS".Q$.'." 'TIME'
: NUMBER OF MINUTES TO
2 DECIMALS"..%.(." 'DISTANCE': NU
MBER OF MILES TO 3
DECIMALS".G%.(." 'STRIDES': NUMBER OF
STRIDES TAKEN.".M%.(." THIS
IS OPTIONAL"..%.(.".YOUR PERFORMANCE WI
LL BE DISPLAYED IN:"..%.(." MILES PER
HOUR".R%((." MINUTES PER MILE"..&2(.
".PRESS '_' TO CORRECT DATA ON ANY LINE"
.$&.(."...PRESS <RETURN> WHEN READY".9&.
(.A$:.A$."".10490.?&.)....
> CLICK IMAGE PREVIEW FOR FULL MODAL