June 2018 Update

Task/Draw-a-clock/BASIC/draw-a-clock.basic

@@ -0,0 +1,32 @@
+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