SCREEN 13 LINE (100, 80)-(220, 100), 1, B LINE (100, 110)-(220, 130), 1, B FOR x = 101 TO 219 FOR col = 16 TO 31 WAIT &H3DA, 8 LINE (x, 81)-(x, 99), 31 LINE (x, 111)-(x, 129), col NEXT NEXT CLS FOR x = 0 TO 318 x2 = x + 10 FOR col = 31 TO 16 STEP -1 col2 = -(col - 47) 'DO WHILE INKEY$ = "": LOOP WAIT &H3DA, 8 LINE (x, 0)-(x, 99), 0 LINE (x2, 0)-(x2, 99), 31 LINE (x, 100)-(x, 199), col 'LINE (x + 1, 100)-(x2 - 1, 199), 32, BF LINE (x2, 100)-(x2, 199), col2 NEXT NEXT