10 REM Counter 1
20 PRINT "Count Down"
30 GO TO 140
100 PLOT a+4,b: DRAW 17,0: DRAW 4,4: DRAW 0,42: DRAW -4,4: DRAW -17,0: DRAW -4,-4: DRAW 0,-42: DRAW 4,-4: PLOT a+6,b+4: DRAW 13,0: DRAW 2,2: DRAW 0,38: DRAW -2,2: DRAW -13,0: DRAW -2,-2: DRAW 0,-38: DRAW 2,-2: RETURN
101 PLOT a,b: DRAW 19,0: DRAW 0,4: DRAW -9,0: DRAW 0,45: DRAW -4,0: DRAW -4,-15: DRAW 4,0: DRAW 0,-30: DRAW -7,0: DRAW 0,-4: RETURN
102 PLOT a,b: DRAW 25,0: DRAW 0,4: DRAW -21,0: DRAW 21,37: DRAW 0,5: DRAW -5,5: DRAW -11,0: DRAW -5,-5: DRAW 0,-4: DRAW 4,0: DRAW 0,4: DRAW 1,1: DRAW 10,0: DRAW 1,-1: DRAW 0,-4: DRAW -21,-38: DRAW 0,-4: RETURN
103 PLOT a+4,b: DRAW 17,0: DRAW 4,4: DRAW 0,42: DRAW -4,4: DRAW -17,0: DRAW -4,-4: DRAW 0,-4: DRAW 4,4: DRAW 15,0: DRAW 2,-2: DRAW 0,-17: DRAW -15,0: DRAW 0,-4: DRAW 15,0: DRAW 0,-17: DRAW -2,-2: DRAW -15,0: DRAW -4,4: DRAW 0,-4: DRAW 4,-4: RETURN
104 PLOT a+13,b: DRAW 0,21: DRAW -13,0: DRAW 0,29: DRAW 4,0: DRAW 0,-25: DRAW 9,0: DRAW 0,10: DRAW 4,0: DRAW 0,-10: DRAW 8,0: DRAW 0,-4: DRAW -8,0: DRAW 0,-21: DRAW -4,0: RETURN
105 PLOT a,b: DRAW 21,0: DRAW 4,4: DRAW 0,21: DRAW -4,4: DRAW -16,0: DRAW -1,1: DRAW 0,14: DRAW 2,2: DRAW 19,0: DRAW 0,4: DRAW -21,0: DRAW -4,-4: DRAW 0,-19: DRAW 2,-2: DRAW 17,0: DRAW 2,-2: DRAW 0,-17: DRAW -2,-2: DRAW -18,0: DRAW 0,-4: RETURN
106 PLOT a+4,b: DRAW 17,0: DRAW 4,4: DRAW 0,17: DRAW -4,4: DRAW -17,0: DRAW 0,17: DRAW 4,4: DRAW 11,0: DRAW 4,-4: DRAW 3,3: DRAW -5,5: DRAW -14,0: DRAW -8,-8: DRAW 0,-38: DRAW 4,-4: PLOT a+5,b+4: DRAW 15,0: DRAW 1,1: DRAW 0,15: DRAW -1,1: DRAW -15,0: DRAW -1,-1: DRAW 0,-15: DRAW 1,-1: RETURN
107 PLOT a+4,b: DRAW 25,50: DRAW -25,0: DRAW 0,-4: DRAW 19,0: DRAW -24,-46: DRAW 4,0: RETURN
108 PLOT a+4,b: DRAW 17,0: DRAW 4,4: DRAW 0,17: DRAW -4,4: DRAW 4,4: DRAW 0,17: DRAW -4,4: DRAW -17,0: DRAW -4,-4: DRAW 0,-17: DRAW 4,-4: DRAW -4,-4: DRAW 0,-17: DRAW 4,-4: PLOT a+6,b+4: DRAW 13,0: DRAW 2,2: DRAW 0,13: DRAW -2,2: DRAW -13,0: DRAW -2,-2: DRAW 0,-13: DRAW 2,-2: PLOT a+6,b+29: DRAW 13,0: DRAW 2,2: DRAW 0,13: DRAW -2,2: DRAW -13,0: DRAW -2,-2: DRAW 0,-13: DRAW 2,-2: RETURN
109 PLOT a+4,b: DRAW 17,0: DRAW 4,4: DRAW 0,42: DRAW -4,4: DRAW -17,0: DRAW -4,-4: DRAW 0,-17: DRAW 4,-4: DRAW 17,0: DRAW 0,-19: DRAW -2,-2: DRAW -15,0: DRAW -4,4: DRAW 0,-4: DRAW 4,-4: PLOT a+4,b+29: DRAW 17,0: DRAW 0,17: DRAW -17,0: DRAW 0,-17: RETURN
145 LET b=62
150 INK 1
155 FOR i=1 TO 115
157 LET n=115-i
160 LET nh= INT (n/100): LET nz= INT ((n-(nh*100))/10): LET ne=n-(nh*100)-(nz*10)
165 FOR r=7 TO 14: PRINT AT r,0;"             ": NEXT r
170 IF n < 10 THEN LET a=35: GO SUB ne+100
180 IF n < 100 THEN IF n > 9 THEN LET a=18: GO SUB nz+100: LET a=a+33: GO SUB ne+100
190 IF n > 99 THEN LET a=1: GO SUB nh+100: LET a=a+32: GO SUB nz+100: LET a=a+32: GO SUB ne+100
215 NEXT i
220 INK 0: PRINT "STECCY"
230 REM Test