COAET" • r

490 PRINT D$"MONCIO"
500 REM
CREATE HEADER FILE
510 PRINT OP$DB$HD$DL$DB$HD$
520 PRINT OP$DB$HD$WR$DB$HD$
530 PRINT NH
540 FOR N = 1 TO NH
550 PRINT HD$
560 NEXT N
570 PRINT CL$
580 REM
CREATE DATA FILE
590 PRINT OP$DB$IX$DL$DB$IX$
600 PRINT OP$DB$IX$WRSDB$IX$
610 PRINT NR.
620 FOR M = 1 TO NR
630 FOR N = 1 TO NH
640 PRINT ST$
650 NEXT N
660 NEXT M
670 REM
WRITE BASENAME FILE
680 PRINT CL$
690 PRINT OP$BN$WR$BN$
700 PRINT NB
710 FOR N = 1 TO NB
720 PRINT BN$
730 NEXT N
740 PRINT CL$
750 PRINT : INPUT "INITIALIZE MO
RE FILES? "iA$:A$ = LEFT$ <
A$., 1 ) : IF A~ < > "Y" AND A$
"N" GOTO 750
760 IF A$ = "N" THEN HOME : GOTO
780
770 GOTO 190
780 PRINT D$"NOMONCIO"
790 HOME : END
800 REM
ERROR HANDLING
810 CALL 1013:I = PEEK 3 AND I < 10 THEN PRINT
: PRINT "CORRECT ERROR., THEN
PRESS A KEY:";: GET At: PRINT
: RESUME .
850 PRINT "FATAL ERROR IN LINE "
; PEEK + 256 * PEEK <
219): VTAB 23: END
860 REM
AS ONERR CORRECTION
870
880
890
900
910
FOR I = 1013 TO 1022: READ P
P: POKE I,PP: NEXT I
I = 0
RETURN
gATA~
,_,4 ' 7 L. ' 15 .... ' / L. ' 9 0
REM
1Q4~A68,104,166,223,1
ERROR MSG PRINTING
920 MSG$= CHR$ :I = PEEK : IF I = 0 OR I > 15 THEN
J = 53856 + I + *
- 1: GOTO 940
930 J = 43377 + PEEK
940 K = PEEK :MSG$ =MSG$+ CHR$
: IF K < 192 THEN J = J +
1: GOTO 940
950 PRINT MSG$: PRINT : RETURN
960 REM
INSTRUCTIONS
970
980
990
1000
1010
1020
1030
1040
1050
1060
1070
1080
1090
1100
1110
1120
1130
1140
1150
1160
1170
1180
1190
1200
1210
HOME : PRINT
PRINT
11
>>> FILE CABINET
INITIALIZER