BIORHYTHM.C3
FILE INFORMATION
FILENAME(S): BIORHYTHM.C3
FILE TYPE(S): PRG
FILE SIZE: 11.2K
FIRST SEEN: 2025-11-30 01:08:28
APPEARS ON: 2 disk(s)
FILE HASH
1b19cd41365bfa5c6d6d1a6ce15b234e860952bcdb5cb7c5422e826e99631d64
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | BIORHYTHM.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 32 | 6 | DOWNLOAD FILE |
| S PIELE | BIORHYTHM.C3 | PRG | Treasure Chest - Wolfgang Rauprich | 32 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 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 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 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 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 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 08 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 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 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 09 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 09 2A 00 8B 55 |"":. UO,0...*..U|
00000110: 4C B2 30 A7 55 4C B2 38 30 00 2C 09 2D 00 99 22 |L.0.UL.80.,.-.."|
00000120: 20 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 40 09 32 | ..";:.UC,0.@.2|
00000130: 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 A7 35 30 |..UI$:.UI$."".50|
00000140: 00 6A 09 37 00 8B 55 49 24 B2 C7 28 31 33 29 AF |.j.7..UI$..(13).|
00000150: C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 2C 31 3A |.(UR$)..1..UC,1:|
00000160: 99 22 20 9D 22 3B 3A 89 38 35 00 7D 09 3C 00 8B |." .";:.85.}.<..|
00000170: 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 00 91 09 |UI$..(20).105...|
00000180: 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 4C A7 35 |>.. .(UR$)..UL.5|
00000190: 30 00 B6 09 41 00 8D 31 32 30 3A 8F 20 43 48 45 |0...A..120:. CHE|
000001A0: 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 |CK FOR VALID CHA|
000001B0: 52 41 43 54 45 52 00 C6 09 46 00 55 52 24 B2 55 |RACTER...F.UR$.U|
000001C0: 52 24 AA 55 49 24 00 D0 09 4B 00 99 55 49 24 3B |R$.UI$...K..UI$;|
000001D0: 00 D8 09 50 00 89 35 30 00 FD 09 55 00 8F 20 2B |...P..50...U.. +|
000001E0: 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 48 45 4C |++ CHECK FOR HEL|
000001F0: 50 20 52 45 51 55 45 53 54 20 2B 2B 2B 00 25 0A |P REQUEST +++.%.|
00000200: 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 35 3A 8F |Z..UR$.UX$.195:.|
00000210: 20 45 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F | EXIT TO HELP RO|
00000220: 55 54 49 4E 45 00 34 0A 5F 00 8B 55 46 B2 31 A7 |UTINE.4._..UF.1.|
00000230: 8D 32 34 30 00 41 0A 64 00 55 46 B2 30 3A 99 3A |.240.A.d.UF.0:.:|
00000240: 8E 00 5A 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B |..Z.f.. ++ CHECK|
00000250: 20 44 45 4C 45 54 45 20 2B 2B 00 6B 0A 69 00 8B | DELETE ++.k.i..|
00000260: C3 28 55 52 24 29 B3 31 A7 35 30 00 83 0A 6E 00 |.(UR$).1.50...n.|
00000270: 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 |UR$..(UR$,.(UR$)|
00000280: AB 31 29 00 95 0A 73 00 99 22 9D 20 20 9D 9D 22 |.1)...s..". .."|
00000290: 3B 3A 89 35 30 00 BC 0A 78 00 8F 20 2B 2B 20 43 |;:.50...x.. ++ C|
000002A0: 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 |HECK FOR VALID C|
000002B0: 48 41 52 41 43 54 45 52 53 20 2B 2B 00 CE 0A 7D |HARACTERS ++...}|
000002C0: 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DF |...(US$).0.150..|
000002D0: 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 |....US.1..(US$).|
000002E0: F6 0A 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 |.....UI$..(US$,U|
000002F0: 53 2C 31 29 A7 8E 00 FC 0A 8C 00 82 00 09 0B 91 |S,1)............|
00000300: 00 55 49 24 B2 22 22 3A 8E 00 24 0B 96 00 8F 20 |.UI$."":..$.... |
00000310: 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 |** STANDARD INPU|
00000320: 54 20 2A 2A 00 35 0B 98 00 8B C6 28 55 49 24 29 |T **.5.....(UI$)|
00000330: B2 34 36 A7 8E 00 46 0B 9B 00 8B 55 49 24 B2 C7 |.46...F....UI$..|
00000340: 28 33 32 29 A7 8E 00 63 0B A0 00 8B C6 28 55 49 |(32)...c.....(UI|
00000350: 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 35 37 A7 |$).48..(UI$).57.|
00000360: 31 37 30 00 69 0B A5 00 8E 00 86 0B AA 00 8B C6 |170.i...........|
00000370: 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 24 29 B1 |(UI$).65..(UI$).|
00000380: 39 30 A7 31 38 30 00 8C 0B AF 00 8E 00 B0 0B B4 |90.180..........|
00000390: 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 C6 28 55 |...(UI$).193..(U|
000003A0: 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 22 3A 8E |I$).218.UI$."":.|
000003B0: 00 D3 0B B9 00 8B C2 28 55 54 29 B2 55 55 25 A7 |.......(UT).UU%.|
000003C0: 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB 31 32 38 |UI$..(.(UI$).128|
000003D0: 29 3A 8E 00 D9 0B BB 00 8E 00 E6 0B BE 00 55 49 |):............UI|
000003E0: 24 B2 22 22 3A 8E 00 0B 0C C3 00 55 46 B2 31 3A |$."":......UF.1:|
000003F0: 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F 55 54 49 |. +++ HELP ROUTI|
00000400: 4E 45 20 45 58 49 54 20 2B 2B 2B 00 14 0C C5 00 |NE EXIT +++.....|
00000410: 8D 32 35 30 00 1D 0C C8 00 8D 32 34 34 00 3C 0C |.250......244.<.|
00000420: CD 00 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 |...UQ.UB.(U2%.25|
00000430: 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 58 0C D2 |6.U1%.U3%.2).X..|
00000440: 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 28 55 51 |.UQ%(UQ.UB)..(UQ|
00000450: 29 3A 82 3A 99 22 93 22 00 6B 0C D7 00 55 5A B2 |):.:.".".k...UZ.|
00000460: 31 3A 55 56 25 B2 C2 28 55 54 29 00 74 0C D8 00 |1:UV%..(UT).t...|
00000470: 89 33 30 30 00 99 0C D9 00 55 5A B2 30 3A 55 53 |.300.....UZ.0:US|
00000480: 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 3A 55 50 |$.UJ$:UG$.UK$:UP|
00000490: B2 55 4A 3A 55 4C B2 55 4B 00 D0 0C DA 00 8B C2 |.UJ:UL.UK.......|
000004A0: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
000004B0: 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 38 31 2C |,1:.".";:.53281,|
000004C0: 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 32 32 30 |6:.53280,14:.220|
000004D0: 00 DA 0C DB 00 99 22 93 22 3B 00 09 0D DC 00 55 |......".";.....U|
000004E0: 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 25 3A 81 |T$.UL$:.UT,UV%:.|
000004F0: 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 |UQ.UB.(U2%.256.U|
00000500: 31 25 AA 55 33 25 AB 33 29 00 1E 0D E1 00 97 55 |1%.U3%.3)......U|
00000510: 51 2C 55 51 25 28 55 51 AB 55 42 29 3A 82 00 2A |Q,UQ%(UQ.UB):..*|
00000520: 0D E6 00 97 55 31 2C 55 31 25 00 36 0D E8 00 97 |....U1,U1%.6....|
00000530: 55 32 2C 55 32 25 00 42 0D E9 00 97 55 34 2C 55 |U2,U2%.B....U4,U|
00000540: 34 25 00 50 0D EA 00 97 55 33 2C 55 33 25 AB 31 |4%.P....U3,U3%.1|
00000550: 00 5A 0D EC 00 89 39 30 30 30 00 8C 0D F0 00 55 |.Z....9000.....U|
00000560: 44 25 B2 28 28 55 32 25 AC 32 35 36 AA 55 31 25 |D%.((U2%.256.U1%|
00000570: AA 55 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 28 |.U3%).UB).40:..(|
00000580: 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 C5 0D F4 |UD$,UD%.1):.....|
00000590: 00 99 C8 28 55 44 24 2C 32 33 29 3B 22 20 20 20 |...(UD$,23);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005C0: 20 20 20 20 22 00 00 0E F5 00 99 C8 28 55 44 24 | ".......(UD$|
000005D0: 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 |,24);" |
000005E0: 20 20 20 20 20 20 20 20 20 20 20 20 12 20 48 45 | . HE|
000005F0: 4C 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E |LP COMING . ":.|
00000600: 00 2C 0E FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 |.,...U1%..(U1):U|
00000610: 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 |2%..(U2):U3%..(U|
00000620: 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 54 0E FB |3):U4%..(U4).T..|
00000630: 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 |.UJ$.US$:UK$.UG$|
00000640: 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 3A 55 |:UL$.UT$:UJ.UP:U|
00000650: 4B B2 55 4C 00 5A 0E FF 00 8E 00 6B 0E 2C 01 8F |K.UL.Z.....k.,..|
00000660: 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 71 0E 2D 01 | ** MENU **.q.-.|
00000670: 3A 00 A0 0E 2E 01 99 22 93 22 3A 97 55 54 2C 55 |:......".":.UT,U|
00000680: 55 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |U%:..(50003).0..|
00000690: 35 33 32 38 31 2C 39 3A 97 35 33 32 38 30 2C 38 |53281,9:.53280,8|
000006A0: 00 A6 0E 2F 01 3A 00 C3 0E 31 01 99 22 13 20 20 |.../.:...1..". |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D 45 | ME|
000006C0: 4E 55 22 00 F2 0E 36 01 99 22 20 2D 2D 2D 2D 2D |NU"...6.." -----|
000006D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006F0: 2D 22 00 1A 0F 3B 01 99 22 11 11 20 20 20 20 20 |-"...;..".. |
00000700: 20 20 31 2E 20 20 20 42 45 47 49 4E 20 42 49 4F | 1. BEGIN BIO|
00000710: 52 48 59 54 48 4D 53 20 20 22 00 44 0F 40 01 99 |RHYTHMS ".D.@..|
00000720: 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 |".. 2. S|
00000730: 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 |TUDENT INSTRUCTI|
00000740: 4F 4E 53 22 00 6E 0F 45 01 99 22 11 11 20 20 20 |ONS".n.E..".. |
00000750: 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 | 3. TEACHER|
00000760: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 8A | INSTRUCTIONS"..|
00000770: 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 34 2E |.O..".. 4.|
00000780: 20 20 20 51 55 49 54 11 11 22 00 B9 0F 54 01 99 | QUIT.."...T..|
00000790: 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |" --------------|
000007A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007B0: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E4 0F 59 01 99 22 |--------"...Y.."|
000007C0: 11 11 20 20 20 20 20 20 20 50 52 45 53 53 20 41 |.. PRESS A|
000007D0: 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 2D 34 | NUMBER KEY (1-4|
000007E0: 29 20 22 3B 00 0C 10 5E 01 55 4C B2 31 3A 55 53 |) ";...^.UL.1:US|
000007F0: 24 B2 22 31 32 33 34 22 3A 8D 33 35 3A 8F 20 49 |$."1234":.35:. I|
00000800: 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 17 10 60 |NPUT ROUTINE...`|
00000810: 01 55 53 24 B2 22 22 00 34 10 63 01 91 C5 28 55 |.US$."".4.c...(U|
00000820: 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 |R$).1000,400,500|
00000830: 2C 33 39 36 00 3D 10 68 01 89 33 30 30 00 64 10 |,396.=.h..300.d.|
00000840: 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 |... ** RE-ENABLE|
00000850: 20 53 54 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E | STOP KEY AND EN|
00000860: 44 20 2A 2A 00 93 10 8C 01 8B C2 28 35 30 30 30 |D **.......(5000|
00000870: 33 29 B3 B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 |3)..1..(50003)..|
00000880: 31 36 30 AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 |160..(50003)..0.|
00000890: 33 39 39 00 BD 10 8D 01 9E 55 55 AA 37 31 3A 8B |399......UU.71:.|
000008A0: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
000008B0: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 C9 10 |1,6:.53280,14...|
000008C0: 8E 01 99 22 9A 93 22 3A 80 00 D4 10 8F 01 8D 38 |..."..":.......8|
000008D0: 37 35 3A 8E 00 F5 10 90 01 8F 20 2A 2A 20 53 54 |75:....... ** ST|
000008E0: 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 4F |UDENT INSTRUCTIO|
000008F0: 4E 53 20 2A 2A 00 24 11 95 01 99 22 93 22 3A 97 |NS **.$....".":.|
00000900: 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 |UT,UL%:..(50003)|
00000910: B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 33 32 |.0..53281,0:.532|
00000920: 38 30 2C 30 00 40 11 9A 01 55 50 B2 30 3A 55 47 |80,0.@...UP.0:UG|
00000930: 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E 53 54 22 |$.".TUDENT .NST"|
00000940: 00 4B 11 A4 01 8D 20 32 34 31 30 00 5F 11 EA 01 |.K.... 2410._...|
00000950: 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 |.UZ.1..UP%:.217.|
00000960: 65 11 F3 01 8E 00 86 11 F4 01 8F 20 2A 2A 20 54 |e.......... ** T|
00000970: 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 |EACHER INSTRUCTI|
00000980: 4F 4E 53 20 2A 2A 00 B6 11 F5 01 99 22 93 22 3A |ONS **......".":|
00000990: 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 |.UT,UL%:..(50003|
000009A0: 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 33 |).0..53281,2:.53|
000009B0: 32 38 30 2C 31 30 00 D7 11 F6 01 55 50 B2 30 3A |280,10.....UP.0:|
000009C0: 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 |UG$.".EACHER .NS|
000009D0: 54 22 3A 8D 38 35 30 00 05 12 F7 01 99 22 11 11 |T":.850......"..|
000009E0: 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 | .O THE BES|
000009F0: 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 |T OF OUR KNOWLED|
00000A00: 47 45 2C 11 22 00 2E 12 F8 01 99 22 20 20 20 54 |GE,."......" T|
00000A10: 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 |HIS PROGRAM IS I|
00000A20: 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 5A |N THE PUBLIC.".Z|
00000A30: 12 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 |...." DOMAIN. |
00000A40: 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 | .F THIS IS NOT |
00000A50: 54 48 45 20 43 41 53 45 11 22 00 77 12 FA 01 99 |THE CASE.".w....|
00000A60: 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 |" PLEASE CONTA|
00000A70: 43 54 3A 11 11 11 22 00 A1 12 FB 01 99 22 20 20 |CT:..."......" |
00000A80: 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 | .OMMODORE .U|
00000A90: 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 |SINESS .ACHINES.|
00000AA0: 22 00 C4 12 FC 01 99 22 20 20 20 20 20 20 20 20 |"......" |
00000AB0: 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 | 3370 .HARMACY |
00000AC0: C1 56 45 2E 00 E8 12 FD 01 99 22 20 20 20 20 20 |.VE......." |
00000AD0: 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 | .GINCOURT, |
00000AE0: CF 4E 54 41 52 49 4F 22 00 0A 13 FE 01 99 22 20 |.NTARIO"......" |
00000AF0: 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 | .ANADA |
00000B00: 20 20 CD 31 D7 20 32 CB 34 22 00 2A 13 FF 01 99 | .1. 2.4".*....|
00000B10: 22 20 20 20 20 20 20 20 20 20 20 28 34 31 36 29 |" (416)|
00000B20: 20 34 39 39 2D 34 32 39 32 22 00 40 13 00 02 55 | 499-4292".@...U|
00000B30: 50 B2 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A |P.1:. 835:. 850:|
00000B40: 00 6A 13 01 02 99 22 20 20 20 20 20 11 11 D0 52 |.j...." ...R|
00000B50: 4F 47 52 41 4D 20 CE 41 4D 45 3A 20 C2 49 4F 52 |OGRAM .AME: .IOR|
00000B60: 48 59 54 48 4D 53 20 20 20 11 00 A3 13 02 02 99 |HYTHMS .......|
00000B70: 22 20 20 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 |" .RITTEN .Y|
00000B80: 20 20 3A 20 D0 48 49 4C 20 C6 45 4C 44 4D 41 4E | : .HIL .ELDMAN|
00000B90: 22 3B A6 32 38 29 3B 22 26 20 D4 4F 4D 20 D2 55 |";.28);"& .OM .U|
00000BA0: 47 47 11 00 C9 13 03 02 99 22 20 20 20 20 20 D5 |GG......." .|
00000BB0: 50 47 52 41 44 45 44 20 C2 59 20 3A 20 D0 41 55 |PGRADED .Y : .AU|
00000BC0: 4C 20 C1 47 4F 53 54 41 11 00 F4 13 04 02 99 22 |L .GOSTA......."|
00000BD0: 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 | ..HIS PROGR|
00000BE0: 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 |AM WILL RUN ON A|
00000BF0: 4E 59 11 11 00 13 14 07 02 99 22 20 20 20 20 20 |NY........" |
00000C00: 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 | ... 64 .....|
00000C10: D4 C5 D2 00 38 14 08 02 99 22 20 20 20 20 20 20 |....8...." |
00000C20: 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 | ......... 64 |
00000C30: C3 CF CD D0 D5 D4 C5 D2 00 41 14 09 02 8D 38 33 |.........A....83|
00000C40: 35 00 76 14 12 02 8F 20 47 4F 53 55 42 20 54 4F |5.v.... GOSUB TO|
00000C50: 20 50 52 49 4E 54 45 52 20 53 45 43 54 49 4F 4E | PRINTER SECTION|
00000C60: 20 47 4F 45 53 20 48 45 52 45 20 28 47 4F 53 55 | GOES HERE (GOSU|
00000C70: 42 20 36 35 35 29 00 99 14 17 02 8F 20 50 52 49 |B 655)...... PRI|
00000C80: 4E 54 45 52 20 53 45 43 54 49 4F 4E 20 44 4F 45 |NTER SECTION DOE|
00000C90: 53 4E 27 54 20 57 4F 52 4B 00 AD 14 4E 02 8B 55 |SN'T WORK...N..U|
00000CA0: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 B3 14 |Z.1..UP%:.217...|
00000CB0: 57 02 8E 00 D9 14 58 02 8F 20 2A 2A 20 50 52 4F |W.....X.. ** PRO|
00000CC0: 47 52 41 4D 20 4D 4F 44 49 46 49 43 41 54 49 4F |GRAM MODIFICATIO|
00000CD0: 4E 20 49 4E 53 54 20 2A 2A 00 EA 14 59 02 99 22 |N INST **...Y.."|
00000CE0: 93 22 3A 97 55 54 2C 55 4C 25 00 0A 15 5D 02 55 |.":.UT,UL%...].U|
00000CF0: 50 B2 30 3A 55 47 24 B2 22 D0 52 4F 47 52 41 4D |P.0:UG$.".ROGRAM|
00000D00: 20 CD 4F 44 22 3A 8D 38 35 30 00 42 15 8F 02 97 | .OD":.850.B....|
00000D10: 35 39 34 36 38 2C 31 34 3A 99 22 93 11 11 20 20 |59468,14:."... |
00000D20: 20 20 C4 4F 20 59 4F 55 20 57 49 53 48 20 49 54 | .O YOU WISH IT|
00000D30: 20 50 52 49 4E 54 45 44 20 28 59 2F 4E 29 20 3F | PRINTED (Y/N) ?|
00000D40: 22 3B 00 61 15 94 02 55 53 24 B2 22 59 4E 22 3A |";.a...US$."YN":|
00000D50: 55 4C B2 31 3A 8D 20 33 35 3A 59 50 24 B2 55 52 |UL.1:. 35:YP$.UR|
00000D60: 24 00 8B 15 99 02 8B 59 50 24 B2 22 59 22 A7 99 |$......YP$."Y"..|
00000D70: 3A 99 3A 99 22 D7 48 41 54 20 49 53 20 59 4F 55 |:.:.".HAT IS YOU|
00000D80: 52 20 4E 41 4D 45 20 3F 20 22 3B 00 D0 15 9E 02 |R NAME ? ";.....|
00000D90: 8B 59 50 24 B2 22 59 22 A7 55 53 24 B2 22 41 42 |.YP$."Y".US$."AB|
00000DA0: 43 44 45 46 47 48 49 4A 4B 4C 4D 4E 4F 50 51 52 |CDEFGHIJKLMNOPQR|
00000DB0: 53 54 55 56 57 58 59 5A 2E 3A 20 22 3A 55 4C B2 |STUVWXYZ.: ":UL.|
00000DC0: 34 30 3A 8D 33 35 3A 4E 41 4D 45 24 B2 55 52 24 |40:.35:NAME$.UR$|
00000DD0: 00 D9 15 A3 02 8D 38 33 35 00 ED 15 B2 02 8B 55 |......835......U|
00000DE0: 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 F3 15 |Z.1..UP%:.217...|
00000DF0: BB 02 8E 00 18 16 BC 02 8F 20 2A 2A 20 54 4F 20 |......... ** TO |
00000E00: 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 |USE 8032 LOAD CB|
00000E10: 4D 34 30 33 32 20 2A 2A 00 4E 16 C6 02 99 22 93 |M4032 **.N....".|
00000E20: 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 |....BEFORE RUNNI|
00000E30: 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |NG THIS PROGRAM |
00000E40: 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 84 |ON AN 8032 ....|
00000E50: 16 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 |...." LOAD |
00000E60: 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 |THE 'CBM 4032' P|
00000E70: 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 |ROGRAM..........|
00000E80: 11 11 11 22 00 8F 16 DA 02 9E 55 55 AA 37 31 00 |..."......UU.71.|
00000E90: 95 16 E4 02 80 00 B5 16 20 03 8F 20 2A 2A 20 54 |........ .. ** T|
00000EA0: 20 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 | I T L E P A G|
00000EB0: 20 45 20 2A 2A 00 E9 16 22 03 99 22 93 11 1D 05 | E **...".."....|
00000EC0: 22 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |";:.UT,UU%:..(50|
00000ED0: 30 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 |003).0..53280,14|
00000EE0: 3A 97 35 33 32 38 31 2C 36 00 FF 16 24 03 81 49 |:.53281,6...$..I|
00000EF0: B2 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 |.1.38:."...";:..|
00000F00: 17 17 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D |..&..I.1.22:."..|
00000F10: 12 A6 92 22 3B 3A 82 00 2F 17 28 03 81 49 B2 31 |...";:../.(..I.1|
00000F20: A4 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 |.37:.".....";:..|
00000F30: 47 17 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D |G.*..I.1.22:."..|
00000F40: 12 A6 92 22 3B 3A 82 00 6C 17 2C 03 99 22 13 11 |...";:..l.,.."..|
00000F50: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000F60: 1D 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 8E 17 2E |......... .....|
00000F70: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000F80: 1D 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 AF |...... . . ....|
00000F90: 17 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.0.."...........|
00000FA0: 1D 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 |........ . ....|
00000FB0: CD 17 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..2.."..........|
00000FC0: 1D 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 F5 17 |.......... ....|
00000FD0: 34 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |4.."............|
00000FE0: 1D 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 |..C O M M O D O |
00000FF0: 52 20 45 11 11 00 18 18 36 03 99 22 1D 1D 1D 1D |R E.....6.."....|
00001000: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 |...........EDUCA|
00001010: 54 49 4F 4E 41 4C 11 11 00 37 18 38 03 99 22 1D |TIONAL...7.8..".|
00001020: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 |...............S|
00001030: 4F 46 54 57 41 52 45 00 52 18 3A 03 8F 20 2A 2A |OFTWARE.R.:.. **|
00001040: 20 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 | COMMODORE LOGO |
00001050: 2A 2A 00 8A 18 3B 03 99 C8 28 55 44 24 2C 32 34 |**...;...(UD$,24|
00001060: 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 |);"..........PRE|
00001070: 53 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 |SS SPACE BAR OR |
00001080: 57 41 49 54 92 22 3A 49 B2 30 00 AC 18 3C 03 A1 |WAIT.":I.0...<..|
00001090: 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA |A$:.A$.." ".I.I.|
000010A0: 31 3A 8B 49 B3 32 35 30 A7 38 32 38 00 D0 18 3E |1:.I.250.828...>|
000010B0: 03 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 |.T1$."":T2$."":T|
000010C0: 33 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 |3$."":T4$."":I.0|
000010D0: 00 D9 18 40 03 89 33 30 30 00 F5 18 43 03 8F 20 |...@..300...C.. |
000010E0: 2A 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 |** SPACE BAR PRE|
000010F0: 53 53 20 2A 2A 00 31 19 48 03 97 20 55 4F 2C 30 |SS **.1.H.. UO,0|
00001100: 3A 99 C8 28 55 44 24 2C 32 34 29 3B 22 1D 1D 1D |:..(UD$,24);"...|
00001110: 1D 1D 1D 12 50 52 45 53 53 20 53 50 41 43 45 20 |....PRESS SPACE |
00001120: 42 41 52 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 |BAR TO CONTINUE.|
00001130: 22 00 48 19 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 |".H.L..UI$:.UI$.|
00001140: B1 22 20 22 A7 38 34 34 00 4E 19 4E 03 8E 00 6E |." ".844.N.N...n|
00001150: 19 52 03 8F 20 2A 2A 20 50 41 47 45 20 44 45 53 |.R.. ** PAGE DES|
00001160: 49 47 4E 20 52 4F 55 54 49 4E 45 20 2A 2A 00 7A |IGN ROUTINE **.z|
00001170: 19 54 03 55 50 B2 55 50 AA 31 00 A4 19 57 03 99 |.T.UP.UP.1...W..|
00001180: 22 93 22 C8 28 55 54 24 AA 55 50 24 2C 32 31 29 |".".(UT$.UP$,21)|
00001190: 3B C9 28 55 50 24 AA 55 47 24 AA C4 28 55 50 29 |;.(UP$.UG$..(UP)|
000011A0: 2C 31 38 29 00 D3 19 5C 03 99 22 20 2D 2D 2D 2D |,18)...\.." ----|
000011B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011D0: 2D 2D 22 00 E2 19 60 03 8B 55 48 B3 B1 30 A7 38 |--"...`..UH..0.8|
000011E0: 37 30 00 16 1A 61 03 99 C8 28 55 44 24 2C 32 34 |70...a...(UD$,24|
000011F0: 29 3B C8 28 55 50 24 2C 37 29 3B 22 48 45 4C 50 |);.(UP$,7);"HELP|
00001200: 20 2D 20 50 52 45 53 53 20 20 20 48 20 3C 52 45 | - PRESS H <RE|
00001210: 54 55 52 4E 3E 22 00 27 1A 66 03 55 48 B2 30 3A |TURN>".'.f.UH.0:|
00001220: 99 22 13 11 22 3A 8E 00 46 1A 6B 03 8F 20 2A 2A |."..":..F.k.. **|
00001230: 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D | PLEASE WAIT REM|
00001240: 41 52 4B 20 2A 2A 00 7C 1A 70 03 99 C8 28 55 44 |ARK **.|.p...(UD|
00001250: 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 |$,24);" |
00001260: 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 | ONE MOMENT PLE|
00001270: 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 82 1A 75 |ASE... "...u|
00001280: 03 8E 00 9F 1A 84 03 8F 20 2A 2A 20 53 45 54 20 |........ ** SET |
00001290: 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |UP VARIABLES **.|
000012A0: EA 1A 85 03 55 58 24 B2 22 48 22 3A 86 55 51 25 |....UX$."H":.UQ%|
000012B0: 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A |(1000):UB.32768:|
000012C0: 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 |U1.196:U2.197:U3|
000012D0: B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 |.198:U4.216:UC.1|
000012E0: 36 37 3A 55 55 B2 31 30 32 34 00 28 1B 86 03 55 |67:UU.1024.(...U|
000012F0: 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 |T.59468:UU%.12:U|
00001300: 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 |L%.14:UP%.1146:U|
00001310: 4D B2 33 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 |M.32768:UO.158:.|
00001320: 20 35 30 30 30 33 2C 30 00 6B 1B 87 03 8B C2 28 | 50003,0.k.....(|
00001330: 35 30 30 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 |50003).0.UB.1024|
00001340: 3A 55 31 B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 |:U1.209:U2.210:U|
00001350: 33 B2 32 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 |3.211:U4.214:UC.|
00001360: 32 30 34 3A 55 55 B2 32 30 34 38 00 AA 1B 88 03 |204:UU.2048.....|
00001370: 8B C2 28 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 |..(50003).0.UT.5|
00001380: 33 32 37 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 |3272:UU%.21:UL%.|
00001390: 32 33 3A 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 |23:UP%.2139:UM.1|
000013A0: 30 32 34 3A 55 4F B2 31 39 38 00 CE 1B 89 03 55 |024:UO.198.....U|
000013B0: 44 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 |D$."............|
000013C0: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 00 00 |............."..|
000013D0: 1C 8A 03 55 50 24 B2 22 20 20 20 20 20 20 20 20 |...UP$." |
000013E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001400: 00 4E 1C 8B 03 55 54 24 B2 22 20 C2 C9 CF D2 C8 |.N...UT$." .....|
00001410: D9 D4 C8 CD D3 20 20 A0 A0 A0 A0 A0 A0 22 3A 8F |..... ......":.|
00001420: 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 | PLACE PROGRAM T|
00001430: 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 |ITLE HERE !!!!!!|
00001440: 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 54 |!!!!!!!!!!!***.T|
00001450: 1C 8C 03 8E 00 6E 1C 8E 03 8F 20 2A 2A 20 53 45 |.....n.... ** SE|
00001460: 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 77 |T VARIABLES **.w|
00001470: 1C 93 03 8D 39 30 30 00 8F 1C 94 03 86 20 51 55 |....900...... QU|
00001480: 24 28 32 35 30 29 2C 41 4E 24 28 32 35 30 29 00 |$(250),AN$(250).|
00001490: AA 1C 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 |..... ** CHECK F|
000014A0: 4F 52 20 38 30 33 32 20 2A 2A 00 C8 1C 9D 03 99 |OR 8032 **......|
000014B0: 22 93 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 |".":.".":. SHIFT|
000014C0: 45 44 20 53 50 41 43 45 00 DF 1C A2 03 8B C2 28 |ED SPACE.......(|
000014D0: 55 42 AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 |UB.40)..96..700.|
000014E0: F8 1C A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 |..... ** MEMORY |
000014F0: 43 48 45 43 4B 20 2A 2A 00 0C 1D A4 03 8B 20 B8 |CHECK **...... .|
00001500: 28 30 29 B1 32 30 30 30 A7 39 33 37 00 3A 1D A5 |(0).2000.937.:..|
00001510: 03 99 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 |.."....THIS MACH|
00001520: 49 4E 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 |INE DOES NOT HAV|
00001530: 45 20 45 4E 4F 55 47 48 11 22 00 5E 1D A6 03 99 |E ENOUGH.".^....|
00001540: 22 4D 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 |"MEMORY TO RUN T|
00001550: 48 49 53 20 50 52 4F 47 52 41 4D 20 21 22 00 69 |HIS PROGRAM !".i|
00001560: 1D A7 03 9E 55 55 AA 37 31 00 6F 1D A8 03 80 00 |....UU.71.o.....|
00001570: 89 1D A9 03 99 22 93 05 22 3A 8B C2 28 35 30 30 |....."..":..(500|
00001580: 30 33 29 B2 30 A7 39 36 32 00 B8 1D AC 03 8F 20 |03).0.962...... |
00001590: 2A 2A 20 42 41 53 49 43 20 32 2E 30 20 20 4F 52 |** BASIC 2.0 OR|
000015A0: 20 20 34 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 | 4.0 OR C-64 |
000015B0: 53 45 54 55 50 20 2A 2A 00 F6 1D AD 03 97 31 30 |SETUP **......10|
000015C0: 37 35 2C 31 33 33 3A 97 31 30 37 36 2C 31 34 34 |75,133:.1076,144|
000015D0: 3A 97 31 30 37 37 2C 32 33 34 3A 97 31 30 37 39 |:.1077,234:.1079|
000015E0: 2C 34 3A 97 31 30 38 30 2C 31 33 33 3A 97 31 30 |,4:.1080,133:.10|
000015F0: 38 31 2C 31 34 35 00 2C 1E AE 03 97 31 30 39 31 |81,145.,....1091|
00001600: 2C 31 35 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 |,155:.1098,133:.|
00001610: 31 30 39 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 |1099,144:.1100,2|
00001620: 33 34 3A 97 31 31 30 33 2C 31 33 33 00 4E 1E AF |34:.1103,133.N..|
00001630: 03 97 31 31 30 34 2C 31 34 35 3A 97 31 31 30 35 |..1104,145:.1105|
00001640: 2C 32 33 34 3A 97 31 30 38 32 2C 32 33 34 00 65 |,234:.1082,234.e|
00001650: 1E B1 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 |.....(50003)..16|
00001660: 30 A7 39 35 35 00 94 1E B6 03 97 31 30 39 33 2C |0.955......1093,|
00001670: 38 38 3A 97 31 30 39 34 2C 32 32 38 3A 97 31 30 |88:.1094,228:.10|
00001680: 39 37 2C 38 35 3A 97 31 31 30 32 2C 32 32 38 3A |97,85:.1102,228:|
00001690: 89 39 36 35 00 A9 1E BB 03 8B C2 28 35 30 30 30 |.965.......(5000|
000016A0: 33 29 B3 B1 31 A7 39 39 30 00 D8 1E C0 03 97 31 |3)..1.990......1|
000016B0: 30 39 33 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 |093,49:.1094,230|
000016C0: 3A 97 31 30 39 37 2C 34 36 3A 97 31 31 30 32 2C |:.1097,46:.1102,|
000016D0: 32 33 30 3A 89 39 36 35 00 12 1F C2 03 97 32 30 |230:.965......20|
000016E0: 39 39 2C 31 34 31 3A 97 32 31 30 30 2C 32 30 3A |99,141:.2100,20:|
000016F0: 97 32 31 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A |.2101,3:.2103,8:|
00001700: 97 32 31 30 34 2C 31 34 31 3A 97 32 31 30 35 2C |.2104,141:.2105,|
00001710: 32 31 00 4E 1F C3 03 97 32 31 30 36 2C 33 3A 97 |21.N....2106,3:.|
00001720: 32 31 31 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 |2115,145:.2117,5|
00001730: 32 3A 97 32 31 31 38 2C 32 33 34 3A 97 32 31 32 |2:.2118,234:.212|
00001740: 31 2C 34 39 3A 97 32 31 32 32 2C 31 34 31 00 88 |1,49:.2122,141..|
00001750: 1F C4 03 97 32 31 32 33 2C 32 30 3A 97 32 31 32 |....2123,20:.212|
00001760: 34 2C 33 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 |4,3:.2126,234:.2|
00001770: 31 32 37 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 |127,141:.2128,21|
00001780: 3A 97 32 31 32 39 2C 33 00 A6 1F C5 03 9E 55 55 |:.2129,3......UU|
00001790: AA 34 38 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 |.48:. DISABLE ST|
000017A0: 4F 50 20 4B 45 59 00 B7 1F CA 03 8D 38 30 30 3A |OP KEY......800:|
000017B0: 8F 20 54 49 54 4C 45 00 C7 1F D4 03 89 33 30 30 |. TITLE......300|
000017C0: 3A 8F 20 4D 45 4E 55 00 F8 1F DE 03 99 22 93 54 |:. MENU......".T|
000017D0: 48 45 20 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 |HE PGM WILL NOT |
000017E0: 57 4F 52 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 |WORK ON THIS MAC|
000017F0: 48 49 4E 45 21 22 3A 80 00 2D 20 E8 03 8B 55 5A |HINE!":..- ...UZ|
00001800: B2 31 A7 9E 55 50 25 3A 9E 55 50 25 3A 55 5A B2 |.1..UP%:.UP%:UZ.|
00001810: 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 53 |0:. ** PROGRAM S|
00001820: 54 41 52 54 53 20 48 45 52 45 20 2A 2A 00 59 20 |TARTS HERE **.Y |
00001830: E9 03 99 22 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 |..."..";:.:..(50|
00001840: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A |003).0..53281,6:|
00001850: 97 35 33 32 38 30 2C 31 34 00 7F 20 EA 03 8B 20 |.53280,14.. ... |
00001860: C2 28 35 30 30 30 33 29 B2 30 A7 20 97 20 35 33 |.(50003).0. . 53|
00001870: 32 38 30 2C 36 3A 97 20 35 33 32 38 31 2C 36 00 |280,6:. 53281,6.|
00001880: 8D 20 4C 04 97 35 39 34 36 38 2C 31 32 00 B5 20 |. L..59468,12.. |
00001890: 56 04 8F 20 53 45 45 20 49 4E 53 54 52 55 43 54 |V.. SEE INSTRUCT|
000018A0: 49 4F 4E 53 20 50 41 47 45 20 46 4F 52 20 43 52 |IONS PAGE FOR CR|
000018B0: 45 44 49 54 53 00 E8 20 6A 04 41 41 24 B2 22 91 |EDITS.. j.AA$.".|
000018C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018E0: 20 20 20 20 20 20 91 22 00 10 21 74 04 44 44 B2 | ."..!t.DD.|
000018F0: 31 38 3A 4C B2 30 3A 5A B2 2E 39 39 39 39 3A 54 |18:L.0:Z..9999:T|
00001900: B2 31 35 3A 50 B2 33 2E 31 34 31 35 39 32 36 35 |.15:P.3.14159265|
00001910: 00 29 21 7E 04 8B 46 4C 41 47 B2 31 A7 99 22 93 |.)!~..FLAG.1..".|
00001920: 11 11 22 3A 89 31 32 33 30 00 53 21 88 04 97 35 |..":.1230.S!...5|
00001930: 39 34 36 38 2C 31 32 3A 99 22 93 11 11 22 3B A3 |9468,12:."...";.|
00001940: 31 32 29 3B 22 12 20 42 49 4F 52 48 59 54 48 4D |12);". BIORHYTHM|
00001950: 53 20 22 00 93 21 92 04 46 4C 41 47 B2 30 3A 8F |S "..!..FLAG.0:.|
00001960: 20 20 20 20 50 52 49 4E 54 22 11 11 11 20 20 20 | PRINT"... |
00001970: 20 20 20 20 41 52 45 20 59 4F 55 20 55 53 49 4E | ARE YOU USIN|
00001980: 47 20 41 20 50 52 49 4E 54 45 52 20 28 59 2F 4E |G A PRINTER (Y/N|
00001990: 29 22 3B 00 A8 21 9C 04 8B 59 50 24 B2 22 22 A7 |)";..!...YP$."".|
000019A0: 59 50 24 B2 22 4E 22 3A 00 BA 21 A1 04 8B 59 50 |YP$."N":..!...YP|
000019B0: 24 B2 22 4E 22 A7 31 32 33 30 00 CD 21 A6 04 8B |$."N".1230..!...|
000019C0: 59 50 24 B3 B1 22 59 22 A7 31 32 30 30 00 06 22 |YP$.."Y".1200.."|
000019D0: B0 04 46 4C 41 47 B2 31 3A 99 3A 99 22 91 20 20 |..FLAG.1:.:.". |
000019E0: 20 20 20 20 20 49 53 20 54 48 45 52 45 20 50 41 | IS THERE PA|
000019F0: 50 45 52 20 49 4E 20 49 54 20 20 20 20 20 20 9D |PER IN IT .|
00001A00: 9D 9D 9D 9D 22 3B 00 1D 22 BA 04 8D 31 38 38 30 |....";.."...1880|
00001A10: 3A 8B 59 24 B2 22 59 22 A7 31 32 33 30 00 2F 22 |:.Y$."Y".1230./"|
00001A20: C4 04 8B 59 24 B3 B1 22 4E 22 A7 31 32 31 30 00 |...Y$.."N".1210.|
00001A30: 63 22 CE 04 8D 32 33 32 30 3A 99 22 13 11 11 11 |c"...2320:."....|
00001A40: 11 11 20 20 20 20 20 20 45 4E 54 45 52 20 59 4F |.. ENTER YO|
00001A50: 55 52 20 42 49 52 54 48 20 44 41 54 45 20 20 20 |UR BIRTH DATE |
00001A60: 20 20 22 00 6D 22 D8 04 8D 31 35 34 30 00 77 22 | ".m"...1540.w"|
00001A70: E2 04 8D 31 37 36 30 00 8D 22 EC 04 4A 42 B2 4A |...1760.."..JB.J|
00001A80: 44 3A 8D 32 31 33 30 3A 44 24 B2 43 24 00 C3 22 |D:.2130:D$.C$.."|
00001A90: F6 04 8D 38 30 30 30 3A 99 22 13 11 11 11 11 11 |...8000:."......|
00001AA0: 20 20 20 20 20 20 45 4E 54 45 52 20 44 41 54 45 | ENTER DATE|
00001AB0: 20 4F 46 20 49 4E 54 45 52 45 53 54 20 20 20 20 | OF INTEREST |
00001AC0: 20 11 22 00 CD 22 00 05 8D 31 35 34 30 00 D7 22 | .".."...1540.."|
00001AD0: 0A 05 8D 31 37 36 30 00 E1 22 14 05 4A 43 B2 4A |...1760.."..JC.J|
00001AE0: 44 00 F2 22 1E 05 8B 4A 43 B1 B2 4A 42 A7 31 33 |D.."...JC..JB.13|
00001AF0: 34 30 00 35 23 28 05 4D 24 B2 22 59 4F 55 20 57 |40.5#(.M$."YOU W|
00001B00: 45 52 45 20 4E 4F 54 20 42 4F 52 4E 20 41 53 20 |ERE NOT BORN AS |
00001B10: 4F 46 22 AA C4 28 4D 29 AA 22 2F 22 AA C4 28 44 |OF"..(M)."/"..(D|
00001B20: 29 AA 22 2F 22 AA C4 28 59 29 3A 54 54 B2 32 3A |)."/"..(Y):TT.2:|
00001B30: 8D 32 33 37 30 00 49 23 32 05 99 22 13 11 11 11 |.2370.I#2.."....|
00001B40: 11 11 22 3A 89 31 32 33 30 00 5B 23 3C 05 8B 46 |..":.1230.[#<..F|
00001B50: 4C 41 47 B3 B1 31 A7 31 33 38 30 00 96 23 46 05 |LAG..1.1380..#F.|
00001B60: 99 3A 99 22 11 48 4F 57 20 4D 41 4E 59 20 44 41 |.:.".HOW MANY DA|
00001B70: 59 53 20 53 48 4F 55 4C 44 20 54 48 45 20 43 48 |YS SHOULD THE CH|
00001B80: 41 52 54 20 52 55 4E 20 22 3B 3A 8D 31 36 36 30 |ART RUN ";:.1660|
00001B90: 3A 44 44 B2 4D 44 00 AA 23 50 05 9F 34 2C 34 3A |:DD.MD..#P..4,4:|
00001BA0: 9D 34 3A 99 C7 28 31 34 37 29 00 D6 23 5A 05 8F |.4:..(147)..#Z..|
00001BB0: 20 20 20 49 46 46 46 3D 2D 31 54 48 45 4E 47 4F | IFFF=-1THENGO|
00001BC0: 53 55 42 32 34 39 30 3A 50 52 49 4E 54 43 48 52 |SUB2490:PRINTCHR|
00001BD0: 24 28 31 34 37 29 00 E0 23 64 05 8D 31 38 34 30 |$(147)..#d..1840|
00001BE0: 00 EC 23 6E 05 4E B2 4A 43 AB 4A 42 00 01 24 78 |..#n.N.JC.JB..$x|
00001BF0: 05 56 B2 32 33 3A 8D 31 39 33 30 3A 8D 31 39 35 |.V.23:.1930:.195|
00001C00: 30 00 16 24 82 05 56 B2 32 38 3A 8D 31 39 33 30 |0..$..V.28:.1930|
00001C10: 3A 8D 31 39 35 30 00 2B 24 8C 05 56 B2 33 33 3A |:.1950.+$..V.33:|
00001C20: 8D 31 39 33 30 3A 8D 31 39 35 30 00 35 24 96 05 |.1930:.1950.5$..|
00001C30: 8D 32 31 33 30 00 44 24 A0 05 99 43 24 3B A3 38 |.2130.D$...C$;.8|
00001C40: 29 3B 4C 24 00 61 24 AA 05 4A 43 B2 4A 43 AA 31 |);L$.a$..JC.JC.1|
00001C50: 3A 4C B2 4C AA 31 3A 8B 4C B3 44 44 A7 31 33 39 |:L.L.1:.L.DD.139|
00001C60: 30 00 96 24 AF 05 8B 46 4C 41 47 B2 31 A7 99 3A |0..$...FLAG.1..:|
00001C70: 99 3A 99 3A 99 22 54 48 49 53 20 48 41 53 20 42 |.:.:."THIS HAS B|
00001C80: 45 45 4E 20 41 20 42 49 4F 52 48 59 54 48 4D 20 |EEN A BIORHYTHM |
00001C90: 43 48 41 52 54 22 00 B0 24 B0 05 8B 46 4C 41 47 |CHART"..$...FLAG|
00001CA0: B2 31 A7 99 22 46 4F 52 20 22 3B 4E 41 4D 45 24 |.1.."FOR ";NAME$|
00001CB0: 00 D4 24 B1 05 8F 20 49 46 46 4C 41 47 3D 31 54 |..$... IFFLAG=1T|
00001CC0: 48 45 4E 50 52 49 4E 54 54 41 42 28 37 35 29 3B |HENPRINTTAB(75);|
00001CD0: 22 4B 4B 22 00 FA 24 B4 05 8B 46 4C 41 47 B2 31 |"KK"..$...FLAG.1|
00001CE0: A7 98 34 3A A0 34 3A 59 50 24 B2 22 4E 22 3A 46 |..4:.4:YP$."N":F|
00001CF0: 4C 41 47 B2 32 3A 89 33 30 30 00 24 25 BE 05 99 |LAG.2:.300.$%...|
00001D00: 22 50 52 45 53 53 20 27 48 27 20 46 4F 52 20 48 |"PRESS 'H' FOR H|
00001D10: 45 4C 50 20 20 20 20 20 20 20 20 20 20 20 20 20 |ELP |
00001D20: 20 20 20 22 00 2D 25 BF 05 4D 31 B2 31 00 65 25 | ".-%..M1.1.e%|
00001D30: C0 05 99 22 20 20 20 20 20 20 27 43 27 20 54 4F |..." 'C' TO|
00001D40: 20 43 4F 4E 54 49 4E 55 45 20 22 3B 3A 55 53 24 | CONTINUE ";:US$|
00001D50: B2 22 48 43 22 3A 55 4C B2 31 3A 8D 33 35 3A 59 |."HC":UL.1:.35:Y|
00001D60: 24 B2 55 52 24 00 6E 25 C3 05 4D 31 B2 30 00 7F |$.UR$.n%..M1.0..|
00001D70: 25 C8 05 8B 59 24 B2 22 43 22 A7 31 35 33 30 00 |%...Y$."C".1530.|
00001D80: 88 25 CD 05 89 31 39 35 00 BD 25 D2 05 99 3A 99 |.%...195..%...:.|
00001D90: 41 41 24 3A 99 22 44 4F 20 59 4F 55 20 57 41 4E |AA$:."DO YOU WAN|
00001DA0: 54 20 54 4F 20 4C 4F 4F 4B 20 41 54 20 41 4E 4F |T TO LOOK AT ANO|
00001DB0: 54 48 45 52 20 43 48 41 52 54 20 22 3B 00 D4 25 |THER CHART ";..%|
00001DC0: DC 05 8D 31 38 38 30 3A 8B 59 24 B2 22 59 22 A7 |...1880:.Y$."Y".|
00001DD0: 31 31 34 30 00 E6 25 E6 05 8B 59 24 B3 B1 22 4E |1140..%...Y$.."N|
00001DE0: 22 A7 31 35 30 30 00 14 26 F0 05 99 3A 99 41 41 |".1500..&...:.AA|
00001DF0: 24 3A 99 A3 31 37 29 3B 22 53 4F 20 4C 4F 4E 47 |$:..17);"SO LONG|
00001E00: 20 20 21 21 20 20 91 91 22 3A 9E 31 30 39 33 3A | !! ..":.1093:|
00001E10: 89 33 30 30 00 22 26 FA 05 4C B2 30 3A 89 31 33 |.300."&..L.0:.13|
00001E20: 34 30 00 2C 26 04 06 54 54 B2 31 31 00 42 26 09 |40.,&..TT.11.B&.|
00001E30: 06 99 20 22 11 22 3A 8D 20 38 30 30 30 3A 41 31 |.. ".":. 8000:A1|
00001E40: B2 30 00 80 26 0E 06 99 22 91 20 20 20 20 20 20 |.0..&...". |
00001E50: 20 20 4D 4F 4E 54 48 20 28 31 20 54 4F 20 31 32 | MONTH (1 TO 12|
00001E60: 29 20 20 20 20 20 20 20 20 20 20 9D 9D 9D 9D 9D |) .....|
00001E70: 9D 9D 9D 22 3B 3A 8D 31 36 36 30 3A 4D B2 41 31 |...";:.1660:M.A1|
00001E80: 00 B7 26 18 06 8B 4D B3 31 B0 4D B1 31 32 A7 4D |..&...M.1.M.12.M|
00001E90: 24 B2 22 20 12 4E 4F 20 53 55 43 48 20 4D 4F 4E |$." .NO SUCH MON|
00001EA0: 54 48 22 3A 8D 32 33 37 30 3A 99 22 91 91 91 22 |TH":.2370:."..."|
00001EB0: 3A 20 89 31 35 35 30 00 E4 26 22 06 99 3A 99 22 |: .1550..&"..:."|
00001EC0: 91 20 20 20 20 20 20 20 20 44 41 59 20 28 31 20 |. DAY (1 |
00001ED0: 54 4F 20 33 31 29 20 20 1D 1D 20 20 20 20 9D 9D |TO 31) .. ..|
00001EE0: 9D 9D 22 3B 00 F4 26 2C 06 3A 8D 31 36 36 30 3A |..";..&,.:.1660:|
00001EF0: 44 B2 41 31 00 29 27 36 06 8B 44 B3 31 B0 44 B1 |D.A1.)'6..D.1.D.|
00001F00: 33 31 A7 4D 24 B2 22 20 12 4E 4F 20 53 55 43 48 |31.M$." .NO SUCH|
00001F10: 20 44 41 59 22 3A 8D 32 33 37 30 3A 99 22 91 91 | DAY":.2370:."..|
00001F20: 91 91 22 3A 89 31 35 37 30 00 4E 27 40 06 99 3A |..":.1570.N'@..:|
00001F30: 99 22 91 20 20 20 20 20 20 20 20 59 45 41 52 20 |.". YEAR |
00001F40: 20 20 20 20 20 20 20 1D 1D 1D 1D 1D 22 3B 00 69 | .....";.i|
00001F50: 27 54 06 41 31 B2 AB 31 3A 8D 31 36 36 30 3A 59 |'T.A1..1:.1660:Y|
00001F60: B2 41 31 3A 99 22 1D 20 22 00 78 27 5E 06 8B 59 |.A1:.". ".x'^..Y|
00001F70: B1 39 39 A7 31 36 35 30 00 A1 27 68 06 59 B2 59 |.99.1650..'h.Y.Y|
00001F80: AA 31 39 30 30 3A 4D 24 B2 C4 28 59 29 AA 22 2C |.1900:M$..(Y).",|
00001F90: 20 49 20 41 53 53 55 4D 45 2E 22 3A 8D 32 33 37 | I ASSUME.":.237|
00001FA0: 30 00 A7 27 72 06 8E 00 BC 27 7C 06 55 53 24 B2 |0..'r....'|.US$.|
00001FB0: 22 30 31 32 33 34 35 36 37 38 39 22 00 D4 27 86 |"0123456789"..'.|
00001FC0: 06 55 4C B2 32 20 3A 8B 20 41 31 B3 30 20 A7 20 |.UL.2 :. A1.0 . |
00001FD0: 55 4C B2 34 00 DC 27 90 06 8D 33 35 00 EA 27 9A |UL.4..'...35..'.|
00001FE0: 06 41 31 B2 C5 28 55 52 24 29 00 F0 27 A4 06 8E |.A1..(UR$)..'...|
00001FF0: 00 08 28 AE 06 8B 59 24 B3 22 30 22 B0 59 24 B1 |..(...Y$."0".Y$.|
00002000: 22 39 22 A7 31 36 37 30 00 1A 28 B8 06 99 59 24 |"9".1670..(...Y$|
00002010: 3B 3A 59 24 28 4A 29 B2 59 24 00 32 28 C2 06 4A |;:Y$(J).Y$.2(..J|
00002020: B2 4A AA 31 3A 42 42 B2 42 42 AA 31 3A 89 31 36 |.J.1:BB.BB.1:.16|
00002030: 37 30 00 47 28 CC 06 42 24 B2 22 22 3A 81 4B B2 |70.G(..B$."":.K.|
00002040: 31 A4 28 4A AB 31 29 00 69 28 D6 06 42 24 B2 42 |1.(J.1).i(..B$.B|
00002050: 24 AA 59 24 28 4B 29 3A 82 3A 4D 44 B2 C5 28 42 |$.Y$(K):.:MD..(B|
00002060: 24 29 3A 42 42 B2 30 3A 8E 00 7E 28 E0 06 57 B2 |$):BB.0:..~(..W.|
00002070: B5 28 28 4D AB 31 34 29 AD 31 32 AA 5A 29 00 9A |.((M.14).12.Z)..|
00002080: 28 EA 06 4A 44 B2 B5 28 31 34 36 31 AC 28 59 AA |(..JD..(1461.(Y.|
00002090: 34 38 30 30 AA 57 29 AD 34 29 00 B2 28 F4 06 42 |4800.W).4)..(..B|
000020A0: B2 33 36 37 AC 28 4D AB 32 AB 57 AC 31 32 29 AD |.367.(M.2.W.12).|
000020B0: 31 32 00 C1 28 FE 06 8B 42 B3 30 A7 42 B2 42 AA |12..(...B.0.B.B.|
000020C0: 5A 00 D4 28 08 07 42 B2 B5 28 42 29 3A 4A 44 B2 |Z..(..B..(B):JD.|
000020D0: 4A 44 AA 42 00 F3 28 12 07 42 B2 B5 28 B5 28 33 |JD.B..(..B..(.(3|
000020E0: AC 28 59 AA 34 39 30 30 AA 57 29 AD 31 30 30 29 |.(Y.4900.W).100)|
000020F0: AD 34 29 00 07 29 1C 07 4A 44 B2 4A 44 AA 44 AB |.4)..)..JD.JD.D.|
00002100: 33 32 30 37 35 AB 42 00 0D 29 26 07 8E 00 3A 29 |32075.B..)&...:)|
00002110: 30 07 99 22 93 91 12 42 49 4F 52 48 59 54 48 4D |0.."...BIORHYTHM|
00002120: 20 43 48 41 52 54 20 46 4F 52 20 42 49 52 54 48 | CHART FOR BIRTH|
00002130: 20 44 41 54 45 20 22 3B 44 24 00 68 29 3A 07 99 | DATE ";D$.h):..|
00002140: 22 11 12 2D 2D 44 41 54 45 2D 2D 22 3B A6 33 29 |"..--DATE--";.3)|
00002150: 3B 22 44 4F 57 4E 22 3B A6 38 29 3B 22 30 22 3B |;"DOWN";.8);"0";|
00002160: A6 38 29 3B 22 55 50 22 00 74 29 44 07 99 A3 38 |.8);"UP".t)D...8|
00002170: 29 3B 55 24 00 7A 29 4E 07 8E 00 90 29 58 07 8F |);U$.z)N....)X..|
00002180: 20 49 4E 50 55 54 20 43 48 41 52 41 43 54 45 52 | INPUT CHARACTER|
00002190: 00 A6 29 62 07 99 22 12 3F 9D 22 3B 3A 81 4B B2 |..)b..".?.";:.K.|
000021A0: 31 A4 32 30 3A 82 00 BC 29 6C 07 99 22 92 3F 9D |1.20:...)l..".?.|
000021B0: 22 3B 3A 81 4B B2 31 A4 32 30 3A 82 00 D0 29 76 |";:.K.1.20:...)v|
000021C0: 07 A1 59 24 3A 8B 59 24 B2 22 22 A7 31 38 39 30 |..Y$:.Y$."".1890|
000021D0: 00 D6 29 80 07 8E 00 EB 29 8A 07 57 B2 B5 28 4E |..).....)..W..(N|
000021E0: AD 56 29 3A 52 B2 4E AB 57 AC 56 00 F1 29 94 07 |.V):R.N.W.V..)..|
000021F0: 8E 00 01 2A 9E 07 8B 56 B3 B1 32 33 A7 32 30 31 |...*...V..23.201|
00002200: 30 00 15 2A A8 07 4C 24 B2 C7 28 33 32 29 3A 81 |0..*..L$..(32):.|
00002210: 4A B2 31 A4 34 00 24 2A B2 07 4C 24 B2 4C 24 AA |J.1.4.$*..L$.L$.|
00002220: 4C 24 3A 82 00 37 2A BC 07 4C 24 B2 4C 24 AA C8 |L$:..7*..L$.L$..|
00002230: 28 4C 24 2C 31 35 29 00 55 2A C6 07 4C 24 B2 C8 |(L$,15).U*..L$..|
00002240: 28 4C 24 2C 54 29 AA C7 28 31 39 34 29 AA C9 28 |(L$,T)..(194)..(|
00002250: 4C 24 2C 54 29 00 66 2A D0 07 8B 56 B2 32 33 A7 |L$,T).f*...V.23.|
00002260: 43 24 B2 22 50 22 00 77 2A DA 07 8B 56 B2 32 38 |C$."P".w*...V.28|
00002270: A7 43 24 B2 22 45 22 00 88 2A E4 07 8B 56 B2 33 |.C$."E"..*...V.3|
00002280: 33 A7 43 24 B2 22 49 22 00 9A 2A EE 07 57 B2 52 |3.C$."I"..*..W.R|
00002290: AD 56 3A 57 B2 57 AC 32 AC 50 00 B1 2A F8 07 57 |.V:W.W.2.P..*..W|
000022A0: B2 54 AC BF 28 57 29 3A 57 B2 57 AA 54 AA 31 2E |.T..(W):W.W.T.1.|
000022B0: 35 00 C9 2A 02 08 57 B2 B5 28 57 29 3A 41 24 B2 |5..*..W..(W):A$.|
000022C0: CA 28 4C 24 2C 57 2C 31 29 00 EA 2A 0C 08 8B 41 |.(L$,W,1)..*...A|
000022D0: 24 B2 22 50 22 B0 41 24 B2 22 45 22 B0 41 24 B2 |$."P".A$."E".A$.|
000022E0: 22 2A 22 A7 43 24 B2 22 2A 22 00 F8 2A 16 08 8B |"*".C$."*"..*...|
000022F0: 57 B2 31 A7 32 31 31 30 00 07 2B 20 08 8B 57 B2 |W.1.2110..+ ..W.|
00002300: 33 31 A7 32 31 32 30 00 26 2B 2A 08 4C 24 B2 C8 |31.2120.&+*.L$..|
00002310: 28 4C 24 2C 57 AB 31 29 AA 43 24 AA C9 28 4C 24 |(L$,W.1).C$..(L$|
00002320: 2C 33 31 AB 57 29 00 2C 2B 34 08 8E 00 41 2B 3E |,31.W).,+4...A+>|
00002330: 08 4C 24 B2 43 24 AA C9 28 4C 24 2C 33 30 29 3A |.L$.C$..(L$,30):|
00002340: 8E 00 56 2B 48 08 4C 24 B2 C8 28 4C 24 2C 33 30 |..V+H.L$..(L$,30|
00002350: 29 AA 43 24 3A 8E 00 82 2B 52 08 8B 4A 42 B2 4A |).C$:...+R..JB.J|
00002360: 44 A7 57 B2 4A 42 AA 36 38 35 36 39 3A 52 B2 B5 |D.W.JB.68569:R..|
00002370: 28 34 AC 57 AD 31 34 36 30 39 37 29 3A 89 32 31 |(4.W.146097):.21|
00002380: 35 30 00 A1 2B 5C 08 57 B2 4A 43 AA 36 38 35 36 |50..+\.W.JC.6856|
00002390: 39 3A 52 B2 B5 28 34 AC 57 AD 31 34 36 30 39 37 |9:R..(4.W.146097|
000023A0: 29 00 BB 2B 66 08 57 B2 57 AB B5 28 28 31 34 36 |)..+f.W.W..((146|
000023B0: 30 39 37 AC 52 AA 33 29 AD 34 29 00 D7 2B 70 08 |097.R.3).4)..+p.|
000023C0: 59 B2 B5 28 34 30 30 30 AC 28 57 AA 31 29 AD 31 |Y..(4000.(W.1).1|
000023D0: 34 36 31 30 30 31 29 00 EE 2B 7A 08 57 B2 57 AB |461001)..+z.W.W.|
000023E0: B5 28 31 34 36 31 AC 59 AD 34 29 AA 33 31 00 01 |.(1461.Y.4).31..|
000023F0: 2C 84 08 4D B2 B5 28 38 30 AC 57 AD 32 34 34 37 |,..M..(80.W.2447|
00002400: 29 00 16 2C 8E 08 44 B2 57 AB B5 28 32 34 34 37 |)..,..D.W..(2447|
00002410: AC 4D AD 38 30 29 00 2F 2C 98 08 57 B2 B5 28 4D |.M.80)./,..W..(M|
00002420: AD 31 31 29 3A 4D B2 4D AA 32 AB 31 32 AC 57 00 |.11):M.M.2.12.W.|
00002430: 44 2C A2 08 59 B2 31 30 30 AC 28 52 AB 34 39 29 |D,..Y.100.(R.49)|
00002440: AA 59 AA 57 00 5A 2C AC 08 41 24 B2 C4 28 4D 29 |.Y.W.Z,..A$..(M)|
00002450: 3A 57 B2 C3 28 41 24 29 AB 31 00 6F 2C B6 08 43 |:W..(A$).1.o,..C|
00002460: 24 B2 CA 28 41 24 2C 32 2C 57 29 AA 22 2F 22 00 |$..(A$,2,W)."/".|
00002470: 85 2C C0 08 41 24 B2 C4 28 44 29 3A 57 B2 C3 28 |.,..A$..(D):W..(|
00002480: 41 24 29 AB 31 00 9D 2C CA 08 43 24 B2 43 24 AA |A$).1..,..C$.C$.|
00002490: CA 28 41 24 2C 32 2C 57 29 AA 22 2F 22 00 B3 2C |.(A$,2,W)."/"..,|
000024A0: D4 08 41 24 B2 C4 28 59 29 3A 57 B2 C3 28 41 24 |..A$..(Y):W..(A$|
000024B0: 29 AB 31 00 C7 2C DE 08 43 24 B2 43 24 AA CA 28 |).1..,..C$.C$..(|
000024C0: 41 24 2C 57 2C 32 29 00 D9 2C E8 08 8B 46 4C 41 |A$,W,2)..,...FLA|
000024D0: 47 B3 B1 31 A7 32 33 31 30 00 F1 2C F2 08 8B C3 |G..1.2310..,....|
000024E0: 28 43 24 29 B2 36 A7 43 24 B2 22 20 20 22 AA 43 |(C$).6.C$." ".C|
000024F0: 24 00 08 2D FC 08 8B C3 28 43 24 29 B2 37 A7 43 |$..-....(C$).7.C|
00002500: 24 B2 22 20 22 AA 43 24 00 0E 2D 06 09 8E 00 23 |$." ".C$..-....#|
00002510: 2D 10 09 55 24 B2 C7 28 32 31 30 29 3A 81 4A B2 |-..U$..(210):.J.|
00002520: 31 A4 34 00 32 2D 1A 09 55 24 B2 55 24 AA 55 24 |1.4.2-..U$.U$.U$|
00002530: 3A 82 00 45 2D 24 09 55 24 B2 55 24 AA C8 28 55 |:..E-$.U$.U$..(U|
00002540: 24 2C 31 35 29 00 60 2D 2E 09 8B 46 4C 41 47 B2 |$,15).`-...FLAG.|
00002550: 31 A7 55 24 B2 55 24 AA C8 28 55 24 2C 31 33 29 |1.U$.U$..(U$,13)|
00002560: 00 66 2D 38 09 8E 00 79 2D 42 09 99 3A 99 22 11 |.f-8...y-B..:.".|
00002570: 22 3B A3 54 54 29 3B 4D 24 00 89 2D 4C 09 81 4A |";.TT);M$..-L..J|
00002580: B2 31 A4 31 30 30 30 3A 82 00 92 2D 56 09 99 41 |.1.1000:...-V..A|
00002590: 41 24 00 98 2D 60 09 8E 00 B5 2D 6A 09 8F 20 49 |A$..-`....-j.. I|
000025A0: 4E 53 54 52 55 43 54 49 4F 4E 20 53 55 42 52 4F |NSTRUCTION SUBRO|
000025B0: 55 54 49 4E 45 00 BB 2D 74 09 8F 00 C5 2D BA 09 |UTINE..-t....-..|
000025C0: 8D 20 38 35 30 00 F3 2D C4 09 99 22 11 11 20 D4 |. 850..-...".. .|
000025D0: 48 45 20 42 49 4F 52 48 59 54 48 4D 20 54 48 45 |HE BIORHYTHM THE|
000025E0: 4F 52 59 20 53 54 41 54 45 53 20 54 48 41 54 20 |ORY STATES THAT |
000025F0: 41 4C 4C 00 21 2E CE 09 99 22 11 20 4F 46 20 55 |ALL.!....". OF U|
00002600: 53 20 48 41 56 45 20 43 59 43 4C 45 53 2C 20 42 |S HAVE CYCLES, B|
00002610: 45 47 49 4E 4E 49 4E 47 20 57 49 54 48 20 54 48 |EGINNING WITH TH|
00002620: 45 00 4F 2E D8 09 99 22 11 20 4D 4F 4D 45 4E 54 |E.O....". MOMENT|
00002630: 20 4F 46 20 42 49 52 54 48 2C 20 54 48 41 54 20 | OF BIRTH, THAT |
00002640: 49 4E 46 4C 55 45 4E 43 45 20 4F 55 52 20 22 00 |INFLUENCE OUR ".|
00002650: 7D 2E E2 09 99 22 11 20 50 48 59 53 49 43 41 4C |}....". PHYSICAL|
00002660: 2C 20 45 4D 4F 54 49 4F 4E 41 4C 2C 20 41 4E 44 |, EMOTIONAL, AND|
00002670: 20 49 4E 54 45 4C 4C 45 43 54 55 41 4C 00 8D 2E | INTELLECTUAL...|
00002680: EC 09 99 22 11 20 53 54 41 54 45 53 2E 00 9B 2E |...". STATES....|
00002690: F1 09 8D 38 33 35 3A 8D 38 35 30 00 CC 2E F6 09 |...835:.850.....|
000026A0: 99 22 11 20 12 20 D0 48 59 53 49 43 41 4C 20 C3 |.". . .HYSICAL .|
000026B0: 59 43 4C 45 92 3A 20 C9 53 20 32 33 20 44 41 59 |YCLE.: .S 23 DAY|
000026C0: 53 20 4C 4F 4E 47 2E 20 20 C6 4F 52 00 F9 2E 00 |S LONG. .OR....|
000026D0: 0A 99 22 11 20 54 48 45 20 46 49 52 53 54 20 31 |..". THE FIRST 1|
000026E0: 31 20 31 2F 32 20 44 41 59 53 20 59 4F 55 20 41 |1 1/2 DAYS YOU A|
000026F0: 52 45 20 49 4E 20 54 48 45 00 29 2F 0A 0A 99 22 |RE IN THE.)/..."|
00002700: 11 20 50 4F 53 49 54 49 56 45 20 53 49 44 45 20 |. POSITIVE SIDE |
00002710: 4F 46 20 54 48 45 20 43 59 43 4C 45 2E 20 20 D4 |OF THE CYCLE. .|
00002720: 48 49 53 20 4D 45 41 4E 53 00 58 2F 14 0A 99 22 |HIS MEANS.X/..."|
00002730: 20 59 4F 55 20 53 48 4F 55 4C 44 20 48 41 56 45 | YOU SHOULD HAVE|
00002740: 20 41 20 46 45 45 4C 49 4E 47 20 4F 46 20 57 45 | A FEELING OF WE|
00002750: 4C 4C 2D 42 45 49 4E 47 00 85 2F 1E 0A 99 22 20 |LL-BEING../..." |
00002760: 53 54 52 45 4E 47 54 48 2C 20 41 4E 44 20 45 4E |STRENGTH, AND EN|
00002770: 44 55 52 41 4E 43 45 2E 20 20 C3 4F 4E 56 45 52 |DURANCE. .ONVER|
00002780: 53 45 4C 59 2C 00 B3 2F 28 0A 99 22 11 20 44 55 |SELY,../(..". DU|
00002790: 52 49 4E 47 20 54 48 45 20 27 44 4F 57 4E 27 20 |RING THE 'DOWN' |
000027A0: 53 49 44 45 2C 20 59 4F 55 20 48 41 56 45 20 4C |SIDE, YOU HAVE L|
000027B0: 45 53 53 00 CF 2F 32 0A 99 22 11 20 53 54 52 45 |ESS../2..". STRE|
000027C0: 4E 47 54 48 20 41 4E 44 20 56 49 47 4F 52 2E 00 |NGTH AND VIGOR..|
000027D0: DE 2F 37 0A 8D 38 33 35 3A 8D 20 38 35 30 00 10 |./7..835:. 850..|
000027E0: 30 3C 0A 99 22 11 20 12 C5 4D 4F 54 49 4F 4E 41 |0<..". ..MOTIONA|
000027F0: 4C A0 C3 59 43 4C 45 92 3A 20 CC 41 53 54 53 20 |L..YCLE.: .ASTS |
00002800: 32 38 20 44 41 59 53 2E 20 20 C4 55 52 49 4E 47 |28 DAYS. .URING|
00002810: 00 3F 30 46 0A 99 22 20 54 48 45 20 50 4F 53 49 |.?0F.." THE POSI|
00002820: 54 49 56 45 20 48 41 4C 46 2C 20 59 4F 55 20 53 |TIVE HALF, YOU S|
00002830: 48 4F 55 4C 44 20 46 45 45 4C 20 4D 4F 52 45 00 |HOULD FEEL MORE.|
00002840: 6C 30 50 0A 99 22 20 43 48 45 45 52 46 55 4C 20 |l0P.." CHEERFUL |
00002850: 41 4E 44 20 43 4F 4F 50 45 52 41 54 49 56 45 2E |AND COOPERATIVE.|
00002860: 20 20 C4 55 52 49 4E 47 20 54 48 45 00 98 30 5A | .URING THE..0Z|
00002870: 0A 99 22 11 20 4E 45 47 41 54 49 56 45 2C 20 59 |..". NEGATIVE, Y|
00002880: 4F 55 20 54 45 4E 44 20 54 4F 20 42 45 20 4D 4F |OU TEND TO BE MO|
00002890: 52 45 20 4D 4F 4F 44 59 00 BC 30 64 0A 99 22 11 |RE MOODY..0d..".|
000028A0: 20 49 52 52 49 54 41 42 4C 45 2C 20 41 4E 44 20 | IRRITABLE, AND |
000028B0: 50 45 53 53 49 4D 49 53 54 49 43 2E 00 CB 30 78 |PESSIMISTIC...0x|
000028C0: 0A 8D 38 33 35 3A 8D 20 38 35 30 00 FC 30 8C 0A |..835:. 850..0..|
000028D0: 99 22 11 20 12 C9 4E 54 45 4C 4C 45 43 54 55 41 |.". ..NTELLECTUA|
000028E0: 4C 20 C3 59 43 4C 45 92 20 CC 41 53 54 53 20 46 |L .YCLE. .ASTS F|
000028F0: 4F 52 20 33 33 20 44 41 59 53 2E 22 00 2C 31 96 |OR 33 DAYS.".,1.|
00002900: 0A 99 22 11 20 D4 48 45 20 46 49 52 53 54 20 48 |..". .HE FIRST H|
00002910: 41 4C 46 20 49 53 20 41 20 50 45 52 49 4F 44 20 |ALF IS A PERIOD |
00002920: 49 4E 20 57 48 49 43 48 20 59 4F 55 00 4F 31 A0 |IN WHICH YOU.O1.|
00002930: 0A 99 22 20 53 48 4F 55 4C 44 20 48 41 56 45 20 |.." SHOULD HAVE |
00002940: 47 52 45 41 54 45 52 20 53 55 43 43 45 53 53 00 |GREATER SUCCESS.|
00002950: 7A 31 AA 0A 99 22 11 20 4C 45 41 52 4E 49 4E 47 |z1...". LEARNING|
00002960: 20 4E 45 57 20 4D 41 54 45 52 49 41 4C 20 41 4E | NEW MATERIAL AN|
00002970: 44 20 50 55 52 53 55 49 4E 47 00 A9 31 B4 0A 99 |D PURSUING..1...|
00002980: 22 11 20 43 52 45 41 54 49 56 45 20 41 43 54 49 |". CREATIVE ACTI|
00002990: 56 49 54 49 45 53 2E 20 20 C4 55 52 49 4E 47 20 |VITIES. .URING |
000029A0: 54 48 45 20 4C 41 53 54 22 00 D5 31 BE 0A 99 22 |THE LAST"..1..."|
000029B0: 11 20 48 41 4C 46 2C 20 59 4F 55 20 41 52 45 20 |. HALF, YOU ARE |
000029C0: 53 55 50 50 4F 53 45 44 4C 59 20 42 45 54 54 45 |SUPPOSEDLY BETTE|
000029D0: 52 20 4F 46 46 00 F5 31 C8 0A 99 22 11 20 52 45 |R OFF..1...". RE|
000029E0: 56 49 45 57 49 4E 47 20 4F 4C 44 20 4D 41 54 45 |VIEWING OLD MATE|
000029F0: 52 49 41 4C 2E 00 04 32 CD 0A 8D 38 33 35 3A 8D |RIAL...2...835:.|
00002A00: 20 38 35 30 00 31 32 D2 0A 99 22 11 20 C1 4E 59 | 850.12...". .NY|
00002A10: 20 44 41 59 20 57 48 49 43 48 20 54 48 45 20 43 | DAY WHICH THE C|
00002A20: 59 43 4C 45 20 43 52 4F 53 53 45 53 20 46 52 4F |YCLE CROSSES FRO|
00002A30: 4D 00 5D 32 DC 0A 99 22 11 20 4F 4E 45 20 53 49 |M.]2...". ONE SI|
00002A40: 44 45 20 54 4F 20 54 48 45 20 4F 54 48 45 52 20 |DE TO THE OTHER |
00002A50: 49 53 20 53 41 49 44 20 54 4F 20 42 45 00 8B 32 |IS SAID TO BE..2|
00002A60: E6 0A 99 22 11 20 41 20 27 43 52 49 54 49 43 41 |...". A 'CRITICA|
00002A70: 4C 20 44 41 59 2E 27 20 20 D4 48 45 20 54 48 45 |L DAY.' .HE THE|
00002A80: 4F 52 59 20 49 53 20 54 48 41 54 00 BB 32 F0 0A |ORY IS THAT..2..|
00002A90: 99 22 11 20 59 4F 55 20 41 52 45 20 4D 4F 52 45 |.". YOU ARE MORE|
00002AA0: 20 41 43 43 49 44 45 4E 54 2D 50 52 4F 4E 45 20 | ACCIDENT-PRONE |
00002AB0: 4F 4E 20 43 52 49 54 49 43 41 4C 00 E8 32 FA 0A |ON CRITICAL..2..|
00002AC0: 99 22 20 50 48 59 53 49 43 41 4C 20 41 4E 44 20 |." PHYSICAL AND |
00002AD0: 45 4D 4F 54 49 4F 4E 41 4C 20 44 41 59 53 20 28 |EMOTIONAL DAYS (|
00002AE0: 43 52 49 54 49 43 41 4C 00 15 33 04 0B 99 22 11 |CRITICAL..3...".|
00002AF0: 20 49 4E 54 45 4C 4C 45 43 54 55 41 4C 20 44 41 | INTELLECTUAL DA|
00002B00: 59 53 20 41 52 45 20 4E 4F 54 20 43 4F 4E 53 49 |YS ARE NOT CONSI|
00002B10: 44 45 52 45 44 00 43 33 0E 0B 99 22 11 20 44 41 |DERED.C3...". DA|
00002B20: 4E 47 45 52 4F 55 53 20 55 4E 4C 45 53 53 20 54 |NGEROUS UNLESS T|
00002B30: 48 45 59 20 43 4F 49 4E 43 49 44 45 20 57 49 54 |HEY COINCIDE WIT|
00002B40: 48 20 41 00 71 33 18 0B 99 22 11 20 43 52 49 54 |H A.q3...". CRIT|
00002B50: 49 43 41 4C 20 44 41 59 20 49 4E 20 41 4E 4F 54 |ICAL DAY IN ANOT|
00002B60: 48 45 52 20 43 59 43 4C 45 2E 29 20 20 CF 4E 20 |HER CYCLE.) .N |
00002B70: 41 00 9D 33 22 0B 99 22 11 20 54 52 49 50 4C 45 |A..3"..". TRIPLE|
00002B80: 20 43 52 49 54 49 43 41 4C 20 44 41 59 20 28 41 | CRITICAL DAY (A|
00002B90: 20 52 41 52 49 54 59 29 2C 20 59 4F 55 00 CE 33 | RARITY), YOU..3|
00002BA0: 2C 0B 99 22 11 20 50 52 4F 42 41 42 4C 59 20 53 |,..". PROBABLY S|
00002BB0: 48 4F 55 4C 44 4E 27 54 20 45 56 45 4E 20 47 45 |HOULDN'T EVEN GE|
00002BC0: 54 20 4F 55 54 20 4F 46 20 42 45 44 21 22 00 D9 |T OUT OF BED!"..|
00002BD0: 33 40 0B 8D 38 33 35 3A 8E 00 FF 33 40 1F 99 20 |3@..835:...3@.. |
00002BE0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00002BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00002C00: 2D 34 4A 1F 99 20 22 13 11 11 11 11 11 11 11 20 |-4J.. "........ |
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 20 20 22 00 3C 34 | ".<4|
00002C30: 54 1F 81 20 41 31 B2 31 20 A4 20 38 00 62 34 5E |T.. A1.1 . 8.b4^|
00002C40: 1F 99 20 22 20 20 20 20 20 20 20 20 20 20 20 20 |.. " |
00002C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002C60: 20 22 00 6B 34 68 1F 82 20 41 31 00 7B 34 72 1F | ".k4h.. A1.{4r.|
00002C70: 99 20 22 13 11 11 11 11 11 11 11 00 81 34 7C 1F |. "..........4|.|
00002C80: 8E 00 93 34 28 23 8B 20 4D 31 B2 30 20 A7 20 8D |...4(#. M1.0 . .|
00002C90: 20 33 35 00 A3 34 32 23 99 20 C8 28 55 44 24 2C | 35..42#. .(UD$,|
00002CA0: 32 32 29 00 AC 34 3C 23 9E 55 50 25 00 B7 34 46 |22)..4<#.UP%..4F|
00002CB0: 23 89 20 31 34 37 30 00 00 00 |#. 1470... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...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.@.2..UI$:.UI$."".50
.J.7..UI$.G(13).C(UR$)..1..UC,1:." .";:.
85.}.<..UI$.G(20).105...>.. C(UR$)..UL.5
0...A..120:. CHECK FOR VALID CHARACTER.F
.F.UR$.UR$.UI$.P.K..UI$;.X.P..50...U.. +
++ CHECK FOR HELP REQUEST +++.%.Z..UR$.U
X$.195:. EXIT TO HELP ROUTINE.4._..UF.1.
.240.A.D.UF.0:.:..Z.F.. ++ CHECK DELETE
++.K.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$)
.1)...S..". ..";:.50...X.. ++ CHECK FOR
VALID CHARACTERS ++.N.}..C(US$).0.150..
....US.1.C(US$)......UI$.J(US$,US,1)....
.........UI$."":..$.... ** STANDARD INPU
T **.5....F(UI$).46...F....UI$.G(32)...C
. ..F(UI$).48.F(UI$).57.170.I..........F
(UI$).65.F(UI$).90.180............F(UI$)
.193.F(UI$).218.UI$."":..S....B(UT).UU%.
UI$.G(F(UI$).128):..Y.........UI$."":...
.C.UF.1:. +++ HELP ROUTINE EXIT +++...E.
.250...H..244.<.M..UQ.UB.(U2%.256.U1%.U3
%.2).X.R.UQ%(UQ.UB).B(UQ):.:.".".K.W.UZ.
1:UV%.B(UT).T.X..300...Y.UZ.0:US$.UJ$:UG
$.UK$:UP.UJ:UL.UK.P.Z..B(50003).0..53281
,1:.".";:.53281,6:.53280,14:.220.Z....".
";.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U
1%.U3%.3)......UQ,UQ%(UQ.UB):..*....U1,U
1%.6....U2,U2%.B....U4,U4%.P....U3,U3%.1
.Z....9000.....UD%.((U2%.256.U1%.U3%).UB
).40:.H(UD$,UD%.1):..E....H(UD$,23);"
"...
...H(UD$,24);" . HE
LP COMING . ":..,...U1%.B(U1):U2%.B(U2)
:U3%.B(U3):U4%.B(U4).T...UJ$.US$:UK$.UG$
:UL$.UT$:UJ.UP:UK.UL.Z.....K.,.. ** MENU
**.Q.-.:. ....".":.UT,UU%:.B(50003).0..
53281,9:.53280,8.../.:.C.1..".
MENU"...6.." ---------------------
-----------------"...;..".. 1. B
EGIN BIORHYTHMS ".D.@..".. 2. S
TUDENT INSTRUCTIONS".N.E..".. 3.
TEACHER INSTRUCTIONS"...O..".. 4.
QUIT.."...T.." ----------------------
----------------"...Y..".. PRESS A
NUMBER KEY (1-4) ";...^.UL.1:US$."1234"
:.35:. INPUT ROUTINE...`.US$."".4.C..E(U
R$).1000,400,500,396.=.H..300.D.... ** R
E-ENABLE STOP KEY AND END **......B(5000
3)..1.B(50003)..160.B(50003)..0.399.....
.UU.71:.B(50003).0..53281,6:.53280,14.I.
..."..":..T....875:....... ** STUDENT IN
STRUCTIONS **.$....".":.UT,UL%:.B(50003)
.0..53281,0:.53280,0.@...UP.0:UG$."STUDE
NT INST".K.... 2410._....UZ.1..UP%:.217.
E.......... ** TEACHER INSTRUCTIONS **..
....".":.UT,UL%:.B(50003).0..53281,2:.53
280,10.W...UP.0:UG$."TEACHER INST":.850.
.....".. TO THE BEST OF OUR KNOWLED
GE,."......" THIS PROGRAM IS IN THE PU
BLIC.".Z...." DOMAIN. IF THIS IS NOT
THE CASE.".W...." PLEASE CONTACT:...".
....." COMMODORE BUSINESS MACHINES.
".D...." 3370 PHARMACY AVE.....
.." AGINCOURT, ONTARIO"......"
CANADA M1W 2K4".*...."
(416) 499-4292".@...UP.1:. 835:. 850:
.J...." ..PROGRAM NAME: BIORHYTHMS
......." WRITTEN BY : PHIL FELDMAN
";.28);"& TOM RUGG..I...." UPGRADED
BY : PAUL AGOSTA......." .THIS PROGR
AM WILL RUN ON ANY........" PET
64 COMPUTER.8...." COMMODORE 64
COMPUTER.A....835.V.... GOSUB TO PRINTER
SECTION GOES HERE (GOSUB 655)...... PRI
NTER SECTION DOESN'T WORK...N..UZ.1..UP%
:.217...W...Y.X.. ** PROGRAM MODIFICATIO
N INST **...Y..".":.UT,UL%...].UP.0:UG$.
"PROGRAM MOD":.850.B....59468,14:."...
DO YOU WISH IT PRINTED (Y/N) ?";.A...U
S$."YN":UL.1:. 35:YP$.UR$......YP$."Y"..
:.:."WHAT IS YOUR NAME ? ";.P....YP$."Y"
.US$."ABCDEFGHIJKLMNOPQRSTUVWXYZ.: ":UL.
40:.35:NAME$.UR$.Y....835......UZ.1..UP%
:.217............ ** TO USE 8032 LOAD CB
M4032 **.N.F..".....BEFORE RUNNING THIS
PROGRAM ON AN 8032 .....P.." LOAD
THE 'CBM 4032' PROGRAM............."...Z
..UU.71......... .. ** T I T L E P A G
E **...".."....";:.UT,UU%:.B(50003).0..
53280,14:.53281,6...$..I.1.38:."...";:..
..&..I.1.22:.".....";:../.(..I.1.37:."..
...";:..G.*..I.1.22:.".....";:..L.,.."..
......................... .......".....
.............. . . .....0.."...........
........ . ....M.2.."..................
.. ....4.."..............C O M M O D O
R E.....6.."...............EDUCATIONAL..
.7.8.."................SOFTWARE.R.:.. **
COMMODORE LOGO **...;..H(UD$,24);".....
.....PRESS SPACE BAR OR WAIT.":I.0...<..
A$:.A$.." ".I.I.1:.I.250.828.P.>.T1$."":
T2$."":T3$."":T4$."":I.0.Y.@..300...C..
** SPACE BAR PRESS **.1.H.. UO,0:.H(UD$,
24);".......PRESS SPACE BAR TO CONTINUE.
".H.L..UI$:.UI$.." ".844.N.N...N.R.. **
PAGE DESIGN ROUTINE **.Z.T.UP.UP.1...W..
"."H(UT$.UP$,21);I(UP$.UG$.D(UP),18).S.\
.." ------------------------------------
--"...`..UH..0.870...A..H(UD$,24);H(UP$,
7);"HELP - PRESS H <RETURN>".'.F.UH.0:
."..":..F.K.. ** PLEASE WAIT REMARK **.|
.P..H(UD$,24);" ONE MOMENT PLE
ASE... "...U........ ** SET UP VARIA
BLES **.....UX$."H":.UQ%(1000):UB.32768:
U1.196:U2.197:U3.198:U4.216:UC.167:UU.10
24.(...UT.59468:UU%.12:UL%.14:UP%.1146:U
M.32768:UO.158:. 50003,0.K....B(50003).0
.UB.1024:U1.209:U2.210:U3.211:U4.214:UC.
204:UU.2048......B(50003).0.UT.53272:UU%
.21:UL%.23:UP%.2139:UM.1024:UO.198.N...U
D$.".........................".....UP$."
"
.N...UT$." BIORHYTHMS ":. PLACE P
ROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***.T
.....N.... ** SET VARIABLES **.W....900.
..... QU$(250),AN$(250)...... ** CHECK F
OR 8032 **.H....".":." ":. SHIFTED SPACE
......B(UB.40)..96..700...... ** MEMORY
CHECK **...... .(0).2000.937.:...."....T
HIS MACHINE DOES NOT HAVE ENOUGH.".^....
"MEMORY TO RUN THIS PROGRAM !".I....UU.7
1.O.........."..":.B(50003).0.962......
** BASIC 2.0 OR 4.0 OR C-64 SETUP **
......1075,133:.1076,144:.1077,234:.1079
,4:.1080,133:.1081,145.,....1091,155:.10
98,133:.1099,144:.1100,234:.1103,133.N..
..1104,145:.1105,234:.1082,234.E....B(50
003)..160.955......1093,88:.1094,228:.10
97,85:.1102,228:.965......B(50003)..1.99
0.X....1093,49:.1094,230:.1097,46:.1102,
230:.965...B..2099,141:.2100,20:.2101,3:
.2103,8:.2104,141:.2105,21.N.C..2106,3:.
2115,145:.2117,52:.2118,234:.2121,49:.21
22,141...D..2123,20:.2124,3:.2126,234:.2
127,141:.2128,21:.2129,3...E..UU.48:. DI
SABLE STOP KEY...J..800:. TITLE.G.T..300
:. MENU......".THE PGM WILL NOT WORK ON
THIS MACHINE!":..- ...UZ.1..UP%:.UP%:UZ.
0:. ** PROGRAM STARTS HERE **.Y ..."..";
:.:.B(50003).0..53281,6:.53280,14. ...
B(50003).0. . 53280,6:. 53281,6.. L..594
68,12.. V.. SEE INSTRUCTIONS PAGE FOR CR
EDITS.. J.AA$.".
."..!T.DD.18:L.0:Z..9999:T
.15:P.3.14159265.)!~..FLAG.1.."...":.123
0.S!...59468,12:."...";.12);". BIORHYTHM
S "..!..FLAG.0:. PRINT"... ARE
YOU USING A PRINTER (Y/N)";..!...YP$."".
YP$."N":..!...YP$."N".1230.M!...YP$.."Y"
.1200.."..FLAG.1:.:.". IS THERE PA
PER IN IT .....";.."...1880:.Y$."Y"
.1230./"D..Y$.."N".1210.C"N..2320:."....
.. ENTER YOUR BIRTH DATE ".M"X.
.1540.W"...1760.."..JB.JD:.2130:D$.C$.C"
...8000:."...... ENTER DATE OF INTE
REST .".M"...1540.W"...1760.."..JC.J
D.."...JC..JB.1340.5#(.M$."YOU WERE NOT
BORN AS OF".D(M)."/".D(D)."/".D(Y):TT.2:
.2370.I#2.."......":.1230.[#<..FLAG..1.1
380..#F..:.".HOW MANY DAYS SHOULD THE CH
ART RUN ";:.1660:DD.MD..#P..4,4:.4:.G(14
7).V#Z.. IFFF=-1THENGOSUB2490:PRINTCHR
$(147)..#D..1840..#N.N.JC.JB..$X.V.23:.1
930:.1950..$..V.28:.1930:.1950.+$..V.33:
.1930:.1950.5$...2130.D$ ..C$;.8);L$.A$.
.JC.JC.1:L.L.1:.L.DD.1390..$...FLAG.1..:
.:.:."THIS HAS BEEN A BIORHYTHM CHART"..
$...FLAG.1.."FOR ";NAME$.T$... IFFLAG=1T
HENPRINTTAB(75);"KK"..$...FLAG.1..4: 4:Y
P$."N":FLAG.2:.300.$%..."PRESS 'H' FOR H
ELP ".-%..M1.1.E%..."
'C' TO CONTINUE ";:US$."HC":UL.1:.35:Y
$.UR$.N%C.M1.0.%H..Y$."C".1530..%M..195
..%R..:.AA$:."DO YOU WANT TO LOOK AT ANO
THER CHART ";.T%...1880:.Y$."Y".1140..%.
..Y$.."N".1500..&...:.AA$:..17);"SO LONG
!! ..":.1093:.300."&..L.0:.1340.,&..T
T.11.B&... ".":. 8000:A1.0..&...".
MONTH (1 TO 12) ........";:.1
660:M.A1..&...M.1.M.12.M$." .NO SUCH MON
TH":.2370:."...": .1550..&"..:.".
DAY (1 TO 31) .. ....";..&,.:.1660:
D.A1.)'6..D.1.D.31.M$." .NO SUCH DAY":.2
370:."....":.1570.N'@..:.". YEAR
.....";.I'T.A1..1:.1660:Y.A1:.".
".X'^..Y.99.1650..'H.Y.Y.1900:M$.D(Y).",
I ASSUME.":.2370..'R....'|.US$."0123456
789".T'..UL.2 :. A1.0 . UL.4..'...35..'.
.A1.E(UR$)..'.....(...Y$."0".Y$."9".1670
..(...Y$;:Y$(J).Y$.2(B.J.J.1:BB.BB.1:.16
70.G(L.B$."":.K.1.(J.1).I(V.B$.B$.Y$(K):
.:MD.E(B$):BB.0:..~(..W..((M.14).12.Z)..
(..JD..(1461.(Y.4800.W).4)..(..B.367.(M.
2.W.12).12.A(...B.0.B.B.Z.T(..B..(B):JD.
JD.B..(..B..(.(3.(Y.4900.W).100).4)..)..
JD.JD.D.32075.B..)&...:)0.."...BIORHYTHM
CHART FOR BIRTH DATE ";D$.H):.."..--DAT
E--";.3);"DOWN";.8);"0";.8);"UP".T)D...8
);U$.Z)N....)X.. INPUT CHARACTER..)B..".
?.";:.K.1.20:...)L..".?.";:.K.1.20:..P)V
..Y$:.Y$."".1890.V).....)..W..(N.V):R.N.
W.V..).....*...V..23.2010..*..L$.G(32):.
J.1.4.$*..L$.L$.L$:..7*..L$.L$.H(L$,15).
U*F.L$.H(L$,T).G(194).I(L$,T).F*P..V.23.
C$."P".W*Z..V.28.C$."E"..*...V.33.C$."I"
..*..W.R.V:W.W.2.P..*..W.T..(W):W.W.T.1.
5.I*..W..(W):A$.J(L$,W,1)..*...A$."P".A$
."E".A$."*".C$."*"..*...W.1.2110..+ ..W.
31.2120.&+*.L$.H(L$,W.1).C$.I(L$,31.W).,
+4...A+>.L$.C$.I(L$,30):..V+H.L$.H(L$,30
).C$:...+R..JB.JD.W.JB.68569:R..(4.W.146
097):.2150..+\.W.JC.68569:R..(4.W.146097
)..+F.W.W..((146097.R.3).4).W+P.Y..(4000
.(W.1).1461001)..+Z.W.W..(1461.Y.4).31..
,..M..(80.W.2447)..,..D.W..(2447.M.80)./
,..W..(M.11):M.M.2.12.W.D,..Y.100.(R.49)
.Y.W.Z,..A$.D(M):W.C(A$).1.O,..C$.J(A$,2
,W)."/"..,..A$.D(D):W.C(A$).1..,J.C$.C$.
J(A$,2,W)."/"..,T.A$.D(Y):W.C(A$).1.G,..
C$.C$.J(A$,W,2).Y,...FLAG..1.2310..,...C
(C$).6.C$." ".C$..-...C(C$).7.C$." ".C$
..-....#-..U$.G(210):.J.1.4.2-..U$.U$.U$
:..E-$.U$.U$.H(U$,15).`-...FLAG.1.U$.U$.
H(U$,13).F-8...Y-B..:.".";.TT);M$..-L..J
.1.1000:...-V..AA$..-`....-J.. INSTRUCTI
ON SUBROUTINE..-T...E-... 850..-D..".. T
HE BIORHYTHM THEORY STATES THAT ALL.!.N.
.". OF US HAVE CYCLES, BEGINNING WITH TH
E.O.X..". MOMENT OF BIRTH, THAT INFLUENC
E OUR ".}....". PHYSICAL, EMOTIONAL, AND
INTELLECTUAL......". STATES.......835:.
850.L....". . PHYSICAL CYCLE.: IS 23 DAY
S LONG. FOR......". THE FIRST 11 1/2 DA
YS YOU ARE IN THE.)/...". POSITIVE SIDE
OF THE CYCLE. THIS MEANS.X/..." YOU SHO
ULD HAVE A FEELING OF WELL-BEING../..."
STRENGTH, AND ENDURANCE. CONVERSELY,../
(..". DURING THE 'DOWN' SIDE, YOU HAVE L
ESS.O/2..". STRENGTH AND VIGOR.../7..835
:. 850..0<..". .EMOTIONAL CYCLE.: LASTS
28 DAYS. DURING.?0F.." THE POSITIVE HAL
F, YOU SHOULD FEEL MORE.L0P.." CHEERFUL
AND COOPERATIVE. DURING THE..0Z..". NEG
ATIVE, YOU TEND TO BE MORE MOODY..0D..".
IRRITABLE, AND PESSIMISTIC..K0X..835:.
850..0...". .INTELLECTUAL CYCLE. LASTS F
OR 33 DAYS.".,1...". THE FIRST HALF IS A
PERIOD IN WHICH YOU.O1 .." SHOULD HAVE
GREATER SUCCESS.Z1...". LEARNING NEW MAT
ERIAL AND PURSUING..1...". CREATIVE ACTI
VITIES. DURING THE LAST".U1...". HALF,
YOU ARE SUPPOSEDLY BETTER OFF..1H..". RE
VIEWING OLD MATERIAL...2M..835:. 850.12R
..". ANY DAY WHICH THE CYCLE CROSSES FRO
M.]2...". ONE SIDE TO THE OTHER IS SAID
TO BE..2...". A 'CRITICAL DAY.' THE THE
ORY IS THAT..2...". YOU ARE MORE ACCIDEN
T-PRONE ON CRITICAL..2..." PHYSICAL AND
EMOTIONAL DAYS (CRITICAL..3...". INTELLE
CTUAL DAYS ARE NOT CONSIDERED.C3...". DA
NGEROUS UNLESS THEY COINCIDE WITH A.Q3..
.". CRITICAL DAY IN ANOTHER CYCLE.) ON
A..3"..". TRIPLE CRITICAL DAY (A RARITY)
, YOU.N3,..". PROBABLY SHOULDN'T EVEN GE
T OUT OF BED!".Y3@..835:...3@.. "
".-4J.. "........
".<4T.. A1.1
. 8.B4^.. "
".K4H.. A1.{4R.. "..........4|....4(#.
M1.0 . . 35..42#. H(UD$,22)..4<#.UP%..4F
#. 1470...
> CLICK IMAGE PREVIEW FOR FULL MODAL