home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 168.dms / in.adf / Programs / stars (.txt) < prev    next >
Encoding:
AmigaBASIC Source Code  |  1988-07-26  |  886 b   |  40 lines
  1.  
  2. REM 3D Starfields by ABSOFT `88
  3. init:
  4.     w=320:h=200:d=5
  5.     
  6.     t$="3D Starfield"
  7.     SCREEN 1,w,h,d,1
  8.     WINDOW 1,t$,,y,1
  9.     PALETTE 0,1,1,1
  10.     PALETTE 1,0.2,0.4,0.8
  11.     COLOR 0,2 :CLS
  12. main:
  13.     A=30:B=160:C=280:m=-1:n=1
  14.     FOR Z=70 TO 0 STEP -10
  15.     CIRCLE (150,100),Z,RND*31
  16.     NEXT Z
  17.     LOCATE 10,17:PRINT "A"
  18.     LOCATE 12,17:PRINT "B"
  19.     LOCATE 12,15:PRINT "S"
  20.     LOCATE 12,14:PRINT "O"
  21.     LOCATE 10,14:PRINT "F"
  22.     LOCATE 10,15:PRINT"T"
  23. FOR t=1 TO 300
  24.     x=ABS(RND*240-C)
  25.     y=ABS(RND*25-100)
  26.     PSET (x,y)
  27.     SCROLL (A,A)-(C,90),0,m
  28.  
  29.     SCROLL (A,90)-(C,B),0,n 
  30.     SCROLL (A,A)-(160,B),m,0
  31.     SCROLL (140,A)-(C,B),n,0
  32.     IF t=100 THEN COLOR 6,2:LOCATE 10,14:PRINT"HELLO":COLOR 0,2
  33.     IF t=130 THEN LOCATE 12,13:PRINT "TO ALL AT"
  34.     IF t=160 THEN COLOR 10,2:LOCATE 10,12:PRINT "SEVENTEEN":LOCATE 12,12:PRINT "BIT CLUB":COLOR 0,2
  35.     IF t>190 THEN m=m+-0.1:n=n+0.1
  36.     NEXT t
  37. GOTO main
  38.     
  39.     
  40.