Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- SCREEN 12
- start:
- CLS
- RANDOMIZE TIMER
- x% = 320
- y% = 200
- DO
- C% = INT(RND * 15)
- FOR p% = 1 TO 1500
- PSET (x%, y%), C%
- x% = x% - (1 - INT(RND * 3))
- y% = y% - (1 - INT(RND * 3))
- PSET (x%, y%), C% 'ORIGINAL
- x1% = ((320 - x%) * 1) + 320
- y1% = y%
- PSET (x1%, y1%), C%
- x2% = x1%
- y2% = ((240 - y1%) * 1) + 240
- PSET (x2%, y2%), C%
- y3% = ((240 - y%) * 1) + 240
- x3% = x%
- PSET (x3%, y3%), C%
- IF INKEY$ = "N" THEN GOSUB NEWCOL
- IF INKEY$ = "y" THEN GOSUB res
- IF x% < 1 THEN GOSUB res
- IF x% > 640 THEN GOSUB res
- IF y% < 1 THEN GOSUB res
- IF y% > 480 THEN GOSUB res
- IF INKEY$ = "g" THEN END
- IF INKEY$ = "G" THEN END
- NEXT p%
- LOOP UNTIL INKEY$ = "g"
- res:
- x% = 320
- x1% = 320
- C% = INT(RND * 15)
- FOR pz% = 1 TO 320
- LINE (x%, 1)-(x%, 480), C%
- x% = x% - 2
- x1% = x1% + 2
- LINE (x1%, 1)-(x1%, 480), C%
- NEXT pz%
- y% = 240
- y1% = 240
- FOR i% = 1 TO 240 STEP 2
- LINE (1, y%)-(640, y%), C%
- y% = y% + 2
- y1% = y1% - 2
- LINE (1, y1%)-(640, y1%), C%
- FOR gz% = 1 TO 1000
- NEXT gz%
- NEXT i%
- GOSUB start:
- NEWCOL:
- C% = INT(RND * 15)
- RETURN
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement