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