home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38b.dsk / FILL.DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  40 lines
  1. 10  REM  ***************************
  2. 20  REM  * FILL.DEMO               *
  3. 30  REM  * BY BRENT IVERSON        *
  4. 40  REM  * COPYRIGHT(C) 1990       *
  5. 50  REM  * MINDCRAFT PUBL. CORP.   *
  6. 60  REM  * CONCORD, MA. 01742      *
  7. 70  REM  ***************************
  8. 80  PRINT  CHR$(4)"BLOAD FILL.BIN"
  9. 90  REM  ---SET UP FOR GRAPHICS
  10. 100  HGR : POKE  -16302,0: HCOLOR= 3
  11. 110  REM  ---DRAW "F"
  12. 120  HPLOT 30,30 TO 70,30 TO 70,50 TO 40,50 TO 40,90 TO 60,90 TO 60,110 TO 40,110 TO 40,150 TO 30,150 TO 30,30
  13. 130  REM  ---DRAW "I"
  14. 140  HPLOT 80,30 TO 130,30 TO 130,50 TO 110,50 TO 110,130 TO 130,130 TO 130,150 TO 80,150 TO 80,130 TO 100,130 TO 100,50 TO 80,50 TO 80,30
  15. 150  REM  ---DRAW "L"
  16. 160  HPLOT 150,30 TO 160,30 TO 160,130 TO 190,130 TO 190,150 TO 150,150 TO 150,30
  17. 170  REM  ---DRAW "L"
  18. 180  HPLOT 210,30 TO 220,30 TO 220,130 TO 250,130 TO 250,150 TO 210,150 TO 210,30
  19. 190  REM  ---MAKE BORDER LINES
  20. 200  FOR I = 0 TO 24  STEP 6: HPLOT I,I TO 279 -I,I TO 279 -I,191 -I TO I,191 -I TO I,I: NEXT 
  21. 210  REM  ---FILL IN AREAS
  22. 220 X = 2:Y = 2:C = 1: GOSUB 350
  23. 230 X = 8:Y = 8:C = 2: GOSUB 350
  24. 240 X = 14:Y = 14:C = 1: GOSUB 350
  25. 250 X = 20:Y = 20:C = 2: GOSUB 350
  26. 260 X = 26:Y = 25:C = 3: GOSUB 350
  27. 270 X = 35:Y = 35:C = 5: GOSUB 350
  28. 280 X = 85:Y = 35:C = 6: GOSUB 350
  29. 290 X = 155:Y = 35:C = 5: GOSUB 350
  30. 300 X = 215:Y = 35:C = 6: GOSUB 350
  31. 310  REM  ---MAKE BUZZ AND END
  32. 320  FOR I = 1 TO 100:P =  PEEK( -16336): NEXT 
  33. 330  END 
  34. 340  REM  ---CALL FILL ROUTINE
  35. 350  POKE 6,X -(X >255) *256
  36. 360  POKE 7,X >255
  37. 370  POKE 8,Y
  38. 380  POKE 9,C
  39. 390  CALL 16384
  40. 400  RETURN