3000 "G"USING :CLEAR :DEGREE :WAIT 0:CLS 
3005 RANDOM :W=RND 18-9
3010 M=RND 17+6:B=RND 46+9:C=RND 57+80:GOSUB 3200
3015 CURSOR 95:PRINT " P=";P;CHR$ 126:CURSOR 85:PRINT "U=";A;CHR$ 126
3016 CURSOR 77:INPUT P:V=5*P
3017 CURSOR 91:INPUT A
3020 CLS :GOSUB 3200
3090 Q=COS A*V+W:R=SIN A*V:E=5/Q/Q
3100 FOR X=B TO 146 STEP 3:Y=(X-B)*(X-B)*E-(X-B)*R/Q+22
3110 IF POINT (X,Y) GOTO 3300
3115 IF Y>31 LET X=150:GOTO 3160
3120 PSET (X,Y)
3160 NEXT X:GOTO 3015
3200 CURSOR 82:PRINT STR$ W
3201 LINE (64,M)-(79,31),X,BF
3210 GCURSOR (65,M-1):GPRINT "C0E0F0F8F8FCFCFCFCF8F8F0E0C0
3220 GCURSOR (B-8,31):GPRINT "84E8F0F048040201
3230 GCURSOR (C,31):GPRINT "08183878F8F0D0FCDEFFDEFCD0FADFFA
3240 RETURN 
3300 GCURSOR (X-4,Y+3):GPRINT "4910A518B8451284
3310 BEEP 1:IF X<79 GOTO 3015
3320 X=150:NEXT X
3330 GOTO 3000