home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / SUPERGR.DEMO1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  4KB  |  61 lines
  1. 10  REM  **********************
  2. 20  REM  * SUPERGR.DEMO1      *
  3. 30  REM  * SUPERGRAPHICS GS   *
  4. 40  REM  * BY TIM MEEKINS     *
  5. 50  REM  * COPYRIGHT (C) 1988 *
  6. 60  REM  * MICROSPARC, INC    *
  7. 70  REM  * CONCORD, MA 01742  *
  8. 80  REM  **********************
  9. 90  PRINT  CHR$(4);"BRUN SUPERGR"
  10. 100  ONERR  GOTO 600
  11. 110  HIMEM: 35328
  12. 120  &  HGR : HOME : VTAB 11: HTAB 20: PRINT "Please wait...": &  TEXT 
  13. 130  FOR I = 1 TO 15: &  DEF I,0,0,0
  14. 140  &  HCOLOR= I: & C(160,100),I *12: & C(160,100),(I +1) *12
  15. 150 X = I *12 +2:Y = 0: IF X >159  THEN X = 158:Y = 98 *(I = 15) +80 *(I = 14)
  16. 160  & F(160 -X,100 -Y),15: & F(160 +X,100 -Y),15: & F(160 +X,100 +Y),15: & F(160 -X,100 +Y),15
  17. 170  NEXT 
  18. 180  VTAB 11: HTAB 18: PRINT "Press any key to start.";: GET Z$: &  RECALL : &  DRAW 
  19. 190  FOR I = 0 TO 15: FOR J = 0 TO I: &  DEF J,I -J,I -J,0: NEXT : FOR K = 1 TO 100: NEXT : NEXT 
  20. 200  FOR I = 1 TO 15: FOR J = 0 TO 15:P = 15 - ABS(I -J): &  DEF J,P,P,0: NEXT : FOR K = 1 TO 100: NEXT : NEXT 
  21. 210  FOR I = 1 TO 15: FOR J = I TO 15:P = J -I: &  DEF J,P,P,0: NEXT : FOR K = 1 TO 100: NEXT : NEXT 
  22. 220  FOR I = 0 TO 15: &  DEF I,13,7,3: FOR J = 1 TO 200: NEXT : NEXT 
  23. 230  &  CLEAR 0
  24. 240  &  HCOLOR= 1: &  HPLOT 90,160 TO 158,160 TO 124,92 TO 90,160: & F(124,100),1
  25. 250  &  HPLOT 158,24 TO 226,160 TO 162,160 TO 126,88 TO 158,24: & F(160,100),1
  26. 260  &  HCOLOR= 2: &  HPLOT 150,60 TO 190,140 TO 110,140 TO 150,60: & F(160,100),2
  27. 270  &  HPLOT 166,60 TO 206,140 TO 194,140 TO 160,72 TO 166,60: & F(166,70),2
  28. 280  &  HCOLOR= 4: &  HPLOT 142,96 TO 154,120 TO 130,120 TO 142,96
  29. 290  &  HPLOT 150,80 TO 170,120 TO 158,120 TO 144,92 TO 150,80
  30. 300  &  HPLOT 166,80 TO 186,120 TO 174,120 TO 160,92 TO 166,80
  31. 310  &  HCOLOR= 3: & F(140,110),4: & F(150,100),4: & F(170,100),4
  32. 320  FOR I = 0 TO 3: &  DEF I,15,14,15: NEXT : GOSUB 610: FOR J = 14 TO 8  STEP  -1: FOR I = 0 TO 3: &  DEF I,J,14,15: NEXT : GOSUB 610: NEXT : FOR J = 14 TO 4  STEP  -1: FOR I = 0 TO 3: &  DEF I,8,14,J: NEXT : GOSUB 610: NEXT 
  33. 330  FOR I = 13 TO 10  STEP  -1: FOR J = 0 TO 2: &  DEF J,8,I,4: NEXT : GOSUB 610: NEXT : FOR I = 7 TO 1  STEP  -1: FOR J = 0 TO 2: &  DEF J,I,10,4: NEXT : GOSUB 610: NEXT 
  34. 340  &  DEF 0,0,10,4: &  DEF 1,0,10,4: GOSUB 610: FOR I = 9 TO 6  STEP  -1: &  DEF 0,0,I,4: &  DEF 1,0,I,4: GOSUB 610: NEXT 
  35. 350  FOR I = 5 TO 3  STEP  -1: &  DEF 0,0,I,4: GOSUB 610: NEXT 
  36. 360  FOR I = 1 TO 2000: NEXT : &  DEF 5,0,2,3
  37. 370  & V(90,24),(226,160): &  HCOLOR= 5: FOR I = 206 TO 0  STEP  -1: & C(160,100),I: NEXT : &  CLEAR 0
  38. 380  &  DEF 1,15,0,15: &  HCOLOR= 1: & V(0,0),(319,100)
  39. 390 R = 100: FOR THETA = 0 TO 6.283  STEP .1258:X = (100 -R) * COS(THETA) +160:Y = (100 -R) * SIN(THETA) +100: & C(X,Y),R:R = R -2: NEXT 
  40. 400  & V(0,101),(319,199): FOR I = 100 TO 0  STEP  -4: & C(160,100),I: NEXT 
  41. 410  &  DEF 2,3,3,15: &  DEF 3,0,0,12
  42. 420  & V(60,0),(260,199)
  43. 430  FOR I = 0 TO 200  STEP 4: &  HCOLOR= 2: &  HPLOT 0,100 TO 319,I: &  HCOLOR= 3: &  HPLOT 0,I TO 319,100: NEXT 
  44. 440  &  HCOLOR= 0: FOR I = 1 TO 1000: NEXT 
  45. 450  FOR I = 100 TO 0  STEP  -1: & R(160 -I,100 -I),(160 +I,100 +I): NEXT 
  46. 460  &  CLEAR 0
  47. 470  FOR X = 0 TO 15: FOR Y = 0 TO 15: & P,Y: &  DEF X,X,Y,(X +Y)/2: NEXT : NEXT 
  48. 480 P = 0: FOR Y = 0 TO 199
  49. 490  IF P >15  THEN  & P,31 -P: GOTO 510
  50. 500  & P,P
  51. 510 C = 0: FOR X = 0 TO 319
  52. 520  IF C >15  THEN  &  HCOLOR= 31 -C: GOTO 540
  53. 530  &  HCOLOR= C
  54. 540  &  HPLOT X,Y
  55. 550 C = C +1: IF C = 32  THEN C = 0
  56. 560  NEXT 
  57. 570 P = P +1: IF P = 32  THEN P = 0
  58. 580  NEXT 
  59. 590  GET Z$
  60. 600  &  TEXT : HOME : PRINT "SuperGR Demo Terminated.": END 
  61. 610  FOR Z = 1 TO 300: NEXT : RETURN