10REM set date & fkeys in W/Wise+ 20REM orig prog by Peter Hopkins 30REM and pub by Beebug 40REM modified by Colin Culpitt-Smith 50OSCLI"KEY 0 "+FNdate+"|M" 60PROCkeys 70END 80DEF FNdate 90T$=TIME$ 100RESTORE 250 110REPEAT:READ M$ 120UNTIL MID$(T$,8,3)=LEFT$(M$,3) 130: 140: 150: 160D2=VAL(MID$(T$,6,1)) 170D3=VAL(MID$(T$,5,2)) 180D1=VAL(MID$(T$,5,1)) 190IF D2=0 OR D2>3 B$="th" 200IF D2=1 B$="st" 210IF D2=2 B$="nd" 220IF D2=3 B$="rd" 230IF D1=1 AND D2=1 OR D1=1 AND D2=2 O R D1=1 AND D2=3 THEN B$="th" 240=STR$(D3)+B$+" "+M$+" "+MID$(T$,12, 4):END 250DATA January,February,March,April,M ay,June,July,August,September,October,No vember,December 260: 270 280DEF PROCkeys 290*KEY1 |!!US|!" 300*KEY2 |!!UE|!" 310REM my letter layout codes;- 320*KEY3|!!SEG8|!"|M|!!ES64|!!EP|!!LNS |!!DP35|!!JO|!!ESB%|!!TS0|M|!!LM5|!!LL68 |!!PL68|!!EM|M|M 330*KEY4 |!!CE|!" |!!US|!" 340*KEY5 |!!JO|!" 350*KEY6 |!!NJ|!" 360REM deletes a line above cursor;- 370*KEY7 |!|L|!#|!|M|!#|!'|!|L 380REM very small print style;- 390*KEY8 |!!ES51,16,27,15,27,83,48|!" 400REM prints degree sign;- 410*KEY9|!!ES80|!!ES83,0|!"o|!!ES84|!! ES40|!" 420ENDPROC