andrewb

TRAILS.BAS

Oct 31st, 2020
648
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 0 REM TARILS
  2. 10 HGR2:SX=0:SY=0:EX=279:EY=191
  3. 20 DIM P(4):P(2)=SX:P(3)=SY
  4. 30 P(0)=P(2):P(1)=P(3):P(2)=INT(RND(EX)*EX):P(3)=INT(RND(EY)*EY)
  5. 40 HPLOT P(0),P(1) TO P(2),P(3)
  6. 50 FOR I = 1 TO 20:NEXT I
  7. 60 GOTO 30
RAW Paste Data