home *** CD-ROM | disk | FTP | other *** search
/ BURKS 2 / BURKS_AUG97.ISO / BURKS / SOFTWARE / COMMS / WEAKLINK.ZIP / TMT.BAS (.txt) < prev    next >
BASIC Source File  |  1987-06-11  |  984b  |  52 lines
  1. 100 OPEN "com1:300,n,8,1,ds" FOR OUTPUT AS #1
  2. 110 CLS
  3. 120 PRINT :PRINT :PRINT "                          Bootstrap to different media"
  4. 130 N$="config.s"
  5. 140 GOSUB 240
  6. 150 N$="net0.sys"
  7. 160 GOSUB 240
  8. 170 N$="ps.com"
  9. 180 GOSUB 240
  10. 190 PRINT #1,"/";
  11. 200 CLOSE
  12. 210 PRINT "Files all transfered"
  13. 220 STOP
  14. 230 '
  15. 240 PRINT #1,"N";
  16. 250 FOR L%=1 TO LEN(N$)
  17. 260 PRINT #1,"C";MID$(N$,L%,1);
  18. 270 NEXT L%
  19. 280 PRINT #1,"E";
  20. 290 ON ERROR GOTO 340
  21. 300 OPEN N$ AS #2 LEN=1
  22. 310 FIELD 2,1 AS B$
  23. 320 GOTO 390
  24. 330 '
  25. 340 BEEP
  26. 350 PRINT "Error openning ";N$
  27. 360 CLOSE #2
  28. 370 STOP
  29. 380 '
  30. 390 ON ERROR GOTO 560
  31. 400 '
  32. 410 IF EOF(2) THEN 480
  33. 420 GET #2
  34. 430 PRINT #1,"+";B$;
  35. 440 LOCATE 1,1:SZ%=SZ%+1:PRINT SZ%;
  36. 450 FOR L=1 TO 100:NEXT L
  37. 460 GOTO 410
  38. 470 '
  39. 480 PRINT #1,"Z";
  40. 490 CLOSE #2
  41. 500 LOCATE 12,30
  42. 510 PRINT N$;" Transfered           "
  43. 520 ON ERROR GOTO 0
  44. 530 SZ%=0
  45. 540 RETURN
  46. 550 '
  47. 560 ON ERROR GOTO 0
  48. 570 PRINT "Data line error"
  49. 580 CLOSE #2
  50. 590 RETURN
  51. 
  52.