home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib35a.dsk / DECEMBER.1988 / MAKE.DEMO.LIST.bas < prev    next >
BASIC Source File  |  2023-02-26  |  600b  |  25 lines
  1. 10  REM  *
  2. 20  REM  * MAKE.DEMO.LIST
  3. 30  REM  * BY CHESTER PAGE
  4. 40  REM  * COPYRIGHT(C) 1988
  5. 50  REM  * MICROSPARC, INC.
  6. 60  REM  * CONCORD, MA 01742
  7. 70  REM  *
  8. 75  ONERR  GOTO 220
  9. 80 D$ =  CHR$(4)
  10. 90  PRINT D$"OPEN DEMO.LIST"
  11. 100  PRINT D$"WRITE DEMO.LIST"
  12. 110  FOR REC = 1 TO 50
  13. 120  PRINT "*";
  14. 125  PRINT REC;REC;REC
  15. 130  FOR FIELD = 1 TO 4
  16. 140  FOR I = 1 TO 7
  17. 150  PRINT  CHR$( RND(1) *26 +65);
  18. 160  NEXT I
  19. 170  PRINT : NEXT FIELD
  20. 180  PRINT : NEXT REC
  21. 190  PRINT "*";
  22. 200  PRINT D$"CLOSE"
  23. 210  END 
  24. 220  HOME : VTAB 23: PRINT "ERROR "; PEEK(222);" IN LINE "; PEEK(218) +256 * PEEK(219)
  25. 230  END