home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 100 / 47 / system.2 < prev    next >
Text File  |  1985-09-28  |  896b  |  24 lines
  1. 10 REM SYSTEM PROGRAM VERSION 790702
  2. 20 ERRSET 110,E1,E2
  3. 30 REM COPYRIGHT SNOW MICRO SYSTEMS INC. 1979
  4. 40 REM BY JOE KASSER JUNE 1979
  5. 45 PRINT
  6. 50 DIMX$(15) \ INPUT">",C$
  7. 60 FOR I=1 TO 4\ I$=STR$(I) \X$=C$+","+I$(2,2)
  8. 70 IF FILE(X$)=2 THEN EXIT 100
  9. 80 NEXT\ PRINT"cannot find ",C$
  10. 90 GOTO 170
  11. 100 CHAIN X$
  12. 110 ERRSET 110,E1,E2
  13. 120 IF E2=15 THEN 170
  14. 130 IF E1<>70 THEN 140 ELSE IF I>4 THEN 90 ELSE 80
  15. 140 IF E1<>180 THEN150 ELSE IF I>4 THEN 210 ELSE 190
  16. 150 IF E2<>8 THEN 160 ELSE PRINT"HARD DISC ERROR"\GOTO 170
  17. 160 PRINT"ERROR ",E2," AT LINE ",E1 \GOTO 170
  18. 170 FOR I=1 TO 4
  19. 180 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 200
  20. 190 NEXT \ GOTO 210
  21. 200 CHAIN "SYSTEM,"+STR$(I)
  22. 210 PRINT"put a system disc in any drive, then hit 'RETURN'"
  23. 220 INPUT" ",A$ \ GOTO 170
  24.