home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Between Heaven & Hell 2
/
BetweenHeavenHell.cdr
/
100
/
47
/
cklstrd.2
< prev
next >
Wrap
Text File
|
1985-09-28
|
1KB
|
37 lines
10 REM CKLSTRD VER 791207
20 ERRSET 9060,E1,E2
30 INPUT"Name of CHECK LIST file ? ",L1$\IF L1$=""THEN 30
40 INPUT"Which drive is it on ? ",D1 \ IF D1<1ORD1>4 THEN40
50 D1$=STR$(D1) \ D1$=D1$(2,2)
60 INPUT"Which output device (0-7) ? ",Z\IFZ>7 OR Z<0 THEN60
70 OPEN #1,L1$+","+D1$
80 I=0
90 PRINT#Z,"Check list ......",TAB(20),L1$
100 FOR J=0 TO 5
110 READ #1,C$
120 IF LEN (C$)<3 THEN EXIT230
130 IF C$(1,3)="-*-"THEN EXIT 230
140 IF C$=C1$THEN 150 ELSE 160
150 PRINT#Z, TAB(J*10),"******", \ GOTO 180
160 PRINT#Z, TAB(J*10),C$,
170 C1$=C$
180 NEXT
190 PRINT#Z
200 I=I+1 \ IF I<60 THEN 100
210 REM FORM FEED
220 FOR I=1 TO 5 \ PRINT #Z \ NEXT \ GOTO 80
230 PRINT#Z
240 CLOSE#1
9000 FOR I=1 TO 4
9010 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 9030
9020 NEXT \ GOTO 9040
9030 CHAIN "SYSTEM,"+STR$(I)
9040 PRINT"put a system disc in any drive, then hit 'RETURN'"
9050 INPUT" ",A$ \ GOTO 9000
9060ERRSET 9060,E1,E2
9070 IF E2=15THEN9000
9080 IFE1=9010THENIFI<1ORI>4THEN9040ELSE9020
9090 IFE2<>7THEN9100ELSEPRINT"FILE ERROR"\GOTO9000
9100 IFE2<>8THEN9110ELSEPRINT"HARD DISC ERROR"\GOTO9000
9110 PRINT"ERROR ",E2," AT LINE ",E1\GOTO9000