home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02192 / soft4ham.arc / HELP.2 < prev    next >
Text File  |  1985-09-28  |  1KB  |  37 lines
  1. 10 REM HELP VER 790814
  2. 20 ERRSET 300,E1,E2
  3. 30 INPUT "Which drive ? ",D\IF D<1 OR D>4 THEN 30
  4. 40 PRINT \ D$=STR$(D)
  5. 50 PRINT "COMMANDS ON DRIVE ",D$," ARE :- "
  6. 60 DIM L$(1028)
  7. 70 DIM A(8)
  8. 80 PRINT
  9. 90 OPEN #0,"<*>,"+D$
  10. 100 FOR I=0 TO 63
  11. 110 L$=""
  12. 120 READ#0%I*16,&A(0),&A(1),&A(2),&A(3),&A(4),&A(5),&A(6),&A(7)
  13. 130 READ #0%I*16+12,&T 
  14. 140 IF A(0)=32 THEN 220
  15. 150 IF T>128 THEN T=T - 128
  16. 160 IF T <> 2 THEN 220
  17. 170 FOR K=0 TO 7
  18. 180 L$=L$+CHR$(A(K))
  19. 190 NEXT K
  20. 200 IF L$(1,6) = "SYSTEM" THEN 220
  21. 210 PRINT L$
  22. 220 NEXT I
  23. 230 CLOSE #0
  24. 240 FOR I=1 TO 4 \ I$=STR$(I)
  25. 250 IF FILE("SYSTEM,"+I$)=2 THEN EXIT 290
  26. 260 NEXT
  27. 270 PRINT"Put a system disc in any drive, then hit 'RETURN'"
  28. 280 INPUT" ",A$\ GOTO 240
  29. 290 CHAIN "SYSTEM,"+I$
  30. 300 ERRSET 300,E1,E2
  31. 310 IF E2=15 THEN 240 \REM ^C ABORT
  32. 320 IF E1<>90 THEN 330 ELSE PRINT"DIRECTORY ERROR"\ GOTO 240
  33. 330 IF E1<>250 THEN 330 ELSE IF I>4 THEN 270 ELSE 260
  34. 340 IF E2<>7 THEN 350 ELSE  PRINT"FILE ERROR" \GOTO 240
  35. 350 IF E2<>8 THEN 360 ELSE PRINT"HARD DISC ERROR"\GOTO 240
  36. 360 PRINT"ERROR ",E2," AT LINE ",E1\ GOTO 240
  37.