home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib35a.dsk / OCTOBER.1988 / MAKE.SOURCE.bas < prev    next >
Encoding:
BASIC Source File  |  1988-07-18  |  634 b   |  17 lines
  1. 10  REM ***********************
  2. 20  REM * MAKE.SOURCE         *
  3. 30  REM * BY RICHARD R. HIATT *
  4. 40  REM * COPYRIGHT(C) 1988   *
  5. 50  REM * MICROSPARC, INC.    *
  6. 60  REM * CONCORD, MA 01742   *
  7. 70  REM ***********************
  8. 80 D$ =  CHR$(4)
  9. 90  DIM N$(60),G(60,3)
  10. 100 M$ = "NAME.":T =  RND( -1)
  11. 110  FOR I = 1 TO 60:N$(I) = M$ + STR$(I): NEXT 
  12. 120  FOR I = 1 TO 60: FOR J = 1 TO 3:T = 0: FOR K = 1 TO 3:T = T +10 +90 * RND(1): NEXT 
  13. 130 G(I,J) =  INT(10 *T/3)/10: NEXT : NEXT 
  14. 140 F$ = "SOURCE"
  15. 150  PRINT D$"OPEN"F$: PRINT D$"WRITE"F$
  16. 160  FOR I = 1 TO 60: PRINT N$(I): FOR J = 1 TO 3: PRINT G(I,J): NEXT : NEXT 
  17. 170  PRINT D$"CLOSE"