Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
20 0$ = CHR$ + CHR$ (4):0P<br />
$ = 0$ + "OPEN":CL$ = 0$ + II<br />
CLOSE":RD$ = 0$ + "REAO":WR$<br />
= D$ + "WRITE"<br />
30 HD$= II HEAOERFILE":IX$ = .. IN<br />
DEXFILE":BN$ = "BASENAMEFILE<br />
..<br />
40 MEM = FRE : IF MEM < 0 THEN<br />
MEM = 65536 + MEM<br />
50 RC = INT <br />
60 DIM DB$(30>,IP$,H$C21)<br />
IT<br />
70 GOSUB 1110<br />
80 GOSUB 1480<br />
90 VTAB 21: PRINT TAB< 13)"INST<br />
RUCTIONS? ";: GET A$: PRINT<br />
: IF A$ = "Y" THEN GOSUB 12<br />
10<br />
100 IF A$ < > "N" THEN 90<br />
110 VTAB 21: CALL - 958: PRINT<br />
"INSERT FILE DISK AND PRESS<br />
ANY KEY:"·<br />
120 GET A$: PRINT<br />
130 REM<br />
READ BASENAME FILE<br />
140 ON ERR GOTO 1060<br />
150 PRINT OP$BN$RD$BN$<br />
160 INPUT ND$:ND = VAL <br />
170 FOR N = 1 TO ND<br />
180 INPUT DB$<br />
190 NEXT N<br />
200 PRINT CL$<br />
210 ONE RR GOTO 1080<br />
220 REM<br />
LIST DATA BASES<br />
230 Tl$ = "FILE CABINET DATA CHAN<br />
GE"<br />
240 HOME : PRINT : PRINT TAB< 2<br />
0 - LEN TI$: PRINT<br />
250 PRINT "SELECT A DATABASE:"<br />
260 FOR N = 1 TO ND<br />
270 PRINT TAB< 5J" ";DB$<br />
<br />
280 NEXT N<br />
290 REM<br />
PICK DATA BASE<br />
300 PRINT : PRINT : INPUT "ENTER<br />
NUMBER OR "/' TO END: ";NU$<br />
:NU = VAL <br />
NEXT N<br />
POKE 34,NH + 2<br />
INPUT "LIST BY ITEM NUMBER:<br />
";IT$:IT = VAL : PRINT<br />
PRINT '' < RET > FOR NO CHANGE. <<br />
CTRL A>TO ABORT TO ERASE OLD ENTRY": POKE<br />
34.5<br />
FOR M = 1 TO NR<br />
PRINT : PRINT "REC #";M<br />
IF IT = 0 THEN 730 -<br />
PRINT : PRINT "ITEM #";IT;"<br />
= ";IP$<br />
FOR.K = 1·To NI<br />
PRINT H$
Change language