Shareware Grab Bag/Shareware Grab Bag.iso/010/funbasic.arc/GLASS.BAS

GW-BASIC | 1986-08-26 | 181 b | 2 lines

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