> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 36 08 01 00 8F 20 43 4F 4E 56 45 52 54 45 |..6.... CONVERTE|
00000010: 44 20 46 52 4F 4D 20 50 45 54 20 54 4F 20 43 4F |D FROM PET TO CO|
00000020: 4D 4D 4F 44 4F 52 45 20 36 34 42 59 20 52 49 43 |MMODORE 64BY RIC|
00000030: 4B 20 42 45 41 4D 00 71 08 02 00 8F 20 4D 4F 44 |K BEAM.q.... MOD|
00000040: 49 46 49 45 44 20 53 4C 49 47 48 54 4C 59 20 42 |IFIED SLIGHTLY B|
00000050: 59 20 44 41 56 49 44 20 42 52 41 44 4C 45 59 20 |Y DAVID BRADLEY |
00000060: 2D 20 4F 43 54 4F 42 45 52 20 34 2C 20 31 39 38 |- OCTOBER 4, 198|
00000070: 33 00 83 08 05 00 99 C7 28 31 34 32 29 3A 99 C7 |3.......(142):..|
00000080: 28 38 29 00 99 08 63 00 97 35 33 32 38 31 2C 30 |(8)...c..53281,0|
00000090: 3A 97 35 33 32 38 30 2C 30 00 AE 08 64 00 8F 20 |:.53280,0...d.. |
000000A0: 42 49 4F 52 48 59 54 48 4D 4E 20 31 2E 35 00 B9 |BIORHYTHMN 1.5..|
000000B0: 08 6E 00 99 22 93 05 22 3B 00 CD 08 78 00 48 B2 |.n.."..";...x.H.|
000000C0: 31 30 30 2E 30 31 3A 46 B2 2E 30 30 31 00 E0 08 |100.01:F..001...|
000000D0: 82 00 86 4D 25 28 31 32 29 2C 4D 24 28 31 32 29 |...M%(12),M$(12)|
000000E0: 00 F5 08 8C 00 81 49 B2 31 A4 31 32 3A 87 4D 25 |......I.1.12:.M%|
000000F0: 28 49 29 3A 82 00 0A 09 96 00 81 49 B2 31 A4 31 |(I):.......I.1.1|
00000100: 32 3A 87 4D 24 28 49 29 3A 82 00 2A 09 A0 00 44 |2:.M$(I):..*...D|
00000110: 24 B2 22 11 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00000120: 11 11 11 11 11 11 11 11 11 22 00 5C 09 AA 00 52 |.........".\...R|
00000130: 24 B2 22 9D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |$.".............|
00000140: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000150: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 68 09 B4 |...........".h..|
00000160: 00 50 49 B2 AB 32 AC FF 00 84 09 BE 00 85 22 49 |.PI..2........"I|
00000170: 4E 50 55 54 20 4E 41 4D 45 20 50 4C 45 41 53 45 |NPUT NAME PLEASE|
00000180: 22 3B 4E 24 00 AF 09 C8 00 85 22 49 4E 50 55 54 |";N$......"INPUT|
00000190: 20 42 49 52 54 48 44 41 59 20 20 20 4D 4D 2C 44 | BIRTHDAY MM,D|
000001A0: 44 2C 59 59 20 22 3B 4D 42 2C 44 42 2C 59 42 00 |D,YY ";MB,DB,YB.|
000001B0: B8 09 D2 00 54 42 B2 30 00 C4 09 DC 00 54 31 B2 |....TB.0.....T1.|
000001C0: 59 42 AD 34 00 D2 09 E6 00 8B 4D 42 B3 32 A7 32 |YB.4......MB.2.2|
000001D0: 38 30 00 E0 09 F0 00 81 49 B2 31 A4 4D 42 AB 31 |80......I.1.MB.1|
000001E0: 00 F0 09 FA 00 54 42 B2 54 42 AA 4D 25 28 49 29 |.....TB.TB.M%(I)|
000001F0: 00 F6 09 04 01 82 00 16 0A 0E 01 8B 28 54 31 B3 |............(T1.|
00000200: B1 B5 28 54 31 29 29 AF 28 4D 42 B1 32 29 A7 54 |..(T1)).(MB.2).T|
00000210: 42 B2 54 42 AA 31 00 30 0A 18 01 54 42 B2 54 42 |B.TB.1.0...TB.TB|
00000220: AA 33 36 35 AC 59 42 AA B5 28 54 31 29 AA 44 42 |.365.YB..(T1).DB|
00000230: 00 5C 0A 22 01 85 22 05 49 4E 50 55 54 20 53 54 |.\."..".INPUT ST|
00000240: 41 52 54 20 44 41 54 45 20 4D 4D 2C 44 44 2C 59 |ART DATE MM,DD,Y|
00000250: 59 20 22 3B 4D 53 2C 44 53 2C 59 53 00 65 0A 2C |Y ";MS,DS,YS.e.,|
00000260: 01 54 53 B2 30 00 71 0A 36 01 54 31 B2 59 53 AD |.TS.0.q.6.T1.YS.|
00000270: 34 00 7F 0A 40 01 8B 4D 53 B3 32 A7 33 37 30 00 |4...@..MS.2.370.|
00000280: 8D 0A 4A 01 81 49 B2 31 A4 4D 53 AB 31 00 9D 0A |..J..I.1.MS.1...|
00000290: 54 01 54 53 B2 54 53 AA 4D 25 28 49 29 00 A3 0A |T.TS.TS.M%(I)...|
000002A0: 5E 01 82 00 C3 0A 68 01 8B 28 54 31 B3 B1 B5 28 |^.....h..(T1...(|
000002B0: 54 31 29 29 AF 28 4D 53 B1 32 29 A7 54 53 B2 54 |T1)).(MS.2).TS.T|
000002C0: 53 AA 31 00 DD 0A 72 01 54 53 B2 54 53 AA 33 36 |S.1...r.TS.TS.36|
000002D0: 35 AC 59 53 AA B5 28 54 31 29 AA 44 53 00 EA 0A |5.YS..(T1).DS...|
000002E0: 7C 01 54 54 B2 54 53 AB 54 42 00 05 0B 86 01 50 ||.TT.TS.TB.....P|
000002F0: 53 B2 32 33 AC 28 54 54 AD 32 33 AB B5 28 54 54 |S.23.(TT.23..(TT|
00000300: AD 32 33 29 29 00 20 0B 90 01 45 53 B2 32 38 AC |.23)). ...ES.28.|
00000310: 28 54 54 AD 32 38 AB B5 28 54 54 AD 32 38 29 29 |(TT.28..(TT.28))|
00000320: 00 3B 0B 9A 01 49 53 B2 33 33 AC 28 54 54 AD 33 |.;...IS.33.(TT.3|
00000330: 33 AB B5 28 54 54 AD 33 33 29 29 00 44 0B A4 01 |3..(TT.33)).D...|
00000340: 8D 35 38 30 00 50 0B AE 01 81 49 B2 30 A4 33 38 |.580.P....I.0.38|
00000350: 00 6D 0B B8 01 50 B2 38 AA 38 AC BF 28 28 50 53 |.m...P.8.8..((PS|
00000360: AA 49 29 AC 50 49 AD 32 33 29 AA 2E 35 00 8E 0B |.I).PI.23)..5...|
00000370: C2 01 99 22 13 22 C8 28 52 24 2C 49 AA 31 29 3B |...".".(R$,I.1);|
00000380: C8 28 44 24 2C 50 AA 32 29 3B 22 9F D7 22 00 94 |.(D$,P.2);".."..|
00000390: 0B CC 01 82 00 A0 0B D6 01 81 49 B2 31 A4 33 38 |..........I.1.38|
000003A0: 00 BD 0B E0 01 45 B2 38 AA 38 AC BF 28 28 45 53 |.....E.8.8..((ES|
000003B0: AA 49 29 AC 50 49 AD 32 38 29 AA 2E 35 00 DE 0B |.I).PI.28)..5...|
000003C0: EA 01 99 22 13 22 C8 28 52 24 2C 49 AA 31 29 3B |...".".(R$,I.1);|
000003D0: C8 28 44 24 2C 45 AA 32 29 3B 22 9E D1 22 00 E4 |.(D$,E.2);".."..|
000003E0: 0B F4 01 82 00 F0 0B FE 01 81 49 B2 31 A4 33 38 |..........I.1.38|
000003F0: 00 0E 0C 08 02 49 54 B2 38 AA 38 AC BF 28 28 49 |.....IT.8.8..((I|
00000400: 53 AA 49 29 AC 50 49 AD 33 33 29 AA 2E 35 00 30 |S.I).PI.33)..5.0|
00000410: 0C 12 02 99 22 13 22 C8 28 52 24 2C 49 AA 31 29 |....".".(R$,I.1)|
00000420: 3B C8 28 44 24 2C 49 54 AA 32 29 3B 22 1C 2A 22 |;.(D$,IT.2);".*"|
00000430: 00 36 0C 1C 02 82 00 49 0C 26 02 A1 41 24 3A 8B |.6.....I.&..A$:.|
00000440: 41 24 B2 22 22 A7 35 35 30 00 94 0C 30 02 99 22 |A$."".550...0.."|
00000450: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000460: 11 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 |........ |
00000470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000490: 91 91 91 22 00 9D 0C 3A 02 89 32 39 30 00 A7 0C |..."...:..290...|
000004A0: 44 02 99 22 93 22 3B 00 CB 0C 4E 02 99 22 42 49 |D..".";...N.."BI|
000004B0: 4F 52 48 59 54 48 4D 4E 20 46 4F 52 20 12 22 4E |ORHYTHMN FOR ."N|
000004C0: 24 22 92 20 42 4F 52 4E 20 22 3B 00 F2 0C 58 02 |$". BORN ";...X.|
000004D0: 99 4D 24 28 4D 42 29 3B 44 42 3B 22 9D 2C 31 39 |.M$(MB);DB;".,19|
000004E0: 22 3B CA 28 C4 28 59 42 AD 48 AA 46 29 2C 33 2C |";.(.(YB.H.F),3,|
000004F0: 32 29 00 21 0D 62 02 99 22 B0 B2 B2 B2 B2 B2 B2 |2).!.b..".......|
00000500: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000510: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 AE |................|
00000520: 22 00 2C 0D 6C 02 81 49 B2 31 A4 38 00 5B 0D 76 |".,.l..I.1.8.[.v|
00000530: 02 99 22 AB 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD |..". . . . . . .|
00000540: 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD | . . . . . . . .|
00000550: 20 DD 20 DD 20 DD 20 DD 20 B3 22 00 61 0D 80 02 | . . . . .".a...|
00000560: 82 00 90 0D 8A 02 99 22 AB C0 DB C0 DB C0 DB C0 |......."........|
00000570: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 |................|
00000580: DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 DB C0 B3 22 |..............."|
00000590: 00 9B 0D 94 02 81 49 B2 31 A4 38 00 CA 0D 9E 02 |......I.1.8.....|
000005A0: 99 22 AB 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 |.". . . . . . . |
000005B0: DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 DD 20 |. . . . . . . . |
000005C0: DD 20 DD 20 DD 20 DD 20 B3 22 00 D0 0D A8 02 82 |. . . . ."......|
000005D0: 00 FF 0D B2 02 99 22 AD B1 B1 B1 B1 B1 B1 B1 B1 |......".........|
000005E0: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 |................|
000005F0: B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 B1 BD 22 00 |..............".|
00000600: 15 0E BC 02 4D 44 B2 4D 53 3A 44 31 B2 44 53 3A |....MD.MS:D1.DS:|
00000610: 59 44 B2 59 53 00 21 0E C6 02 81 49 B2 30 A4 33 |YD.YS.!....I.0.3|
00000620: 38 00 3D 0E D0 02 8B 49 AD 32 B3 B1 B5 28 49 AD |8.=....I.2...(I.|
00000630: 32 29 A7 99 22 1D 22 3B 3A 89 37 39 30 00 4A 0E |2)..".";:.790.J.|
00000640: DA 02 41 24 B2 C4 28 44 31 29 00 67 0E E4 02 8B |..A$..(D1).g....|
00000650: C3 28 41 24 29 B3 33 A7 42 24 B2 C9 28 41 24 2C |.(A$).3.B$..(A$,|
00000660: 31 29 3A 89 37 36 30 00 89 0E EE 02 42 24 B2 CA |1):.760.....B$..|
00000670: 28 41 24 2C 32 2C 31 29 AA 22 11 9D 22 AA C9 28 |(A$,2,1).".."..(|
00000680: 41 24 2C 31 29 AA 22 91 22 00 92 0E F8 02 99 42 |A$,1)."."......B|
00000690: 24 3B 00 A5 0E 02 03 43 24 B2 22 92 9D 9D 9D 9D |$;.....C$.".....|
000006A0: 9D 9D 9D 91 22 00 DE 0E 0C 03 8B 28 44 31 B2 31 |...."......(D1.1|
000006B0: 29 B0 28 44 31 B2 32 29 A7 99 22 9D 11 12 22 4D |).(D1.2).."..."M|
000006C0: 24 28 4D 44 29 22 20 31 39 22 CA 28 C4 28 59 44 |$(MD)" 19".(.(YD|
000006D0: AD 48 AA 46 29 2C 33 2C 32 29 3B 43 24 3B 00 EA |.H.F),3,2);C$;..|
000006E0: 0E 16 03 44 31 B2 44 31 AA 31 00 FE 0E 20 03 8B |...D1.D1.1... ..|
000006F0: 44 31 B3 B2 4D 25 28 4D 44 29 A7 38 35 30 00 0D |D1..M%(MD).850..|
00000700: 0F 2A 03 8B 4D 44 B3 B1 32 A7 38 34 30 00 24 0F |.*..MD..2.840.$.|
00000710: 34 03 8B 59 44 AD 34 B3 B1 B5 28 59 44 AD 34 29 |4..YD.4...(YD.4)|
00000720: A7 38 34 30 00 33 0F 3E 03 8B 44 31 B3 33 30 A7 |.840.3.>..D1.30.|
00000730: 38 35 30 00 58 0F 48 03 44 31 B2 31 3A 4D 44 B2 |850.X.H.D1.1:MD.|
00000740: 4D 44 AA 31 3A 8B 4D 44 B1 31 32 A7 4D 44 B2 31 |MD.1:.MD.12.MD.1|
00000750: 3A 59 44 B2 59 44 AA 31 00 5E 0F 52 03 82 00 9A |:YD.YD.1.^.R....|
00000760: 0F 5C 03 99 22 11 11 22 3A 99 22 50 48 59 53 49 |.\.."..":."PHYSI|
00000770: 43 41 4C 3D 9F D7 05 20 20 45 4D 4F 54 49 4F 4E |CAL=... EMOTION|
00000780: 41 4C 3D 9E D1 05 20 20 49 4E 54 45 4C 4C 45 43 |AL=... INTELLEC|
00000790: 54 55 41 4C 3D 1C 2A 05 22 3B 00 B7 0F 66 03 43 |TUAL=.*.";...f.C|
000007A0: 24 B2 22 55 50 20 20 20 20 20 43 52 49 54 20 20 |$."UP CRIT |
000007B0: 20 20 20 44 57 4E 22 00 C4 0F 70 03 99 22 13 11 | DWN"...p.."..|
000007C0: 11 9D 22 3B 00 D3 0F 7A 03 81 49 B2 31 A4 C3 28 |..";...z..I.1..(|
000007D0: 43 24 29 00 E7 0F 84 03 99 CA 28 43 24 2C 49 2C |C$).......(C$,I,|
000007E0: 31 29 22 11 9D 22 3B 00 ED 0F 8E 03 82 00 F3 0F |1)"..";.........|
000007F0: 98 03 8E 00 1C 10 A2 03 83 33 31 2C 32 38 2C 33 |.........31,28,3|
00000800: 31 2C 33 30 2C 33 31 2C 33 30 2C 33 31 2C 33 31 |1,30,31,30,31,31|
00000810: 2C 33 30 2C 33 31 2C 33 30 2C 33 31 00 69 10 AC |,30,31,30,31.i..|
00000820: 03 83 22 4A 41 4E 22 2C 22 46 45 42 22 2C 22 4D |.."JAN","FEB","M|
00000830: 41 52 22 2C 22 41 50 52 22 2C 22 4D 41 59 22 2C |AR","APR","MAY",|
00000840: 22 4A 55 4E 22 2C 22 4A 55 4C 22 2C 22 41 55 47 |"JUN","JUL","AUG|
00000850: 22 2C 22 53 45 50 22 2C 22 4F 43 54 22 2C 22 4E |","SEP","OCT","N|
00000860: 4F 56 22 2C 22 44 45 43 22 00 00 00 2F DE |OV","DEC".../. |
..6.... CONVERTED FROM PET TO COMMODORE
64BY RICK BEAM.Q.... MODIFIED SLIGHTLY B
Y DAVID BRADLEY - OCTOBER 4, 1983......G
(142):.G(8)...C..53281,0:.53280,0...D..
BIORHYTHMN 1.5...N.."..";.M.X.H.100.01:F
..001......M%(12),M$(12)......I.1.12:.M%
(I):.......I.1.12:.M$(I):..*. .D$.".....
.................".\...R$.".............
...........................".H...PI..2..
......"INPUT NAME PLEASE";N$...H.."INPUT
BIRTHDAY MM,DD,YY ";MB,DB,YB...R.TB.0
.D...T1.YB.4.R....MB.2.280......I.1.MB.1
.....TB.TB.M%(I)............(T1...(T1)).
(MB.2).TB.TB.1.0...TB.TB.365.YB..(T1).DB
.\."..".INPUT START DATE MM,DD,YY ";MS,D
S,YS.E.,.TS.0.Q.6.T1.YS.4..@..MS.2.370.
..J..I.1.MS.1...T.TS.TS.M%(I)...^...C.H.
.(T1...(T1)).(MS.2).TS.TS.1...R.TS.TS.36
5.YS..(T1).DS...|.TT.TS.TB.....PS.23.(TT
.23..(TT.23)). ...ES.28.(TT.28..(TT.28))
.;...IS.33.(TT.33..(TT.33)).D....580.P..
..I.0.38.M...P.8.8..((PS.I).PI.23)..5...
B.."."H(R$,I.1);H(D$,P.2);".W"...L... .V
..I.1.38.....E.8.8..((ES.I).PI.28)..5...
..."."H(R$,I.1);H(D$,E.2);".Q"..........
..I.1.38.....IT.8.8..((IS.I).PI.33)..5.0
...."."H(R$,I.1);H(D$,IT.2);".*".6.....I
.&..A$:.A$."".550...0.."................
........
..."...:..290...D..".";.K.N.."BI
ORHYTHMN FOR ."N$". BORN ";...X..M$(MB);
DB;".,19";J(D(YB.H.F),3,2).!.B..".......
................................".,.L..I
.1.8.[.V..". . . . . . . . . . . . . . .
. . . . .".A.........."................
......................."......I.1.8.J...
.". . . . . . . . . . . . . . . . . . .
.".P..........".........................
..............".....MD.MS:D1.DS:YD.YS.!.
F..I.0.38.=.P..I.2...(I.2)..".";:.790.J.
Z.A$.D(D1).G....C(A$).3.B$.I(A$,1):.760.
....B$.J(A$,2,1)."..".I(A$,1)."."......B
$;.....C$."........."......(D1.1).(D1.2)
.."..."M$(MD)" 19"J(D(YD.H.F),3,2);C$;..
...D1.D1.1... ..D1..M%(MD).850...*..MD..
2.840.$.4..YD.4...(YD.4).840.3.>..D1.30.
850.X.H.D1.1:MD.MD.1:.MD.12.MD.1:YD.YD.1
.^.R.....\.."..":."PHYSICAL=.W. EMOTION
AL=.Q. INTELLECTUAL=.*.";...F.C$."UP
CRIT DWN".D.P.."....";.S.Z..I.1.C(
C$)......J(C$,I,1)"..";.................
.31,28,31,30,31,30,31,31,30,31,30,31.I..
.."JAN","FEB","MAR","APR","MAY","JUN","J
UL","AUG","SEP","OCT","NOV","DEC".../.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL