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