home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib30a.dsk / FEBRUARY.1987 / DEMONSTRATOR.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  33 lines
  1. 10  REM  **********************
  2. 20  REM  *    DEMONSTRATOR    *
  3. 30  REM  *  BY A.R. CLAYTON   *
  4. 40  REM  * COPYRIGHT (C) 1987 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  REM  SET UP A PROTECTED AREA FOR OUR FILE
  9. 90  LOMEM: 15104: REM  PROTECT OUR FILE FROM PRODOS & VARIABLES
  10. 100  PRINT  CHR$(4)"BLOAD/BILLING.1/AWRD"
  11. 110  REM  THIS MUST BE THE FIRST ARRAY DIMENSIONED
  12. 120  DIM DA$(30): REM  DIM AN ARRAY FOR THE APPLEWORKS DATA
  13. 130  REM  DEFINE THE FIRST STRING WITH THE FILE NAME
  14. 140  REM  THE PREFIX IS OPTIONAL IF IT WAS PREVIOUSLY DEFINED
  15. 150 FL$ = "/BILLING.2/BILLING"
  16. 160  REM  CALL THE SETUP PORTION TO OPEN THE FILE AND FIND THE DATA
  17. 170  CALL 12288
  18. 180  REM  TEST THE ERR FLAG AT 252
  19. 190  REM  THE ERR NUMBER IS RETURNED
  20. 200  IF  PEEK(252) >00  THEN  PRINT  PEEK(252): END 
  21. 210  REM  CALL THE DATA READING PORTION
  22. 220  REM  AND BRING BACK ALL OF ONE RECORD
  23. 230  REM  THIS WILL BE 30 ITEMS EVEN IF YOU HAVE LESS
  24. 240  REM  SO IF YOU KNOW THAT ONLY 12 ITEMS EXIST
  25. 250  REM  SET THE FOR NEXT LOOP TO  FOR I=0 TO 11
  26. 260  CALL 12291
  27. 270  REM  WE EXPECT AN ERR AT THE FILE END
  28. 280  IF  PEEK(252) >00  THEN  END 
  29. 290  REM  PRINT THE DATA TO THE SCREEN
  30. 300  FOR I = 0 TO 29: PRINT DA$(I): NEXT 
  31. 310  REM  PRINT A DIVIDER
  32. 320  PRINT "---------"
  33. 330  GOTO 260