start tok64 d64-x7PKwY 5 GOSUB1000 10 POKE53280,0:POKE53281,0 20 PRINT"{gray}{clear}{down}{right}3d klocka av andreas.s. 30 PRINT"{down*2}{right}timmar{space*3}? "LEFT$(ti$,2);:INPUT"{left*4}";t$ 40 PRINT"{right}minuter{space*2}? "MID$(ti$,3,2);:INPUT"{left*4}";m$ 50 INPUT"{right}sekunder ";s$:IFs$=""THEN70 60 ti$=t$+m$+s$ 70 PRINT"{clear}vill du ha alarm ?" 80 GETa$:IFa$=""THEN80 90 IFa$="n"THENa=0:GOTO999 100 IFa$<>"j"THEN80 110 PRINT"{clear}ange tid:":t$="{0*4}":GOTO150 120 GETa$:IFa$=""THEN120 125 IFa$=CHR$(13)THEN180 130 IFa$<"0"ORa$>"9"THEN120 140 t$=MID$(t$,2)+a$ 150 PRINT"{home}{down}"t$(VAL(LEFT$(t$,1)))"{home}{down}"TAB(7)t$(VAL(MID$(t$,2,1))) 160 PRINT"{home}{down}"TAB(20)t$(VAL(MID$(t$,3,1)))"{home}{down}"TAB(27)t$(VAL(RIGHT$(t$,1))) 170 GOTO120 180 al=-1 190 IFLEFT$(t$,2)>"23"ORRIGHT$(t$,2)>"59"THEN120 200 al$=t$ 999 GOTO1730 1000 t$(0)= "{space*3}{cm p*2}{space*2}{down}{left*7} 1010 t$(0)=t$(0)+"{space*2}N NM {down}{left*7} 1020 t$(0)=t$(0)+" NO{cm y}MN{cm g}{down}{left*7} 1030 t$(0)=t$(0)+"{cm m} {cm g} {cm m} {cm g}{down}{left*7} 1040 t$(0)=t$(0)+"{cm m} {cm g} {cm m} {cm g}{down}{left*7} 1050 t$(0)=t$(0)+"{cm m} {cm g} {cm m} {cm g}{down}{left*7} 1060 t$(0)=t$(0)+"{cm m}NM{cm p}{sh @}N {down}{left*7} 1070 t$(0)=t$(0)+" MN N{space*2}{down}{left*7} 1080 t$(0)=t$(0)+"{space*2}{cm y*2}{space*3}" 1090 t$(1)="{space*7}{down}{left*7}{space*3}N{cm g}{space*2}{down}{left*7}{space*2}{cm m} {cm g}{space*2}{down}{left*7}{space*2}{cm m} {cm g}{space*2}{down}{left*7} 1100 t$(1)=t$(1)+"{space*2}{cm m} {cm g}{space*2}{down}{left*7}{space*2}{cm m} {cm g}{space*2}{down}{left*7}{space*2}{cm m} {cm g}{space*2}{down}{left*7}{space*2}{cm m}N{space*3}{down}{left*7} 1110 t$(1)=t$(1)+"{space*7}" 1130 t$(2)="{space*2}{cm p*3}{space*2}{down}{left*7} N{space*2}NM {down}{left*7} {cm y*3}MN{cm g}{down}{left*7}{space*3}{cm p}{sh @}N " 1140 t$(2)=t$(2)+"{down}{left*7}{space*2}N N{space*2}{down}{left*7} NO{cm y}{space*3}{down}{left*7}{cm m}NM{cm p*3} {down}{left*7} 1150 t$(2)=t$(2)+" MN{space*2}N {down}{left*7}{space*2}{cm y*3}{space*2}" 1160 t$(3)="{space*2}{cm p*3}{space*2}{down}{left*7} N{space*2}NM {down}{left*7} {cm y*3}MN{cm g}{down}{left*7}{space*3}{cm p}{sh @}N " 1170 t$(3)=t$(3)+"{down}{left*7}{space*2}N NM {down}{left*7}{space*2}{cm y*2}MN{cm h}{down}{left*7}{space*2}{cm p*2}{sh @}N {down}{left*7} 1180 t$(3)=t$(3)+" N{space*2}N{space*2}{down}{left*7} {cm y*3}{space*3}" 1190 t$(4)= "{space*7}{down}{left*7} 1200 t$(4)=t$(4)+" N{cm g}{space*2}N{cm g}{down}{left*7} 1210 t$(4)=t$(4)+"{cm m} {cm g} {cm m} {cm g}{down}{left*7} 1220 t$(4)=t$(4)+"{cm m}NM{cm p}{sh @} {cm g}{down}{left*7} 1230 t$(4)=t$(4)+" MN {cm m}N{cm g}{down}{left*7} 1240 t$(4)=t$(4)+"{space*2}{cm y*2}P {cm g}{down}{left*7} 1250 t$(4)=t$(4)+"{space*4}{cm m} {cm g}{down}{left*7} 1260 t$(4)=t$(4)+"{space*4}{cm m}N {down}{left*7} 1270 t$(4)=t$(4)+"{space*7}" 1280 t$(5)= "{space*3}{cm p*3} {down}{left*7} 1290 t$(5)=t$(5)+"{space*2}N{space*2}N {down}{left*7} 1300 t$(5)=t$(5)+" NO{cm y*2}{space*2}{down}{left*7} 1310 t$(5)=t$(5)+"{cm m}NM{cm p*2}{space*2}{down}{left*7} 1320 t$(5)=t$(5)+" MN NM {down}{left*7} 1330 t$(5)=t$(5)+"{space*2}{cm y*2}MN{cm g}{down}{left*7} 1340 t$(5)=t$(5)+"{space*2}{cm p*2}{sh @}N {down}{left*7} 1350 t$(5)=t$(5)+" N{space*2}N{space*2}{down}{left*7} 1360 t$(5)=t$(5)+" {cm y*3}{space*3}" 1370 t$(6)= "{space*3}{cm p*3} {down}{left*7} 1380 t$(6)=t$(6)+"{space*2}N{space*2}N {down}{left*7} 1390 t$(6)=t$(6)+" NO{cm y*2}{space*2}{down}{left*7} 1400 t$(6)=t$(6)+"{cm m} L{cm p*2}{space*2}{down}{left*7} 1410 t$(6)=t$(6)+"{cm m}N{space*2}NM {down}{left*7} 1420 t$(6)=t$(6)+"{cm m}P{cm y*2}MN{cm g}{down}{left*7} 1430 t$(6)=t$(6)+"{cm m}NM{cm p}{sh @}N {down}{left*7} 1440 t$(6)=t$(6)+" MN N{space*2}{down}{left*7} 1450 t$(6)=t$(6)+"{space*2}{cm y*2}{space*3}" 1460 t$(7)= "{space*2}{cm p*3}{space*2}{down}{left*7} 1470 t$(7)=t$(7)+" N{space*2}NM {down}{left*7} 1480 t$(7)=t$(7)+" {cm y*3}MN{cm g}{down}{left*7} 1490 t$(7)=t$(7)+"{space*4}{cm m} {cm g}{down}{left*7} 1500 t$(7)=t$(7)+"{space*4}{cm m} {cm g}{down}{left*7} 1510 t$(7)=t$(7)+"{space*4}{cm m} {cm g}{down}{left*7} 1520 t$(7)=t$(7)+"{space*4}{cm m} {cm g}{down}{left*7} 1530 t$(7)=t$(7)+"{space*4}{cm m}N {down}{left*7} 1540 t$(7)=t$(7)+"{space*7}" 1550 t$(8)= "{space*3}{cm p*2}{space*2}{down}{left*7} 1560 t$(8)=t$(8)+"{space*2}N NM {down}{left*7} 1570 t$(8)=t$(8)+" NO{cm y}MN{cm g}{down}{left*7} 1580 t$(8)=t$(8)+"{cm m}NM{cm p}{sh @}N {down}{left*7} 1590 t$(8)=t$(8)+" MN NM {down}{left*7} 1600 t$(8)=t$(8)+" NO{cm y}MN{cm g}{down}{left*7} 1610 t$(8)=t$(8)+"{cm m}NM{cm p}{sh @}N {down}{left*7} 1620 t$(8)=t$(8)+" MN N{space*2}{down}{left*7} 1630 t$(8)=t$(8)+"{space*2}{cm y*2}{space*3}" 1640 t$(9)= "{space*3}{cm p*2}{space*2}{down}{left*7} 1650 t$(9)=t$(9)+"{space*2}N NM {down}{left*7} 1660 t$(9)=t$(9)+" NO{cm y}MN{cm g}{down}{left*7} 1670 t$(9)=t$(9)+"{cm m}NM{cm p}{sh @} {cm g}{down}{left*7} 1680 t$(9)=t$(9)+" MN {cm m}N{cm g}{down}{left*7} 1690 t$(9)=t$(9)+"{space*2}{cm y*2}P {cm g}{down}{left*7} 1700 t$(9)=t$(9)+"{space*2}{cm p*2}{sh @}N {down}{left*7} 1710 t$(9)=t$(9)+" N{space*2}N{space*2}{down}{left*7} 1720 t$(9)=t$(9)+" {cm y*3}{space*3}" 1725 RETURN 1730 PRINT"{gray}{clear}"TAB(17)" {cm p}{down}{left*2}NN{cm h}{down}{left*4}{cm m}PN{down}{left*2}{cm y} " 1740 PRINTTAB(17)"{up}{cm y}{cm p}{down}{left*2}NN{cm h}{down}{left*4}{cm m}PN{down}{left*2}{cm y} " 1750 t$=ti$ 1760 PRINT"{home}"t$(ASC(MID$(t$,1))-48) 1770 PRINT"{home}"TAB(7)t$(ASC(MID$(t$,2))-48) 1780 PRINT"{home}"TAB(20)t$(ASC(MID$(t$,3))-48) 1790 PRINT"{home}"TAB(27)t$(ASC(MID$(t$,4))-48) 1795 IFLEFT$(t$,4)=al$ANDalTHEN1870 1800 t$=ti$ 1810 PRINT"{dark gray}{reverse on}{home}{right*9}{down*10}"t$(ASC(MID$(t$,5))-48) 1820 PRINT"{reverse on}{home}{right*16}{down*10}"t$(ASC(MID$(t$,6))-48)"{gray}" 1825 PRINT"{down*2}"LEFT$(ti$,2)":"MID$(ti$,3,2)"{space*2}{reverse on}{dark gray}"MID$(ti$,5)"{gray}" 1830 IFPEEK(158)AND1THEN1750 1840 IFRIGHT$(ti$,2)<>"00"THEN1800 1850 IFt$=ti$THEN1850 1860 GOTO1750 1870 PRINT"{home}{down*10}";:FORi=1TO9 1880 PRINT"{right*9}{reverse on}{dark gray}{space*14}":NEXT 1890 PRINT"{down*2}{right*7}{reverse on}{space*2}" 1900 POKE54277,255:POKE54278,255:POKE54276,17:POKE54296,15 1910 POKE54273,4.3*VAL(MID$(ti$,5)):POKE54272,255 1915 PRINT"{up}"LEFT$(ti$,2)":"MID$(ti$,3,2)"{space*2}{reverse on}{dark gray}"MID$(ti$,5)"{gray}" 1920 GETa$:IFLEFT$(ti$,4)=al$ANDa$=""THEN1910 1930 POKE54272,0:POKE54273,0:POKE54276,0:POKE54272,0 1940 IFa$=""THEN1810 1950 PRINT"{home}{down*10}{right*9}{reverse on}{dark gray}ny tid? ";:t=ti 1960 GETa$:IFa$="j"THEN110 1970 IFa$="n"THENPRINT"n":GOTO1810 1975 IFti-t>300THEN1810 1980 GOTO1960 stop tok64 (bastext 1.0)