home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh28b.d64 / relativ (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  83 lines
  1. 100 OPEN 1,8,15: REM BEFEHLSKANAL OEFFNEN
  2. 110 OPEN 2,8,2,"INFODATEI,S,R": REM SEQ.DATEI OEFFNEN
  3. 120 INPUT#1,A: REM FEHLER AUFGETRETEN?
  4. 130 IF A=0 THEN INPUT#2,AD: REM NEIN, DANN ADRESS-ANZAHL LESEN
  5. 140 CLOSE 2: REM SEQUENTIELLE DATEI SCHLIESSEN
  6. 150 :
  7. 160 OPEN 2,8,2,"ADRESSEN,L,"+CHR$(100): REM REL-DATEI OEFFNEN
  8. 170 :
  9. 180 :
  10. 190 REM *** MENUE ***
  11. 200 PRINT:PRINT "1=EINTRAGEN/2=BLAETTERN/3=AENDERN/4=ENDE":PRINT
  12. 210 GET A$: IF A$="" THEN GOTO 210
  13. 220 :
  14. 230 IF A$<>"4" THEN ON VAL(A$) GOSUB 340,430,550: GOTO 200
  15. 240 :
  16. 250 CLOSE 2: REM RELATIVE DATEI SCHLIESSEN
  17. 260 PRINT#1,"S:INFODATEI": REM SEQ.DATEI LOESCHEN
  18. 270 OPEN 2,8,2,"INFODATEI,S,W": REM SEQ.DATEI OEFFNEN
  19. 280 PRINT#2,AD: REM ADRESSANZAHL SPEICHERN
  20. 290 CLOSE 2: CLOSE 1: REM ALLE DATEIEN SCHLIESEN
  21. 300 END
  22. 310 :
  23. 320 :
  24. 330 REM *** NEUE ADRESSE EINTRAGEN ***
  25. 340 PRINT "*EINTRAGEN*"
  26. 350 GOSUB 650: REM ADRESSE ABFRAGEN
  27. 360 AD=AD+1
  28. 370 REC=AD: GOSUB 880: REM POSITIONIEREN
  29. 380 GOSUB 740: REM SATZ SCHREIBEN
  30. 390 RETURN
  31. 400 :
  32. 410 :
  33. 420 REM *** BLAETTERN ***
  34. 430 PRINT "*BLAETTERN*"
  35. 440 GET A$: IF A$="" THEN GOTO 440
  36. 450 IF A$<>CHR$(29) AND A$<>CHR$(157) THEN RETURN
  37. 460 IF A$=CHR$(29) AND REC<AD THEN REC=REC+1
  38. 470 IF A$=CHR$(157) AND REC>1 THEN REC=REC-1
  39. 480 GOSUB 880: REM POSITIONIEREN
  40. 490 GOSUB 810: REM ADRESSE LESEN
  41. 500 PRINT: PRINT N$: PRINT W$: PRINT T$: PRINT
  42. 510 GOTO 440
  43. 520 :
  44. 530 :
  45. 540 REM *** AENDERN ***
  46. 550 PRINT "*AENDERN*"
  47. 560 GOSUB 650: REM ADRESSE ABFRAGEN
  48. 570 GOSUB 880: REM POSITIONIEREN
  49. 580 GOSUB 730: REM SATZ SCHREIBEN
  50. 590 RETURN
  51. 600 :
  52. 610 :
  53. 640 REM *** ADRESSE ABFRAGEN ***
  54. 650 N$="": W$="": T$=""
  55. 660 INPUT "NAME";N$
  56. 670 INPUT "WOHNORT";W$
  57. 680 INPUT "TELEFON";T$
  58. 690 RETURN
  59. 700 :
  60. 710 :
  61. 720 REM *** DATENSATZ SCHREIBEN ***
  62. 730 IF N$="" THEN N$="*": REM ACHTUNG: DAS SCHREIBEN VON
  63. 740 IF W$="" THEN W$="*": REM 'LEERSTRINGS' MUSS VER-
  64. 750 IF T$="" THEN T$="*": REM MIEDEN WERDEN !!!
  65. 760 PRINT#2,N$ CHR$(13) W$ CHR$(13) T$: REM 1 PRINT#-BEFEHL !!!
  66. 770 RETURN
  67. 780 :
  68. 790 :
  69. 800 REM *** DATENSATZ LESEN ***
  70. 810 INPUT#2,N$: IF N$="*" THEN N$=""
  71. 820 INPUT#2,W$: IF W$="*" THEN W$=""
  72. 830 INPUT#2,T$: IF T$="*" THEN T$=""
  73. 840 RETURN
  74. 850 :
  75. 860 :
  76. 870 REM *** POSITIONIEREN ***
  77. 880 HB=INT(REC/256)
  78. 890 LB=REC-HB*256
  79. 900 PRINT#1,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1)
  80. 910 RETURN
  81. 920 :
  82. 930 :
  83.