start tok64 d64-NwCwMl
0 DIMt$(22):FORi=1TO22:READt$(i):NEXT:INPUT"mata in din tid";a$:IFa$=""THENEND
1 DEFFNa(o)=ASC(RIGHT$(a$,o))-48:h=FNa(5)*10+FNa(4):m=FNa(2)*10+FNa(1)
2 IFLEN(a$)-5ORh>23ORh<.ORm>59ORm<.ORFNa(3)+2THENPRINT"ogiltig tid":RUN
3 IFm>29THENm=60-m:p=1-p:DATAen,tv],tre,fyra,fem,sex,sju,]tta,nio,tio,elva,tolv
4 h=h+p:IFm>24THENm=m+30:l$="halv ":GOTO3:DATAtret,fjor,kvart,sex,sjut,art,nit
5 n=m+20*NOTm<20:h=h+12*NOTh<13:PRINT"klockan [r "t$(m-n)t$(n);
6 IFm/5>INT(m/5)THENPRINTMID$("ton minut",4^-NOTn>12);:IFm>1THENPRINT"er";
7 PRINTMID$(" {pound}ver i ",6^p,6*SGN(m))l$t$(h-21*NOTh>1):RUN:DATAtjugo,tolv,ett
10 REM         {down}{reverse on} sys pd, 1991 {down}
11 REM av: lars loeskow och per-erik
12 REM     andersson
13 REM vinnare i dmz:s klockutmaning
14 REM publicerad i dmz #20, 1990
stop tok64
(bastext 1.0)