Colin Culpitt-Smith
10 REM Program 'KEYS' - sets correct Y2K date & fkeys
in WW+
20 REM 'DAY1'=lst digit of date
30 REM 'DAY2'=2nd digit of date
40 REM 'DAY3'=both digits of date
50 REM 'YR'=last 2 digits of year
60 REM Ctrl+Shift+f/key 0 holds modified date:-
70 OSCLI "KEY 0 "+FNdate+" |M |M"
80 PROCkeys
90 END
100 DEF FNdate
110 T$=TIME$
120 REPEAT:READ M$
130 UNTIL MID$(T$,8,3)=LEFT$(M$,3)
140 DAY1=VAL(MID$(T$, 5,1))
150 DAY2=VAL(MID$(T$, 6,1))
160 DAY3=VAL(MID$(T$, 5,2))
170 YR=VAL(MID$(T$,14,2))
180 IF DAY2=0 OR DAY2>3 B$="th"
190 IF DAY2=1 B$="st"
200 IF DAY2=2 B$="nd"
210 IF DAY2=3 B$="rd"
220 IF DAY1=1 AND DAY2=1 OR DAY1=1 AND DAY2=2 OR DAY1=1 AND
DAY2=3 THEN B$="th"
230 IF YR>=95 AND YR<=99 THEN GOTO 250
240 IF YR>=0 AND YR<=10 THEN GOTO 260
250 =STR$(DAY3)+B$+" "+M$+" "+MID$(T$,12,4):END
260 =STR$(DAY3)+B$+" "+M$+" "+"20"+MID$(T$,14,2):END
270 DATA January, February, March, April, May, June, July, August,
September, October, November, December
280 DEF PROCkeys
290 REM Ctrl+Shift+F/keys for use in WW+ - alter to suit user
300 *KEY1 |!!US|!"
310 *KEY2 |!!UE|!"
320 *KEY3 |!!ES64 |!!EP |!!LNS |!!DP35 |!!JO |!!ES120,B% |!!TS0
|M |!!LM5 |!!LL68 |!!PL68 |!!EM |M |M
330 *KEY4 |!!CE |!" |!!US |!"
340 *KEY5 |!!JO |!"
350 *KEY6 |!!NJ |!"
360 *KEY7 |!!EM |!! BP
370 *KEY8 |!!ES51,16,27,15,27,83,48 |!"
375 REM degree Sign *KEY9 |!!ES80 |!!ES83,0 |!"o |!!ES84
|!!ES40 |!"
380 REM eject command for Epson LQ-100:-
385 *KEY9 |!!ES25, "R" |!"
390 ENDPROC