home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib25b.dsk / STAFF.MAKER.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  22 lines

  1. 10  REM  ************************
  2. 20  REM  *     STAFF.MAKER      *
  3. 30  REM  *  BY DAVID L. SMITH   *
  4. 40  REM  *  COPYRIGHT (C) 1985  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  CONCORD, MA. 01742  *
  7. 70  REM  ************************
  8. 80  ONERR  GOTO 220
  9. 90 D$ =  CHR$(4): HGR2 :BO = 96: HCOLOR= 3: FOR Y = 0 TO BO  STEP BO
  10. 100  HCOLOR= 1: FOR Z = Y +18 TO Y +42  STEP 6: HPLOT 1,Z TO 278,Z: NEXT : FOR Z = Y +54 TO Y +78  STEP 6: HPLOT 1,Z TO 278,Z: NEXT 
  11. 110  HCOLOR= 2: HPLOT 0,Y +6 TO 279,Y +6: HPLOT 0,Y +48 TO 279,Y +48: HPLOT 0,Y +84 TO 279,Y +84: HPLOT 0,Y +90 TO 279,Y +90: HPLOT 0,Y +12 TO 279,Y +12
  12. 120  HCOLOR= 3: HPLOT 0,Y +18 TO 0,Y +42: HPLOT 0,Y +54 TO 0,Y +78: HPLOT 279,Y +18 TO 279,Y +42: HPLOT 279,Y +54 TO 279,Y +78
  13. 130  HPLOT 5,Y +44 TO 5,Y +45: HPLOT 6,Y +46 TO 8,Y +46: HPLOT 9,Y +45: HPLOT 10,Y +44 TO 10,Y +12: HPLOT 11,Y +11 TO 12,Y +11: HPLOT 13,Y +12 TO 13,Y +18:Z = Y +19: FOR X = 12 TO 6  STEP  -1: HPLOT X,Z:Z = Z +1: NEXT 
  14. 140  HPLOT 6,Y +26: HPLOT 5,Y +27 TO 5,Y +28: HPLOT 4,Y +29 TO 4,Y +30: HPLOT 3,Y +31 TO 3,Y +36: HPLOT 4,Y +37 TO 4,Y +38: HPLOT 5,Y +39: HPLOT 6,Y +40 TO 7,Y +40: HPLOT 8,Y +41 TO 12,Y +41: HPLOT 13,Y +40: HPLOT 14,Y +39
  15. 150  HPLOT 15,Y +38 TO 15,Y +34: HPLOT 14,Y +33: HPLOT 13,Y +32: HPLOT 12,Y +31 TO 9,Y +31: HPLOT 8,Y +32: HPLOT 7,Y +33 TO 7,Y +34
  16. 160  HPLOT 6,Y +61 TO 4,Y +61 TO 4,Y +60 TO 6,Y +60 TO 6,Y +59 TO 4,Y +59: HPLOT 3,Y +58 TO 3,Y +57: HPLOT 4,Y +56: HPLOT 5,Y +55: HPLOT 6,Y +54 TO 9,Y +54:Z = Y +55: FOR X = 10 TO 13: HPLOT X,Z:Z = Z +1: NEXT 
  17. 170  HPLOT  TO 13,Y +62: HPLOT 12,Y +63 TO 12,Y +64: HPLOT 11,Y +65:Z = Y +66: FOR X = 11 TO 3  STEP  -1: HPLOT X,Z:Z = Z +1: NEXT : HPLOT 16,Y +57: HPLOT 16,Y +63
  18. 180  NEXT Y
  19. 190  FOR K = 1 TO 2000: NEXT : PRINT  CHR$(7)
  20. 200  TEXT : HOME : VTAB 12: PRINT "OKAY TO SAVE? (Y/N)";: GET G$: PRINT G$: IF G$ = "Y"  THEN  PRINT D$"BSAVE STAFF,A$4000,L$1FFF"
  21. 210  TEXT : END 
  22. 220  TEXT : PRINT "ERROR #" PEEK(222)"  IN LINE #" PEEK(218) +256 * PEEK(219)