10 MEMORY 23999
20 CALL &6B78
21 INK 1,7:INK 0,0
22 INK 2,26:INK 3,26
30 MODE 1
31 DEFINT A-Z
32 pen 1:FOR i=1 TO 24:LOCATE 1,i:PRINT STRING$(40,"O"):NEXT
60 |3D,0:|SETLIMITS,0,80,0,200
80 FOR i=0 TO 31:|SETUPSP,i,0,0:NEXT
90 |SETUPSP,31,9,27:|SETUPSP,31,0,1+64
91 x=40:y=100: incx=1:incy=1
92 |LOCATESP,31,y,x
100 |PRINTSPALL,0,0,0
110 x=x+incx:IF x>76 OR x<0 THEN incx=-incx  
120 y=y+incy:IF y>180 OR y<10 THEN incy=-incy 
130 GOTO 92