start tok64 d64-sfr9iw
5 POKE53280,0:POKE53281,0
6 PRINT"{clear}{white}club 64 presenterar{.*5}"
7 PRINT"{down*4}k{space*4}l{space*5}o{space*5}c{space*5}k{space*5}a{space*5}!"
8 PRINT"{down*6}{light green}"
10 REM klock-program
12 INPUT"hur mycket [r klockan (ttmmss)";ti$
15 FORl=679TO730:READy:POKEl,y:NEXT
17 SYS679:POKE52,128:POKE56,128
19 POKE 56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252)OR1
21 POKE648,136:POKE53272,32:PRINTCHR$(142);"{clear}"
23 DATA120,165,1,41,251,133,1,169,0,133,251,169,208,133,252,169,0
24 DATA133,253,169
25 DATA128,133,254,160,0,177,251,145,253,200,192,0,208,247,230,252
26 DATA230,254,165
27 DATA252,201,216,208,237,165,1,9,4,133,1,88,96
28 PRINT"@abijkrst[{pound}]$%&-./678?{sh asterisk}AHIJQRS"
29 PRINT"cdelmnuvw^{arrow left} '()0129:;BCDKLMTUV"
30 PRINT"fghopqxyz!";CHR$(34);"#*+,345<=>EFGNOPWXY"
31 READa:IFa=-1THEN50
40 POKE32768+by,a:by=by+1:GOTO31
50 PRINT"{clear}"
60 REM huvud-slinga/klock-rutin
90 b$=LEFT$(ti$,1):PRINT"{home}{down*12}{right*10}";:GOSUB200
91 b$=MID$(ti$,2,1):PRINT"{home}{down*12}{right*13}";:GOSUB200
92 b$=MID$(ti$,3,1):PRINT"{home}{down*12}{right*17}";:GOSUB200
93 b$=MID$(ti$,4,1):PRINT"{home}{down*12}{right*20}";:GOSUB200
94 b$=MID$(ti$,5,1):PRINT"{home}{down*12}{right*24}";:GOSUB200
95 b$=MID$(ti$,6,1):PRINT"{home}{down*12}{right*27}";:GOSUB200
96 GOTO60
200 IFb$="1"THENGOSUB301
201 IFb$="2"THENGOSUB302
202 IFb$="3"THENGOSUB303
203 IFb$="4"THENGOSUB304
205 IFb$="5"THENGOSUB305
206 IFb$="6"THENGOSUB306
207 IFb$="7"THENGOSUB307
208 IFb$="8"THENGOSUB308
209 IFb$="9"THENGOSUB309
210 IFb$="0"THENGOSUB300
211 RETURN
300 PRINT"@ab{down}{left*3}cde{down}{left*3}fgh":RETURN
301 PRINT"ijk{down}{left*3}lmn{down}{left*3}opq":RETURN
302 PRINT"rst{down}{left*3}uvw{down}{left*3}xyz":RETURN
303 PRINT"[{pound}]{down}{left*3}^{arrow left} {down}{left*3}!";CHR$(34);"#":RETURN
304 PRINT"$%&{down}{left*3}'(){down}{left*3}*+,":RETURN
305 PRINT"-./{down}{left*3}012{down}{left*3}345":RETURN
306 PRINT"678{down}{left*3}9:;{down}{left*3}<=>":RETURN
307 PRINT"?{sh asterisk}A{down}{left*3}BCD{down}{left*3}EFG":RETURN
308 PRINT"HIJ{down}{left*3}KLM{down}{left*3}NOP":RETURN
309 PRINT"QRS{down}{left*3}TUV{down}{left*3}WXY":RETURN
10000 REM **** data-satser tecken ****
10010 REM
10020 REM **** 0 ****
10030 DATA 1,3,15,14,12,24,24,24
10040 DATA 255,255,255,0,0,0,0,0
10050 DATA 128,192,240,112,48,24,24,24
10060 DATA 24,24,24,24,24,24,24,12
10070 DATA 0,0,0,0,0,0,0,0
10080 DATA 24,24,24,24,24,24,24,48
10090 DATA 14,15,3,1,0,0,0,0
10100 DATA 0,255,255,255,0,0,0,0
10110 DATA 112,240,192,128,0,0,0,0
10120 REM
10130 REM **** 1 ****
10140 DATA 0,0,0,0,0,0,0,0
10150 DATA 30,62,126,254,14,14,14,14
10160 DATA 0,0,0,0,0,0,0,0
10170 DATA 0,0,0,0,0,0,0,0
10180 DATA 14,14,14,14,14,14,14,14
10190 DATA 0,0,0,0,0,0,0,0
10200 DATA 0,0,0,0,0,0,0,0
10210 DATA 14,14,14,14,0,0,0,0
10220 DATA 0,0,0,0,0,0,0,0
10230 REM
10240 REM **** 2 ****
10250 DATA 0,1,3,3,0,0,0,0
10260 DATA 255,255,255,0,1,3,7,14
10270 DATA 128,192,224,224,192,128,0,0
10280 DATA 0,0,0,0,1,3,7,14
10290 DATA 28,56,112,224,192,128,0,0
10300 DATA 0,0,0,0,0,0,0,0
10310 DATA 12,12,15,15,0,0,0,0
10320 DATA 0,0,255,255,0,0,0,0
10330 DATA 0,0,240,240,0,0,0,0
10340 REM
10350 REM **** 3 ****
10360 DATA 31,31,0,0,0,0,0,0
10370 DATA 255,255,1,1,1,1,3,15
10380 DATA 192,192,192,192,192,192,192,128
10390 DATA 0,0,0,0,0,0,0,0
10400 DATA 31,1,1,1,1,1,1,1
10410 DATA 0,128,192,192,192,192,192,192
10420 DATA 24,24,31,15,0,0,0,0
10430 DATA 3,3,255,255,0,0,0,0
10440 DATA 192,192,128,128,0,0,0,0
10450 REM
10460 REM **** 4 ****
10470 DATA 0,0,0,0,0,0,0,1
10480 DATA 3,7,15,25,25,113,225,129
10490 DATA 192,192,192,192,192,192,192,192
10500 DATA 1,1,0,0,0,0,0,0
10510 DATA 255,255,1,1,1,1,1,1
10520 DATA 240,240,192,192,192,192,192,192
10530 DATA 0,0,0,0,0,0,0,0
10540 DATA 1,1,1,1,0,0,0,0
10550 DATA 192,192,192,192,0,0,0,0
10560 REM
10570 REM **** 5 ****
10580 DATA 3,3,3,3,3,3,3,3
10590 DATA 255,255,128,128,128,128,255,255
10600 DATA 192,192,0,0,0,0,0,128
10610 DATA 0,0,0,0,0,0,0,6
10620 DATA 7,1,0,0,0,0,0,1
10630 DATA 192,224,240,112,112,112,240,224
10640 DATA 6,7,3,1,0,0,0,0
10650 DATA 3,131,255,255,0,0,0,0
10660 DATA 192,128,128,0,0,0,0,0
10670 REM
10680 REM **** 6 ****
10690 DATA 3,7,30,28,28,24,24,24
10700 DATA 255,255,0,0,0,0,0,0
10710 DATA 192,224,96,48,0,0,0,0
10720 DATA 24,31,31,24,24,24,24,28
10730 DATA 0,255,255,3,1,0,0,0
10740 DATA 0,0,128,192,224,112,48,112
10750 DATA 28,14,7,3,0,0,0,0
10760 DATA 0,0,255,255,0,0,0,0
10770 DATA 112,224,224,192,0,0,0,0
10780 REM
10790 REM **** 7 ****
10800 DATA 7,7,0,0,0,0,0,0
10810 DATA 255,255,0,1,1,3,3,6
10820 DATA 192,192,192,192,128,0,0,0
10830 DATA 0,0,0,0,0,0,0,0
10840 DATA 12,12,24,24,48,48,96,96
10850 DATA 0,0,0,0,0,0,0,0
10860 DATA 0,0,1,1,0,0,0,0
10870 DATA 192,192,128,128,0,0,0,0
10880 DATA 0,0,0,0,0,0,0,0
10890 REM
10900 REM **** 8 ****
10910 DATA 3,7,15,15,14,14,14,14
10920 DATA 255,255,255,0,0,0,0,0
10930 DATA 192,224,240,240,112,112,112,112
10940 DATA 15,7,3,7,15,14,14,14
10950 DATA 0,255,255,255,0,0,0,0
10960 DATA 240,224,192,224,240,112,112,112
10970 DATA 14,7,3,3,0,0,0,0
10980 DATA 0,0,255,255,0,0,0,0
10990 DATA 112,224,192,192,0,0,0,0
11000 REM
11010 REM **** 9 ****
11020 DATA 3,7,15,14,14,14,14,15
11030 DATA 255,255,0,0,0,0,0,0
11040 DATA 192,224,240,112,112,112,112,240
11050 DATA 15,7,0,0,0,0,0,0
11060 DATA 255,255,0,0,0,0,0,0
11070 DATA 240,240,48,48,48,48,48,48
11080 DATA 6,6,7,3,0,0,0,0
11090 DATA 0,0,255,255,0,0,0,0
11100 DATA 112,96,224,192,0,0,0,0
11110 REM **** slut p] data-satser ****
11120 REM club 64/ulf tidstrand 1989
11130 DATA -1
stop tok64
(bastext 1.0)