10 SCREEN 9:LOCATE 12,14:PRINT  THE WINE GLASS :FOR D=1 TO 48000!:NEXT:CLS:FOR I=1 TO 514 STEP .1:X=10*I:Y=20*SIN(I)+50:LINE(X,Y)-(Y,X),X MOD 15:FOR D=1 TO X :NEXT:NEXT:LOCATE 18,11:PRINT  OOPS! :FOR I=143 TO 177 STEP 6:PSET(70,I):NEXT:FOR K=1 TO 5000: