18 lines
439 B
Text
18 lines
439 B
Text
5 PAPER 0: CLS
|
|
10 LET d=0: INK 1: GO SUB 40
|
|
20 LET d=1: INK 6: GO SUB 40
|
|
30 STOP
|
|
40 RESTORE
|
|
50 FOR n=1 TO 5
|
|
60 READ a$
|
|
70 FOR j=1 TO LEN a$
|
|
80 PRINT AT n+7,j+5+d;
|
|
90 IF a$(j)="X" THEN PRINT CHR$ 143: REM Equivalent to 219 in ASCII extended for IBM PC
|
|
100 NEXT j
|
|
110 NEXT n
|
|
120 RETURN
|
|
130 DATA "XXX XXXX XXX X XXX"
|
|
140 DATA "X X X X X X X "
|
|
150 DATA "XXX XXXX XXX X X "
|
|
160 DATA "X X X X X X X "
|
|
170 DATA "XXX X X XXX X XXX"
|