home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 746.LOG.2 < prev    next >
Text File  |  1985-09-28  |  768b  |  19 lines
  1. 10 ERRSET 9060,E1,E2
  2. 20 PRINT CHR$(12),CHR$(26),CHR$(27)\REM CLRS
  3. 30 PRINT"G3ZCZ AMATEUR RADIO PACKAGE VERSION 2.0"
  4. 40 PRINT
  5. 60 PRINT"(C) Copyright G3ZCZ/Snow Micro Systems Inc. 1979"
  6. 70 PRINT
  7. 9000 FOR I=1 TO 4
  8. 9010 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 9030
  9. 9020 NEXT \ GOTO 9040
  10. 9030 CHAIN "SYSTEM,"+STR$(I)
  11. 9040 PRINT"put a system disc in any drive, then hit 'RETURN'"
  12. 9050 INPUT" ",A$ \ GOTO 9000
  13. 9060 ERRSET 9060,E1,E2
  14. 9070 IF E2=15THEN9000
  15. 9080 IFE1=9010THENIFI<1ORI>4THEN9040ELSE9020
  16. 9090 IFE2<>7THEN9100ELSEPRINT"FILE ERROR"\GOTO9000
  17. 9100 IFE2<>8THEN9110ELSEPRINT"HARD DISC ERROR"\GOTO9000
  18. 9110 PRINT"ERROR ",E2," AT LINE ",E1\GOTO9000
  19.