home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 09 / einsteig / laden.bas < prev    next >
Encoding:
BASIC Source File  |  1990-08-03  |  1.6 KB  |  56 lines
  1. 9000 REM *** BEGINN UNTERPROGRAMM "LADEN" ***
  2. 9005 :
  3. 9010 ON ERROR GOTO 11000
  4. 9020 OPEN "KALK.DAT" FOR INPUT AS #1
  5. 9030 INPUT #1, MGPR, FPR, VWPR, VPR
  6. 9040 LOCATE 19, 20
  7. 9050 PRINT "Geladen wurden die Werte: "; MGPR; FPR; VWPR; VPR
  8. 9060 GOSUB 8000
  9. 9070 CLOSE #1
  10. 9080 ON ERROR GOTO 0
  11. 9090 RETURN
  12. 9100 :
  13. 9110 REM *** ENDE DES UNTERPROGRAMMS "LADEN" ***
  14. 9120 :
  15. 10000 REM *** BEGINN UNTERPROGRAMM "SPEICHERN" ***
  16. 10005 :
  17. 10010 ON ERROR GOTO 11000
  18. 10020 OPEN "KALK.DAT" FOR OUTPUT AS #1
  19. 10030 PRINT #1, MGPR, FPR, VWPR, VPR
  20. 10040 LOCATE 19, 20
  21. 10050 PRINT "Gespeichert wurden die Werte: "; MGPR; FPR; VWPR; VPR
  22. 10060 GOSUB 8000
  23. 10070 CLOSE #1
  24. 10080 ON ERROR GOTO 0
  25. 10090 RETURN
  26. 10100 :
  27. 10110 REM *** ENDE DES UNTERPROGRAMMS "SPEICHERN" ***
  28. 10120 :
  29. 11000 REM *** BEGINN DER ANWEISUNGEN BEI EINEM DATEIFEHLER *
  30. 11005 :
  31. 11010 FEHLNR = ERR
  32. 11020 WHILE FEHLNR = 53
  33. 11030   LOCATE 18, 20: BEEP
  34. 11040   PRINT "Datei nicht vorhanden!"
  35. 11042   LOCATE 19, 20
  36. 11044   PRINT "Verarbeitet werden jetzt die Werte: "; MGPR; FPR; VWPR; VPR
  37. 11050   GOSUB 8000
  38. 11060   FEHLNR = 0
  39. 11070 WEND
  40. 11080 IF ERR = 53 THEN RESUME 9070
  41. 11090 WHILE FEHLNR = 55
  42. 11100   LOCATE 19, 20: BEEP
  43. 11110   PRINT "Datei bereits geöffnet!"
  44. 11120   GOSUB 8000
  45. 11130   FEHLNR = 0
  46. 11140 WEND
  47. 11150 IF ERR = 55 AND ERL = 9020 THEN RESUME 9030
  48. 11160 IF ERR = 55 AND ERL = 10020 THEN RESUME 10030
  49. 11170 :
  50. 11180 REM *** ENDE DER ANWEISUNGEN BEI EINEM DATEIFEHLER **
  51. 11190 :
  52. 59990 REM Hier folgt die Eingaberoutine,
  53. 59991 REM das sind die Zeilen 60000 ff.
  54. 59992 REM aus dem Programm "NEWINPUT_A.BAS"!
  55. 60000 REM *************************************************
  56.