Trans Day of Visibility on the Apple II.

BASIC Code:

10 GR : COUNTER = 0 : DIM ARR(4) : ARR(0) = 6 : ARR(1) = 11 : ARR(2) = 15 : ARR(3) = 11 : ARR(4) = 6

20 COLOR = ARR(COUNTER)

30 FOR I = 0 TO 8 : HLIN 0,39 AT I + (COUNTER * 8) : NEXT I

40 IF COUNTER < 4 THEN COUNTER = COUNTER + 1 : GOTO 20

50 IF COUNTER = 4 THEN HOME : PRINT "HAPPY TRANS DAY OF VISIBILITY!" : END

#AppleII #tdov