Hires

10  HOME : VTAB 22: HGR : POKE  -16368,0: ONERR  GOTO 99

20  PRINT "Press any key to exit...";

30  FOR I = 1 TO 7

40  HCOLOR = I

50  HPLOT 0, 0 TO 279, 100 + 8 *I

52  HPLOT 279, 0 TO 0, 100 + 8 *I

54  HPLOT 130 + 3 * I, 0 TO 130 + 3 *I, 159

56  HPLOT 0, 85 + 3 * I TO 279, 85 + 3 *I

60  NEXT 

70  IF  PEEK( -16384) >127  THEN  GOTO 99

80  GOTO 70

99  POKE  -16368,0: TEXT : LIST : END