home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42a.dsk / JULY.1992 / BUILD.DEMO.bas next >
BASIC Source File  |  2023-02-26  |  568b  |  19 lines
  1. 10  REM  ***********************
  2. 20  REM  *      BUILD.DEMO     *
  3. 30  REM  * by Thomas Zuchowski *
  4. 40  REM  * Copyright (C) 1992  *
  5. 50  REM  *   MindCraft Publ.   *
  6. 60  REM  * Lincoln, MA  01773  *
  7. 70  REM  ***********************
  8. 80  DIM A$(2000)
  9. 90 Z$ = "0000":D$ =  CHR$(4):NUM = 1800: REM  NUM=NUMBER OF ACTIVE FILES
  10. 100  FOR I = 1 TO 1800
  11. 110 A$(I) =  STR$(I *10)
  12. 120 A$(I) =  LEFT$(Z$,6 - LEN(A$(I))) +A$(I)
  13. 130  NEXT 
  14. 140  PRINT D$;"OPEN DEMOFILE"
  15. 150  PRINT D$;"WRITE DEMOFILE"
  16. 160  PRINT NUM
  17. 170  FOR I = 1 TO NUM
  18. 180  PRINT A$(I): NEXT 
  19. 190  PRINT D$;"CLOSE"