Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
800 NEXT K<br />
810 NEXT M<br />
820 PRINT : INPUT "UPDATE DISK F<br />
ILE? ";YN$: POKE 34.0<br />
830 IF LE~T$ CYN$.1) =· "Y" THEN<br />
860 .<br />
840 IF LEFT$ CYN$,1) = "N" THEN<br />
970<br />
850 GOTO 820<br />
860 POKE 34.0<br />
870 REM .<br />
UPDATE FILES<br />
880<br />
890<br />
900<br />
910<br />
920<br />
930<br />
940<br />
950<br />
960<br />
970<br />
980<br />
990<br />
1000<br />
1010<br />
1020<br />
1030<br />
1040<br />
1050<br />
PRINT OP$DB$CNU>IX$<br />
PRINT RD$DB$CNU>IX$<br />
PRINT NR$<br />
FOR M = 1 TO NR<br />
FOR N = . 1 TO NH<br />
PRINT IP$CM.N><br />
NEXT N .<br />
NEXT M<br />
PRINT CL$<br />
PRINT : INPUT "MORE CHANGES?<br />
";A$: A$ = LEFT$ CA$. 1><br />
IF. LEFT$ CA$,.1) = "N" THEN<br />
1040 .<br />
IF A$ < > "Y" THEN 970<br />
PRINT : INPUT "USE SAME FIL<br />
ES? II; A$: A$ = LEFT$ (A$. 1)<br />
IF A$ = "N" THEN 230 .<br />
IF A$ = "Y" THEN 530<br />
GOTO 1000<br />
POKE 34,0: HOME : END<br />
REM<br />
ERROR HANDLING<br />
1060 CALL i013:I = PEEK : IF<br />
I = 5 OR I = 6 THEN VTAB 18<br />
: PRINT CHR$ "FILE CABIN<br />
ET FILES NOT ON THIS DISKETT<br />
E.": GOTO 110<br />
1070 GOTO 1090<br />
1080 CALL 1013<br />
1090 HOME : VTAB 12: GOSUB 1150:<br />
IF I > 3 AND I < 10 THEN PRINT<br />
TAB < 3 > ,; CORRECT ERROR. THEN<br />
PRESS A KEY.";: GET A$: PRINT<br />
: RESUME .<br />
1100 PRINT TAB< ?>"FATAL ERROR<br />
IN LINE "; PEEK + 256 t<br />
PEEK : VTAB 23: END<br />
1110 FOR I = 1013 TO 1022: READ<br />
PP: POKE I.PP: NEXT I<br />
1120 I = 0 .<br />
1130 RETURN<br />
1140 DATA 104.168.104.166.223,1<br />
54. 72. 152. 72. 96 . .<br />
1150 MSG$: C~R$. CO>:I = PEEK <<br />
222>:: IF I = 0 OR I > 15 THEN<br />
J = 53856 + I + t<br />
- 1: GOTO 1170<br />
1160 J = 43377 + PEEK : IF K < 192 THEN J<br />
= J + 1: GOTO 1170<br />
1180 PRINT TAB< 20 - LEN I 2>"** ";<br />
MSG$;" **": PRINT : RETURN .<br />
1190 REM.ERROR MESSAGE PRINTING<br />
>> FILE CABINE<br />
T STUFFER THEN HOME<br />
: END<br />
GOTO 1430<br />
REM<br />
TITLE BLOCK<br />
1480<br />
1490<br />
1500<br />
1510<br />
HOME : VTAB 6: PRINT "*****<br />
****************************<br />
******": PRINT<br />
PRINT TAB< 10>"FILE CABINE<br />
T STUFFER"<br />
PRINT<br />
PRINT TAB< 15) "WRITTEN BY"<br />
1520<br />
1530<br />
PRINT<br />
PRINT TAB< 14>"MIKE KRAMER<br />
II<br />
1540 PRINT<br />
1550 PFHNT TAB C 6) "HOUSTON AREA<br />
APPLE USERS GROUP"<br />
1560 PRINT<br />
1570 PRINT TAB< 15)"MARCH 1982"<br />
: PRINT<br />
1580 PRINT "********************<br />
*******************"<br />
1590 RETURN<br />
34 Apple Orchard