Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2014
323
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. SCREEN 12
  2. start:
  3.  
  4. CLS
  5. RANDOMIZE TIMER
  6. x% = 320
  7. y% = 200
  8.  
  9. DO
  10.  C% = INT(RND * 15)
  11.  FOR p% = 1 TO 1500
  12.   PSET (x%, y%), C%
  13.   x% = x% - (1 - INT(RND * 3))
  14.   y% = y% - (1 - INT(RND * 3))
  15.   PSET (x%, y%), C%   'ORIGINAL
  16.   x1% = ((320 - x%) * 1) + 320
  17.   y1% = y%
  18.   PSET (x1%, y1%), C%
  19.   x2% = x1%
  20.   y2% = ((240 - y1%) * 1) + 240
  21.   PSET (x2%, y2%), C%
  22.   y3% = ((240 - y%) * 1) + 240
  23.   x3% = x%
  24.   PSET (x3%, y3%), C%
  25.   IF INKEY$ = "N" THEN GOSUB NEWCOL
  26.   IF INKEY$ = "y" THEN GOSUB res
  27.   IF x% < 1 THEN GOSUB res
  28.   IF x% > 640 THEN GOSUB res
  29.   IF y% < 1 THEN GOSUB res
  30.   IF y% > 480 THEN GOSUB res
  31.   IF INKEY$ = "g" THEN END
  32.   IF INKEY$ = "G" THEN END
  33.  NEXT p%
  34. LOOP UNTIL INKEY$ = "g"
  35.  
  36. res:
  37.  x% = 320
  38.  x1% = 320
  39.  C% = INT(RND * 15)
  40.  FOR pz% = 1 TO 320
  41.   LINE (x%, 1)-(x%, 480), C%
  42.   x% = x% - 2
  43.   x1% = x1% + 2
  44.   LINE (x1%, 1)-(x1%, 480), C%
  45.  NEXT pz%
  46.  
  47.  y% = 240
  48.  y1% = 240
  49.  FOR i% = 1 TO 240 STEP 2
  50.   LINE (1, y%)-(640, y%), C%
  51.   y% = y% + 2
  52.   y1% = y1% - 2
  53.   LINE (1, y1%)-(640, y1%), C%
  54.   FOR gz% = 1 TO 1000
  55.   NEXT gz%
  56.  NEXT i%
  57.  
  58. GOSUB start:
  59.  
  60. NEWCOL:
  61. C% = INT(RND * 15)
  62. RETURN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement