100 INK 1,25:INK 0,9:BORDER 9:MODE 0
200 LOCATE 9,2
300 PRINT "\o/"
400 LOCATE 1,3
500 GOSUB 10000
600 FOR i=0 TO 7:LOCATE 1,i+4:GOSUB 20000:NEXT
700 LOCATE 1,12:GOSUB 10000
800 FOR i=0 TO 7:LOCATE 1,i+13:GOSUB 20000:NEXT
900 LOCATE 1,21:GOSUB 10000
1000 GOTO 1000
9999 END
10000 PRINT "+"+STRING$(8,"-")+"+"+STRING$(8,"-")+"+"
10100 RETURN
20000 PRINT "+";STRING$(8," ");"+";STRING$(8," ");"+"
20100 RETURN