33 lines
806 B
Plaintext
33 lines
806 B
Plaintext
10 gosub 1500: rem setup clock digit strings
|
|
20 ti$ = "123456"
|
|
25 rem do some other stuff after this line
|
|
30 print x: x=x+1
|
|
40 for i=0 to 500: next
|
|
50 gosub 1000: rem display the time
|
|
60 goto 30
|
|
70 end
|
|
1000 t$ = ti$
|
|
1010 for i=1 to 6
|
|
1020 t(i) = val(mid$(t$,i,1))
|
|
1030 next
|
|
1040 print chr$(19);
|
|
1050 for j=1 to 5
|
|
1055 print tab(19);
|
|
1060 for i=1 to 6
|
|
1070 k=t(i)*3+1
|
|
1080 print mid$(z$(j),k,3);
|
|
1090 rem if j<5 then print" ";: goto 1130
|
|
1100 if i=2 then print" ";
|
|
1110 if i=4 then print" ";
|
|
1130 next
|
|
1140 print
|
|
1150 next
|
|
1160 return
|
|
1500 dim z$(5)
|
|
1510 z$(1) = "UCI I UCICCIB BCCCUCIUCIUCI"
|
|
1520 z$(2) = "B B B B BB BB B B BB B"
|
|
1530 z$(3) = "B B B UCK CBJCBJCIBCIBCIJCB"
|
|
1540 z$(4) = "B B B B B B BB BB B B"
|
|
1550 z$(5) = "JCKCCCJCCCCK BCCKJCKJCK CK"
|
|
1560 return
|