Commodore Plus 4 - Page 215

TEV
30 INPUT
40 INPUT
50 IF A$ =
U
Programs
To
Try
"
SECTION 12 5 GRAPHIC 3, 1: GRAPHIC 0, 1
10 INPUT "SHOULD I CLEAN UP MY MESS"; A$
20 INPUT "SHOULD I ROTATE11; B$
SHOULD I VARY MOTION"; C$
SHOULD I PICK THE START"; D$
Y" THEN DIM A (3,200)
60 DEF FNA (X) = INT(RND(1) * X)
70IFD$ = "Y"THENXl=FNA(80)+80:X2 =
Yl=FNA(100) + 100
75IFD$ = "Y"THENY2 = FNA(100) + 100
80IFD$o"Y" THENXl=80:X2 = 80: Yl = 100: Y2-100
90 GRAPHIC 3: FORL=1 TO 3: COLOR L, FNA{15) + 2, FNA(8):
NEXT
100 IF Cl< 1 THEN COLOR FNA(3) +1, FNA(15) +2, FNA(8):
Cl=FNA(40) + 20
110 IF C2O0 THEN 140: ELSE XA = FNA(ll)-5: XB=FNA(ll)-5:
YA=FNA{13)-6
115YB=FNA(13)-6
120 IF C$="Y" THEN C2 = FNA(10) + 5
130IFB$ = "Y"THENXB=-XA: YB=-YA
140IFC3-- 1THENC = FNA(3) + 1: C3 = FNA(10)
145 IF A$ = "Y" THEN DRAW 0, A(0,P), A(l,P) TO A(2,P), A{3,P)
150X1= XI+XA:X2=X2+XB: Yl = Y1+ YA: Y2= Y2+ YB
160IFX1<OORX1>159THENXA= -XA: X1-X1+XA
170 IF X2<0 ORX2>159 THEN XB = -XB: X2 = X2 + XB
180IFY1-:OORY1>199THENYA= -YA: Yl-Yl+YA
190 IF Y2<0 OR Y2 -199 THEN YB- -YB: Y2= Y2+YB
200 DRAW C, XI, Yl TO X2, Y2
210IFA$ = "Y"THENA(0,P)=Xl: A(1,P)=Y1: A(2,P)=X2:
A(3,P)=Y2:P=P + 1
215 IF A$ = "Y" THEN IFP>200THENP = 0
220 Cl= Cl-1: C2- C2-1: C3= C3-1: GOTO 100
Sound
Effects
Wolf Whistle
10VOL7
20 FORL = 400TO800STEP20
30SOUND1,L,3:NEXT
40 FORL -300TO600STEP40
50SOUND1,L,3:NEXT
60FORL = 600TO300STEP-40
70SOUND1,L,3:NEXT
206