BIORITME 2
FILE INFORMATION
FILENAME(S): BIORITME 2
FILE TYPE(S): PRG
FILE SIZE: 11.2K
FIRST SEEN: 2025-11-30 21:22:59
APPEARS ON: 1 disk(s)
FILE HASH
dba41553b8714959ba1aaaa80efe6dedf09266dbc7c3309133e292507d637938
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GERD | BIORITME 2 | PRG | DuncanTwain | 16 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 80 01 00 89 39 31 30 00 2A 80 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 80 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 58 60 00 74 80 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 80 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 80 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 80 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 80 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 80 1E 00 3A 00 F0 80 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 09 81 28 00 55 52 24 B2 22 22 3A 55 49 24 B2 |...(.UR$."":UI$.|
00000100: 22 22 3A 97 20 55 4F 2C 30 00 19 81 2A 00 8B 55 |"":. UO,0...*..U|
00000110: 4C B2 30 A7 55 4C B2 38 30 00 23 81 2D 00 97 55 |L.0.UL.80.#.-..U|
00000120: 43 2C 30 00 37 81 32 00 A1 55 49 24 3A 8B 55 49 |C,0.7.2..UI$:.UI|
00000130: 24 B2 22 22 A7 35 30 00 61 81 37 00 8B 55 49 24 |$."".50.a.7..UI$|
00000140: B2 C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 |..(13)..(UR$)..1|
00000150: A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 |..UC,1:." .";:.8|
00000160: 35 00 74 81 3C 00 8B 55 49 24 B2 C7 28 32 30 29 |5.t.<..UI$..(20)|
00000170: A7 31 30 35 00 88 81 3E 00 8B 20 C3 28 55 52 24 |.105...>.. .(UR$|
00000180: 29 B2 B1 55 4C A7 35 30 00 AD 81 41 00 8D 31 32 |)..UL.50...A..12|
00000190: 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 |0:. CHECK FOR VA|
000001A0: 4C 49 44 20 43 48 41 52 41 43 54 45 52 00 BD 81 |LID CHARACTER...|
000001B0: 46 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C7 81 |F.UR$.UR$.UI$...|
000001C0: 4B 00 99 55 49 24 3B 00 CF 81 50 00 89 35 30 00 |K..UI$;...P..50.|
000001D0: F4 81 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 |..U.. +++ CHECK |
000001E0: 46 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 |FOR HELP REQUEST|
000001F0: 20 2B 2B 2B 00 1C 82 5A 00 8B 55 52 24 B2 55 58 | +++...Z..UR$.UX|
00000200: 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 54 4F 20 |$.195:. EXIT TO |
00000210: 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 2B 82 5F |HELP ROUTINE.+._|
00000220: 00 8B 55 46 B2 31 A7 8D 32 34 30 00 38 82 64 00 |..UF.1..240.8.d.|
00000230: 55 46 B2 30 3A 99 3A 8E 00 51 82 66 00 8F 20 2B |UF.0:.:..Q.f.. +|
00000240: 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 45 20 2B |+ CHECK DELETE +|
00000250: 2B 00 62 82 69 00 8B C3 28 55 52 24 29 B3 31 A7 |+.b.i...(UR$).1.|
00000260: 35 30 00 7A 82 6E 00 55 52 24 B2 C8 28 55 52 24 |50.z.n.UR$..(UR$|
00000270: 2C C3 28 55 52 24 29 AB 31 29 00 8C 82 73 00 99 |,.(UR$).1)...s..|
00000280: 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B3 82 78 |". ..";:.50...x|
00000290: 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 |.. ++ CHECK FOR |
000002A0: 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 53 |VALID CHARACTERS|
000002B0: 20 2B 2B 00 C5 82 7D 00 8B C3 28 55 53 24 29 B2 | ++...}...(US$).|
000002C0: 30 A7 31 35 30 00 D6 82 82 00 81 55 53 B2 31 A4 |0.150......US.1.|
000002D0: C3 28 55 53 24 29 00 ED 82 87 00 8B 55 49 24 B2 |.(US$)......UI$.|
000002E0: CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 F3 82 |.(US$,US,1).....|
000002F0: 8C 00 82 00 00 83 91 00 55 49 24 B2 22 22 3A 8E |........UI$."":.|
00000300: 00 1B 83 96 00 8F 20 2A 2A 20 53 54 41 4E 44 41 |...... ** STANDA|
00000310: 52 44 20 49 4E 50 55 54 20 2A 2A 00 2C 83 98 00 |RD INPUT **.,...|
00000320: 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 3D 83 9B |..(UI$).46...=..|
00000330: 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 5A 83 |..UI$..(32)...Z.|
00000340: A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 28 55 |....(UI$).48..(U|
00000350: 49 24 29 B1 35 37 A7 31 37 30 00 60 83 A5 00 8E |I$).57.170.`....|
00000360: 00 7D 83 AA 00 8B C6 28 55 49 24 29 B3 36 35 B0 |.}.....(UI$).65.|
00000370: C6 28 55 49 24 29 B1 39 30 A7 31 38 30 00 83 83 |.(UI$).90.180...|
00000380: AF 00 8E 00 A7 83 B4 00 8B C6 28 55 49 24 29 B3 |..........(UI$).|
00000390: 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 A7 55 |193..(UI$).218.U|
000003A0: 49 24 B2 22 22 3A 8E 00 CA 83 B9 00 8B C2 28 55 |I$."":........(U|
000003B0: 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 28 55 |T).UU%.UI$..(.(U|
000003C0: 49 24 29 AB 31 32 38 29 3A 8E 00 D0 83 BB 00 8E |I$).128):.......|
000003D0: 00 DD 83 BE 00 55 49 24 B2 22 22 3A 8E 00 02 84 |.....UI$."":....|
000003E0: C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C |..UF.1:. +++ HEL|
000003F0: 50 20 52 4F 55 54 49 4E 45 20 45 58 49 54 20 2B |P ROUTINE EXIT +|
00000400: 2B 2B 00 0B 84 C5 00 8D 32 35 30 00 14 84 C8 00 |++......250.....|
00000410: 8D 32 34 34 00 33 84 CD 00 81 55 51 B2 55 42 A4 |.244.3....UQ.UB.|
00000420: 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 |(U2%.256.U1%.U3%|
00000430: AB 32 29 00 4F 84 D2 00 55 51 25 28 55 51 AB 55 |.2).O...UQ%(UQ.U|
00000440: 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 22 00 |B)..(UQ):.:.".".|
00000450: 62 84 D7 00 55 5A B2 31 3A 55 56 25 B2 C2 28 55 |b...UZ.1:UV%..(U|
00000460: 54 29 00 6B 84 D8 00 89 33 30 30 00 AF 84 D9 00 |T).k....300.....|
00000470: 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 47 24 |UZ.0:US$.UJ$:UG$|
00000480: B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B |.UK$:UP.UJ:UL.UK|
00000490: 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |:..(50003).0..53|
000004A0: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 |281,6:.53280,14.|
000004B0: E4 84 DC 00 55 54 24 B2 55 4C 24 3A 99 22 93 22 |....UT$.UL$:."."|
000004C0: 3B 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 |;:.UT,UV%:.UQ.UB|
000004D0: A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 |.(U2%.256.U1%.U3|
000004E0: 25 AB 33 29 00 F9 84 E1 00 97 55 51 2C 55 51 25 |%.3)......UQ,UQ%|
000004F0: 28 55 51 AB 55 42 29 3A 82 00 05 85 E6 00 97 55 |(UQ.UB):.......U|
00000500: 31 2C 55 31 25 00 11 85 E8 00 97 55 32 2C 55 32 |1,U1%......U2,U2|
00000510: 25 00 1D 85 E9 00 97 55 34 2C 55 34 25 00 2B 85 |%......U4,U4%.+.|
00000520: EA 00 97 55 33 2C 55 33 25 AB 31 00 35 85 EC 00 |...U3,U3%.1.5...|
00000530: 89 39 30 30 30 00 67 85 F0 00 55 44 25 B2 28 28 |.9000.g...UD%.((|
00000540: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 29 |U2%.256.U1%.U3%)|
00000550: AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 |.UB).40:..(UD$,U|
00000560: 44 25 AA 31 29 3A 8E 00 A0 85 F4 00 99 C8 28 55 |D%.1):........(U|
00000570: 44 24 2C 32 33 29 3B 22 20 20 20 20 20 20 20 20 |D$,23);" |
00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000005A0: 00 DB 85 F5 00 99 C8 28 55 44 24 2C 32 34 29 3B |.......(UD$,24);|
000005B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000005C0: 20 20 20 20 20 20 20 12 20 48 45 4C 50 20 43 4F | . HELP CO|
000005D0: 4D 49 4E 47 20 92 20 20 22 3A 8E 00 07 86 FA 00 |MING . ":......|
000005E0: 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 |U1%..(U1):U2%..(|
000005F0: 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 |U2):U3%..(U3):U4|
00000600: 25 B2 C2 28 55 34 29 00 2F 86 FB 00 55 4A 24 B2 |%..(U4)./...UJ$.|
00000610: 55 53 24 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 |US$:UK$.UG$:UL$.|
00000620: 55 54 24 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 |UT$:UJ.UP:UK.UL.|
00000630: 35 86 FF 00 8E 00 46 86 2C 01 8F 20 2A 2A 20 4D |5.....F.,.. ** M|
00000640: 45 4E 55 20 2A 2A 00 4C 86 2D 01 3A 00 7B 86 2E |ENU **.L.-.:.{..|
00000650: 01 99 22 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 |..".":.UT,UU%:..|
00000660: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000670: 2C 39 3A 97 35 33 32 38 30 2C 38 00 81 86 2F 01 |,9:.53280,8.../.|
00000680: 3A 00 9E 86 31 01 99 22 13 20 20 20 20 20 20 20 |:...1..". |
00000690: 20 20 20 20 20 20 20 20 20 4D 45 4E 55 22 00 CD | MENU"..|
000006A0: 86 36 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.6.." ----------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 F5 86 |------------"...|
000006D0: 3B 01 99 22 11 11 20 20 20 20 20 20 20 31 2E 20 |;..".. 1. |
000006E0: 20 20 42 45 47 49 4E 20 42 49 4F 52 48 59 54 48 | BEGIN BIORHYTH|
000006F0: 4D 53 20 20 22 00 1F 87 40 01 99 22 11 11 20 20 |MS "...@..".. |
00000700: 20 20 20 20 20 32 2E 20 20 20 53 54 55 44 45 4E | 2. STUDEN|
00000710: 54 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 |T INSTRUCTIONS".|
00000720: 49 87 45 01 99 22 11 11 20 20 20 20 20 20 20 33 |I.E..".. 3|
00000730: 2E 20 20 20 54 45 41 43 48 45 52 20 49 4E 53 54 |. TEACHER INST|
00000740: 52 55 43 54 49 4F 4E 53 22 00 65 87 4F 01 99 22 |RUCTIONS".e.O.."|
00000750: 11 11 20 20 20 20 20 20 20 34 2E 20 20 20 51 55 |.. 4. QU|
00000760: 49 54 11 11 22 00 94 87 54 01 99 22 20 2D 2D 2D |IT.."...T.." ---|
00000770: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000790: 2D 2D 2D 22 00 BF 87 59 01 99 22 11 11 20 20 20 |---"...Y..".. |
000007A0: 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 4D 42 | PRESS A NUMB|
000007B0: 45 52 20 4B 45 59 20 28 31 2D 34 29 20 22 3B 00 |ER KEY (1-4) ";.|
000007C0: E7 87 5E 01 55 4C B2 31 3A 55 53 24 B2 22 31 32 |..^.UL.1:US$."12|
000007D0: 33 34 22 3A 8D 33 35 3A 8F 20 49 4E 50 55 54 20 |34":.35:. INPUT |
000007E0: 52 4F 55 54 49 4E 45 00 F2 87 60 01 55 53 24 B2 |ROUTINE...`.US$.|
000007F0: 22 22 00 0F 88 63 01 91 C5 28 55 52 24 29 8D 31 |""...c...(UR$).1|
00000800: 30 30 30 2C 34 30 30 2C 35 30 30 2C 33 39 36 00 |000,400,500,396.|
00000810: 18 88 68 01 89 33 30 30 00 3F 88 8B 01 8F 20 2A |..h..300.?.... *|
00000820: 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F 50 |* RE-ENABLE STOP|
00000830: 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A 00 | KEY AND END **.|
00000840: 6E 88 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 31 |n.....(50003)..1|
00000850: AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 AF C2 |..(50003)..160..|
00000860: 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 98 |(50003)..0.399..|
00000870: 88 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 30 30 |....UU.71:..(500|
00000880: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 |03).0..53281,6:.|
00000890: 35 33 32 38 30 2C 31 34 00 A4 88 8E 01 99 22 9A |53280,14......".|
000008A0: 93 22 3A 80 00 AF 88 8F 01 8D 38 37 35 3A 8E 00 |.":.......875:..|
000008B0: D0 88 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E 54 |..... ** STUDENT|
000008C0: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A | INSTRUCTIONS **|
000008D0: 00 FF 88 95 01 99 22 93 22 3A 97 55 54 2C 55 4C |......".":.UT,UL|
000008E0: 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 |%:..(50003).0..5|
000008F0: 33 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 |3281,0:.53280,0.|
00000900: 1B 89 9A 01 55 50 B2 30 3A 55 47 24 B2 22 D3 54 |....UP.0:UG$.".T|
00000910: 55 44 45 4E 54 20 C9 4E 53 54 22 00 26 89 A4 01 |UDENT .NST".&...|
00000920: 8D 20 32 34 31 30 00 3A 89 EA 01 8B 55 5A B2 31 |. 2410.:....UZ.1|
00000930: A7 9E 55 50 25 3A 89 32 31 37 00 40 89 F3 01 8E |..UP%:.217.@....|
00000940: 00 61 89 F4 01 8F 20 2A 2A 20 54 45 41 43 48 45 |.a.... ** TEACHE|
00000950: 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A |R INSTRUCTIONS *|
00000960: 2A 00 91 89 F5 01 99 22 93 22 3A 97 55 54 2C 55 |*......".":.UT,U|
00000970: 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |L%:..(50003).0..|
00000980: 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 2C 31 |53281,2:.53280,1|
00000990: 30 00 B2 89 F6 01 55 50 B2 30 3A 55 47 24 B2 22 |0.....UP.0:UG$."|
000009A0: D4 45 41 43 48 45 52 20 C9 4E 53 54 22 3A 8D 38 |.EACHER .NST":.8|
000009B0: 35 30 00 E0 89 F7 01 99 22 11 11 20 20 20 20 20 |50......".. |
000009C0: 20 D4 4F 20 54 48 45 20 42 45 53 54 20 4F 46 20 | .O THE BEST OF |
000009D0: 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C 11 22 |OUR KNOWLEDGE,."|
000009E0: 00 09 8A F8 01 99 22 20 20 20 54 48 49 53 20 50 |......" THIS P|
000009F0: 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 48 45 |ROGRAM IS IN THE|
00000A00: 20 50 55 42 4C 49 43 11 22 00 35 8A F9 01 99 22 | PUBLIC.".5...."|
00000A10: 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 46 20 54 | DOMAIN. .F T|
00000A20: 48 49 53 20 49 53 20 4E 4F 54 20 54 48 45 20 43 |HIS IS NOT THE C|
00000A30: 41 53 45 11 22 00 52 8A FA 01 99 22 20 20 20 50 |ASE.".R...." P|
00000A40: 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 3A 11 11 |LEASE CONTACT:..|
00000A50: 11 22 00 7C 8A FB 01 99 22 20 20 20 20 20 20 C3 |.".|...." .|
00000A60: 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 4E 45 53 |OMMODORE .USINES|
00000A70: 53 20 CD 41 43 48 49 4E 45 53 11 22 00 9F 8A FC |S .ACHINES."....|
00000A80: 01 99 22 20 20 20 20 20 20 20 20 20 20 33 33 37 |.." 337|
00000A90: 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 45 2E 00 |0 .HARMACY .VE..|
00000AA0: C3 8A FD 01 99 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000AB0: C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E 54 41 52 |.GINCOURT, .NTAR|
00000AC0: 49 4F 22 00 E5 8A FE 01 99 22 20 20 20 20 20 20 |IO"......" |
00000AD0: 20 20 20 20 C3 41 4E 41 44 41 20 20 20 CD 31 D7 | .ANADA .1.|
00000AE0: 20 32 CB 34 22 00 05 8B FF 01 99 22 20 20 20 20 | 2.4"......" |
00000AF0: 20 20 20 20 20 20 28 34 31 36 29 20 34 39 39 2D | (416) 499-|
00000B00: 34 32 39 32 22 00 1B 8B 00 02 55 50 B2 31 3A 8D |4292".....UP.1:.|
00000B10: 20 38 33 35 3A 8D 20 38 35 30 3A 00 45 8B 01 02 | 835:. 850:.E...|
00000B20: 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 4D |." ...ROGRAM|
00000B30: 20 CE 41 4D 45 3A 20 C2 49 4F 52 48 59 54 48 4D | .AME: .IORHYTHM|
00000B40: 53 20 20 20 11 00 7E 8B 02 02 99 22 20 20 20 20 |S ..~...." |
00000B50: 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D0 | .RITTEN .Y : .|
00000B60: 48 49 4C 20 C6 45 4C 44 4D 41 4E 22 3B A6 32 38 |HIL .ELDMAN";.28|
00000B70: 29 3B 22 26 20 D4 4F 4D 20 D2 55 47 47 11 00 A4 |);"& .OM .UGG...|
00000B80: 8B 03 02 99 22 20 20 20 20 20 D5 50 47 52 41 44 |...." .PGRAD|
00000B90: 45 44 20 C2 59 20 3A 20 D0 41 55 4C 20 C1 47 4F |ED .Y : .AUL .GO|
00000BA0: 53 54 41 11 00 CF 8B 04 02 99 22 20 20 20 20 20 |STA......." |
00000BB0: 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |..HIS PROGRAM WI|
00000BC0: 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 11 00 |LL RUN ON ANY...|
00000BD0: F6 8B 05 02 99 22 20 20 20 20 20 20 20 20 20 C2 |....." .|
00000BE0: C1 D3 C9 C3 A0 32 2E 30 20 D0 C5 D4 20 C3 CF CD |.....2.0 ... ...|
00000BF0: D0 D5 D4 C5 D2 11 00 1D 8C 06 02 99 22 20 20 20 |............" |
00000C00: 20 20 20 20 20 20 C2 C1 D3 C9 C3 20 34 2E 30 20 | ..... 4.0 |
00000C10: D0 C5 D4 A0 C3 CF CD D0 D5 D4 C5 D2 11 00 3F 8C |..............?.|
00000C20: 07 02 99 22 20 20 20 20 20 20 20 20 20 38 30 33 |..." 803|
00000C30: 32 20 C3 C2 CD 20 C3 CF CD D0 D5 D4 C5 D2 11 00 |2 ... ..........|
00000C40: 64 8C 08 02 99 22 20 20 20 20 20 20 20 20 20 C3 |d...." .|
00000C50: CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF CD D0 |........ 64 ....|
00000C60: D5 D4 C5 D2 00 6D 8C 09 02 8D 38 33 35 00 A2 8C |.....m....835...|
00000C70: 12 02 8F 20 47 4F 53 55 42 20 54 4F 20 50 52 49 |... GOSUB TO PRI|
00000C80: 4E 54 45 52 20 53 45 43 54 49 4F 4E 20 47 4F 45 |NTER SECTION GOE|
00000C90: 53 20 48 45 52 45 20 28 47 4F 53 55 42 20 36 35 |S HERE (GOSUB 65|
00000CA0: 35 29 00 C5 8C 17 02 8F 20 50 52 49 4E 54 45 52 |5)...... PRINTER|
00000CB0: 20 53 45 43 54 49 4F 4E 20 44 4F 45 53 4E 27 54 | SECTION DOESN'T|
00000CC0: 20 57 4F 52 4B 00 D9 8C 4E 02 8B 55 5A B2 31 A7 | WORK...N..UZ.1.|
00000CD0: 9E 55 50 25 3A 89 32 31 37 00 DF 8C 57 02 8E 00 |.UP%:.217...W...|
00000CE0: 05 8D 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D |..X.. ** PROGRAM|
00000CF0: 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E | MODIFICATION IN|
00000D00: 53 54 20 2A 2A 00 16 8D 59 02 99 22 93 22 3A 97 |ST **...Y..".":.|
00000D10: 55 54 2C 55 4C 25 00 36 8D 5D 02 55 50 B2 30 3A |UT,UL%.6.].UP.0:|
00000D20: 55 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 |UG$.".ROGRAM .OD|
00000D30: 22 3A 8D 38 35 30 00 6E 8D 8F 02 97 35 39 34 36 |":.850.n....5946|
00000D40: 38 2C 31 34 3A 99 22 93 11 11 20 20 20 20 C4 4F |8,14:."... .O|
00000D50: 20 59 4F 55 20 57 49 53 48 20 49 54 20 50 52 49 | YOU WISH IT PRI|
00000D60: 4E 54 45 44 20 28 59 2F 4E 29 20 3F 22 3B 00 8D |NTED (Y/N) ?";..|
00000D70: 8D 94 02 55 53 24 B2 22 59 4E 22 3A 55 4C B2 31 |...US$."YN":UL.1|
00000D80: 3A 8D 20 33 35 3A 59 50 24 B2 55 52 24 00 B7 8D |:. 35:YP$.UR$...|
00000D90: 99 02 8B 59 50 24 B2 22 59 22 A7 99 3A 99 3A 99 |...YP$."Y"..:.:.|
00000DA0: 22 D7 48 41 54 20 49 53 20 59 4F 55 52 20 4E 41 |".HAT IS YOUR NA|
00000DB0: 4D 45 20 3F 20 22 3B 00 FC 8D 9E 02 8B 59 50 24 |ME ? ";......YP$|
00000DC0: B2 22 59 22 A7 55 53 24 B2 22 41 42 43 44 45 46 |."Y".US$."ABCDEF|
00000DD0: 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 |GHIJKLMNOPQRSTUV|
00000DE0: 57 58 59 5A 2E 3A 20 22 3A 55 4C B2 34 30 3A 8D |WXYZ.: ":UL.40:.|
00000DF0: 33 35 3A 4E 41 4D 45 24 B2 55 52 24 00 05 8E A3 |35:NAME$.UR$....|
00000E00: 02 8D 38 33 35 00 19 8E B2 02 8B 55 5A B2 31 A7 |..835......UZ.1.|
00000E10: 9E 55 50 25 3A 89 32 31 37 00 1F 8E BB 02 8E 00 |.UP%:.217.......|
00000E20: 44 8E BC 02 8F 20 2A 2A 20 54 4F 20 55 53 45 20 |D.... ** TO USE |
00000E30: 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 30 33 |8032 LOAD CBM403|
00000E40: 32 20 2A 2A 00 7A 8E C6 02 99 22 93 11 11 11 05 |2 **.z....".....|
00000E50: 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 20 54 |BEFORE RUNNING T|
00000E60: 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E 20 41 |HIS PROGRAM ON A|
00000E70: 4E 20 38 30 33 32 20 20 11 11 00 B0 8E D0 02 99 |N 8032 ........|
00000E80: 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 45 20 |" LOAD THE |
00000E90: 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F 47 52 |'CBM 4032' PROGR|
00000EA0: 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 11 22 |AM............."|
00000EB0: 00 BB 8E DA 02 9E 55 55 AA 37 31 00 C1 8E E4 02 |......UU.71.....|
00000EC0: 80 00 E1 8E 20 03 8F 20 2A 2A 20 54 20 49 20 54 |.... .. ** T I T|
00000ED0: 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 2A | L E P A G E *|
00000EE0: 2A 00 15 8F 22 03 99 22 93 11 1D 05 22 3B 3A 97 |*...".."....";:.|
00000EF0: 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UU%:..(50003)|
00000F00: B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 33 |.0..53280,14:.53|
00000F10: 32 38 31 2C 36 00 2B 8F 24 03 81 49 B2 31 A4 33 |281,6.+.$..I.1.3|
00000F20: 38 3A 99 22 12 A6 92 22 3B 3A 82 00 43 8F 26 03 |8:."...";:..C.&.|
00000F30: 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 22 |.I.1.22:."....."|
00000F40: 3B 3A 82 00 5B 8F 28 03 81 49 B2 31 A4 33 37 3A |;:..[.(..I.1.37:|
00000F50: 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 73 8F 2A 03 |.".....";:..s.*.|
00000F60: 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 22 |.I.1.22:."....."|
00000F70: 3B 3A 82 00 98 8F 2C 03 99 22 13 11 11 11 11 11 |;:....,.."......|
00000F80: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000F90: 1D 1D 1D 12 A9 20 20 92 00 BA 8F 2E 03 99 22 1D |..... .......".|
00000FA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000FB0: 1D 12 20 92 20 20 12 20 92 A9 00 DB 8F 30 03 99 |.. . . .....0..|
00000FC0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00000FD0: 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 F9 8F 32 03 |.... . ......2.|
00000FE0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00000FF0: 1D 1D 1D 1D DF 12 20 20 92 00 21 90 34 03 99 22 |...... ..!.4.."|
00001000: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 20 |..............C |
00001010: 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 11 |O M M O D O R E.|
00001020: 11 00 44 90 36 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D |..D.6.."........|
00001030: 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F 4E |.......EDUCATION|
00001040: 41 4C 11 11 00 63 90 38 03 99 22 1D 1D 1D 1D 1D |AL...c.8..".....|
00001050: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 57 |...........SOFTW|
00001060: 41 52 45 00 7E 90 3A 03 8F 20 2A 2A 20 43 4F 4D |ARE.~.:.. ** COM|
00001070: 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 B6 |MODORE LOGO **..|
00001080: 90 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D |.;...(UD$,24);".|
00001090: 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |.........PRESS S|
000010A0: 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 |PACE BAR OR WAIT|
000010B0: 92 22 3A 49 B2 30 00 D8 90 3C 03 A1 41 24 3A 8B |.":I.0...<..A$:.|
000010C0: 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 |A$.." ".I.I.1:.I|
000010D0: B3 32 35 30 A7 38 32 38 00 FC 90 3E 03 54 31 24 |.250.828...>.T1$|
000010E0: B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 |."":T2$."":T3$."|
000010F0: 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 05 91 40 |":T4$."":I.0...@|
00001100: 03 89 33 30 30 00 21 91 43 03 8F 20 2A 2A 20 53 |..300.!.C.. ** S|
00001110: 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 2A |PACE BAR PRESS *|
00001120: 2A 00 5D 91 48 03 97 20 55 4F 2C 30 3A 99 C8 28 |*.].H.. UO,0:..(|
00001130: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 |UD$,24);".......|
00001140: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
00001150: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 74 91 |TO CONTINUE.".t.|
00001160: 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 |L..UI$:.UI$.." "|
00001170: A7 38 34 34 00 7A 91 4E 03 8E 00 9A 91 52 03 8F |.844.z.N.....R..|
00001180: 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 | ** PAGE DESIGN |
00001190: 52 4F 55 54 49 4E 45 20 2A 2A 00 A6 91 54 03 55 |ROUTINE **...T.U|
000011A0: 50 B2 55 50 AA 31 00 D0 91 57 03 99 22 93 22 C8 |P.UP.1...W..".".|
000011B0: 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 |(UT$.UP$,21);.(U|
000011C0: 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 |P$.UG$..(UP),18)|
000011D0: 00 FF 91 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |...\.." --------|
000011E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00001200: 0E 92 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 42 |..`..UH..0.870.B|
00001210: 92 61 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 |.a...(UD$,24);.(|
00001220: 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 |UP$,7);"HELP - P|
00001230: 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 4E |RESS H <RETURN|
00001240: 3E 22 00 53 92 66 03 55 48 B2 30 3A 99 22 13 11 |>".S.f.UH.0:."..|
00001250: 22 3A 8E 00 72 92 6B 03 8F 20 2A 2A 20 50 4C 45 |":..r.k.. ** PLE|
00001260: 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B 20 |ASE WAIT REMARK |
00001270: 2A 2A 00 A8 92 70 03 99 C8 28 55 44 24 2C 32 34 |**...p...(UD$,24|
00001280: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F 4E |);" ON|
00001290: 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 2E |E MOMENT PLEASE.|
000012A0: 2E 2E 20 20 20 20 20 22 00 AE 92 75 03 8E 00 CB |.. "...u....|
000012B0: 92 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 56 |.... ** SET UP V|
000012C0: 41 52 49 41 42 4C 45 53 20 2A 2A 00 16 93 85 03 |ARIABLES **.....|
000012D0: 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 30 |UX$."H":.UQ%(100|
000012E0: 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 31 |0):UB.32768:U1.1|
000012F0: 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 38 |96:U2.197:U3.198|
00001300: 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A 55 |:U4.216:UC.167:U|
00001310: 55 B2 31 30 32 34 00 54 93 86 03 55 54 B2 35 39 |U.1024.T...UT.59|
00001320: 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 31 |468:UU%.12:UL%.1|
00001330: 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 32 |4:UP%.1146:UM.32|
00001340: 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 30 |768:UO.158:. 500|
00001350: 30 33 2C 30 00 97 93 87 03 8B C2 28 35 30 30 30 |03,0.......(5000|
00001360: 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 |3).0.UB.1024:U1.|
00001370: 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 |209:U2.210:U3.21|
00001380: 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A |1:U4.214:UC.204:|
00001390: 55 55 B2 32 30 34 38 00 D6 93 88 03 8B C2 28 35 |UU.2048.......(5|
000013A0: 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 |0003).0.UT.53272|
000013B0: 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 |:UU%.21:UL%.23:U|
000013C0: 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 3A |P%.2139:UM.1024:|
000013D0: 55 4F B2 31 39 38 00 FA 93 89 03 55 44 24 B2 22 |UO.198.....UD$."|
000013E0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000013F0: 11 11 11 11 11 11 11 11 11 22 00 2C 94 8A 03 55 |.........".,...U|
00001400: 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |P$." |
00001410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001420: 20 20 20 20 20 20 20 20 20 20 20 22 00 7A 94 8B | ".z..|
00001430: 03 55 54 24 B2 22 20 C2 C9 CF D2 C8 D9 D4 C8 CD |.UT$." .........|
00001440: D3 20 20 A0 A0 A0 A0 A0 A0 22 3A 8F 20 50 4C 41 |. ......":. PLA|
00001450: 43 45 20 50 52 4F 47 52 41 4D 20 54 49 54 4C 45 |CE PROGRAM TITLE|
00001460: 20 48 45 52 45 20 21 21 21 21 21 21 21 21 21 21 | HERE !!!!!!!!!!|
00001470: 21 21 21 21 21 21 21 2A 2A 2A 00 80 94 8C 03 8E |!!!!!!!***......|
00001480: 00 9A 94 8E 03 8F 20 2A 2A 20 53 45 54 20 56 41 |...... ** SET VA|
00001490: 52 49 41 42 4C 45 53 20 2A 2A 00 A3 94 93 03 8D |RIABLES **......|
000014A0: 39 30 30 00 BB 94 94 03 86 20 51 55 24 28 32 35 |900...... QU$(25|
000014B0: 30 29 2C 41 4E 24 28 32 35 30 29 00 D6 94 98 03 |0),AN$(250).....|
000014C0: 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 |. ** CHECK FOR 8|
000014D0: 30 33 32 20 2A 2A 00 F4 94 9D 03 99 22 93 22 3A |032 **......".":|
000014E0: 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 20 53 |.".":. SHIFTED S|
000014F0: 50 41 43 45 00 0B 95 A2 03 8B C2 28 55 42 AA 34 |PACE.......(UB.4|
00001500: 30 29 B3 B1 39 36 A7 8D 37 30 30 00 24 95 A3 03 |0)..96..700.$...|
00001510: 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 |. ** MEMORY CHEC|
00001520: 4B 20 2A 2A 00 38 95 A4 03 8B 20 B8 28 30 29 B1 |K **.8.... .(0).|
00001530: 32 30 30 30 A7 39 33 37 00 66 95 A5 03 99 22 93 |2000.937.f....".|
00001540: 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E 45 20 |...THIS MACHINE |
00001550: 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 45 4E |DOES NOT HAVE EN|
00001560: 4F 55 47 48 11 22 00 8A 95 A6 03 99 22 4D 45 4D |OUGH."......"MEM|
00001570: 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 53 20 |ORY TO RUN THIS |
00001580: 50 52 4F 47 52 41 4D 20 21 22 00 95 95 A7 03 9E |PROGRAM !"......|
00001590: 55 55 AA 37 31 00 9B 95 A8 03 80 00 B5 95 A9 03 |UU.71...........|
000015A0: 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 |."..":..(50003).|
000015B0: 30 A7 39 36 32 00 E4 95 AC 03 8F 20 2A 2A 20 42 |0.962...... ** B|
000015C0: 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 2E |ASIC 2.0 OR 4.|
000015D0: 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 55 |0 OR C-64 SETU|
000015E0: 50 20 2A 2A 00 22 96 AD 03 97 31 30 37 35 2C 31 |P **."....1075,1|
000015F0: 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 30 |33:.1076,144:.10|
00001600: 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 |77,234:.1079,4:.|
00001610: 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 |1080,133:.1081,1|
00001620: 34 35 00 58 96 AE 03 97 31 30 39 31 2C 31 35 35 |45.X....1091,155|
00001630: 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 39 |:.1098,133:.1099|
00001640: 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 |,144:.1100,234:.|
00001650: 31 31 30 33 2C 31 33 33 00 7A 96 AF 03 97 31 31 |1103,133.z....11|
00001660: 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 34 |04,145:.1105,234|
00001670: 3A 97 31 30 38 32 2C 32 33 34 00 91 96 B1 03 8B |:.1082,234......|
00001680: C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 |.(50003)..160.95|
00001690: 35 00 C0 96 B6 03 97 31 30 39 33 2C 38 38 3A 97 |5......1093,88:.|
000016A0: 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 |1094,228:.1097,8|
000016B0: 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 35 |5:.1102,228:.965|
000016C0: 00 D5 96 BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 |.......(50003)..|
000016D0: 31 A7 39 39 30 00 04 97 C0 03 97 31 30 39 33 2C |1.990......1093,|
000016E0: 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 30 |49:.1094,230:.10|
000016F0: 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 3A |97,46:.1102,230:|
00001700: 89 39 36 35 00 3E 97 C2 03 97 32 30 39 39 2C 31 |.965.>....2099,1|
00001710: 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 30 |41:.2100,20:.210|
00001720: 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 |1,3:.2103,8:.210|
00001730: 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 7A |4,141:.2105,21.z|
00001740: 97 C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 35 |....2106,3:.2115|
00001750: 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 |,145:.2117,52:.2|
00001760: 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 |118,234:.2121,49|
00001770: 3A 97 32 31 32 32 2C 31 34 31 00 B4 97 C4 03 97 |:.2122,141......|
00001780: 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A |2123,20:.2124,3:|
00001790: 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 2C |.2126,234:.2127,|
000017A0: 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 |141:.2128,21:.21|
000017B0: 32 39 2C 33 00 D2 97 C5 03 9E 55 55 AA 34 38 3A |29,3......UU.48:|
000017C0: 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 4B |. DISABLE STOP K|
000017D0: 45 59 00 E3 97 CA 03 8D 38 30 30 3A 8F 20 54 49 |EY......800:. TI|
000017E0: 54 4C 45 00 F3 97 D4 03 89 33 30 30 3A 8F 20 4D |TLE......300:. M|
000017F0: 45 4E 55 00 24 98 DE 03 99 22 93 54 48 45 20 50 |ENU.$....".THE P|
00001800: 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B |GM WILL NOT WORK|
00001810: 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E 45 | ON THIS MACHINE|
00001820: 21 22 3A 80 00 59 98 E8 03 8B 55 5A B2 31 A7 9E |!":..Y....UZ.1..|
00001830: 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 |UP%:.UP%:UZ.0:. |
00001840: 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 |** PROGRAM START|
00001850: 53 20 48 45 52 45 20 2A 2A 00 85 98 E9 03 99 22 |S HERE **......"|
00001860: 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 |..";:.:..(50003)|
00001870: B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 |.0..53281,6:.532|
00001880: 38 30 2C 31 34 00 AB 98 EA 03 8B 20 C2 28 35 30 |80,14...... .(50|
00001890: 30 30 33 29 B2 30 A7 20 97 20 35 33 32 38 30 2C |003).0. . 53280,|
000018A0: 36 3A 97 20 35 33 32 38 31 2C 36 00 B9 98 4C 04 |6:. 53281,6...L.|
000018B0: 97 35 39 34 36 38 2C 31 32 00 E1 98 56 04 8F 20 |.59468,12...V.. |
000018C0: 53 45 45 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |SEE INSTRUCTIONS|
000018D0: 20 50 41 47 45 20 46 4F 52 20 43 52 45 44 49 54 | PAGE FOR CREDIT|
000018E0: 53 00 14 99 6A 04 41 41 24 B2 22 91 20 20 20 20 |S...j.AA$.". |
000018F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001910: 20 20 91 22 00 3C 99 74 04 44 44 B2 31 38 3A 4C | .".<.t.DD.18:L|
00001920: B2 30 3A 5A B2 2E 39 39 39 39 3A 54 B2 31 35 3A |.0:Z..9999:T.15:|
00001930: 50 B2 33 2E 31 34 31 35 39 32 36 35 00 55 99 7E |P.3.14159265.U.~|
00001940: 04 8B 46 4C 41 47 B2 31 A7 99 22 93 11 11 22 3A |..FLAG.1.."...":|
00001950: 89 31 32 33 30 00 7F 99 88 04 97 35 39 34 36 38 |.1230......59468|
00001960: 2C 31 32 3A 99 22 93 11 11 22 3B A3 31 32 29 3B |,12:."...";.12);|
00001970: 22 12 20 42 49 4F 52 48 59 54 48 4D 53 20 22 00 |". BIORHYTHMS ".|
00001980: BF 99 92 04 46 4C 41 47 B2 30 3A 8F 20 20 20 20 |....FLAG.0:. |
00001990: 50 52 49 4E 54 22 11 11 11 20 20 20 20 20 20 20 |PRINT"... |
000019A0: 41 52 45 20 59 4F 55 20 55 53 49 4E 47 20 41 20 |ARE YOU USING A |
000019B0: 50 52 49 4E 54 45 52 20 28 59 2F 4E 29 22 3B 00 |PRINTER (Y/N)";.|
000019C0: D4 99 9C 04 8B 59 50 24 B2 22 22 A7 59 50 24 B2 |.....YP$."".YP$.|
000019D0: 22 4E 22 3A 00 E6 99 A1 04 8B 59 50 24 B2 22 4E |"N":......YP$."N|
000019E0: 22 A7 31 32 33 30 00 F9 99 A6 04 8B 59 50 24 B3 |".1230......YP$.|
000019F0: B1 22 59 22 A7 31 32 30 30 00 32 9A B0 04 46 4C |."Y".1200.2...FL|
00001A00: 41 47 B2 31 3A 99 3A 99 22 91 20 20 20 20 20 20 |AG.1:.:.". |
00001A10: 20 49 53 20 54 48 45 52 45 20 50 41 50 45 52 20 | IS THERE PAPER |
00001A20: 49 4E 20 49 54 20 20 20 20 20 20 9D 9D 9D 9D 9D |IN IT .....|
00001A30: 22 3B 00 49 9A BA 04 8D 31 38 38 30 3A 8B 59 24 |";.I....1880:.Y$|
00001A40: B2 22 59 22 A7 31 32 33 30 00 5B 9A C4 04 8B 59 |."Y".1230.[....Y|
00001A50: 24 B3 B1 22 4E 22 A7 31 32 31 30 00 8F 9A CE 04 |$.."N".1210.....|
00001A60: 8D 32 33 32 30 3A 99 22 13 11 11 11 11 11 20 20 |.2320:."...... |
00001A70: 20 20 20 20 45 4E 54 45 52 20 59 4F 55 52 20 42 | ENTER YOUR B|
00001A80: 49 52 54 48 20 44 41 54 45 20 20 20 20 20 22 00 |IRTH DATE ".|
00001A90: 99 9A D8 04 8D 31 35 34 30 00 A3 9A E2 04 8D 31 |.....1540......1|
00001AA0: 37 36 30 00 B9 9A EC 04 4A 42 B2 4A 44 3A 8D 32 |760.....JB.JD:.2|
00001AB0: 31 33 30 3A 44 24 B2 43 24 00 EF 9A F6 04 8D 38 |130:D$.C$......8|
00001AC0: 30 30 30 3A 99 22 13 11 11 11 11 11 20 20 20 20 |000:."...... |
00001AD0: 20 20 45 4E 54 45 52 20 44 41 54 45 20 4F 46 20 | ENTER DATE OF |
00001AE0: 49 4E 54 45 52 45 53 54 20 20 20 20 20 11 22 00 |INTEREST .".|
00001AF0: F9 9A 00 05 8D 31 35 34 30 00 03 9B 0A 05 8D 31 |.....1540......1|
00001B00: 37 36 30 00 0D 9B 14 05 4A 43 B2 4A 44 00 1E 9B |760.....JC.JD...|
00001B10: 1E 05 8B 4A 43 B1 B2 4A 42 A7 31 33 34 30 00 61 |...JC..JB.1340.a|
00001B20: 9B 28 05 4D 24 B2 22 59 4F 55 20 57 45 52 45 20 |.(.M$."YOU WERE |
00001B30: 4E 4F 54 20 42 4F 52 4E 20 41 53 20 4F 46 22 AA |NOT BORN AS OF".|
00001B40: C4 28 4D 29 AA 22 2F 22 AA C4 28 44 29 AA 22 2F |.(M)."/"..(D)."/|
00001B50: 22 AA C4 28 59 29 3A 54 54 B2 32 3A 8D 32 33 37 |"..(Y):TT.2:.237|
00001B60: 30 00 75 9B 32 05 99 22 13 11 11 11 11 11 22 3A |0.u.2.."......":|
00001B70: 89 31 32 33 30 00 87 9B 3C 05 8B 46 4C 41 47 B3 |.1230...<..FLAG.|
00001B80: B1 31 A7 31 33 38 30 00 C2 9B 46 05 99 3A 99 22 |.1.1380...F..:."|
00001B90: 11 48 4F 57 20 4D 41 4E 59 20 44 41 59 53 20 53 |.HOW MANY DAYS S|
00001BA0: 48 4F 55 4C 44 20 54 48 45 20 43 48 41 52 54 20 |HOULD THE CHART |
00001BB0: 52 55 4E 20 22 3B 3A 8D 31 36 36 30 3A 44 44 B2 |RUN ";:.1660:DD.|
00001BC0: 4D 44 00 D6 9B 50 05 9F 34 2C 34 3A 9D 34 3A 99 |MD...P..4,4:.4:.|
00001BD0: C7 28 31 34 37 29 00 02 9C 5A 05 8F 20 20 20 49 |.(147)...Z.. I|
00001BE0: 46 46 46 3D 2D 31 54 48 45 4E 47 4F 53 55 42 32 |FFF=-1THENGOSUB2|
00001BF0: 34 39 30 3A 50 52 49 4E 54 43 48 52 24 28 31 34 |490:PRINTCHR$(14|
00001C00: 37 29 00 0C 9C 64 05 8D 31 38 34 30 00 18 9C 6E |7)...d..1840...n|
00001C10: 05 4E B2 4A 43 AB 4A 42 00 2D 9C 78 05 56 B2 32 |.N.JC.JB.-.x.V.2|
00001C20: 33 3A 8D 31 39 33 30 3A 8D 31 39 35 30 00 42 9C |3:.1930:.1950.B.|
00001C30: 82 05 56 B2 32 38 3A 8D 31 39 33 30 3A 8D 31 39 |..V.28:.1930:.19|
00001C40: 35 30 00 57 9C 8C 05 56 B2 33 33 3A 8D 31 39 33 |50.W...V.33:.193|
00001C50: 30 3A 8D 31 39 35 30 00 61 9C 96 05 8D 32 31 33 |0:.1950.a....213|
00001C60: 30 00 70 9C A0 05 99 43 24 3B A3 38 29 3B 4C 24 |0.p....C$;.8);L$|
00001C70: 00 8D 9C AA 05 4A 43 B2 4A 43 AA 31 3A 4C B2 4C |.....JC.JC.1:L.L|
00001C80: AA 31 3A 8B 4C B3 44 44 A7 31 33 39 30 00 C2 9C |.1:.L.DD.1390...|
00001C90: AF 05 8B 46 4C 41 47 B2 31 A7 99 3A 99 3A 99 3A |...FLAG.1..:.:.:|
00001CA0: 99 22 54 48 49 53 20 48 41 53 20 42 45 45 4E 20 |."THIS HAS BEEN |
00001CB0: 41 20 42 49 4F 52 48 59 54 48 4D 20 43 48 41 52 |A BIORHYTHM CHAR|
00001CC0: 54 22 00 DC 9C B0 05 8B 46 4C 41 47 B2 31 A7 99 |T"......FLAG.1..|
00001CD0: 22 46 4F 52 20 22 3B 4E 41 4D 45 24 00 00 9D B1 |"FOR ";NAME$....|
00001CE0: 05 8F 20 49 46 46 4C 41 47 3D 31 54 48 45 4E 50 |.. IFFLAG=1THENP|
00001CF0: 52 49 4E 54 54 41 42 28 37 35 29 3B 22 4B 4B 22 |RINTTAB(75);"KK"|
00001D00: 00 26 9D B4 05 8B 46 4C 41 47 B2 31 A7 98 34 3A |.&....FLAG.1..4:|
00001D10: A0 34 3A 59 50 24 B2 22 4E 22 3A 46 4C 41 47 B2 |.4:YP$."N":FLAG.|
00001D20: 32 3A 89 33 30 30 00 50 9D BE 05 99 22 50 52 45 |2:.300.P...."PRE|
00001D30: 53 53 20 27 48 27 20 46 4F 52 20 48 45 4C 50 20 |SS 'H' FOR HELP |
00001D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001D50: 00 59 9D BF 05 4D 31 B2 31 00 91 9D C0 05 99 22 |.Y...M1.1......"|
00001D60: 20 20 20 20 20 20 27 43 27 20 54 4F 20 43 4F 4E | 'C' TO CON|
00001D70: 54 49 4E 55 45 20 22 3B 3A 55 53 24 B2 22 48 43 |TINUE ";:US$."HC|
00001D80: 22 3A 55 4C B2 31 3A 8D 33 35 3A 59 24 B2 55 52 |":UL.1:.35:Y$.UR|
00001D90: 24 00 9A 9D C3 05 4D 31 B2 30 00 AB 9D C8 05 8B |$.....M1.0......|
00001DA0: 59 24 B2 22 43 22 A7 31 35 33 30 00 B4 9D CD 05 |Y$."C".1530.....|
00001DB0: 89 31 39 35 00 E9 9D D2 05 99 3A 99 41 41 24 3A |.195......:.AA$:|
00001DC0: 99 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F |."DO YOU WANT TO|
00001DD0: 20 4C 4F 4F 4B 20 41 54 20 41 4E 4F 54 48 45 52 | LOOK AT ANOTHER|
00001DE0: 20 43 48 41 52 54 20 22 3B 00 00 9E DC 05 8D 31 | CHART ";......1|
00001DF0: 38 38 30 3A 8B 59 24 B2 22 59 22 A7 31 31 34 30 |880:.Y$."Y".1140|
00001E00: 00 12 9E E6 05 8B 59 24 B3 B1 22 4E 22 A7 31 35 |......Y$.."N".15|
00001E10: 30 30 00 40 9E F0 05 99 3A 99 41 41 24 3A 99 A3 |00.@....:.AA$:..|
00001E20: 31 37 29 3B 22 53 4F 20 4C 4F 4E 47 20 20 21 21 |17);"SO LONG !!|
00001E30: 20 20 91 91 22 3A 9E 31 30 39 33 3A 89 33 30 30 | ..":.1093:.300|
00001E40: 00 4E 9E FA 05 4C B2 30 3A 89 31 33 34 30 00 58 |.N...L.0:.1340.X|
00001E50: 9E 04 06 54 54 B2 31 31 00 6E 9E 09 06 99 20 22 |...TT.11.n.... "|
00001E60: 11 22 3A 8D 20 38 30 30 30 3A 41 31 B2 30 00 AC |.":. 8000:A1.0..|
00001E70: 9E 0E 06 99 22 91 20 20 20 20 20 20 20 20 4D 4F |....". MO|
00001E80: 4E 54 48 20 28 31 20 54 4F 20 31 32 29 20 20 20 |NTH (1 TO 12) |
00001E90: 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 9D 9D 22 | ........"|
00001EA0: 3B 3A 8D 31 36 36 30 3A 4D B2 41 31 00 E3 9E 18 |;:.1660:M.A1....|
00001EB0: 06 8B 4D B3 31 B0 4D B1 31 32 A7 4D 24 B2 22 20 |..M.1.M.12.M$." |
00001EC0: 12 4E 4F 20 53 55 43 48 20 4D 4F 4E 54 48 22 3A |.NO SUCH MONTH":|
00001ED0: 8D 32 33 37 30 3A 99 22 91 91 91 22 3A 20 89 31 |.2370:."...": .1|
00001EE0: 35 35 30 00 10 9F 22 06 99 3A 99 22 91 20 20 20 |550..."..:.". |
00001EF0: 20 20 20 20 20 44 41 59 20 28 31 20 54 4F 20 33 | DAY (1 TO 3|
00001F00: 31 29 20 20 1D 1D 20 20 20 20 9D 9D 9D 9D 22 3B |1) .. ....";|
00001F10: 00 20 9F 2C 06 3A 8D 31 36 36 30 3A 44 B2 41 31 |. .,.:.1660:D.A1|
00001F20: 00 55 9F 36 06 8B 44 B3 31 B0 44 B1 33 31 A7 4D |.U.6..D.1.D.31.M|
00001F30: 24 B2 22 20 12 4E 4F 20 53 55 43 48 20 44 41 59 |$." .NO SUCH DAY|
00001F40: 22 3A 8D 32 33 37 30 3A 99 22 91 91 91 91 22 3A |":.2370:."....":|
00001F50: 89 31 35 37 30 00 7A 9F 40 06 99 3A 99 22 91 20 |.1570.z.@..:.". |
00001F60: 20 20 20 20 20 20 20 59 45 41 52 20 20 20 20 20 | YEAR |
00001F70: 20 20 20 1D 1D 1D 1D 1D 22 3B 00 95 9F 54 06 41 | .....";...T.A|
00001F80: 31 B2 AB 31 3A 8D 31 36 36 30 3A 59 B2 41 31 3A |1..1:.1660:Y.A1:|
00001F90: 99 22 1D 20 22 00 A4 9F 5E 06 8B 59 B1 39 39 A7 |.". "...^..Y.99.|
00001FA0: 31 36 35 30 00 CD 9F 68 06 59 B2 59 AA 31 39 30 |1650...h.Y.Y.190|
00001FB0: 30 3A 4D 24 B2 C4 28 59 29 AA 22 2C 20 49 20 41 |0:M$..(Y).", I A|
00001FC0: 53 53 55 4D 45 2E 22 3A 8D 32 33 37 30 00 D3 9F |SSUME.":.2370...|
00001FD0: 72 06 8E 00 E8 9F 7C 06 55 53 24 B2 22 30 31 32 |r.....|.US$."012|
00001FE0: 33 34 35 36 37 38 39 22 00 00 A0 86 06 55 4C B2 |3456789".....UL.|
00001FF0: 32 20 3A 8B 20 41 31 B3 30 20 A7 20 55 4C B2 34 |2 :. A1.0 . UL.4|
00002000: 00 08 A0 90 06 8D 33 35 00 16 A0 9A 06 41 31 B2 |......35.....A1.|
00002010: C5 28 55 52 24 29 00 1C A0 A4 06 8E 00 34 A0 AE |.(UR$).......4..|
00002020: 06 8B 59 24 B3 22 30 22 B0 59 24 B1 22 39 22 A7 |..Y$."0".Y$."9".|
00002030: 31 36 37 30 00 46 A0 B8 06 99 59 24 3B 3A 59 24 |1670.F....Y$;:Y$|
00002040: 28 4A 29 B2 59 24 00 5E A0 C2 06 4A B2 4A AA 31 |(J).Y$.^...J.J.1|
00002050: 3A 42 42 B2 42 42 AA 31 3A 89 31 36 37 30 00 73 |:BB.BB.1:.1670.s|
00002060: A0 CC 06 42 24 B2 22 22 3A 81 4B B2 31 A4 28 4A |...B$."":.K.1.(J|
00002070: AB 31 29 00 95 A0 D6 06 42 24 B2 42 24 AA 59 24 |.1).....B$.B$.Y$|
00002080: 28 4B 29 3A 82 3A 4D 44 B2 C5 28 42 24 29 3A 42 |(K):.:MD..(B$):B|
00002090: 42 B2 30 3A 8E 00 AA A0 E0 06 57 B2 B5 28 28 4D |B.0:......W..((M|
000020A0: AB 31 34 29 AD 31 32 AA 5A 29 00 C6 A0 EA 06 4A |.14).12.Z).....J|
000020B0: 44 B2 B5 28 31 34 36 31 AC 28 59 AA 34 38 30 30 |D..(1461.(Y.4800|
000020C0: AA 57 29 AD 34 29 00 DE A0 F4 06 42 B2 33 36 37 |.W).4).....B.367|
000020D0: AC 28 4D AB 32 AB 57 AC 31 32 29 AD 31 32 00 ED |.(M.2.W.12).12..|
000020E0: A0 FE 06 8B 42 B3 30 A7 42 B2 42 AA 5A 00 00 A1 |....B.0.B.B.Z...|
000020F0: 08 07 42 B2 B5 28 42 29 3A 4A 44 B2 4A 44 AA 42 |..B..(B):JD.JD.B|
00002100: 00 1F A1 12 07 42 B2 B5 28 B5 28 33 AC 28 59 AA |.....B..(.(3.(Y.|
00002110: 34 39 30 30 AA 57 29 AD 31 30 30 29 AD 34 29 00 |4900.W).100).4).|
00002120: 33 A1 1C 07 4A 44 B2 4A 44 AA 44 AB 33 32 30 37 |3...JD.JD.D.3207|
00002130: 35 AB 42 00 39 A1 26 07 8E 00 66 A1 30 07 99 22 |5.B.9.&...f.0.."|
00002140: 93 91 12 42 49 4F 52 48 59 54 48 4D 20 43 48 41 |...BIORHYTHM CHA|
00002150: 52 54 20 46 4F 52 20 42 49 52 54 48 20 44 41 54 |RT FOR BIRTH DAT|
00002160: 45 20 22 3B 44 24 00 94 A1 3A 07 99 22 11 12 2D |E ";D$...:.."..-|
00002170: 2D 44 41 54 45 2D 2D 22 3B A6 33 29 3B 22 44 4F |-DATE--";.3);"DO|
00002180: 57 4E 22 3B A6 38 29 3B 22 30 22 3B A6 38 29 3B |WN";.8);"0";.8);|
00002190: 22 55 50 22 00 A0 A1 44 07 99 A3 38 29 3B 55 24 |"UP"...D...8);U$|
000021A0: 00 A6 A1 4E 07 8E 00 BC A1 58 07 8F 20 49 4E 50 |...N.....X.. INP|
000021B0: 55 54 20 43 48 41 52 41 43 54 45 52 00 D2 A1 62 |UT CHARACTER...b|
000021C0: 07 99 22 12 3F 9D 22 3B 3A 81 4B B2 31 A4 32 30 |..".?.";:.K.1.20|
000021D0: 3A 82 00 E8 A1 6C 07 99 22 92 3F 9D 22 3B 3A 81 |:....l..".?.";:.|
000021E0: 4B B2 31 A4 32 30 3A 82 00 FC A1 76 07 A1 59 24 |K.1.20:....v..Y$|
000021F0: 3A 8B 59 24 B2 22 22 A7 31 38 39 30 00 02 A2 80 |:.Y$."".1890....|
00002200: 07 8E 00 17 A2 8A 07 57 B2 B5 28 4E AD 56 29 3A |.......W..(N.V):|
00002210: 52 B2 4E AB 57 AC 56 00 1D A2 94 07 8E 00 2D A2 |R.N.W.V.......-.|
00002220: 9E 07 8B 56 B3 B1 32 33 A7 32 30 31 30 00 41 A2 |...V..23.2010.A.|
00002230: A8 07 4C 24 B2 C7 28 33 32 29 3A 81 4A B2 31 A4 |..L$..(32):.J.1.|
00002240: 34 00 50 A2 B2 07 4C 24 B2 4C 24 AA 4C 24 3A 82 |4.P...L$.L$.L$:.|
00002250: 00 63 A2 BC 07 4C 24 B2 4C 24 AA C8 28 4C 24 2C |.c...L$.L$..(L$,|
00002260: 31 35 29 00 81 A2 C6 07 4C 24 B2 C8 28 4C 24 2C |15).....L$..(L$,|
00002270: 54 29 AA C7 28 31 39 34 29 AA C9 28 4C 24 2C 54 |T)..(194)..(L$,T|
00002280: 29 00 92 A2 D0 07 8B 56 B2 32 33 A7 43 24 B2 22 |)......V.23.C$."|
00002290: 50 22 00 A3 A2 DA 07 8B 56 B2 32 38 A7 43 24 B2 |P"......V.28.C$.|
000022A0: 22 45 22 00 B4 A2 E4 07 8B 56 B2 33 33 A7 43 24 |"E"......V.33.C$|
000022B0: B2 22 49 22 00 C6 A2 EE 07 57 B2 52 AD 56 3A 57 |."I".....W.R.V:W|
000022C0: B2 57 AC 32 AC 50 00 DD A2 F8 07 57 B2 54 AC BF |.W.2.P.....W.T..|
000022D0: 28 57 29 3A 57 B2 57 AA 54 AA 31 2E 35 00 F5 A2 |(W):W.W.T.1.5...|
000022E0: 02 08 57 B2 B5 28 57 29 3A 41 24 B2 CA 28 4C 24 |..W..(W):A$..(L$|
000022F0: 2C 57 2C 31 29 00 16 A3 0C 08 8B 41 24 B2 22 50 |,W,1)......A$."P|
00002300: 22 B0 41 24 B2 22 45 22 B0 41 24 B2 22 2A 22 A7 |".A$."E".A$."*".|
00002310: 43 24 B2 22 2A 22 00 24 A3 16 08 8B 57 B2 31 A7 |C$."*".$....W.1.|
00002320: 32 31 31 30 00 33 A3 20 08 8B 57 B2 33 31 A7 32 |2110.3. ..W.31.2|
00002330: 31 32 30 00 52 A3 2A 08 4C 24 B2 C8 28 4C 24 2C |120.R.*.L$..(L$,|
00002340: 57 AB 31 29 AA 43 24 AA C9 28 4C 24 2C 33 31 AB |W.1).C$..(L$,31.|
00002350: 57 29 00 58 A3 34 08 8E 00 6D A3 3E 08 4C 24 B2 |W).X.4...m.>.L$.|
00002360: 43 24 AA C9 28 4C 24 2C 33 30 29 3A 8E 00 82 A3 |C$..(L$,30):....|
00002370: 48 08 4C 24 B2 C8 28 4C 24 2C 33 30 29 AA 43 24 |H.L$..(L$,30).C$|
00002380: 3A 8E 00 AE A3 52 08 8B 4A 42 B2 4A 44 A7 57 B2 |:....R..JB.JD.W.|
00002390: 4A 42 AA 36 38 35 36 39 3A 52 B2 B5 28 34 AC 57 |JB.68569:R..(4.W|
000023A0: AD 31 34 36 30 39 37 29 3A 89 32 31 35 30 00 CD |.146097):.2150..|
000023B0: A3 5C 08 57 B2 4A 43 AA 36 38 35 36 39 3A 52 B2 |.\.W.JC.68569:R.|
000023C0: B5 28 34 AC 57 AD 31 34 36 30 39 37 29 00 E7 A3 |.(4.W.146097)...|
000023D0: 66 08 57 B2 57 AB B5 28 28 31 34 36 30 39 37 AC |f.W.W..((146097.|
000023E0: 52 AA 33 29 AD 34 29 00 03 A4 70 08 59 B2 B5 28 |R.3).4)...p.Y..(|
000023F0: 34 30 30 30 AC 28 57 AA 31 29 AD 31 34 36 31 30 |4000.(W.1).14610|
00002400: 30 31 29 00 1A A4 7A 08 57 B2 57 AB B5 28 31 34 |01)...z.W.W..(14|
00002410: 36 31 AC 59 AD 34 29 AA 33 31 00 2D A4 84 08 4D |61.Y.4).31.-...M|
00002420: B2 B5 28 38 30 AC 57 AD 32 34 34 37 29 00 42 A4 |..(80.W.2447).B.|
00002430: 8E 08 44 B2 57 AB B5 28 32 34 34 37 AC 4D AD 38 |..D.W..(2447.M.8|
00002440: 30 29 00 5B A4 98 08 57 B2 B5 28 4D AD 31 31 29 |0).[...W..(M.11)|
00002450: 3A 4D B2 4D AA 32 AB 31 32 AC 57 00 70 A4 A2 08 |:M.M.2.12.W.p...|
00002460: 59 B2 31 30 30 AC 28 52 AB 34 39 29 AA 59 AA 57 |Y.100.(R.49).Y.W|
00002470: 00 86 A4 AC 08 41 24 B2 C4 28 4D 29 3A 57 B2 C3 |.....A$..(M):W..|
00002480: 28 41 24 29 AB 31 00 9B A4 B6 08 43 24 B2 CA 28 |(A$).1.....C$..(|
00002490: 41 24 2C 32 2C 57 29 AA 22 2F 22 00 B1 A4 C0 08 |A$,2,W)."/".....|
000024A0: 41 24 B2 C4 28 44 29 3A 57 B2 C3 28 41 24 29 AB |A$..(D):W..(A$).|
000024B0: 31 00 C9 A4 CA 08 43 24 B2 43 24 AA CA 28 41 24 |1.....C$.C$..(A$|
000024C0: 2C 32 2C 57 29 AA 22 2F 22 00 DF A4 D4 08 41 24 |,2,W)."/".....A$|
000024D0: B2 C4 28 59 29 3A 57 B2 C3 28 41 24 29 AB 31 00 |..(Y):W..(A$).1.|
000024E0: F3 A4 DE 08 43 24 B2 43 24 AA CA 28 41 24 2C 57 |....C$.C$..(A$,W|
000024F0: 2C 32 29 00 05 A5 E8 08 8B 46 4C 41 47 B3 B1 31 |,2)......FLAG..1|
00002500: A7 32 33 31 30 00 1D A5 F2 08 8B C3 28 43 24 29 |.2310.......(C$)|
00002510: B2 36 A7 43 24 B2 22 20 20 22 AA 43 24 00 34 A5 |.6.C$." ".C$.4.|
00002520: FC 08 8B C3 28 43 24 29 B2 37 A7 43 24 B2 22 20 |....(C$).7.C$." |
00002530: 22 AA 43 24 00 3A A5 06 09 8E 00 4F A5 10 09 55 |".C$.:.....O...U|
00002540: 24 B2 C7 28 32 31 30 29 3A 81 4A B2 31 A4 34 00 |$..(210):.J.1.4.|
00002550: 5E A5 1A 09 55 24 B2 55 24 AA 55 24 3A 82 00 71 |^...U$.U$.U$:..q|
00002560: A5 24 09 55 24 B2 55 24 AA C8 28 55 24 2C 31 35 |.$.U$.U$..(U$,15|
00002570: 29 00 8C A5 2E 09 8B 46 4C 41 47 B2 31 A7 55 24 |)......FLAG.1.U$|
00002580: B2 55 24 AA C8 28 55 24 2C 31 33 29 00 92 A5 38 |.U$..(U$,13)...8|
00002590: 09 8E 00 A5 A5 42 09 99 3A 99 22 11 22 3B A3 54 |.....B..:.".";.T|
000025A0: 54 29 3B 4D 24 00 B5 A5 4C 09 81 4A B2 31 A4 31 |T);M$...L..J.1.1|
000025B0: 30 30 30 3A 82 00 BE A5 56 09 99 41 41 24 00 C4 |000:....V..AA$..|
000025C0: A5 60 09 8E 00 E1 A5 6A 09 8F 20 49 4E 53 54 52 |.`.....j.. INSTR|
000025D0: 55 43 54 49 4F 4E 20 53 55 42 52 4F 55 54 49 4E |UCTION SUBROUTIN|
000025E0: 45 00 E7 A5 74 09 8F 00 F1 A5 BA 09 8D 20 38 35 |E...t........ 85|
000025F0: 30 00 1F A6 C4 09 99 22 11 11 20 D4 48 45 20 42 |0......".. .HE B|
00002600: 49 4F 52 48 59 54 48 4D 20 54 48 45 4F 52 59 20 |IORHYTHM THEORY |
00002610: 53 54 41 54 45 53 20 54 48 41 54 20 41 4C 4C 00 |STATES THAT ALL.|
00002620: 4D A6 CE 09 99 22 11 20 4F 46 20 55 53 20 48 41 |M....". OF US HA|
00002630: 56 45 20 43 59 43 4C 45 53 2C 20 42 45 47 49 4E |VE CYCLES, BEGIN|
00002640: 4E 49 4E 47 20 57 49 54 48 20 54 48 45 00 7B A6 |NING WITH THE.{.|
00002650: D8 09 99 22 11 20 4D 4F 4D 45 4E 54 20 4F 46 20 |...". MOMENT OF |
00002660: 42 49 52 54 48 2C 20 54 48 41 54 20 49 4E 46 4C |BIRTH, THAT INFL|
00002670: 55 45 4E 43 45 20 4F 55 52 20 22 00 A9 A6 E2 09 |UENCE OUR ".....|
00002680: 99 22 11 20 50 48 59 53 49 43 41 4C 2C 20 45 4D |.". PHYSICAL, EM|
00002690: 4F 54 49 4F 4E 41 4C 2C 20 41 4E 44 20 49 4E 54 |OTIONAL, AND INT|
000026A0: 45 4C 4C 45 43 54 55 41 4C 00 B9 A6 EC 09 99 22 |ELLECTUAL......"|
000026B0: 11 20 53 54 41 54 45 53 2E 00 C7 A6 F1 09 8D 38 |. STATES.......8|
000026C0: 33 35 3A 8D 38 35 30 00 F8 A6 F6 09 99 22 11 20 |35:.850......". |
000026D0: 12 20 D0 48 59 53 49 43 41 4C 20 C3 59 43 4C 45 |. .HYSICAL .YCLE|
000026E0: 92 3A 20 C9 53 20 32 33 20 44 41 59 53 20 4C 4F |.: .S 23 DAYS LO|
000026F0: 4E 47 2E 20 20 C6 4F 52 00 25 A7 00 0A 99 22 11 |NG. .OR.%....".|
00002700: 20 54 48 45 20 46 49 52 53 54 20 31 31 20 31 2F | THE FIRST 11 1/|
00002710: 32 20 44 41 59 53 20 59 4F 55 20 41 52 45 20 49 |2 DAYS YOU ARE I|
00002720: 4E 20 54 48 45 00 55 A7 0A 0A 99 22 11 20 50 4F |N THE.U....". PO|
00002730: 53 49 54 49 56 45 20 53 49 44 45 20 4F 46 20 54 |SITIVE SIDE OF T|
00002740: 48 45 20 43 59 43 4C 45 2E 20 20 D4 48 49 53 20 |HE CYCLE. .HIS |
00002750: 4D 45 41 4E 53 00 84 A7 14 0A 99 22 20 59 4F 55 |MEANS......" YOU|
00002760: 20 53 48 4F 55 4C 44 20 48 41 56 45 20 41 20 46 | SHOULD HAVE A F|
00002770: 45 45 4C 49 4E 47 20 4F 46 20 57 45 4C 4C 2D 42 |EELING OF WELL-B|
00002780: 45 49 4E 47 00 B1 A7 1E 0A 99 22 20 53 54 52 45 |EING......" STRE|
00002790: 4E 47 54 48 2C 20 41 4E 44 20 45 4E 44 55 52 41 |NGTH, AND ENDURA|
000027A0: 4E 43 45 2E 20 20 C3 4F 4E 56 45 52 53 45 4C 59 |NCE. .ONVERSELY|
000027B0: 2C 00 DF A7 28 0A 99 22 11 20 44 55 52 49 4E 47 |,...(..". DURING|
000027C0: 20 54 48 45 20 27 44 4F 57 4E 27 20 53 49 44 45 | THE 'DOWN' SIDE|
000027D0: 2C 20 59 4F 55 20 48 41 56 45 20 4C 45 53 53 00 |, YOU HAVE LESS.|
000027E0: FB A7 32 0A 99 22 11 20 53 54 52 45 4E 47 54 48 |..2..". STRENGTH|
000027F0: 20 41 4E 44 20 56 49 47 4F 52 2E 00 0A A8 37 0A | AND VIGOR....7.|
00002800: 8D 38 33 35 3A 8D 20 38 35 30 00 3C A8 3C 0A 99 |.835:. 850.<.<..|
00002810: 22 11 20 12 C5 4D 4F 54 49 4F 4E 41 4C A0 C3 59 |". ..MOTIONAL..Y|
00002820: 43 4C 45 92 3A 20 CC 41 53 54 53 20 32 38 20 44 |CLE.: .ASTS 28 D|
00002830: 41 59 53 2E 20 20 C4 55 52 49 4E 47 00 6B A8 46 |AYS. .URING.k.F|
00002840: 0A 99 22 20 54 48 45 20 50 4F 53 49 54 49 56 45 |.." THE POSITIVE|
00002850: 20 48 41 4C 46 2C 20 59 4F 55 20 53 48 4F 55 4C | HALF, YOU SHOUL|
00002860: 44 20 46 45 45 4C 20 4D 4F 52 45 00 98 A8 50 0A |D FEEL MORE...P.|
00002870: 99 22 20 43 48 45 45 52 46 55 4C 20 41 4E 44 20 |." CHEERFUL AND |
00002880: 43 4F 4F 50 45 52 41 54 49 56 45 2E 20 20 C4 55 |COOPERATIVE. .U|
00002890: 52 49 4E 47 20 54 48 45 00 C4 A8 5A 0A 99 22 11 |RING THE...Z..".|
000028A0: 20 4E 45 47 41 54 49 56 45 2C 20 59 4F 55 20 54 | NEGATIVE, YOU T|
000028B0: 45 4E 44 20 54 4F 20 42 45 20 4D 4F 52 45 20 4D |END TO BE MORE M|
000028C0: 4F 4F 44 59 00 E8 A8 64 0A 99 22 11 20 49 52 52 |OODY...d..". IRR|
000028D0: 49 54 41 42 4C 45 2C 20 41 4E 44 20 50 45 53 53 |ITABLE, AND PESS|
000028E0: 49 4D 49 53 54 49 43 2E 00 F7 A8 78 0A 8D 38 33 |IMISTIC....x..83|
000028F0: 35 3A 8D 20 38 35 30 00 28 A9 8C 0A 99 22 11 20 |5:. 850.(....". |
00002900: 12 C9 4E 54 45 4C 4C 45 43 54 55 41 4C 20 C3 59 |..NTELLECTUAL .Y|
00002910: 43 4C 45 92 20 CC 41 53 54 53 20 46 4F 52 20 33 |CLE. .ASTS FOR 3|
00002920: 33 20 44 41 59 53 2E 22 00 58 A9 96 0A 99 22 11 |3 DAYS.".X....".|
00002930: 20 D4 48 45 20 46 49 52 53 54 20 48 41 4C 46 20 | .HE FIRST HALF |
00002940: 49 53 20 41 20 50 45 52 49 4F 44 20 49 4E 20 57 |IS A PERIOD IN W|
00002950: 48 49 43 48 20 59 4F 55 00 7B A9 A0 0A 99 22 20 |HICH YOU.{...." |
00002960: 53 48 4F 55 4C 44 20 48 41 56 45 20 47 52 45 41 |SHOULD HAVE GREA|
00002970: 54 45 52 20 53 55 43 43 45 53 53 00 A6 A9 AA 0A |TER SUCCESS.....|
00002980: 99 22 11 20 4C 45 41 52 4E 49 4E 47 20 4E 45 57 |.". LEARNING NEW|
00002990: 20 4D 41 54 45 52 49 41 4C 20 41 4E 44 20 50 55 | MATERIAL AND PU|
000029A0: 52 53 55 49 4E 47 00 D5 A9 B4 0A 99 22 11 20 43 |RSUING......". C|
000029B0: 52 45 41 54 49 56 45 20 41 43 54 49 56 49 54 49 |REATIVE ACTIVITI|
000029C0: 45 53 2E 20 20 C4 55 52 49 4E 47 20 54 48 45 20 |ES. .URING THE |
000029D0: 4C 41 53 54 22 00 01 AA BE 0A 99 22 11 20 48 41 |LAST"......". HA|
000029E0: 4C 46 2C 20 59 4F 55 20 41 52 45 20 53 55 50 50 |LF, YOU ARE SUPP|
000029F0: 4F 53 45 44 4C 59 20 42 45 54 54 45 52 20 4F 46 |OSEDLY BETTER OF|
00002A00: 46 00 21 AA C8 0A 99 22 11 20 52 45 56 49 45 57 |F.!....". REVIEW|
00002A10: 49 4E 47 20 4F 4C 44 20 4D 41 54 45 52 49 41 4C |ING OLD MATERIAL|
00002A20: 2E 00 30 AA CD 0A 8D 38 33 35 3A 8D 20 38 35 30 |..0....835:. 850|
00002A30: 00 5D AA D2 0A 99 22 11 20 C1 4E 59 20 44 41 59 |.]....". .NY DAY|
00002A40: 20 57 48 49 43 48 20 54 48 45 20 43 59 43 4C 45 | WHICH THE CYCLE|
00002A50: 20 43 52 4F 53 53 45 53 20 46 52 4F 4D 00 89 AA | CROSSES FROM...|
00002A60: DC 0A 99 22 11 20 4F 4E 45 20 53 49 44 45 20 54 |...". ONE SIDE T|
00002A70: 4F 20 54 48 45 20 4F 54 48 45 52 20 49 53 20 53 |O THE OTHER IS S|
00002A80: 41 49 44 20 54 4F 20 42 45 00 B7 AA E6 0A 99 22 |AID TO BE......"|
00002A90: 11 20 41 20 27 43 52 49 54 49 43 41 4C 20 44 41 |. A 'CRITICAL DA|
00002AA0: 59 2E 27 20 20 D4 48 45 20 54 48 45 4F 52 59 20 |Y.' .HE THEORY |
00002AB0: 49 53 20 54 48 41 54 00 E7 AA F0 0A 99 22 11 20 |IS THAT......". |
00002AC0: 59 4F 55 20 41 52 45 20 4D 4F 52 45 20 41 43 43 |YOU ARE MORE ACC|
00002AD0: 49 44 45 4E 54 2D 50 52 4F 4E 45 20 4F 4E 20 43 |IDENT-PRONE ON C|
00002AE0: 52 49 54 49 43 41 4C 00 14 AB FA 0A 99 22 20 50 |RITICAL......" P|
00002AF0: 48 59 53 49 43 41 4C 20 41 4E 44 20 45 4D 4F 54 |HYSICAL AND EMOT|
00002B00: 49 4F 4E 41 4C 20 44 41 59 53 20 28 43 52 49 54 |IONAL DAYS (CRIT|
00002B10: 49 43 41 4C 00 41 AB 04 0B 99 22 11 20 49 4E 54 |ICAL.A....". INT|
00002B20: 45 4C 4C 45 43 54 55 41 4C 20 44 41 59 53 20 41 |ELLECTUAL DAYS A|
00002B30: 52 45 20 4E 4F 54 20 43 4F 4E 53 49 44 45 52 45 |RE NOT CONSIDERE|
00002B40: 44 00 6F AB 0E 0B 99 22 11 20 44 41 4E 47 45 52 |D.o....". DANGER|
00002B50: 4F 55 53 20 55 4E 4C 45 53 53 20 54 48 45 59 20 |OUS UNLESS THEY |
00002B60: 43 4F 49 4E 43 49 44 45 20 57 49 54 48 20 41 00 |COINCIDE WITH A.|
00002B70: 9D AB 18 0B 99 22 11 20 43 52 49 54 49 43 41 4C |.....". CRITICAL|
00002B80: 20 44 41 59 20 49 4E 20 41 4E 4F 54 48 45 52 20 | DAY IN ANOTHER |
00002B90: 43 59 43 4C 45 2E 29 20 20 CF 4E 20 41 00 C9 AB |CYCLE.) .N A...|
00002BA0: 22 0B 99 22 11 20 54 52 49 50 4C 45 20 43 52 49 |"..". TRIPLE CRI|
00002BB0: 54 49 43 41 4C 20 44 41 59 20 28 41 20 52 41 52 |TICAL DAY (A RAR|
00002BC0: 49 54 59 29 2C 20 59 4F 55 00 FA AB 2C 0B 99 22 |ITY), YOU...,.."|
00002BD0: 11 20 50 52 4F 42 41 42 4C 59 20 53 48 4F 55 4C |. PROBABLY SHOUL|
00002BE0: 44 4E 27 54 20 45 56 45 4E 20 47 45 54 20 4F 55 |DN'T EVEN GET OU|
00002BF0: 54 20 4F 46 20 42 45 44 21 22 00 05 AC 40 0B 8D |T OF BED!"...@..|
00002C00: 38 33 35 3A 8E 00 2B AC 40 1F 99 20 22 20 20 20 |835:..+.@.. " |
00002C10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C20: 20 20 20 20 20 20 20 20 20 20 22 00 59 AC 4A 1F | ".Y.J.|
00002C30: 99 20 22 13 11 11 11 11 11 11 11 20 20 20 20 20 |. "........ |
00002C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C50: 20 20 20 20 20 20 20 20 22 00 68 AC 54 1F 81 20 | ".h.T.. |
00002C60: 41 31 B2 31 20 A4 20 38 00 8E AC 5E 1F 99 20 22 |A1.1 . 8...^.. "|
00002C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 97 | "..|
00002C90: AC 68 1F 82 20 41 31 00 A7 AC 72 1F 99 20 22 13 |.h.. A1...r.. ".|
00002CA0: 11 11 11 11 11 11 11 00 AD AC 7C 1F 8E 00 BF AC |..........|.....|
00002CB0: 28 23 8B 20 4D 31 B2 30 20 A7 20 8D 20 33 35 00 |(#. M1.0 . . 35.|
00002CC0: CF AC 32 23 99 20 C8 28 55 44 24 2C 32 32 29 00 |..2#. .(UD$,22).|
00002CD0: D8 AC 3C 23 9E 55 50 25 00 E3 AC 46 23 89 20 31 |..<#.UP%...F#. 1|
00002CE0: 34 37 30 00 00 00 |470... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(.UR$."":UI$."":. UO,0...*..UL.0.UL.8
0.#.-..UC,0.7.2..UI$:.UI$."".50.A.7..UI$
.G(13).C(UR$)..1..UC,1:." .";:.85.T.<..U
I$.G(20).105...>.. C(UR$)..UL.50...A..12
0:. CHECK FOR VALID CHARACTER...F.UR$.UR
$.UI$.G.K..UI$;.O.P..50...U.. +++ CHECK
FOR HELP REQUEST +++...Z..UR$.UX$.195:.
EXIT TO HELP ROUTINE.+._..UF.1..240.8.D.
UF.0:.:..Q.F.. ++ CHECK DELETE ++.B.I..C
(UR$).1.50.Z.N.UR$.H(UR$,C(UR$).1)...S..
". ..";:.50...X.. ++ CHECK FOR VALID CH
ARACTERS ++.E.}..C(US$).0.150.V....US.1.
C(US$)......UI$.J(US$,US,1).............
UI$."":....... ** STANDARD INPUT **.,...
.F(UI$).46...=....UI$.G(32)...Z. ..F(UI$
).48.F(UI$).57.170.`.....}....F(UI$).65.
F(UI$).90.180............F(UI$).193.F(UI
$).218.UI$."":..J....B(UT).UU%.UI$.G(F(U
I$).128):..P.........UI$."":....C.UF.1:.
+++ HELP ROUTINE EXIT +++...E..250...H.
.244.3.M..UQ.UB.(U2%.256.U1%.U3%.2).O.R.
UQ%(UQ.UB).B(UQ):.:.".".B.W.UZ.1:UV%.B(U
T).K.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:UP.
UJ:UL.UK:.B(50003).0..53281,6:.53280,14.
....UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%.25
6.U1%.U3%.3)......UQ,UQ%(UQ.UB):.......U
1,U1%......U2,U2%......U4,U4%.+....U3,U3
%.1.5....9000.G...UD%.((U2%.256.U1%.U3%)
.UB).40:.H(UD$,UD%.1):.. ....H(UD$,23);"
"
......H(UD$,24);" .
HELP COMING . ":......U1%.B(U1):U2%.B(
U2):U3%.B(U3):U4%.B(U4)./...UJ$.US$:UK$.
UG$:UL$.UT$:UJ.UP:UK.UL.5.....F.,.. ** M
ENU **.L.-.:.{....".":.UT,UU%:.B(50003).
0..53281,9:.53280,8.../.:...1..".
MENU".M.6.." ------------------
--------------------"...;..".. 1.
BEGIN BIORHYTHMS "...@..".. 2.
STUDENT INSTRUCTIONS".I.E..".. 3
. TEACHER INSTRUCTIONS".E.O.."..
4. QUIT.."...T.." -------------------
-------------------"...Y..".. PRES
S A NUMBER KEY (1-4) ";...^.UL.1:US$."12
34":.35:. INPUT ROUTINE...`.US$.""...C..
E(UR$).1000,400,500,396...H..300.?.... *
* RE-ENABLE STOP KEY AND END **.N....B(5
0003)..1.B(50003)..160.B(50003)..0.399..
....UU.71:.B(50003).0..53281,6:.53280,14
......"..":.......875:..P.... ** STUDENT
INSTRUCTIONS **......".":.UT,UL%:.B(500
03).0..53281,0:.53280,0.....UP.0:UG$."ST
UDENT INST".&.... 2410.:....UZ.1..UP%:.2
17.@.....A.... ** TEACHER INSTRUCTIONS *
*......".":.UT,UL%:.B(50003).0..53281,2:
.53280,10.....UP.0:UG$."TEACHER INST":.8
50......".. TO THE BEST OF OUR KNOW
LEDGE,."......" THIS PROGRAM IS IN THE
PUBLIC.".5...." DOMAIN. IF THIS IS N
OT THE CASE.".R...." PLEASE CONTACT:..
.".|...." COMMODORE BUSINESS MACHIN
ES."......" 3370 PHARMACY AVE..
C...." AGINCOURT, ONTARIO".....
." CANADA M1W 2K4"......"
(416) 499-4292".....UP.1:. 835:. 8
50:.E...." ..PROGRAM NAME: BIORHYTHM
S ..~...." WRITTEN BY : PHIL FELD
MAN";.28);"& TOM RUGG......." UPGRAD
ED BY : PAUL AGOSTA..O...." .THIS PR
OGRAM WILL RUN ON ANY........" B
ASIC 2.0 PET COMPUTER......." BA
SIC 4.0 PET COMPUTER..?...." 803
2 CBM COMPUTER..D...." COMMODORE
64 COMPUTER.M....835...... GOSUB TO PRI
NTER SECTION GOES HERE (GOSUB 655).E....
PRINTER SECTION DOESN'T WORK.Y.N..UZ.1.
.UP%:.217...W.....X.. ** PROGRAM MODIFIC
ATION INST **...Y..".":.UT,UL%.6.].UP.0:
UG$."PROGRAM MOD":.850.N....59468,14:.".
.. DO YOU WISH IT PRINTED (Y/N) ?";..
...US$."YN":UL.1:. 35:YP$.UR$......YP$."
Y"..:.:."WHAT IS YOUR NAME ? ";......YP$
."Y".US$."ABCDEFGHIJKLMNOPQRSTUVWXYZ.: "
:UL.40:.35:NAME$.UR$......835......UZ.1.
.UP%:.217.......D.... ** TO USE 8032 LOA
D CBM4032 **.Z.F..".....BEFORE RUNNING T
HIS PROGRAM ON AN 8032 .....P.." L
OAD THE 'CBM 4032' PROGRAM............."
...Z..UU.71.A....... .. ** T I T L E P
A G E **...".."....";:.UT,UU%:.B(50003)
.0..53280,14:.53281,6.+.$..I.1.38:."..."
;:..C.&..I.1.22:.".....";:..[.(..I.1.37:
.".....";:..S.*..I.1.22:.".....";:....,.
."........................... .......".
.................. . . .....0..".......
............ . ......2.."..............
...... ..!.4.."..............C O M M O
D O R E...D.6.."...............EDUCATION
AL...C.8.."................SOFTWARE.~.:.
. ** COMMODORE LOGO **...;..H(UD$,24);".
.........PRESS SPACE BAR OR WAIT.":I.0.X
.<..A$:.A$.." ".I.I.1:.I.250.828...>.T1$
."":T2$."":T3$."":T4$."":I.0...@..300.!.
C.. ** SPACE BAR PRESS **.].H.. UO,0:.H(
UD$,24);".......PRESS SPACE BAR TO CONTI
NUE.".T.L..UI$:.UI$.." ".844.Z.N.....R..
** PAGE DESIGN ROUTINE **...T.UP.UP.1.P
.W.."."H(UT$.UP$,21);I(UP$.UG$.D(UP),18)
...\.." --------------------------------
------"...`..UH..0.870.B.A..H(UD$,24);H(
UP$,7);"HELP - PRESS H <RETURN>".S.F.U
H.0:."..":..R.K.. ** PLEASE WAIT REMARK
**...P..H(UD$,24);" ONE MOMENT
PLEASE... "...U...K.... ** SET UP V
ARIABLES **.....UX$."H":.UQ%(1000):UB.32
768:U1.196:U2.197:U3.198:U4.216:UC.167:U
U.1024.T...UT.59468:UU%.12:UL%.14:UP%.11
46:UM.32768:UO.158:. 50003,0......B(5000
3).0.UB.1024:U1.209:U2.210:U3.211:U4.214
:UC.204:UU.2048.V....B(50003).0.UT.53272
:UU%.21:UL%.23:UP%.2139:UM.1024:UO.198..
...UD$.".........................".,...U
P$."
".Z...UT$." BIORHYTHMS ":. PLA
CE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*
**............ ** SET VARIABLES **......
900...... QU$(250),AN$(250).V.... ** CHE
CK FOR 8032 **......".":." ":. SHIFTED S
PACE......B(UB.40)..96..700.$.... ** MEM
ORY CHECK **.8.... .(0).2000.937.F....".
...THIS MACHINE DOES NOT HAVE ENOUGH."..
...."MEMORY TO RUN THIS PROGRAM !"......
UU.71............"..":.B(50003).0.962...
... ** BASIC 2.0 OR 4.0 OR C-64 SETU
P **."....1075,133:.1076,144:.1077,234:.
1079,4:.1080,133:.1081,145.X....1091,155
:.1098,133:.1099,144:.1100,234:.1103,133
.Z....1104,145:.1105,234:.1082,234......
B(50003)..160.955......1093,88:.1094,228
:.1097,85:.1102,228:.965.U....B(50003)..
1.990......1093,49:.1094,230:.1097,46:.1
102,230:.965.>.B..2099,141:.2100,20:.210
1,3:.2103,8:.2104,141:.2105,21.Z.C..2106
,3:.2115,145:.2117,52:.2118,234:.2121,49
:.2122,141...D..2123,20:.2124,3:.2126,23
4:.2127,141:.2128,21:.2129,3.R.E..UU.48:
. DISABLE STOP KEY...J..800:. TITLE...T.
.300:. MENU.$....".THE PGM WILL NOT WORK
ON THIS MACHINE!":..Y....UZ.1..UP%:.UP%
:UZ.0:. ** PROGRAM STARTS HERE **......"
..";:.:.B(50003).0..53281,6:.53280,14...
... B(50003).0. . 53280,6:. 53281,6...L.
.59468,12...V.. SEE INSTRUCTIONS PAGE FO
R CREDITS...J.AA$.".
.".<.T.DD.18:L.0:Z..99
99:T.15:P.3.14159265.U.~..FLAG.1.."...":
.1230.....59468,12:."...";.12);". BIORH
YTHMS ".....FLAG.0:. PRINT"...
ARE YOU USING A PRINTER (Y/N)";.T....YP$
."".YP$."N":......YP$."N".1230......YP$.
."Y".1200.2...FLAG.1:.:.". IS THER
E PAPER IN IT .....";.I....1880:.Y$
."Y".1230.[.D..Y$.."N".1210...N..2320:."
...... ENTER YOUR BIRTH DATE ".
..X..1540......1760.....JB.JD:.2130:D$.C
$......8000:."...... ENTER DATE OF
INTEREST ."......1540......1760.....
JC.JD......JC..JB.1340.A.(.M$."YOU WERE
NOT BORN AS OF".D(M)."/".D(D)."/".D(Y):T
T.2:.2370.U.2.."......":.1230...<..FLAG.
.1.1380.B.F..:.".HOW MANY DAYS SHOULD TH
E CHART RUN ";:.1660:DD.MD.V.P..4,4:.4:.
G(147)...Z.. IFFF=-1THENGOSUB2490:PRIN
TCHR$(147)...D..1840...N.N.JC.JB.-.X.V.2
3:.1930:.1950.B...V.28:.1930:.1950.W...V
.33:.1930:.1950.A....2130.P. ..C$;.8);L$
.....JC.JC.1:L.L.1:.L.DD.1390.B....FLAG.
1..:.:.:."THIS HAS BEEN A BIORHYTHM CHAR
T"......FLAG.1.."FOR ";NAME$...... IFFLA
G=1THENPRINTTAB(75);"KK".&....FLAG.1..4:
4:YP$."N":FLAG.2:.300.P...."PRESS 'H' F
OR HELP ".Y...M1.1......"
'C' TO CONTINUE ";:US$."HC":UL.1:.
35:Y$.UR$...C.M1.0...H..Y$."C".1530...M.
.195...R..:.AA$:."DO YOU WANT TO LOOK AT
ANOTHER CHART ";......1880:.Y$."Y".1140
......Y$.."N".1500.@....:.AA$:..17);"SO
LONG !! ..":.1093:.300.N...L.0:.1340.X
...TT.11.N.... ".":. 8000:A1.0......".
MONTH (1 TO 12) ........"
;:.1660:M.A1......M.1.M.12.M$." .NO SUCH
MONTH":.2370:."...": .1550..."..:.".
DAY (1 TO 31) .. ....";. .,.:.1
660:D.A1.U.6..D.1.D.31.M$." .NO SUCH DAY
":.2370:."....":.1570.Z.@..:.". Y
EAR .....";...T.A1..1:.1660:Y.A1:
.". "...^..Y.99.1650.M.H.Y.Y.1900:M$.D(Y
).", I ASSUME.":.2370.S.R.....|.US$."012
3456789".. ..UL.2 :. A1.0 . UL.4.. ...35
.. ..A1.E(UR$).. ....4 ...Y$."0".Y$."9".
1670.F ...Y$;:Y$(J).Y$.^ B.J.J.1:BB.BB.1
:.1670.S L.B$."":.K.1.(J.1).. V.B$.B$.Y$
(K):.:MD.E(B$):BB.0:... ..W..((M.14).12.
Z).F ..JD..(1461.(Y.4800.W).4).. ..B.367
.(M.2.W.12).12.. ...B.0.B.B.Z.....B..(B)
:JD.JD.B.....B..(.(3.(Y.4900.W).100).4).
3...JD.JD.D.32075.B.9.&...F.0.."...BIORH
YTHM CHART FOR BIRTH DATE ";D$...:.."..-
-DATE--";.3);"DOWN";.8);"0";.8);"UP". .D
...8);U$...N.....X.. INPUT CHARACTER.R.B
..".?.";:.K.1.20:....L..".?.";:.K.1.20:.
...V..Y$:.Y$."".1890...........W..(N.V):
R.N.W.V.......-....V..23.2010.A...L$.G(3
2):.J.1.4.P...L$.L$.L$:..C...L$.L$.H(L$,
15)...F.L$.H(L$,T).G(194).I(L$,T)...P..V
.23.C$."P"...Z..V.28.C$."E"......V.33.C$
."I".F...W.R.V:W.W.2.P.....W.T..(W):W.W.
T.1.5.....W..(W):A$.J(L$,W,1)......A$."P
".A$."E".A$."*".C$."*".$....W.1.2110.3.
..W.31.2120.R.*.L$.H(L$,W.1).C$.I(L$,31.
W).X.4...M.>.L$.C$.I(L$,30):....H.L$.H(L
$,30).C$:....R..JB.JD.W.JB.68569:R..(4.W
.146097):.2150.M.\.W.JC.68569:R..(4.W.14
6097)...F.W.W..((146097.R.3).4)...P.Y..(
4000.(W.1).1461001)...Z.W.W..(1461.Y.4).
31.-...M..(80.W.2447).B...D.W..(2447.M.8
0).[...W..(M.11):M.M.2.12.W.P...Y.100.(R
.49).Y.W.....A$.D(M):W.C(A$).1.....C$.J(
A$,2,W)."/".....A$.D(D):W.C(A$).1.I.J.C$
.C$.J(A$,2,W)."/"...T.A$.D(Y):W.C(A$).1.
....C$.C$.J(A$,W,2)......FLAG..1.2310...
...C(C$).6.C$." ".C$.4....C(C$).7.C$."
".C$.:.....O...U$.G(210):.J.1.4.^...U$.U
$.U$:..Q.$.U$.U$.H(U$,15)......FLAG.1.U$
.U$.H(U$,13)...8.....B..:.".";.TT);M$...
L..J.1.1000:....V..AA$.D.`.....J.. INSTR
UCTION SUBROUTINE...T........ 850...D.."
.. THE BIORHYTHM THEORY STATES THAT ALL.
M.N..". OF US HAVE CYCLES, BEGINNING WIT
H THE.{.X..". MOMENT OF BIRTH, THAT INFL
UENCE OUR "......". PHYSICAL, EMOTIONAL,
AND INTELLECTUAL......". STATES..G....8
35:.850......". . PHYSICAL CYCLE.: IS 23
DAYS LONG. FOR.%....". THE FIRST 11 1/
2 DAYS YOU ARE IN THE.U....". POSITIVE S
IDE OF THE CYCLE. THIS MEANS......" YOU
SHOULD HAVE A FEELING OF WELL-BEING....
.." STRENGTH, AND ENDURANCE. CONVERSELY
,...(..". DURING THE 'DOWN' SIDE, YOU HA
VE LESS...2..". STRENGTH AND VIGOR....7.
.835:. 850.<.<..". .EMOTIONAL CYCLE.: LA
STS 28 DAYS. DURING.K.F.." THE POSITIVE
HALF, YOU SHOULD FEEL MORE...P.." CHEER
FUL AND COOPERATIVE. DURING THE.D.Z..".
NEGATIVE, YOU TEND TO BE MORE MOODY...D
..". IRRITABLE, AND PESSIMISTIC....X..83
5:. 850.(....". .INTELLECTUAL CYCLE. LAS
TS FOR 33 DAYS.".X....". THE FIRST HALF
IS A PERIOD IN WHICH YOU.{. .." SHOULD H
AVE GREATER SUCCESS......". LEARNING NEW
MATERIAL AND PURSUING.U....". CREATIVE
ACTIVITIES. DURING THE LAST"......". HA
LF, YOU ARE SUPPOSEDLY BETTER OFF.!.H.."
. REVIEWING OLD MATERIAL..0.M..835:. 850
.].R..". ANY DAY WHICH THE CYCLE CROSSES
FROM......". ONE SIDE TO THE OTHER IS S
AID TO BE......". A 'CRITICAL DAY.' THE
THEORY IS THAT......". YOU ARE MORE ACC
IDENT-PRONE ON CRITICAL......" PHYSICAL
AND EMOTIONAL DAYS (CRITICAL.A....". INT
ELLECTUAL DAYS ARE NOT CONSIDERED.O...."
. DANGEROUS UNLESS THEY COINCIDE WITH A.
.....". CRITICAL DAY IN ANOTHER CYCLE.)
ON A.I."..". TRIPLE CRITICAL DAY (A RAR
ITY), YOU...,..". PROBABLY SHOULDN'T EVE
N GET OUT OF BED!"...@..835:..+.@.. "
".Y.J.. ".....
... ".H.T..
A1.1 . 8...^.. "
"...H.. A1...R.. "...........|.....
(#. M1.0 . . 35.O.2#. H(UD$,22).X.<#.UP%
...F#. 1470...
> CLICK IMAGE PREVIEW FOR FULL MODAL