start tok64 d64-yuRa8t
10 REM dater 64 by ken huebner
20 ui=52224
30 ut=ui+3+2:REM min,hour,am
40 ud=ut+3:um=ud+1:uy=ud+2:REM day,month,year
50 PRINT"please wait{.*3}"
60 y=ui:READa$
70 b$=MID$(a$,1,20)+MID$(a$,22,20)+MID$(a$,43,20)
80 FORx=1TO59STEP2
90 c$=MID$(b$,x,2):h$=LEFT$(c$,1):l$=RIGHT$(c$,1)
100 h=VAL(h$):IFh$>"9"THENh=ASC(h$)-55
110 l=VAL(l$):IFl$>"9"THENl=ASC(l$)-55
120 POKEy,h*16+l
130 y=y+1:NEXTx:READa$
140 IFa$<>""THEN70
150 PRINT"{clear}{down*3}"
160 PRINTTAB(10)"dater 64"
170 PRINT
180 PRINT"enter the date"
190 INPUT"(format:5-20-1990)";dd$
200 x=0:z=0
210 x=x+1:IFx>LEN(dd$)THEN240
220 a$=MID$(dd$,x,1)
230 IFa$<>"-"THENd$=d$+a$:GOTO210
240 IFz=0THENm=VAL(d$)
250 IFz=1THENd=VAL(d$)
260 IFz=2THENy=VAL(d$)
270 d$="":z=z+1:IFz<3THEN210
280 IFd<1ORd>31THEN180
290 IFy<1989ORy>1999THEN180
300 IFm<1ORm>12THEN180
310 POKEud,d-1:POKEum,m-1:POKEuy,y-1900
320 PRINT:PRINT"enter the time"
330 INPUT"(format: 330pm)";t$
340 IFLEN(t$)=5THENt$="0"+t$
350 IFLEN(t$)<>6THEN320
360 a$=RIGHT$(t$,2)
370 mi$=MID$(t$,3,2)
380 hr$=MID$(t$,1,2)
390 mi=VAL(mi$):h=VAL(hr$):a=0
400 IFa$="pm"THENa=1
410 IFmi<0ORmi>59THEN320
420 IFh<1ORh>12THEN320
430 IFh=12THENh=0
440 POKEut,mi:POKEut+1,h:POKEut+2,a
450 PRINT:SYSui:PRINT
460 NEW
470 DATA4c2acc00000000000000 58130000000000000000 00000000000000000000
480 DATA0000ffcc000051cd0000 e9cc0878a50148a93785 01ac23ccd017a201bd32
490 DATA039d22ccbd00039d26cc bd14039d1eccca10ebad 11cc4902d00209808d11
500 DATAcc208ccc688501286048 8a489848a000bafe0401 d003fe0501bd040185fc
510 DATAbd050185fdb1fcf00520 d2ff90e468a868aa6860 08782063cc4449535041
520 DATA5443482000ad11ccc902 f00b2063cc4f464600a2 0010202063cc4f4e0d54
530 DATA4f204f46462c20454e54 45522053595320353232 323400a202a000bd26cc
540 DATA990003bd22cc993203bd 1ecc991403e8c8c00290 e82860488a489848a591
550 DATAc97fd003208ccc68a868 aa686c26cca5a2cd10cc 8d10ccf030a21cad0acc
560 DATA2903d002a21d8e46cdae 09ccbd45cd8d41cda200 bd03cc186901dd3ccd90
570 DATA02a9009d03cc9005e8e0 0990e96c1ecc3c3c3c0c 021e0c64181f1c1f1e1f
580 DATA1e1f1f1e1f1e1f0878a5 9d100cad11ccf0073005 2096cdb00ea62da42e86
590 DATAae84afa92b286c22cc28 2063cc44495350415443 48204552524f522d204e
600 DATA4f2052454d20324e4420 4c494e45006020a0cdb0 0420d9cd186020cdceb0
610 DATA30a004b1fac93af004c9 8fd024a52da62e38e901 b001ca85fa86fba000b1
620 DATAfaa04091faa5facd12cc d0e7ec13ccd0e2186038 60415020cdcea9042011
630 DATAcfa98f2007cf2005cfa4 b7f023a9222007cfa000 b1bbc8c93af006c4b790
640 DATAf5a000b1bb2007cfc8c4 b790f6a9222007cf2005 cfad09cc202dcfa92d20
650 DATA07cfad08cc202dcfa92d 2007cfad0bcc2029cfad 0acc2029cf2005cfad06
660 DATAccd002a90c2030cfa93a 2007cfad05cc2029cfa9 3a2007cfad04cc2029cf
670 DATA2005cfae07ccbdd7cd20 07cfa94d2007cfa90020 07cfad12ccae13cc85fc
680 DATA86fda040b1fca00091fa e6fcd002e6fde6fad002 e6fba5fcc52da5fde52e
690 DATA90e2201bcf18a001b1fa f01da004c8b1fad0fbc8 9865faaaa00091faa5fb
700 DATA6900c891fa86fa85fb90 dda891fa2024cf690285 2d9001e8862e60a52ba6
710 DATA2c20dcceb02dad12ccae 13cc201fcf8d16cc8e17 cca003b1fa9912cc8810
720 DATAf838ad12cced16cc8d18 ccad12cc0d13ccf00218 603860a92084fca00091
730 DATAfaa4fca9011865fa85fa 9002e6fb60a52ba62c85 fa86fb60a5faa6fb60a0
740 DATA011005186901a00084fc 2048cfa6fcd003ae1dcc bd1acc2007cfca10f760
750 DATAa2ff38e8e964b0fb6964 8e1ccca2ffe8e90ab0fb 690a8e1bcc8d1acca202
760 DATAbd1accd004ca10f8e88e 1dcca20218bd1acc6930 9d1accca10f460410000
770 DATA
stop tok64
(bastext 1.0)