home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib21b.dsk / CREATE.PIC.FILE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  639b  |  12 lines
  1. 1  REM  **********************
  2. 2  REM  *   CREATE.PIC.FILE  *
  3. 3  REM  * BY  DAVID EFFLANDT *
  4. 4  REM  * COPYRIGHT (C) 1984 *
  5. 5  REM  * BY MICROSPARC, INC *
  6. 6  REM  * LINCOLN, MA. 01773 *
  7. 7  REM  **********************
  8. 10  REM 
  9. 20  HCOLOR= 3:D$ =  CHR$(4): HGR :N = 4: GOSUB 50: HGR2 :N = 5: GOSUB 50: PRINT D$"BSAVE TEMP,A$2000,L$4000"
  10. 30  HGR :N = 1: GOSUB 50: PRINT D$"BLOAD TEMP,A$4000": PRINT D$"BSAVE THREE.PIC,A$2000,L$6000"
  11. 40  HGR :N = 2: GOSUB 50: HGR2 :N = 3: GOSUB 50: PRINT D$"BSAVE TWO.PIC,A$2000,L$4000": PRINT D$"DELETE TEMP": TEXT : HOME : END 
  12. 50  FOR I = 1 TO N: HPLOT 100 +(I *10),100 TO 100 +(I *10),120: NEXT I: RETURN