0 CLS:?CENTER$("Lines 1")
10 CENTERX=WIDTH/2
20 CENTERY=HEIGHT/2
25 FOR C=1 TO 16
27 COLOUR C,,
29 SS=RND(10)+3
30 FOR I=1 TO WIDTH STEP SS
31 LINE CENTERX,CENTERY,I,0
32 LINE CENTERX,CENTERY,I,HEIGHT
33 IF INKEY>0 THEN GOTO 52
34 NEXT I
35 ST=RND(8)+2
36 FOR J=1 TO HEIGHT STEP ST
37 IF INKEY>0 THEN 52
39 LINE CENTERX,CENTERY,0,J
40 LINE CENTERX,CENTERY,WIDTH,J
44 NEXT J
45 NEXT C
47 COLOUR 8,,
48 PRINT LINES$(11);CENTER$("Hit any key")
49 DUM=GETKEY()
50 CLS
52 RUN MENU