1 MODE 8:INK 6:WINDOW #1,512,256,0,0:CLS:PRINT:PRINT:PRINT ,,"   \O/": FOR a = 0 TO 18
2 IF a/9-INT(a/9)=0 THEN
3 x$="+":y$="--------+"
4 ELSE x$="!":y$="        !"
5 END IF : PRINT ,"   ";x$;y$;y$:NEXT a
