start tok64 d64-1WeZzi 10 GOSUB460:REM print logo 20 GOSUB300:REM goto intro. 30 GOSUB130:REM adjust the clock 40 POKE53280,0:POKE53281,0 50 PRINT"{home}"TAB(13)"{light green}alarmclock 64.":PRINTTAB(10)"{red}{cm y*20}" 60 PRINT"{light blue}{down}{right*3}time"TAB(13)"al-1."TAB(23)"al-2."TAB(33)"al-3." 70 PRINT"{pink}{right}{cm a}{sh asterisk*6}{cm s}{right*2}{red}{cm a}{sh asterisk*6}{cm s}{right*2}{cm a}{sh asterisk*6}{cm s}{right*2}{cm a}{sh asterisk*6}{cm s}" 80 PRINT"{pink}{right}B{right*6}{sh -}{right*2}{red}B{right*6}{sh -}{right*2}B{right*6}{sh -}{right*2}B{right*6}{sh -}" 90 PRINT"{pink}{right}{cm z}{sh asterisk*6}{cm x}{right*2}{red}{cm z}{sh asterisk*6}{cm x}{right*2}{cm z}{sh asterisk*6}{cm x}{right*2}{cm z}{sh asterisk*6}{cm x}" 100 PRINT"{light green}{down*5}{right*2}if you want to adjust the alarm-times," 110 PRINT"{right*2}press '{arrow left}'." 120 GOTO230 130 PRINTCHR$(147):PRINTTAB(13)"{white}alarmclock 64" 140 INPUT"{light green}{reverse on}{right*5}time{right}";ti$ 150 PRINT"{down*2}" 160 INPUT"{cyan}{reverse on}{right*5}alarm-1{right}";a$ 170 INPUT"{down}{reverse on}{right*5}alarm-2{right}";b$ 180 INPUT"{down}{reverse on}{right*5}alarm-3{right}";c$ 190 PRINTCHR$(147)"{home}{down*5}"TAB(12)a$TAB(22)b$TAB(32)c$:RETURN 200 IFa$=ti$THEN260 210 IFb$=ti$THEN260 220 IFc$=ti$THEN260 230 PRINT"{yellow}{home}{down*5}{right*2}"ti$ 240 IFPEEK(197)=57THENRUN30 250 GOTO200 260 FORl=54272TO54296:POKEl,0:NEXT 270 l=54272:POKE54296,15:POKEl+5,0:POKEl+6,249:POKEl+4,35:FORs=1TO12:FORn=sTOs*10 280 POKEl+15,s:POKEl+1,n:NEXTn,s:POKEl+4,0 290 FORl=54272TO54296:POKEl,0:NEXT:GOTO210 300 PRINT"{clear}" 310 POKE53280,0:POKE53281,0 320 PRINT"{down*2}{right*12}alarmclock 64." 330 PRINT"{light gray}{down}{right*15}by{space*2}{pink}m{light green}c{light blue}s{light gray}." 340 a$="{down}{right*3}this programme is, as many other":GOSUB430 350 a$="{down}{right*2}programmes, programmed in a special":GOSUB430 360 a$="{down}{right*3}dialect:{space*2}({pink}reagan's {light green}goofy {light blue}basic{light gray}).":GOSUB430 370 a$="{down}{light green}{right}this programme may be copied all over":GOSUB430 380 a$="{down}{right*2}the country without our permission.":GOSUB430 390 a$="{down}{pink}at last.":GOSUB430 400 a$="{light gray}{down}{right*11}watch out for {pink}m{light green}c{light blue}s{light gray}.":GOSUB430 410 a$="{down*2}{right*13}{yellow}press return!":GOSUB430 420 GETa$:IFa$=""THEN420 430 FORj=1TOLEN(a$):PRINTMID$(a$,j,1);:FORk=1TO50:NEXT:NEXT:PRINT:RETURN 440 RETURN 450 REM sprite-routines 460 PRINT"{clear}{down}"TAB(6)"{light green}just a few seconds, please.." 470 FORy=0TO191:POKE12288+y,0:NEXTy:PRINTCHR$(147) 480 c=55736:v=53248:z=0:t=107:u=207 490 POKEv+21,0 500 POKEv+23,7:POKEv+29,7 510 POKE2040,192:POKE2041,193:POKE2042,194:POKE2043,195:POKE2044,196 520 POKE2045,197:POKE2046,198:POKE2047,199 530 POKEv+28,255 540 POKEv+37,13:POKEv+38,14 550 POKEv+4,107:POKEv+1,50 560 POKEv+2,157:POKEv+3,50 570 POKEv+0,207:POKEv+5,50 580 FORx=39TO41:POKEv+x,7:NEXTx 590 FORy=0TO191 600 READa 610 POKE12288+y,a 620 NEXTy 630 POKEv+32,0:POKEv+33,0:POKEv+21,255:FORw=1TO500:NEXTw 640 FORx=50TO0STEP-.5 650 POKEv+1,x:POKEv+3,x:POKEv+5,x 660 NEXTx 670 FORx=250TO60STEP-1 680 POKEv+1,x:POKEv+3,x-10:POKEv+5,x 690 t=t+.65:u=u-.65 700 POKEv+0,u:POKEv+4,t 710 NEXTx 720 PRINT"{clear}{light blue}{down*7}{reverse on}{right*7}{cm k}{space*8}presents{space*8}{light green}" 730 z=z+1 740 FORx=0TO15 750 POKEv+37,x:POKEv+38,x:POKEv+39,x:POKEv+40,x:POKEv+41,x 760 NEXTx 770 IFz<>4THEN730 780 POKEv+37,11:POKEv+38,12:FORy=39TO41:POKEv+y,15:NEXTy 790 GOTO950 800 REM m 810 DATA0,0,0,2,0,8,14,128,56,31,128,120,23,161,120,23 820 DATA225,120,21,229,120,29,247,120,29,86,120,30,92,120,30,80 830 DATA120,30,0,120,30,0,120,30,0,120,30,0,120,30,0,120 840 DATA30,0,120,30,0,120,28,0,112,16,0,64,0,0,0,0 850 REM c 860 DATA0,0,0,0,10,0,0,62,128,0,95,160,1,87,232,5 870 DATA133,248,7,1,112,22,0,64,30,0,0,30,0,0,30,0 880 DATA0,30,0,0,30,0,0,30,128,8,31,128,56,23,160,112 890 DATA7,233,64,5,245,0,1,84,0,0,80,0,0,0,0,0 900 REM s 910 DATA0,0,0,0,10,0,0,62,128,0,95,160,1,87,232,5 920 DATA5,248,22,129,112,31,160,64,23,234,0,5,254,128,1,95 930 DATA160,0,87,232,0,5,248,2,1,120,14,128,120,31,160,112 940 DATA23,233,64,5,245,0,1,84,0,0,80,0,0,0,0,0 950 REM print prg.-name, copyright... 960 PRINT"{down*3}{right*13}alarmclock 64.{right*13}" 970 PRINT"{down*3}{right*13}programmed by:" 980 PRINT"{down*2}{right*11}per-ivar svensson." 990 PRINT"{down*3}{right*8}copyright (c) mcs{space*2}1986." 1000 z=0 1010 z=z+1 1020 FORx=1TO15:FORy=0TO39 1030 POKEc+y,x 1040 NEXTy:NEXTx 1050 IFz<>2THEN1010 1060 POKEv+21,0 1070 RETURN stop tok64 (bastext 1.0)