00000000  0d 00 0a 0b d2 3d 26 33  30 33 41 0d 00 14 0b ee  |.....=&303A.....|
00000010  85 e5 8d 54 4a 40 0d 00  1e 0c 2a 46 58 32 30 30  |...TJ@....*FX200|
00000020  2c 32 0d 00 28 1d f4 20  4d 43 20 31 37 2f 36 2f  |,2..(.. MC 17/6/|
00000030  38 32 20 50 54 48 20 32  33 2f 31 31 2f 38 33 0d  |82 PTH 23/11/83.|
00000040  00 32 16 eb 36 3a f2 56  42 4c 45 3a f2 47 54 4d  |.2..6:.VBLE:.GTM|
00000050  3a f2 4d 4e 54 0d 00 3c  0b ee 85 e5 8d 54 7e 48  |:.MNT..<.....T~H|
00000060  0d 00 46 1f 49 24 3d 22  22 3a 49 49 24 3d 22 20  |..F.I$="":II$=" |
00000070  22 3a f2 4d 45 4e 55 3a  2a 46 58 31 35 2c 31 0d  |":.MENU:*FX15,1.|
00000080  00 50 64 f2 4f 46 46 3a  48 25 3d 91 2f 33 36 30  |.Pd.OFF:H%=./360|
00000090  30 30 30 83 32 34 3a 49  25 3d 91 2f 36 30 30 30  |000.24:I%=./6000|
000000a0  83 36 30 3a 4a 25 3d 91  2f 31 30 30 83 36 30 3a  |.60:J%=./100.60:|
000000b0  48 31 25 3d 48 25 3a 48  50 24 3d 22 61 6d 20 22  |H1%=H%:HP$="am "|
000000c0  3a e7 48 25 3e 31 31 48  50 24 3d 22 70 6d 20 22  |:.H%>11HP$="pm "|
000000d0  3a e7 52 25 80 48 25 3e  31 32 48 31 25 3d 48 25  |:.R%.H%>12H1%=H%|
000000e0  2d 31 32 0d 00 5a 72 40  25 3d 31 3a fb 30 3a fb  |-12..Zr@%=1:.0:.|
000000f0  31 32 39 3a 41 24 3d 22  20 22 2b c3 48 31 25 2b  |129:A$=" "+.H1%+|
00000100  22 3a 22 2b c2 22 30 30  22 2b c3 49 25 2c 32 29  |":"+."00"+.I%,2)|
00000110  2b 22 3a 22 2b c2 22 30  30 22 2b c3 4a 25 2c 32  |+":"+."00"+.J%,2|
00000120  29 2b 22 20 22 2b 48 50  24 3a f1 8a 31 32 2c 34  |)+" "+HP$:..12,4|
00000130  29 3b 89 28 a9 41 24 29  8a 31 32 2c 35 29 3b 41  |);.(.A$).12,5);A|
00000140  24 8a 31 32 2c 36 29 89  28 a9 41 24 29 3a fb 31  |$.12,6).(.A$):.1|
00000150  3a fb 31 32 38 0d 00 64  51 f1 8a 38 2c 31 39 29  |:.128..dQ..8,19)|
00000160  3b 3a 40 25 3d 32 3a f2  41 4c 4d 3a f2 4f 4e 3a  |;:@%=2:.ALM:.ON:|
00000170  49 24 3d bf 28 31 30 29  3a e7 49 24 3d 22 20 22  |I$=.(10):.I$=" "|
00000180  8c 54 32 25 3d 28 4f 3f  33 2d 31 30 30 29 2a 31  |.T2%=(O?3-100)*1|
00000190  30 30 2b 4f 3f 34 2d 31  30 30 3a 41 25 3d 31 30  |00+O?4-100:A%=10|
000001a0  3a e5 8d 44 46 40 0d 00  6e 10 e7 97 49 24 3d 2d  |:..DF@..n...I$=-|
000001b0  31 e5 8d 44 50 40 0d 00  78 2e e7 97 49 24 3c 3e  |1..DP@..x...I$<>|
000001c0  31 33 3a 49 49 24 3d 49  24 3a f2 4d 45 4e 55 3a  |13:II$=I$:.MENU:|
000001d0  f1 8a 38 2c 31 39 29 49  49 24 3b 3a ef 38 3a e5  |..8,19)II$;:.8:.|
000001e0  8d 44 50 40 0d 00 82 1a  e7 49 49 24 3d 22 44 22  |.DP@.....II$="D"|
000001f0  84 49 49 24 3d 22 64 22  f2 44 50 41 47 45 0d 00  |.II$="d".DPAGE..|
00000200  8c 18 e7 49 49 24 3d 22  4d 22 84 49 49 24 3d 22  |...II$="M".II$="|
00000210  6d 22 f2 4d 4e 54 0d 00  96 18 e7 49 49 24 3d 22  |m".MNT.....II$="|
00000220  50 22 84 49 49 24 3d 22  70 22 f2 50 52 54 0d 00  |P".II$="p".PRT..|
00000230  a0 18 e7 49 49 24 3d 22  43 22 84 49 49 24 3d 22  |...II$="C".II$="|
00000240  63 22 f2 43 4f 4d 0d 00  aa 09 e5 8d 44 46 40 0d  |c".COM......DF@.|
00000250  00 b4 2a dd f2 41 4c 4d  3a 24 44 3d 54 24 3a 44  |..*..ALM:$D=T$:D|
00000260  3f 33 3d 31 30 30 2b 48  25 3a 46 3d 4b 4b 3a 56  |?3=100+H%:F=KK:V|
00000270  25 3d 34 3a 4e 24 3d 24  44 0d 00 be 38 f2 4b 45  |%=4:N$=$D...8.KE|
00000280  59 3a e7 45 25 3d 31 80  28 4f 3f 33 2d 31 30 30  |Y:.E%=1.(O?3-100|
00000290  29 2a 31 30 30 2b 28 4f  3f 34 2d 31 30 30 29 3c  |)*100+(O?4-100)<|
000002a0  3d 54 32 25 20 46 3d 46  2b 3f 46 3a e5 8d 74 7e  |=T2% F=F+?F:..t~|
000002b0  40 0d 00 c8 68 e7 45 25  3d 31 80 4f 3f 34 2d 31  |@...h.E%=1.O?4-1|
000002c0  30 30 3c 3d 49 25 f2 4f  46 46 3a fb 30 3a fb 31  |00<=I%.OFF:.0:.1|
000002d0  32 39 3a 41 25 3d 41 25  2b 35 3a d4 31 2c 2d 31  |29:A%=A%+5:.1,-1|
000002e0  35 2c 41 25 2c 35 3a f2  43 53 4c 3a f1 8a 32 2c  |5,A%,5:.CSL:..2,|
000002f0  32 32 29 4f 3f 33 2d 31  30 30 22 2e 22 4f 3f 34  |22)O?3-100"."O?4|
00000300  2d 31 30 30 22 20 22 24  28 4f 2b 36 29 3a fb 31  |-100" "$(O+6):.1|
00000310  3a fb 31 32 38 3a f2 4f  4e 0d 00 d2 05 e1 0d 00  |:.128:.ON.......|
00000320  dc 32 dd f2 44 50 41 47  45 3a f2 54 49 54 4c 45  |.2..DPAGE:.TITLE|
00000330  3a f1 8a 38 2c 39 29 22  44 61 79 2d 74 6f 2d 64  |:..8,9)"Day-to-d|
00000340  61 79 3a 22 3b 3a 24 44  3d 54 24 3a f2 44 41 54  |ay:";:$D=T$:.DAT|
00000350  0d 00 e6 7e 42 24 3d 24  44 3a f2 57 4b 44 41 59  |...~B$=$D:.WKDAY|
00000360  3a f2 54 49 54 4c 45 3a  40 25 3d 32 3a ef 31 31  |:.TITLE:@%=2:.11|
00000370  3a fb 30 3a fb 31 32 39  3a f1 22 20 22 44 41 59  |:.0:.129:." "DAY|
00000380  24 28 59 25 29 8a 31 35  29 44 3f 32 22 20 22 4d  |$(Y%).15)D?2" "M|
00000390  4d 24 28 32 35 35 2d 44  3f 31 29 8a 33 34 29 22  |M$(255-D?1).34)"|
000003a0  31 39 22 32 35 35 2d 3f  44 22 20 22 27 3a 44 25  |19"255-?D" "':D%|
000003b0  3d 30 3a 46 3d 4b 4b 3a  50 25 3d 30 3a 3f 44 3d  |=0:F=KK:P%=0:?D=|
000003c0  30 3a 56 25 3d 33 3a fb  31 3a fb 31 32 38 0d 00  |0:V%=3:.1:.128..|
000003d0  f0 23 40 25 3d 32 3a f2  4b 45 59 3a e7 45 25 3e  |.#@%=2:.KEY:.E%>|
000003e0  31 80 3f 44 3d 30 24 44  3d 42 24 3a e5 8d 64 70  |1.?D=0$D=B$:..dp|
000003f0  40 0d 00 fa 0e e7 45 25  3e 31 e5 8d 44 40 41 0d  |@.....E%>1..D@A.|
00000400  01 04 34 44 25 3d 44 25  2b 31 3a e7 4f 3f 33 3d  |..4D%=D%+1:.O?3=|
00000410  30 f1 22 20 22 44 25 22  20 20 20 20 20 20 20 22  |0." "D%"       "|
00000420  24 28 4f 2b 36 29 3a 46  3d 46 2b 3f 46 3a e5 8d  |$(O+6):F=F+?F:..|
00000430  64 70 40 0d 01 0e 11 fb  30 3a fb 31 32 39 3a f1  |dp@.....0:.129:.|
00000440  22 20 22 3b 0d 01 18 33  f1 44 25 3b 3a e7 4f 3f  |" ";...3.D%;:.O?|
00000450  33 3d 31 39 39 f1 22 20  2d 2d 2d 2d 2d 20 22 24  |3=199." ----- "$|
00000460  28 4f 2b 36 29 89 28 33  39 2d b1 29 3a 50 25 3d  |(O+6).(39-.):P%=|
00000470  31 3a e5 8d 44 40 41 0d  01 22 26 f1 22 20 22 4f  |1:..D@A.."&." "O|
00000480  3f 33 2d 31 30 30 22 3a  22 3b 3a e7 4f 3f 34 3c  |?3-100":";:.O?4<|
00000490  31 31 30 f1 22 30 22 3b  3a 40 25 3d 31 0d 01 2c  |110."0";:@%=1..,|
000004a0  29 f1 4f 3f 34 2d 31 30  30 22 20 22 24 28 4f 2b  |).O?4-100" "$(O+|
000004b0  36 29 89 28 33 39 2d b1  29 3a 46 3d 46 2b 3f 46  |6).(39-.):F=F+?F|
000004c0  3a e5 8d 64 70 40 0d 01  36 0b fb 31 3a fb 31 32  |:..dp@..6..1:.12|
000004d0  38 0d 01 40 0b 2a 46 58  31 35 2c 31 0d 01 4a 08  |8..@.*FX15,1..J.|
000004e0  fb 31 32 39 0d 01 54 48  f1 8a 30 2c 32 31 29 3b  |.129..TH..0,21);|
000004f0  89 33 39 3a fb 31 3a fb  31 32 38 3a f1 22 20 45  |.39:.1:.128:." E|
00000500  6e 74 65 72 20 61 63 74  69 6f 6e 28 49 2f 44 29  |nter action(I/D)|
00000510  2c 6f 72 20 70 61 67 65  28 42 2f 46 29 22 3b 3a  |,or page(B/F)";:|
00000520  49 25 3d a5 3a e7 49 25  3d 31 33 e1 0d 01 5e 0d  |I%=.:.I%=13...^.|
00000530  49 25 3d 49 25 80 26 44  46 0d 01 68 14 e7 49 25  |I%=I%.&DF..h..I%|
00000540  3d 36 36 f2 53 55 42 3a  e5 8d 64 66 40 0d 01 72  |=66.SUB:..df@..r|
00000550  15 e7 49 25 3d 37 30 f2  50 4c 55 53 3a e5 8d 64  |..I%=70.PLUS:..d|
00000560  66 40 0d 01 7c 19 ef 49  25 3a e7 a5 3c 3e 31 33  |f@..|..I%:..<>13|
00000570  8c ef 31 32 37 3a e5 8d  44 40 41 0d 01 86 1a e7  |..127:..D@A.....|
00000580  49 25 3d 36 38 f2 44 45  4c 3a 24 44 3d 42 24 3a  |I%=68.DEL:$D=B$:|
00000590  e5 8d 64 66 40 0d 01 90  1a e7 49 25 3d 37 33 f2  |..df@.....I%=73.|
000005a0  41 44 44 3a 24 44 3d 42  24 3a e5 8d 64 66 40 0d  |ADD:$D=B$:..df@.|
000005b0  01 9a 09 e5 8d 44 40 41  0d 01 a4 37 dd f2 41 44  |.....D@A...7..AD|
000005c0  44 3a 55 25 3d 31 3a 42  25 3d 31 3a e7 44 25 3d  |D:U%=1:B%=1:.D%=|
000005d0  31 36 f2 50 47 28 32 32  2c 22 44 61 79 20 66 75  |16.PG(22,"Day fu|
000005e0  6c 6c 79 20 62 6f 6f 6b  65 64 20 20 22 3a e1 0d  |lly booked  ":..|
000005f0  01 ae 49 44 25 3d 3f 44  3a 56 25 3d 35 3a e7 20  |..ID%=?D:V%=5:. |
00000600  4c 41 53 54 2b 35 30 3e  48 49 47 48 20 f2 50 47  |LAST+50>HIGH .PG|
00000610  28 32 34 2c 22 20 46 75  6c 6c 20 66 69 6c 65 2d  |(24," Full file-|
00000620  64 61 74 61 20 77 69 6c  6c 20 64 72 6f 70 20 6f  |data will drop o|
00000630  66 66 20 65 6e 64 22 29  0d 01 b8 43 f1 8a 31 2c  |ff end")...C..1,|
00000640  32 32 29 22 41 70 70 6f  69 6e 74 6d 65 6e 74 2f  |22)"Appointment/|
00000650  52 65 6d 69 6e 64 65 72  2f 55 6e 61 76 61 69 6c  |Reminder/Unavail|
00000660  61 62 6c 65 20 22 3b 3a  f2 4f 4e 3a e8 22 3a 22  |able ";:.ON:.":"|
00000670  49 24 3a e7 97 49 24 3d  2d 31 e1 0d 01 c2 13 49  |I$:..I$=-1.....I|
00000680  24 3d bd 28 97 49 24 20  80 20 26 44 46 29 0d 01  |$=.(.I$ . &DF)..|
00000690  cc 11 e7 49 24 3c 3e 22  52 22 e5 8d 64 7e 41 0d  |...I$<>"R"..d~A.|
000006a0  01 d6 56 44 3f 33 3d 30  3a 44 3f 34 3d 30 3a f1  |..VD?3=0:D?4=0:.|
000006b0  8a 31 2c 32 32 29 89 33  38 8a 31 2c 32 32 29 22  |.1,22).38.1,22)"|
000006c0  48 6f 77 20 6d 61 6e 79  20 6f 63 63 75 72 72 65  |How many occurre|
000006d0  6e 63 65 73 22 3b 3a e8  22 3a 22 49 24 3a 55 25  |nces";:.":"I$:U%|
000006e0  3d bb 49 24 3a e7 55 25  3c 31 84 55 25 3e 32 35  |=.I$:.U%<1.U%>25|
000006f0  e5 8d 64 56 41 0d 01 e0  0d e7 55 25 3d 31 3f 44  |..dVA.....U%=1?D|
00000700  3d 30 0d 01 ea 55 e7 55  25 3e 31 f1 8a 31 2c 32  |=0...U.U%>1..1,2|
00000710  32 29 89 33 38 8a 31 2c  32 32 29 22 48 6f 77 20  |2).38.1,22)"How |
00000720  6d 61 6e 79 20 64 61 79  73 20 62 65 74 77 65 65  |many days betwee|
00000730  6e 20 65 61 63 68 22 3b  3a e8 22 3a 22 49 24 3a  |n each";:.":"I$:|
00000740  50 25 3d bb 49 24 3a e7  50 25 3c 31 84 50 25 3e  |P%=.I$:.P%<1.P%>|
00000750  33 30 e5 8d 64 6a 41 0d  01 f4 09 e5 8d 44 44 42  |30..djA......DDB|
00000760  0d 01 fe 33 e7 50 25 8c  f2 50 47 28 32 32 2c 22  |...3.P%..PG(22,"|
00000770  4e 6f 20 66 75 72 74 68  65 72 20 61 70 70 6f 69  |No further appoi|
00000780  6e 74 6d 65 6e 74 73 20  74 6f 64 61 79 20 20 22  |ntments today  "|
00000790  29 3a e1 0d 02 08 20 e7  49 24 3d 22 55 22 44 3f  |):.... .I$="U"D?|
000007a0  33 3d 31 39 39 3a 44 3f  34 3d 31 39 39 3a e5 8d  |3=199:D?4=199:..|
000007b0  44 44 42 0d 02 12 11 e7  49 24 3c 3e 22 41 22 e5  |DDB.....I$<>"A".|
000007c0  8d 74 78 41 0d 02 1c 50  f1 8a 31 2c 32 32 29 89  |.txA...P..1,22).|
000007d0  33 38 8a 31 2c 32 32 29  22 54 69 6d 65 20 6f 66  |38.1,22)"Time of|
000007e0  20 61 70 70 6f 69 6e 74  6d 65 6e 74 28 68 6f 75  | appointment(hou|
000007f0  72 73 29 3a 22 3b 3a e8  22 22 49 24 3a 49 25 3d  |rs):";:.""I$:I%=|
00000800  bb 49 24 3a e7 49 25 3c  31 84 49 25 3e 32 33 e5  |.I$:.I%<1.I%>23.|
00000810  8d 54 5c 42 0d 02 26 4f  f1 8a 31 2c 32 32 29 89  |.T\B..&O..1,22).|
00000820  33 38 8a 31 2c 32 32 29  22 54 69 6d 65 20 6f 66  |38.1,22)"Time of|
00000830  20 61 70 70 6f 69 6e 74  6d 65 6e 74 28 6d 69 6e  | appointment(min|
00000840  73 29 3a 22 3b 3a e8 22  22 49 24 3a 4a 25 3d bb  |s):";:.""I$:J%=.|
00000850  49 24 3a e7 4a 25 3c 30  84 4a 25 3e 35 39 e5 8d  |I$:.J%<0.J%>59..|
00000860  54 66 42 0d 02 30 13 e7  52 25 80 49 25 3c 31 33  |TfB..0..R%.I%<13|
00000870  f2 41 4d 28 31 29 0d 02  3a 19 44 3f 33 3d 49 25  |.AM(1)..:.D?3=I%|
00000880  2b 31 30 30 3a 44 3f 34  3d 4a 25 2b 31 30 30 0d  |+100:D?4=J%+100.|
00000890  02 44 4c fb 31 32 39 3a  f1 8a 30 2c 32 32 29 89  |.DL.129:..0,22).|
000008a0  33 39 8a 30 2c 32 33 29  89 33 39 3a fb 31 32 38  |39.0,23).39:.128|
000008b0  3a f1 8a 32 2c 32 32 29  22 20 54 45 58 54 20 22  |:..2,22)" TEXT "|
000008c0  3b bd 39 3b 3a 4c 25 3d  32 39 3a f2 47 45 54 3a  |;.9;:L%=29:.GET:|
000008d0  e7 a9 43 24 3c 31 e5 8d  44 44 42 0d 02 4e 08 f2  |..C$<1..DDB..N..|
000008e0  4f 46 46 0d 02 58 8c 46  3d 4b 4b 3a f2 4b 45 59  |OFF..X.F=KK:.KEY|
000008f0  3a 4c 25 3d 38 2b a9 43  24 3a 4e 25 3d 4c 25 83  |:L%=8+.C$:N%=L%.|
00000900  34 3a 4c 25 3d 4c 25 2b  34 2d 4e 25 3a f2 46 57  |4:L%=L%+4-N%:.FW|
00000910  44 3a 3f 46 3d 4c 25 3a  46 3d 46 2b 31 3a e3 4a  |D:?F=L%:F=F+1:.J|
00000920  25 3d 30 b8 35 3a 46 3f  4a 25 3d 44 3f 4a 25 3a  |%=0.5:F?J%=D?J%:|
00000930  ed 3a 46 3d 46 2b 36 3a  24 46 3d 43 24 3a e7 55  |.:F=F+6:$F=C$:.U|
00000940  25 3c 3e 42 25 20 3f 44  3d 44 25 3a e3 49 3d 31  |%<>B% ?D=D%:.I=1|
00000950  b8 50 25 3a f2 50 4c 55  53 3a ed 3a 44 25 3d 3f  |.P%:.PLUS:.:D%=?|
00000960  44 3a 42 25 3d 42 25 2b  31 3a e5 8d 44 58 42 0d  |D:B%=B%+1:..DXB.|
00000970  02 62 0f f2 4f 4e 3a f2  46 53 4e 44 3a e1 0d 02  |.b..ON:.FSND:...|
00000980  6c 4c dd f2 44 45 4c 20  f1 8a 31 2c 32 32 29 89  |lL..DEL ..1,22).|
00000990  33 38 8a 31 2c 32 32 29  22 45 6e 74 65 72 20 6c  |38.1,22)"Enter l|
000009a0  69 6e 65 20 6e 6f 20 74  6f 20 62 65 20 64 65 6c  |ine no to be del|
000009b0  65 74 65 64 22 3b 3a e8  22 3a 22 49 25 3a e7 49  |eted";:.":"I%:.I|
000009c0  25 3c 31 84 49 25 3e 44  25 e1 0d 02 76 22 42 24  |%<1.I%>D%...v"B$|
000009d0  3d 24 44 3a 44 25 3d 31  3a 46 3d 4b 4b 3a 50 25  |=$D:D%=1:F=KK:P%|
000009e0  3d 30 3a 3f 44 3d 30 3a  56 25 3d 33 0d 02 80 1e  |=0:?D=0:V%=3....|
000009f0  f2 4b 45 59 3a e7 45 25  3e 31 80 3f 44 3d 30 24  |.KEY:.E%>1.?D=0$|
00000a00  44 3d 42 24 3a e5 8d 74  40 42 0d 02 8a 1f e7 44  |D=B$:..t@B.....D|
00000a10  25 3c 49 25 20 46 3d 46  2b 3f 46 3a 44 25 3d 44  |%<I% F=F+?F:D%=D|
00000a20  25 2b 31 3a e5 8d 74 40  42 0d 02 94 10 4c 25 3d  |%+1:..t@B....L%=|
00000a30  3f 46 3a f2 42 57 44 3a  e1 0d 02 9e 31 dd f2 50  |?F:.BWD:....1..P|
00000a40  4c 55 53 3a 4a 25 3d 32  35 35 2d 44 3f 31 3a e7  |LUS:J%=255-D?1:.|
00000a50  4a 25 3d 32 80 44 3f 32  3d 32 39 44 3f 32 3d 31  |J%=2.D?2=29D?2=1|
00000a60  3a 44 3f 31 3d 32 35 32  3a e1 0d 02 a8 2d e7 4a  |:D?1=252:....-.J|
00000a70  25 3d 32 80 44 3f 32 3d  32 38 80 28 32 35 35 2d  |%=2.D?2=28.(255-|
00000a80  3f 44 29 83 34 3e 30 8c  44 3f 32 3d 31 3a 44 3f  |?D).4>0.D?2=1:D?|
00000a90  31 3d 32 35 32 3a e1 0d  02 b2 2a e7 44 3f 32 3d  |1=252:....*.D?2=|
00000aa0  33 31 80 44 3f 31 3d 32  34 33 44 3f 32 3d 31 3a  |31.D?1=243D?2=1:|
00000ab0  44 3f 31 3d 32 35 34 3a  3f 44 3d 3f 44 2d 31 3a  |D?1=254:?D=?D-1:|
00000ac0  e1 0d 02 bc 1c e7 44 3f  32 3d 33 31 44 3f 32 3d  |......D?2=31D?2=|
00000ad0  31 3a 44 3f 31 3d 44 3f  31 2d 31 3a e1 0d 02 c6  |1:D?1=D?1-1:....|
00000ae0  32 e7 4a 25 3d 34 84 4a  25 3d 36 84 4a 25 3d 39  |2.J%=4.J%=6.J%=9|
00000af0  84 4a 25 3d 31 31 e7 44  3f 32 3d 33 30 20 44 3f  |.J%=11.D?2=30 D?|
00000b00  32 3d 31 3a 44 3f 31 3d  44 3f 31 2d 31 3a e1 0d  |2=1:D?1=D?1-1:..|
00000b10  02 d0 0f 44 3f 32 3d 44  3f 32 2b 31 3a e1 0d 02  |...D?2=D?2+1:...|
00000b20  da 1c dd f2 53 55 42 3a  e7 44 3f 32 3c 3e 31 44  |....SUB:.D?2<>1D|
00000b30  3f 32 3d 44 3f 32 2d 31  3a e1 0d 02 e4 33 4a 25  |?2=D?2-1:....3J%|
00000b40  3d 32 35 35 2d 44 3f 31  3a 44 3f 31 3d 44 3f 31  |=255-D?1:D?1=D?1|
00000b50  2b 31 3a e7 4a 25 3d 33  80 28 32 35 35 2d 3f 44  |+1:.J%=3.(255-?D|
00000b60  29 83 34 3d 30 44 3f 32  3d 32 39 3a e1 0d 02 ee  |).4=0D?2=29:....|
00000b70  11 e7 4a 25 3d 33 44 3f  32 3d 32 38 3a e1 0d 02  |..J%=3D?2=28:...|
00000b80  f8 22 e7 4a 25 3d 35 84  4a 25 3d 37 84 4a 25 3d  |.".J%=5.J%=7.J%=|
00000b90  31 30 84 4a 25 3d 31 32  44 3f 32 3d 33 30 3a e1  |10.J%=12D?2=30:.|
00000ba0  0d 03 02 20 44 3f 32 3d  33 31 3a e7 4a 25 3d 31  |... D?2=31:.J%=1|
00000bb0  3a 3f 44 3d 3f 44 2b 31  3a 44 3f 31 3d 32 34 33  |:?D=?D+1:D?1=243|
00000bc0  0d 03 0c 05 e1 0d 03 16  20 dd f2 43 53 4c 3a ef  |........ ..CSL:.|
00000bd0  32 38 2c 30 2c 32 33 2c  33 39 2c 32 31 2c 31 32  |28,0,23,39,21,12|
00000be0  2c 32 36 3a e1 0d 03 20  1f dd f2 4d 4e 54 3a 49  |,26:... ...MNT:I|
00000bf0  49 24 3d 22 20 22 3a ef  31 39 2c 31 2c 37 2c 30  |I$=" ":.19,1,7,0|
00000c00  2c 30 2c 30 0d 03 2a 4d  f2 54 49 54 4c 45 3a f1  |,0,0..*M.TITLE:.|
00000c10  8a 36 2c 38 29 22 49 20  20 20 20 20 49 6e 69 74  |.6,8)"I     Init|
00000c20  69 61 6c 69 73 65 20 6e  65 77 20 66 69 6c 65 22  |ialise new file"|
00000c30  3a f1 8a 36 2c 31 32 29  22 53 20 20 20 20 20 53  |:..6,12)"S     S|
00000c40  41 56 45 20 63 75 72 72  65 6e 74 20 66 69 6c 65  |AVE current file|
00000c50  22 0d 03 34 41 f1 8a 39  2c 35 29 22 46 69 6c 65  |"..4A..9,5)"File|
00000c60  20 4d 61 69 6e 74 65 6e  61 6e 63 65 22 8a 36 2c  | Maintenance".6,|
00000c70  31 34 29 22 52 20 20 20  20 20 52 65 73 74 61 72  |14)"R     Restar|
00000c80  74 20 6f 6e 20 70 72 65  73 65 6e 74 20 66 69 6c  |t on present fil|
00000c90  65 22 0d 03 3e 4c f1 8a  36 2c 31 30 29 22 4c 20  |e"..>L..6,10)"L |
00000ca0  20 20 20 20 4c 4f 41 44  20 6f 6c 64 20 66 69 6c  |    LOAD old fil|
00000cb0  65 22 8a 31 31 2c 31 38  29 22 59 6f 75 72 20 73  |e".11,18)"Your s|
00000cc0  65 6c 65 63 74 69 6f 6e  20 22 3a f2 4d 48 54 3a  |election ":.MHT:|
00000cd0  f1 8a 36 2c 31 38 29 49  49 24 3b 3a ef 38 0d 03  |..6,18)II$;:.8..|
00000ce0  48 21 f2 4f 4e 3a 49 24  3d be 3a e7 97 49 24 3c  |H!.ON:I$=.:..I$<|
00000cf0  3e 31 33 49 49 24 3d 49  24 3a e5 8d 54 6a 43 0d  |>13II$=I$:..TjC.|
00000d00  03 52 22 49 24 3d 49 49  24 3a e7 49 49 24 3c 3e  |.R"I$=II$:.II$<>|
00000d10  22 52 22 80 49 49 24 3c  3e 22 72 22 8c 8d 44 66  |"R".II$<>"r"..Df|
00000d20  43 0d 03 5c 3a e7 21 4c  41 53 54 3d 4c 31 20 8c  |C..\:.!LAST=L1 .|
00000d30  20 e1 3a 8b f2 50 47 28  32 34 2c 22 4e 6f 20 66  | .:..PG(24,"No f|
00000d40  69 6c 65 20 70 72 65 73  65 6e 74 22 29 3a 49 49  |ile present"):II|
00000d50  24 3d 22 20 22 3a e5 8d  54 6a 43 0d 03 66 5f e7  |$=" ":..TjC..f_.|
00000d60  49 24 3d 22 49 22 84 49  24 3d 22 69 22 8c 4c 41  |I$="I".I$="i".LA|
00000d70  53 54 3d 4b 4b 3a 21 4c  41 53 54 3d 4c 31 3a 4c  |ST=KK:!LAST=L1:L|
00000d80  41 53 54 21 34 3d 4c 32  3a 4b 4b 21 2d 34 3d 4c  |AST!4=L2:KK!-4=L|
00000d90  41 53 54 2d 44 42 41 53  45 3a f2 50 47 28 32 34  |AST-DBASE:.PG(24|
00000da0  2c 22 4e 65 77 20 66 69  6c 65 20 49 6e 69 74 69  |,"New file Initi|
00000db0  61 6c 69 73 65 64 22 29  3a e1 0d 03 70 60 f1 27  |alised"):...p`.'|
00000dc0  3a e7 49 24 3d 22 4c 22  84 49 24 3d 22 6c 22 8c  |:.I$="L".I$="l".|
00000dd0  f2 4f 53 43 4c 49 28 22  4c 4f 41 44 20 50 44 41  |.OSCLI("LOAD PDA|
00000de0  54 41 20 22 2b c3 7e 44  42 41 53 45 29 3a 4c 41  |TA "+.~DBASE):LA|
00000df0  53 54 3d 44 42 41 53 45  2b 4b 4b 21 2d 34 3a f2  |ST=DBASE+KK!-4:.|
00000e00  50 47 28 32 34 2c 22 4f  6c 64 20 66 69 6c 65 20  |PG(24,"Old file |
00000e10  4c 4f 41 44 65 64 22 29  3a e1 0d 03 7a 6f e7 49  |LOADed"):...zo.I|
00000e20  24 3d 22 53 22 84 49 24  3d 22 73 22 8c 4b 4b 21  |$="S".I$="s".KK!|
00000e30  2d 34 3d 4c 41 53 54 2d  44 42 41 53 45 3a f2 4f  |-4=LAST-DBASE:.O|
00000e40  53 43 4c 49 28 22 53 41  56 45 20 50 44 41 54 41  |SCLI("SAVE PDATA|
00000e50  20 22 2b c3 7e 44 42 41  53 45 2b 22 20 22 2b c3  | "+.~DBASE+" "+.|
00000e60  7e 28 4c 41 53 54 2b 38  29 29 3a f2 50 47 28 32  |~(LAST+8)):.PG(2|
00000e70  34 2c 22 43 75 72 72 65  6e 74 20 66 69 6c 65 20  |4,"Current file |
00000e80  53 41 56 45 64 22 29 3a  e1 0d 03 84 09 e5 8d 54  |SAVEd"):.......T|
00000e90  7e 43 0d 03 8e 34 dd f2  4f 53 43 4c 49 28 41 24  |~C...4..OSCLI(A$|
00000ea0  29 24 42 4c 4b 25 3d 41  24 3a 58 25 3d 42 4c 4b  |)$BLK%=A$:X%=BLK|
00000eb0  25 3a 59 25 3d 42 4c 4b  25 81 32 35 36 3a d6 26  |%:Y%=BLK%.256:.&|
00000ec0  46 46 46 37 3a e1 0d 03  98 2d dd f2 4d 48 54 3a  |FFF7:....-..MHT:|
00000ed0  ea 49 24 3a 49 24 3d bd  28 97 49 49 24 20 80 20  |.I$:I$=.(.II$ . |
00000ee0  26 44 46 29 3a 49 25 3d  a7 22 49 4c 53 52 22 2c  |&DF):I%=."ILSR",|
00000ef0  49 24 29 0d 03 a2 14 e7  49 25 8c f2 69 6e 76 28  |I$).....I%..inv(|
00000f00  36 2b 32 2a 49 25 29 0d  03 ac 05 e1 0d 03 b6 2a  |6+2*I%)........*|
00000f10  dd f2 50 52 54 3a f2 54  49 54 4c 45 3a f1 8a 38  |..PRT:.TITLE:..8|
00000f20  2c 38 29 22 50 6c 61 6e  20 61 68 65 61 64 3a 22  |,8)"Plan ahead:"|
00000f30  3a 24 44 3d 54 24 0d 03  c0 2e 49 25 3d a4 49 4e  |:$D=T$....I%=.IN|
00000f40  28 31 33 2c 22 45 6e 74  65 72 20 6d 6f 6e 74 68  |(13,"Enter month|
00000f50  20 22 29 3a e7 49 25 3d  2d 31 49 25 3d 32 35 35  | "):.I%=-1I%=255|
00000f60  2d 44 3f 31 0d 03 ca 33  56 25 3d 33 3a 44 25 3d  |-D?1...3V%=3:D%=|
00000f70  3f 44 3a 45 25 3d 32 35  35 2d 44 3f 31 3a e7 49  |?D:E%=255-D?1:.I|
00000f80  25 3c 32 35 35 2d 44 3f  31 20 44 25 3d 44 25 2d  |%<255-D?1 D%=D%-|
00000f90  31 3a 3f 44 3d 44 25 0d  03 d4 19 44 3f 31 3d 32  |1:?D=D%....D?1=2|
00000fa0  35 35 2d 49 25 3a 4e 24  3d 24 44 3a 46 3d 4b 4b  |55-I%:N$=$D:F=KK|
00000fb0  0d 03 de 20 db 3a f2 4d  54 48 3a f2 43 41 4c 3a  |... .:.MTH:.CAL:|
00000fc0  44 3f 32 3d 31 3a 3f 44  3d 30 3a 51 25 3d bc 3a  |D?2=1:?D=0:Q%=.:|
00000fd0  0d 03 e8 1f 3f 44 3d 30  3a f2 4b 45 59 3a e7 45  |....?D=0:.KEY:.E|
00000fe0  25 3e 31 80 44 3f 32 3e  33 31 e5 8d 54 5a 44 0d  |%>1.D?2>31..TZD.|
00000ff0  03 f2 19 e7 45 25 3e 31  44 3f 32 3d 44 3f 32 2b  |....E%>1D?2=D?2+|
00001000  31 3a e5 8d 64 68 43 20  0d 03 fc 4a 40 25 3d 32  |1:..dhC ...J@%=2|
00001010  3a 24 44 3d 24 4f 3a 3f  44 3d 44 25 3a f2 57 4b  |:$D=$O:?D=D%:.WK|
00001020  44 41 59 3a f1 c0 44 41  59 24 28 59 25 29 2c 33  |DAY:..DAY$(Y%),3|
00001030  29 22 20 22 4f 3f 32 22  20 22 24 28 4f 2b 36 29  |)" "O?2" "$(O+6)|
00001040  3a 46 3d 46 2b 3f 46 3a  e7 bc 3c 32 33 8c 8d 64  |:F=F+?F:..<23..d|
00001050  68 43 0d 04 06 32 f2 50  47 28 32 34 2c 22 20 20  |hC...2.PG(24,"  |
00001060  50 72 65 73 73 20 53 50  41 43 45 20 66 6f 72 20  |Press SPACE for |
00001070  6e 65 78 74 20 70 61 67  65 22 29 3a e7 97 49 24  |next page"):..I$|
00001080  3d 31 33 e1 0d 04 10 27  ef 32 38 2c 30 2c 32 34  |=13....'.28,0,24|
00001090  2c 33 39 2c 51 25 2c 31  32 2c 32 36 3a f1 8a 30  |,39,Q%,12,26:..0|
000010a0  2c 51 25 29 3b 3a e5 8d  64 68 43 0d 04 1a 1c f1  |,Q%);:..dhC.....|
000010b0  27 22 20 45 6e 64 20 6f  66 20 6d 6f 6e 74 68 22  |'" End of month"|
000010c0  3a 49 24 3d be 3a e1 0d  04 24 36 dd f2 43 41 4c  |:I$=.:...$6..CAL|
000010d0  3a e3 4a 25 3d 30 b8 34  32 3a 43 43 25 28 4a 25  |:.J%=0.42:CC%(J%|
000010e0  29 3d 30 3a ed 3a 40 25  3d 33 3a 47 25 3d 30 3a  |)=0:.:@%=3:G%=0:|
000010f0  e7 45 25 3d 49 25 20 47  25 3d 44 3f 32 0d 04 2e  |.E%=I% G%=D?2...|
00001100  34 44 3f 32 3d 31 3a f2  57 4b 44 41 59 3a 4b 25  |4D?2=1:.WKDAY:K%|
00001110  3d 33 31 3a e7 49 25 3d  32 4b 25 3d 32 38 3a e7  |=31:.I%=2K%=28:.|
00001120  28 32 35 35 2d 3f 44 29  83 34 3d 30 4b 25 3d 32  |(255-?D).4=0K%=2|
00001130  39 0d 04 38 1e e7 49 25  3d 34 84 49 25 3d 36 84  |9..8..I%=4.I%=6.|
00001140  49 25 3d 39 84 49 25 3d  31 31 4b 25 3d 33 30 0d  |I%=9.I%=11K%=30.|
00001150  04 42 0d e7 59 25 3d 30  59 25 3d 37 0d 04 4c 1e  |.B..Y%=0Y%=7..L.|
00001160  e3 4a 25 3d 31 b8 4b 25  3a 43 43 25 28 59 25 2b  |.J%=1.K%:CC%(Y%+|
00001170  4a 25 2d 31 29 3d 4a 25  3a ed 0d 04 56 49 f1 8a  |J%-1)=J%:...VI..|
00001180  37 2c 33 29 22 4d 6f 20  20 54 75 20 20 57 65 20  |7,3)"Mo  Tu  We |
00001190  20 54 68 20 20 46 72 20  20 53 61 20 20 53 75 22  | Th  Fr  Sa  Su"|
000011a0  3b 3a 4a 25 3d 31 3a e3  4b 25 3d 30 b8 35 3a e7  |;:J%=1:.K%=0.5:.|
000011b0  43 43 25 28 4a 25 29 3d  30 80 4b 25 3d 35 e5 8d  |CC%(J%)=0.K%=5..|
000011c0  74 52 44 0d 04 60 27 f1  27 22 20 20 20 20 20 22  |tRD..`'.'"     "|
000011d0  3b 3a e3 4c 25 3d 30 b8  36 3a e7 43 43 25 28 4a  |;:.L%=0.6:.CC%(J|
000011e0  25 29 3c 3d 30 e5 8d 44  74 44 0d 04 6a 44 f1 22  |%)<=0..DtD..jD."|
000011f0  20 22 3b 3a e7 43 43 25  28 4a 25 29 3d 47 25 3a  | ";:.CC%(J%)=G%:|
00001200  fb 30 3a fb 31 32 39 3a  f1 c4 33 2d a9 c3 43 43  |.0:.129:..3-..CC|
00001210  25 28 4a 25 29 2c bd 39  29 3b c3 43 43 25 28 4a  |%(J%),.9);.CC%(J|
00001220  25 29 3b 3a 8b f1 43 43  25 28 4a 25 29 3b 0d 04  |%);:..CC%(J%);..|
00001230  74 0b fb 31 3a fb 31 32  38 0d 04 7e 16 e7 43 43  |t..1:.128..~..CC|
00001240  25 28 4a 25 29 3d 30 f1  22 20 20 20 20 22 3b 0d  |%(J%)=0."    ";.|
00001250  04 88 0d 4a 25 3d 4a 25  2b 31 3a ed 0d 04 92 18  |...J%=J%+1:.....|
00001260  ed 3a fb 31 32 39 3a f1  27 27 89 34 30 3a fb 31  |.:.129:.''.40:.1|
00001270  32 38 3a e1 0d 04 9c 55  dd f2 44 41 59 50 28 4c  |28:....U..DAYP(L|
00001280  25 29 3a fb 31 3a fb 31  32 38 3a f2 57 4b 44 41  |%):.1:.128:.WKDA|
00001290  59 3a 40 25 3d 32 3a f1  8a 35 2c 4c 25 29 44 41  |Y:@%=2:..5,L%)DA|
000012a0  59 24 28 59 25 29 22 20  22 44 3f 32 22 20 22 4d  |Y$(Y%)" "D?2" "M|
000012b0  4d 24 28 32 35 35 2d 44  3f 31 29 22 20 20 31 39  |M$(255-D?1)"  19|
000012c0  22 32 35 35 2d 3f 44 3a  e1 0d 04 a6 58 dd f2 4d  |"255-?D:....X..M|
000012d0  45 4e 55 3a ea 61 25 2c  49 24 3a 49 24 3d bd 28  |ENU:.a%,I$:I$=.(|
000012e0  97 49 49 24 20 80 20 26  44 46 29 3a f2 4f 46 46  |.II$ . &DF):.OFF|
000012f0  3a db 3a ef 31 39 2c 31  2c 36 2c 30 2c 30 2c 30  |:.:.19,1,6,0,0,0|
00001300  3a 24 44 3d 54 24 3a f2  44 41 59 50 28 32 29 3a  |:$D=T$:.DAYP(2):|
00001310  61 25 3d a7 22 58 44 50  43 4d 22 2c 49 24 29 2d  |a%=."XDPCM",I$)-|
00001320  31 0d 04 b0 1a e7 61 25  3d 31 8c fb 31 32 39 3a  |1.....a%=1..129:|
00001330  fb 30 20 8b fb 31 3a fb  31 32 38 0d 04 ba 26 f1  |.0 ..1:.128...&.|
00001340  8a 30 2c 38 29 89 28 38  29 22 44 20 20 20 20 44  |.0,8).(8)"D    D|
00001350  61 79 2d 74 6f 2d 64 61  79 22 89 28 34 30 2d b1  |ay-to-day".(40-.|
00001360  29 0d 04 c4 1a e7 61 25  3d 32 8c fb 31 32 39 3a  |).....a%=2..129:|
00001370  fb 30 20 8b fb 31 3a fb  31 32 38 0d 04 ce 27 f1  |.0 ..1:.128...'.|
00001380  8a 30 2c 31 30 29 89 28  38 29 22 50 20 20 20 20  |.0,10).(8)"P    |
00001390  50 6c 61 6e 20 61 68 65  61 64 22 89 28 34 30 2d  |Plan ahead".(40-|
000013a0  b1 29 0d 04 d8 1a e7 61  25 3d 33 8c fb 31 32 39  |.).....a%=3..129|
000013b0  3a fb 30 20 8b fb 31 3a  fb 31 32 38 0d 04 e2 28  |:.0 ..1:.128...(|
000013c0  f1 8a 30 2c 31 32 29 89  28 38 29 22 43 20 20 20  |..0,12).(8)"C   |
000013d0  20 43 6f 6d 69 6e 67 20  73 6f 6f 6e 22 89 28 34  | Coming soon".(4|
000013e0  30 2d b1 29 0d 04 ec 1a  e7 61 25 3d 34 8c fb 31  |0-.).....a%=4..1|
000013f0  32 39 3a fb 30 20 8b fb  31 3a fb 31 32 38 0d 04  |29:.0 ..1:.128..|
00001400  f6 2a f1 8a 30 2c 31 36  29 89 28 38 29 22 4d 20  |.*..0,16).(8)"M |
00001410  20 20 20 4d 61 69 6e 74  61 69 6e 20 66 69 6c 65  |   Maintain file|
00001420  22 89 28 34 30 2d b1 29  0d 05 00 27 fb 31 3a fb  |".(40-.)...'.1:.|
00001430  31 32 38 3a f1 8a 31 33  2c 31 39 29 22 59 6f 75  |128:..13,19)"You|
00001440  72 20 73 65 6c 65 63 74  69 6f 6e 22 3b 3a e1 0d  |r selection";:..|
00001450  05 0a 35 dd f2 43 4f 4d  3a f2 54 49 54 4c 45 3a  |..5..COM:.TITLE:|
00001460  24 44 3d 54 24 3a 46 25  3d 30 3a 56 25 3d 33 3a  |$D=T$:F%=0:V%=3:|
00001470  f1 8a 35 2c 39 29 22 43  6f 6d 69 6e 67 20 73 6f  |..5,9)"Coming so|
00001480  6f 6e 3a 22 0d 05 14 3f  f1 8a 35 2c 31 31 29 3b  |on:"...?..5,11);|
00001490  3a e8 22 48 6f 77 20 6d  61 6e 79 20 64 61 79 73  |:."How many days|
000014a0  20 61 68 65 61 64 20 28  75 70 20 74 6f 20 33 30  | ahead (up to 30|
000014b0  29 3a 22 49 24 3a 49 25  3d bb 49 24 3a e7 49 25  |):"I$:I%=.I$:.I%|
000014c0  3c 31 e1 0d 05 1e 1a 51  25 3d a3 3a e7 49 25 3e  |<1.....Q%=.:.I%>|
000014d0  33 30 e5 8d 54 54 45 3a  8b f2 48 44 47 0d 05 28  |30..TTE:..HDG..(|
000014e0  13 44 25 3d 3f 44 3a 3f  44 3d 30 3a 46 3d 4b 4b  |.D%=?D:?D=0:F=KK|
000014f0  0d 05 32 1e f2 4b 45 59  3a e7 4f 3f 33 3e 30 fb  |..2..KEY:.O?3>0.|
00001500  31 32 39 3a fb 30 8b fb  31 3a fb 31 32 38 0d 05  |129:.0..1:.128..|
00001510  3c 1a e7 45 25 3e 31 80  3f 44 3d 30 20 3f 44 3d  |<..E%>1.?D=0 ?D=|
00001520  44 25 3a e5 8d 54 72 45  0d 05 46 14 e7 45 25 3e  |D%:..TrE..F..E%>|
00001530  31 80 46 25 3d 49 25 e5  8d 44 78 45 0d 05 50 1c  |1.F%=I%..DxE..P.|
00001540  e7 45 25 3e 31 46 25 3d  46 25 2b 31 3a f2 50 4c  |.E%>1F%=F%+1:.PL|
00001550  55 53 3a e5 8d 54 68 45  0d 05 5a 42 f1 4f 3f 32  |US:..ThE..ZB.O?2|
00001560  22 20 22 c0 4d 4d 24 28  32 35 35 2d 44 3f 31 29  |" ".MM$(255-D?1)|
00001570  2c 33 29 22 20 22 24 28  4f 2b 36 29 89 28 33 36  |,3)" "$(O+6).(36|
00001580  2d b1 29 3a 51 25 3d b9  3a 46 3d 46 2b 3f 46 3a  |-.):Q%=.:F=F+?F:|
00001590  e7 bc 3c 32 33 e5 8d 54  72 45 0d 05 64 38 f2 50  |..<23..TrE..d8.P|
000015a0  47 28 32 34 2c 22 50 72  65 73 73 20 53 50 41 43  |G(24,"Press SPAC|
000015b0  45 20 66 6f 72 20 6e 65  78 74 20 70 61 67 65 22  |E for next page"|
000015c0  29 3a e7 97 49 24 3d 31  33 fb 31 3a fb 31 32 38  |):..I$=13.1:.128|
000015d0  3a e1 0d 05 6e 0e f2 48  44 47 3a e5 8d 54 72 45  |:...n..HDG:..TrE|
000015e0  0d 05 78 63 e7 ac 51 25  20 8b 20 e7 20 49 25 3e  |..xc..Q% . . I%>|
000015f0  31 f1 27 22 20 20 54 68  61 74 27 73 20 61 6c 6c  |1.'"  That's all|
00001600  20 69 6e 20 74 68 65 20  6e 65 78 74 20 22 3b 49  | in the next ";I|
00001610  25 3b 22 20 64 61 79 73  22 3b 20 8b 20 f1 27 22  |%;" days"; . .'"|
00001620  20 20 54 68 61 74 27 73  20 61 6c 6c 20 69 6e 20  |  That's all in |
00001630  74 68 65 20 6e 65 78 74  20 32 34 20 68 6f 75 72  |the next 24 hour|
00001640  73 22 3b 0d 05 82 64 20  e7 20 51 25 20 8b 20 e7  |s";...d . Q% . .|
00001650  20 49 25 3e 31 f1 27 22  20 20 4e 6f 74 68 69 6e  | I%>1.'"  Nothin|
00001660  67 20 6f 6e 20 69 6e 20  74 68 65 20 6e 65 78 74  |g on in the next|
00001670  20 22 3b 49 25 22 20 64  61 79 73 22 3b 20 3a 8b  | ";I%" days"; :.|
00001680  20 f1 27 22 20 20 4e 6f  74 68 69 6e 67 20 6f 6e  | .'"  Nothing on|
00001690  20 69 6e 20 74 68 65 20  6e 65 78 74 20 32 34 20  | in the next 24 |
000016a0  68 6f 75 72 73 22 3b 0d  05 8c 0d f1 89 28 34 30  |hours";......(40|
000016b0  2d b1 29 3b 0d 05 96 12  49 24 3d be 3a fb 31 3a  |-.);....I$=.:.1:|
000016c0  fb 31 32 38 3a e1 0d 05  a0 31 dd f2 48 44 47 3a  |.128:....1..HDG:|
000016d0  db 3a fb 30 3a fb 31 32  39 3a f1 27 89 28 31 34  |.:.0:.129:.'.(14|
000016e0  29 22 43 6f 6d 69 6e 67  20 73 6f 6f 6e 22 89 28  |)"Coming soon".(|
000016f0  34 30 2d b1 29 3a e1 0d  05 aa 2a dd f2 54 49 54  |40-.):....*..TIT|
00001700  4c 45 3a db 3a f1 8a 39  2c 32 29 22 2a 2a 2a 2a  |LE:.:..9,2)"****|
00001710  20 50 4c 41 4e 4e 45 52  20 2a 2a 2a 2a 22 27 3a  | PLANNER ****"':|
00001720  e1 0d 05 b4 50 dd f2 4d  54 48 3a fb 30 3a fb 31  |....P..MTH:.0:.1|
00001730  32 39 3a f1 8a 30 2c 31  29 22 20 20 20 20 20 20  |29:..0,1)"      |
00001740  20 2a 2a 2a 2a 20 22 4d  4d 24 28 49 25 29 22 20  | **** "MM$(I%)" |
00001750  31 39 22 32 35 35 2d 44  25 22 20 2a 2a 2a 2a 22  |19"255-D%" ****"|
00001760  89 28 34 30 2d b1 29 3a  fb 31 3a fb 31 32 38 3a  |.(40-.):.1:.128:|
00001770  e1 0d 05 be a2 dd f2 56  42 4c 45 20 53 25 3d 93  |.......VBLE S%=.|
00001780  2d 92 2d 31 35 30 30 3a  de 44 41 59 24 28 36 29  |-.-1500:.DAY$(6)|
00001790  2c 4d 4d 24 28 31 32 29  2c 4d 24 28 31 32 29 2c  |,MM$(12),M$(12),|
000017a0  44 42 41 53 45 20 53 25  2c 42 4c 4b 25 33 31 2c  |DBASE S%,BLK%31,|
000017b0  43 43 25 28 34 35 29 2c  62 25 38 3a 44 3d 44 42  |CC%(45),b%8:D=DB|
000017c0  41 53 45 2b 34 3a 4b 4b  3d 44 42 41 53 45 2b 31  |ASE+4:KK=DBASE+1|
000017d0  36 3a 4c 41 53 54 3d 44  42 41 53 45 2b 4b 4b 21  |6:LAST=DBASE+KK!|
000017e0  2d 34 3a 48 49 47 48 3d  44 42 41 53 45 2b 53 25  |-4:HIGH=DBASE+S%|
000017f0  2d 35 30 3a 4c 31 3d 26  46 46 46 46 46 46 30 38  |-50:L1=&FFFFFF08|
00001800  3a 4c 32 3d 26 30 44 46  46 46 46 46 46 3a 2a 46  |:L2=&0DFFFFFF:*F|
00001810  58 31 31 0d 05 c8 40 41  25 3d 31 30 3a e3 49 25  |X11...@A%=10:.I%|
00001820  3d 31 b8 31 32 3a f3 4d  4d 24 28 49 25 29 3a f3  |=1.12:.MM$(I%):.|
00001830  4d 24 28 49 25 29 3a ed  3a e3 49 25 3d 30 b8 36  |M$(I%):.:.I%=0.6|
00001840  3a f3 44 41 59 24 28 49  25 29 3a ed 3a 2a 46 58  |:.DAY$(I%):.:*FX|
00001850  34 2c 31 0d 05 d2 11 ef  31 39 2c 31 2c 33 2c 30  |4,1.....19,1,3,0|
00001860  2c 30 2c 30 0d 05 dc 23  f2 54 49 54 4c 45 3a f1  |,0,0...#.TITLE:.|
00001870  8a 39 2c 39 29 22 45 6e  74 65 72 20 74 68 65 20  |.9,9)"Enter the |
00001880  64 61 74 65 20 3a 22 0d  05 e6 16 f2 44 41 54 3a  |date :".....DAT:|
00001890  e7 97 49 24 3d 2d 31 3a  e5 8d 64 66 45 0d 05 f0  |..I$=-1:..dfE...|
000018a0  0b 54 24 3d 24 44 3a e1  0d 05 fa 3e dd f2 57 4b  |.T$=$D:....>..WK|
000018b0  44 41 59 3a 57 25 3d 32  35 35 2d 44 3f 31 3a 59  |DAY:W%=255-D?1:Y|
000018c0  25 3d 32 35 35 2d 3f 44  3a e7 57 25 3e 32 57 25  |%=255-?D:.W%>2W%|
000018d0  3d 57 25 2d 32 8b 59 25  3d 59 25 2d 31 3a 57 25  |=W%-2.Y%=Y%-1:W%|
000018e0  3d 57 25 2b 31 30 0d 06  04 48 45 25 3d 32 36 2a  |=W%+10...HE%=26*|
000018f0  57 25 2d 32 3a 45 25 3d  45 25 2f 31 30 3a 45 25  |W%-2:E%=E%/10:E%|
00001900  3d 45 25 2b 44 3f 32 2b  59 25 3a 45 25 3d 45 25  |=E%+D?2+Y%:E%=E%|
00001910  2b 59 25 2f 34 3a 45 25  3d 45 25 2d 33 34 3a 59  |+Y%/4:E%=E%-34:Y|
00001920  25 3d 94 28 45 25 20 20  83 20 37 29 3a e1 0d 06  |%=.(E%  . 7):...|
00001930  0e 09 dd f2 44 41 54 0d  06 18 16 f2 4f 4e 3a f1  |....DAT.....ON:.|
00001940  8a 30 2c 31 32 29 89 28  31 32 30 29 3b 0d 06 22  |.0,12).(120);.."|
00001950  21 49 25 3d a4 49 4e 28  31 32 2c 22 44 61 79 20  |!I%=.IN(12,"Day |
00001960  20 20 20 20 22 29 3a e7  49 25 3d 2d 31 e1 0d 06  |    "):.I%=-1...|
00001970  2c 14 e7 49 25 3c 31 84  49 25 3e 33 31 e5 8d 54  |,..I%<1.I%>31..T|
00001980  62 46 0d 06 36 28 44 3f  32 3d 49 25 3a 4d 25 3d  |bF..6(D?2=I%:M%=|
00001990  a4 49 4e 28 31 33 2c 22  4d 6f 6e 74 68 20 20 20  |.IN(13,"Month   |
000019a0  22 29 3a e7 4d 25 3d 2d  31 e1 0d 06 40 2c 44 3f  |"):.M%=-1...@,D?|
000019b0  31 3d 32 35 35 2d 4d 25  3a 4b 25 3d a4 49 4e 28  |1=255-M%:K%=.IN(|
000019c0  31 34 2c 22 59 65 61 72  20 31 39 20 22 29 3a e7  |14,"Year 19 "):.|
000019d0  4b 25 3d 2d 31 e1 0d 06  4a 16 3a e7 4b 25 3c 37  |K%=-1...J.:.K%<7|
000019e0  39 84 4b 25 3e 39 39 8c  8d 44 40 46 0d 06 54 1b  |9.K%>99..D@F..T.|
000019f0  e7 4b 25 83 34 3d 30 80  4d 25 3d 32 80 49 25 3e  |.K%.4=0.M%=2.I%>|
00001a00  32 39 e5 8d 54 58 46 0d  06 5e 1b e7 4d 25 3d 32  |29..TXF..^..M%=2|
00001a10  80 49 25 3e 32 38 80 4b  25 83 34 3e 30 e5 8d 54  |.I%>28.K%.4>0..T|
00001a20  58 46 0d 06 68 26 e7 28  4d 25 3d 34 84 4d 25 3d  |XF..h&.(M%=4.M%=|
00001a30  36 84 4d 25 3d 39 84 4d  25 3d 31 31 29 80 49 25  |6.M%=9.M%=11).I%|
00001a40  3e 33 30 e5 8d 54 58 46  0d 06 72 22 3f 44 3d 32  |>30..TXF..r"?D=2|
00001a50  35 35 2d 4b 25 3a 44 3f  33 3d 30 3a 44 3f 34 3d  |55-K%:D?3=0:D?4=|
00001a60  30 3a 44 3f 35 3d 31 33  3a e1 0d 06 7c 7a dd a4  |0:D?5=13:...|z..|
00001a70  4d 31 3a ea 4a 25 2c 4a  24 3a e7 31 3c 3d bb 49  |M1:.J%,J$:.1<=.I|
00001a80  24 80 bb 49 24 3c 3d 31  32 3a 3d bb 49 24 8b 51  |$..I$<=12:=.I$.Q|
00001a90  25 3d a9 49 24 3a e3 4b  25 3d 31 b8 51 25 3a 4a  |%=.I$:.K%=1.Q%:J|
00001aa0  24 3d 4a 24 2b bd 28 97  c1 49 24 2c 4b 25 2c 31  |$=J$+.(..I$,K%,1|
00001ab0  29 20 80 20 26 44 46 29  3a ed 3a e3 4b 25 3d 31  |) . &DF):.:.K%=1|
00001ac0  b8 31 32 3a e7 4a 24 3d  c0 4d 24 28 4b 25 29 2c  |.12:.J$=.M$(K%),|
00001ad0  51 25 29 4a 25 3d 4b 25  3a 4b 25 3d 31 32 3a ed  |Q%)J%=K%:K%=12:.|
00001ae0  3a 3d 4a 25 0d 06 86 08  ed 3a 3d 30 0d 06 90 17  |:=J%.....:=0....|
00001af0  dd a4 49 4e 28 4c 25 2c  41 24 29 ea 4a 25 3a f2  |..IN(L%,A$).J%:.|
00001b00  4f 46 46 0d 06 9a 2f f1  8a 39 2c 4c 25 29 89 33  |OFF.../..9,L%).3|
00001b10  34 8a 39 2c 4c 25 29 41  24 3b 3a f2 4f 4e 3a e8  |4.9,L%)A$;:.ON:.|
00001b20  22 3a 20 22 49 24 3a e7  97 49 24 3d 2d 31 3d 97  |": "I$:..I$=-1=.|
00001b30  49 24 0d 06 a4 10 e7 4c  25 3c 3e 31 33 8c 8d 74  |I$.....L%<>13..t|
00001b40  78 46 0d 06 ae 1a 4a 25  3d a4 4d 31 3a e7 4a 25  |xF....J%=.M1:.J%|
00001b50  3c 3e 30 3a 3d 4a 25 8b  8d 74 5a 46 0d 06 b8 38  |<>0:=J%..tZF...8|
00001b60  e3 45 25 3d 31 b8 a9 49  24 3a 4e 25 3d 97 c1 49  |.E%=1..I$:N%=..I|
00001b70  24 2c 45 25 2c 31 29 3a  e7 4e 25 3c 34 38 84 4e  |$,E%,1):.N%<48.N|
00001b80  25 3e 35 37 20 45 25 3d  a9 49 24 3a 49 24 3d 22  |%>57 E%=.I$:I$="|
00001b90  39 39 39 22 0d 06 c2 0a  ed 3a 3d bb 49 24 0d 06  |999".....:=.I$..|
00001ba0  cc 12 dd f2 47 54 4d 3a  f2 44 41 59 50 28 35 29  |....GTM:.DAYP(5)|
00001bb0  0d 06 d6 46 f1 8a 36 2c  31 37 29 22 32 34 20 68  |...F..6,17)"24 h|
00001bc0  6f 75 72 20 63 6c 6f 63  6b 20 28 59 2f 4e 29 22  |our clock (Y/N)"|
00001bd0  3b 89 28 34 30 2d b1 29  3b 3a e8 8a 32 37 2c 31  |;.(40-.);:..27,1|
00001be0  37 29 22 3a 22 49 24 3a  e7 97 49 24 3d 2d 31 20  |7)":"I$:..I$=-1 |
00001bf0  49 24 3d 22 59 22 0d 06  e0 29 49 24 3d bd 28 97  |I$="Y"...)I$=.(.|
00001c00  49 24 20 80 20 26 44 46  29 3a e7 49 24 3c 3e 22  |I$ . &DF):.I$<>"|
00001c10  59 22 80 49 24 3c 3e 22  4e 22 e5 8d 64 56 46 0d  |Y".I$<>"N"..dVF.|
00001c20  06 ea 14 52 25 3d 30 3a  e7 49 24 3d 22 4e 22 52  |...R%=0:.I$="N"R|
00001c30  25 3d 31 0d 06 f4 1d f1  8a 38 2c 31 39 29 22 45  |%=1......8,19)"E|
00001c40  6e 74 65 72 20 74 68 65  20 74 69 6d 65 20 3a 22  |nter the time :"|
00001c50  0d 06 fe 2a 49 25 3d a4  49 4e 28 32 30 2c 22 48  |...*I%=.IN(20,"H|
00001c60  6f 75 72 73 20 20 20 22  29 3a e7 49 25 3e 32 33  |ours   "):.I%>23|
00001c70  84 49 25 3c 30 e5 8d 64  7e 46 0d 07 08 13 e7 52  |.I%<0..d~F.....R|
00001c80  25 20 80 49 25 3e 31 32  e5 8d 64 7e 46 0d 07 12  |% .I%>12..d~F...|
00001c90  2a 4a 25 3d a4 49 4e 28  32 31 2c 22 4d 69 6e 75  |*J%=.IN(21,"Minu|
00001ca0  74 65 73 20 22 29 3a e7  4a 25 3e 35 39 84 4a 25  |tes "):.J%>59.J%|
00001cb0  3c 30 e5 8d 54 52 47 0d  07 1c 17 f4 49 46 4a 25  |<0..TRG.....IFJ%|
00001cc0  2b 49 25 3d 30 47 4f 54  4f 31 37 39 30 30 0d 07  |+I%=0GOTO17900..|
00001cd0  26 0d e7 52 25 f2 41 4d  28 39 29 0d 07 30 27 d1  |&..R%.AM(9)..0'.|
00001ce0  3d 28 28 49 25 2a 36 30  2b 4a 25 29 2a 36 30 30  |=((I%*60+J%)*600|
00001cf0  30 29 3a 54 32 25 3d 49  25 2a 31 30 30 2b 4a 25  |0):T2%=I%*100+J%|
00001d00  3a e1 0d 07 3a 5c dd f2  41 4d 28 4c 25 29 3a f5  |:...:\..AM(L%):.|
00001d10  f1 8a 4c 25 2c 32 32 29  89 33 32 8a 4c 25 2c 32  |..L%,22).32.L%,2|
00001d20  32 29 22 41 4d 2f 50 4d  20 20 20 22 3b 3a e8 22  |2)"AM/PM   ";:."|
00001d30  3a 20 22 49 24 3a 51 25  3d a7 22 41 50 22 2c c0  |: "I$:Q%=."AP",.|
00001d40  49 24 2c 31 29 29 3a fd  51 25 3a e7 51 25 3d 32  |I$,1)):.Q%:.Q%=2|
00001d50  80 49 25 3c 31 32 49 25  3d 49 25 2b 31 32 0d 07  |.I%<12I%=I%+12..|
00001d60  44 05 e1 0d 07 4e 0e dd  f2 4b 45 59 3a 45 25 3d  |D....N...KEY:E%=|
00001d70  30 0d 07 58 41 4f 3d 46  2b 31 3a e3 4e 25 3d 30  |0..XAO=F+1:.N%=0|
00001d80  b8 56 25 2d 31 3a e7 4f  3f 4e 25 3c 44 3f 4e 25  |.V%-1:.O?N%<D?N%|
00001d90  80 20 46 2b 3f 46 2b 38  3c 48 49 47 48 20 46 3d  |. F+?F+8<HIGH F=|
00001da0  46 2b 3f 46 3a 4e 25 3d  56 25 3a ed 3a e5 8d 44  |F+?F:N%=V%:.:..D|
00001db0  58 47 0d 07 62 4a e7 46  2b 3f 46 2b 38 3e 48 49  |XG..bJ.F+?F+8>HI|
00001dc0  47 48 20 4c 41 53 54 3d  46 3a 21 4c 41 53 54 3d  |GH LAST=F:!LAST=|
00001dd0  4c 31 3a 4c 41 53 54 21  34 3d 4c 32 3a 4b 4b 21  |L1:LAST!4=L2:KK!|
00001de0  2d 34 3d 4c 41 53 54 2d  44 42 41 53 45 3a 45 25  |-4=LAST-DBASE:E%|
00001df0  3d 32 3a 4e 25 3d 56 25  3a ed 3a e1 0d 07 6c 1d  |=2:N%=V%:.:...l.|
00001e00  e7 4f 3f 4e 25 3e 44 3f  4e 25 20 45 25 3d 32 3a  |.O?N%>D?N% E%=2:|
00001e10  4e 25 3d 56 25 3a ed 3a  e1 0d 07 76 0c ed 3a 45  |N%=V%:.:...v..:E|
00001e20  25 3d 31 3a e1 0d 07 80  2e dd f2 46 57 44 3a e3  |%=1:.......FWD:.|
00001e30  49 3d 4c 41 53 54 2b 38  b8 46 20 88 2d 34 3a e7  |I=LAST+8.F .-4:.|
00001e40  49 2b 4c 25 2b 34 3c 48  49 47 48 20 49 21 4c 25  |I+L%+4<HIGH I!L%|
00001e50  3d 21 49 0d 07 8a 33 ed  3a e7 4c 41 53 54 2b 4c  |=!I...3.:.LAST+L|
00001e60  25 2b 38 3c 48 49 47 48  20 4c 41 53 54 3d 4c 41  |%+8<HIGH LAST=LA|
00001e70  53 54 2b 4c 25 3a 4b 4b  21 2d 34 3d 4c 41 53 54  |ST+L%:KK!-4=LAST|
00001e80  2d 44 42 41 53 45 0d 07  94 18 21 4c 41 53 54 3d  |-DBASE....!LAST=|
00001e90  4c 31 3a 4c 41 53 54 21  34 3d 4c 32 3a e1 0d 07  |L1:LAST!4=L2:...|
00001ea0  9e 26 dd f2 46 53 4e 44  3a e3 49 3d 31 30 b8 31  |.&..FSND:.I=10.1|
00001eb0  30 30 20 88 31 30 3a d4  32 2c 2d 37 2c 49 2c 31  |00 .10:.2,-7,I,1|
00001ec0  3a ed 3a e1 0d 07 a8 5c  dd f2 42 57 44 3a e3 49  |:.:....\..BWD:.I|
00001ed0  3d 46 20 b8 4c 41 53 54  2b 38 88 34 3a 21 49 3d  |=F .LAST+8.4:!I=|
00001ee0  49 21 4c 25 3a ed 3a 4c  41 53 54 3d 4c 41 53 54  |I!L%:.:LAST=LAST|
00001ef0  2d 4c 25 3a 4b 4b 21 2d  34 3d 4c 41 53 54 2d 44  |-L%:KK!-4=LAST-D|
00001f00  42 41 53 45 3a e3 49 3d  31 30 30 b8 31 30 88 2d  |BASE:.I=100.10.-|
00001f10  31 30 3a d4 32 2c 2d 37  2c 49 2c 31 3a ed 3a e1  |10:.2,-7,I,1:.:.|
00001f20  0d 07 b2 22 dd f2 47 45  54 3a 43 24 3d 22 22 3a  |..."..GET:C$="":|
00001f30  45 25 3d b1 3a f1 89 28  4c 25 29 8a 45 25 2c bc  |E%=.:..(L%).E%,.|
00001f40  29 3b 0d 07 bc 2c 45 25  3d a5 3a e7 45 25 3d 31  |);...,E%=.:.E%=1|
00001f50  32 37 80 a9 43 24 8c 43  24 3d c0 43 24 2c a9 43  |27..C$.C$=.C$,.C|
00001f60  24 2d 31 29 3a ef 45 25  3a e5 8d 74 7c 47 0d 07  |$-1):.E%:..t|G..|
00001f70  c6 0c e7 45 25 3d 31 33  8c e1 0d 07 d0 1f e7 45  |...E%=13.......E|
00001f80  25 3e 33 31 80 45 25 3c  31 32 37 8c 43 24 3d 43  |%>31.E%<127.C$=C|
00001f90  24 2b bd 45 25 3a ef 45  25 0d 07 da 12 e7 a9 43  |$+.E%:.E%......C|
00001fa0  24 3c 4c 25 8c 8d 74 7c  47 8b e1 0d 07 e4 20 dd  |$<L%..t|G..... .|
00001fb0  f2 50 47 28 4c 25 2c 41  24 29 f2 50 28 4c 25 2c  |.PG(L%,A$).P(L%,|
00001fc0  41 24 29 3a 2a 46 58 31  35 2c 31 0d 07 ee 0a 49  |A$):*FX15,1....I|
00001fd0  24 3d be 3a e1 0d 07 f8  35 dd f2 50 28 4c 25 2c  |$=.:....5..P(L%,|
00001fe0  41 24 29 f2 4f 46 46 3a  50 24 3d c4 31 39 2d a9  |A$).OFF:P$=.19-.|
00001ff0  41 24 81 32 2c 22 20 22  29 3a f1 8a 30 2c 4c 25  |A$.2," "):..0,L%|
00002000  29 50 24 41 24 50 24 3b  3a e1 0d 08 02 19 dd f2  |)P$A$P$;:.......|
00002010  4f 4e 20 ef 32 33 2c 31  2c 31 3b 30 3b 30 3b 30  |ON .23,1,1;0;0;0|
00002020  3b 3a e1 0d 08 0c 1a dd  f2 4f 46 46 20 ef 32 33  |;:.......OFF .23|
00002030  2c 31 2c 30 3b 30 3b 30  3b 30 3b 3a e1 0d 08 16  |,1,0;0;0;0;:....|
00002040  0e dd f2 69 6e 76 28 48  4c 25 29 0d 08 20 19 ea  |...inv(HL%).. ..|
00002050  41 24 2c 49 25 2c 41 25  3a 41 25 3d 31 33 35 3a  |A$,I%,A%:A%=135:|
00002060  f2 4f 46 46 0d 08 2a 38  e3 49 25 3d 30 b8 33 39  |.OFF..*8.I%=0.39|
00002070  3a f1 8a 49 25 2c 48 4c  25 29 3b 3a 41 24 3d 41  |:..I%,HL%);:A$=A|
00002080  24 2b bd 28 28 ba 26 46  46 46 34 20 80 20 26 46  |$+.((.&FFF4 . &F|
00002090  46 30 30 29 81 26 31 30  30 29 3a ed 0d 08 34 26  |F00).&100):...4&|
000020a0  fb 30 3a fb 31 32 39 3a  f1 8a 30 2c 48 4c 25 29  |.0:.129:..0,HL%)|
000020b0  3b 41 24 3b 3a fb 31 3a  fb 31 32 38 3a f2 4f 4e  |;A$;:.1:.128:.ON|
000020c0  3a e1 0d 08 3e 29 fb 30  3a fb 31 32 38 3a e7 9f  |:...>).0:.128:..|
000020d0  3d 31 37 8c 8d 44 46 40  8b f6 3a f1 22 20 61 74  |=17..DF@..:." at|
000020e0  20 6c 69 6e 65 20 22 3b  9e 3a e0 0d 08 48 b0 dc  | line ";.:...H..|
000020f0  4a 61 6e 75 61 72 79 2c  4a 41 4e 55 41 52 59 2c  |January,JANUARY,|
00002100  46 65 62 72 75 61 72 79  2c 46 45 42 52 55 41 52  |February,FEBRUAR|
00002110  59 2c 4d 61 72 63 68 2c  4d 41 52 43 48 2c 41 70  |Y,March,MARCH,Ap|
00002120  72 69 6c 2c 41 50 52 49  4c 2c 4d 61 79 2c 4d 41  |ril,APRIL,May,MA|
00002130  59 2c 4a 75 6e 65 2c 4a  55 4e 45 2c 4a 75 6c 79  |Y,June,JUNE,July|
00002140  2c 4a 55 4c 59 2c 41 75  67 75 73 74 2c 41 55 47  |,JULY,August,AUG|
00002150  55 53 54 2c 53 65 70 74  65 6d 62 65 72 2c 53 45  |UST,September,SE|
00002160  50 54 45 4d 42 45 52 2c  4f 63 74 6f 62 65 72 2c  |PTEMBER,October,|
00002170  4f 43 54 4f 42 45 52 2c  4e 6f 76 65 6d 62 65 72  |OCTOBER,November|
00002180  2c 4e 4f 56 45 4d 42 45  52 2c 44 65 63 65 6d 62  |,NOVEMBER,Decemb|
00002190  65 72 2c 44 45 43 45 4d  42 45 52 0d 08 52 3e dc  |er,DECEMBER..R>.|
000021a0  20 53 75 6e 64 61 79 2c  4d 6f 6e 64 61 79 2c 54  | Sunday,Monday,T|
000021b0  75 65 73 64 61 79 2c 57  65 64 6e 65 73 64 61 79  |uesday,Wednesday|
000021c0  2c 54 68 75 72 73 64 61  79 2c 46 72 69 64 61 79  |,Thursday,Friday|
000021d0  2c 53 61 74 75 72 64 61  79 0d 08 5c 0e dd f2 46  |,Saturday..\...F|
000021e0  49 4e 44 28 41 24 29 0d  08 66 11 5a 25 3d 90 3a  |IND(A$)..f.Z%=.:|
000021f0  f5 41 25 3d 5a 25 2b 34  0d 08 70 26 e7 a9 24 41  |.A%=Z%+4..p&..$A|
00002200  25 3e 3d a9 41 24 e7 a7  24 41 25 2c 41 24 29 f1  |%>=.A$..$A%,A$).|
00002210  5a 25 3f 31 2a 32 35 36  2b 5a 25 3f 32 3b 0d 08  |Z%?1*256+Z%?2;..|
00002220  7a 1a 5a 25 3d 5a 25 2b  5a 25 3f 33 3a fd 5a 25  |z.Z%=Z%+Z%?3:.Z%|
00002230  3f 31 3e 26 37 46 3a e1  0d 00 ad 10 02 8d 9d 30  |?1>&7F:........0|
00002240  ad 11 02 8d 9e 30 a9 7a  8d 10 02 a9 30 8d 11 02  |.....0.z....0...|
00002250  a9 00 8d 9c 30 a9 15 20  ee ff a9 81 a2 00 a0 ff  |....0.. ........|
00002260  20 f4 ff e0 00 f0 10 a9  b4 a2 0e a0 00 20 f4 ff  | ............ ..|
00002270  a2 b2 a0 30 4c f7 ff 4c  00 80 8e 9b 30 ae 9c 30  |...0L..L....0..0|
00002280  bd 9f 30 ee 9c 30 e0 12  d0 0c ae 9d 30 8e 10 02  |..0..0......0...|
00002290  ae 9e 30 8e 11 02 ae 9b  30 18 60 00 00 00 00 50  |..0.....0.`....P|
000022a0  41 47 45 3d 26 45 30 30  0d 4f 4c 44 0d 52 55 4e  |AGE=&E00.OLD.RUN|
000022b0  06 0d 42 41 53 49 43 0d  a9 81 a2 00 a0 ff 20 f4  |..BASIC....... .|
000022c0  ff e0 00 f0 0c a9 c8 a2  03 a0 00 20 f4 ff ca ca  |........... ....|
000022d0  ca 86 70 a2 15 bd e8 30  9d 00 01 5d 86 05 05 70  |..p....0...]...p|
000022e0  85 70 ca 10 f0 aa f0 16  a9 0e 85 71 a0 00 84 70  |.p.........q...p|
000022f0  91 70 c8 d0 fb e6 71 24  71 50 f5 6c fc ff 4c 3a  |.p....q$qP.l..L:|
00002300  30                                                |0|
00002301