home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 769.NEWLOG.2 < prev    next >
Text File  |  1985-09-28  |  896b  |  26 lines
  1. 10 REM NEWLOG VER 790704
  2. 20 ERRSET 200,E1,E2
  3. 30 N=0
  4. 40 INPUT"Name of new log file ? ",C$\IFC$=""THEN40
  5. 50 INPUT"Which drive do you want it on ? ",D \ D$=STR$(D)
  6. 60 IF D<0 OR D>4 THEN 50
  7. 70 INPUT"About how many entries do you want in it ? ",B
  8. 80 B= INT((B/4)+(B*.15))+1
  9. 90 CREATE C$+","+D$,B
  10. 100 CREATE "*"+C$+","+D$,2
  11. 110 OPEN #1,"*"+C$+","+D$
  12. 120 WRITE#1,N
  13. 130 CLOSE#1
  14. 140 FOR I=1 TO4
  15. 150 IF FILE("SYSTEM,"+STR$(I))=2 THEN EXIT 190
  16. 160 NEXT
  17. 170 PRINT"put a system disc on any drive, hit the 'RETURN'"
  18. 180 INPUT" ",A$ \ GOTO 140
  19. 190 CHAIN "SYSTEM,"+STR$(I)
  20. 200 ERRSET 200,E1,E2
  21. 210 IF E2=15 THEN 140
  22. 220 IF E1<>150 THEN 250 ELSE IF I>4 THEN 170 ELSE 160
  23. 250 IF E2<>7 THEN 270 ELSE PRINT"FILE ERROR" \ GOTO 140
  24. 270 IFE2<>8 THEN 280 ELSE PRINT"HARD DISC ERROR"\GOTO 140
  25. 280 PRINT"ERROR ",E2," AT LINE ",E1\GOTO 140
  26.