10 CLS
20 COLOR 8
30 LOCATE 3,1
40 PRINT" ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ"
50 PRINT"³\³/³  ³\³/³  ³\³/³  ³\³/³  ³\³/³"
60 PRINT" ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ"
70 PRINT"³/³\³  ³/³\³  ³/³\³  ³/³\³  ³/³\³"
80 PRINT" ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ    ÄÄÄ"
90 READ A,B,C,D$,E,F
100 IF A=0 AND B=0 AND C=0 AND D$="END" AND E=0 AND F=0 THEN RESTORE:GOTO 90
110 COLOR A
120 LOCATE B,C
130 PRINT D$;
140 FOR Z=0 TO E:NEXT
150 LOCATE B,C:COLOR F:PRINT D$;
160 GOTO 90
170 DATA 15,3,2,ÄÄÄ,9,9
180 DATA 15,3,9,ÄÄÄ,9,9
190 DATA 15,3,16,ÄÄÄ,9,9
200 DATA 15,3,23,ÄÄÄ,9,9
210 DATA 15,4,3,³,9,9
220 DATA 15,4,8,³,9,9
230 DATA 15,4,15,³,9,9
240 DATA 15,4,24,³,9,9
250 DATA 15,5,9,ÄÄÄ,9,9
260 DATA 15,5,16,ÄÄÄ,9,9
270 DATA 15,6,3,³,9,9
280 DATA 15,6,8,³,9,9
290 DATA 15,6,19,³,9,9
300 DATA 15,6,24,³,9,9
310 DATA 15,7,9,ÄÄÄ,9,9
320 DATA 15,7,16,ÄÄÄ,9,9
5000 DATA 0,0,0,END,0,0