home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Supplement 2: Soundwriter / run-supplement-2.zip / PLANT.BAS < prev    next >
BASIC Source File  |  1991-08-02  |  1KB  |  35 lines
  1. 1000 REM PLANT
  2. 1010 RANDOMIZE TIMER:COMMON MENUFL%:GOSUB 1250
  3. 1020 CL1=10:CL2=15:IF MD<8 OR MD=10 THEN CL1=1:CL2=1
  4. 1030 DIM PX(1000),SX(1000),PY(1000),SY(1000)
  5. 1040 R=1:WINDOW (0,0)-(639,349):LOCATE 1,60:PRINT "<Esc> voor menu.";
  6. 1050 CIRCLE (320,175),R,CL1
  7. 1060 PX(1)=320:PY(1)=175:SX(1)=0:SY(1)=0:AP=1:J=0:T=TIMER
  8. 1070 FOR X=1 TO AP:OPX=PX(X):OPY=PY(X)
  9. 1080 PX(X)=PX(X)+SX(X):PY(X)=PY(X)+SY(X)
  10. 1090 IF PX(X)=>640 OR PX(X)=<0 OR PY(X)=<O OR PY(X)=>350 THEN 1220
  11. 1100 LINE (OPX,OPY)-(PX(X),PY(X)),CL2
  12. 1110 Q=INT(RND*19)+1:IF Q=1 OR Q=5 THEN GOSUB 1160
  13. 1120 IF Q>5 THEN GOSUB 1210
  14. 1130 NEXT X
  15. 1140 IF INKEY$=CHR$(27) THEN 1310
  16. 1150 GOTO 1070
  17. 1160 AP=AP+1:LOCATE 1,1:PRINT "Vertakkingen:";AP:IF AP>998 THEN 1240
  18. 1170 IF AP/25=INT(AP/25) THEN R=R+3:J=J+1:CIRCLE (320,175),R,CL1
  19. 1180 LOCATE 2,1:PRINT "Jaar:";J
  20. 1190 PX(AP)=PX(X):PY(AP)=PY(X):SX(AP)=INT(RND*3)-1+SX(X)
  21. 1200 SY(AP)=INT(RND*3)-1+SY(X):RETURN
  22. 1210 SX(X)=SX(X)+INT(RND*3)-1:SY(X)=SY(X)+INT(RND*3)-1:RETURN
  23. 1220 PX(X)=PX(AP):PY(X)=PY(AP):SX(X)=SX(AP):SY(X)=SY(AP):'AP=AP-1
  24. 1230 GOTO 1110
  25. 1240 CLS:ERASE PX,SX,PY,SY:GOTO 1030
  26. 1250 KEY OFF:CLS:SCREEN 0:MD=12:ON ERROR GOTO 1270
  27. 1260 SCREEN MD:IF MD=0 THEN 1290 ELSE 1280
  28. 1270 MD=MD-1:RESUME 1260
  29. 1280 RETURN
  30. 1290 PRINT"Grafische mode niet aanspreekbaar. <Esc> voor menu."
  31. 1300 WHILE INKEY$<>CHR$(27):WEND
  32. 1310 CLS:SCREEN 0:IF MENUFL% THEN 120
  33. 1320 END
  34. 20000 REM EIND PLANT
  35.