home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 3 / 64er_Magazin_Sonderheft_03_86-03_1986_Markt__Technik_de_Side_B.d64 / p++z (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  114 lines
  1. 1 rem"@p++z":rem  6.10.85  psz=2586
  2. 3 rem  **************
  3. 4 rem  * h.wissmann *
  4. 5 rem  * 02822 4922 *
  5. 6 rem  *  30.11.83  *
  6. 7 rem  **************
  7. 19 goto190
  8. 24 close15:open15,8,15
  9. 25 input#15,en,em$,et,es:ifen<2thenreturn
  10. 27 ifen=64thenq$="  ist kein seq.file [130]![132]":return
  11. 28 ifen=62thenq$="  gibt es nicht [130]![132]":return
  12. 29 print" "em$" [130]error[132][146]":close15:end
  13. 190 gosub24
  14. 193 s2$="****************************************"
  15. 194 s1$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  16. 195 gf$=chr$(34)
  17. 200 print"[147]**      seq.files lesen/aendern       **  file name"
  18. 210 n1$="":inputn1$:ifn1$=""then9720
  19. 220 n3$=""+n1$+"[146]"
  20. 230 print"  bestand ";n3$
  21. 240 :
  22. 250 rem ** rec.zaehlen
  23. 260 open2,8,3,n1$+",s,r"
  24. 270 q$="":gosub25:ifq$<>""thenclose2:printq$:get(NULL)q$:goto200
  25. 280 i=1
  26. 290 input#2,q$
  27. 300 ifst=64then330
  28. 310 ifst<>0then25
  29. 320 i=i+1:goto290
  30. 330 close2
  31. 340 gs=i:dima$(i)
  32. 350 ifgs>30then print gs;" variable, einen moment bitte"
  33. 360 :
  34. 370 rem **   rec.lesen
  35. 380 open2,8,3,n1$+",s,r"
  36. 390 q$="":gosub25:ifq$<>""thenclose2:printq$:get(NULL)q$:goto200
  37. 400 i=1
  38. 410 input#2,a$(i)
  39. 420 ifst=64then450
  40. 430 ifst<>0then25
  41. 440 i=i+1:goto410
  42. 450 close2
  43. 460 :
  44. 1000 print"[147]      dateiinfo ";n3$;" ";gs;"variable"
  45. 1010 prints1$" bitte gewuenschte lfd.nummer eingeben"
  46. 1020 print" oder 0=neuer file, c=copy, e=ende"
  47. 1030 print"      a=alle variablen listen":prints1$""
  48. 1040 q$="":input"[145] welche nr: ";q$
  49. 1050 ifq$="a"then1150
  50. 1060 ifq$="0"orq$="e"then9700
  51. 1070 ifq$="c"then5030
  52. 1080 q%=val(q$):ifq%<1orq%>gsthen1040
  53. 1090 print"";s2$;" ";gf$;a$(q%);gf$:print"";s2$;" a=aendern  l=loeschen"
  54. 1100 get(NULL)q$:ifq$="a"then1240
  55. 1110 ifq$="l"then1290
  56. 1120 goto1000
  57. 1130 :
  58. 1140 rem ** datei listen
  59. 1150 print"[147]   "n3$""
  60. 1160 forl=1togs
  61. 1170 ifpeek(205)<23then1190
  62. 1180 printn3$;"weiter nach return";:get(NULL)q$:print"[147]";n3$:ifq$="e"then1000
  63. 1190 print(NULL)"### ";l;
  64. 1200 print"= ";gf$;a$(l);gf$;""
  65. 1210 next
  66. 1220 get(NULL)q$:goto1000
  67. 1230 :
  68. 1240 rem ** aendern  a$(q%)
  69. 1250 print"[145]"chr$(27)"qneuer inhalt:"
  70. 1260 inputa$(q%)
  71. 1270 kt=99
  72. 1280 goto1000
  73. 1290 rem ** loeschen
  74. 1300 a$(q%)=""
  75. 1310 kt=99
  76. 1320 goto1000
  77. 1330 :
  78. 5000 print"[147] > aenderung abspeichern":input" ja/nein";x$
  79. 5010 ifx$="nein"then9710:(NULL) ifx$<>"ja"then5000
  80. 5030 print"[147]  datei speichern"
  81. 5040 print" bitte gewuenschte zieldiskette einlegen und return[146]  (z=zurueck)"
  82. 5050 get(NULL)q$:ifq$="z"then1000
  83. 5060 print" unter welchem namen soll die datei      gespeichert werden "
  84. 5070 print"  "n1$:input"[145]";n2$:ifn2$=""then1000
  85. 5080 iflen(n2$)>15thenn2$=left$(n2$,15)
  86. 5090 print"[145]  ";n2$;"[146]"
  87. 5100 open5,8,2,n2$+",s,r"
  88. 5120 input#15,en,em$,et,es
  89. 5130 close5:ifen=62then5400
  90. 5140 ifen<>0then29
  91. 5300 print"[147] die alte datei "n3$:print" wird nun 'uthelp'[146]."
  92. 5310 print" danach wird '"n2$"' neu angelegt."
  93. 5320 print#15,"s:uthelp"
  94. 5330 gosub24:print"  s-ok[146]"
  95. 5350 print#15,"r:uthelp=";n1$
  96. 5360 gosub24:print"  r-ok[146]"
  97. 5380 :
  98. 5400 kt=0
  99. 5410 open1,8,2,n2$+",s,w"
  100. 5420 gosub25:print"  saving[146] "n2$
  101. 5430 forl=1togs
  102. 5440 ifa$(l)=""then5470
  103. 5450 print#1,a$(l)
  104. 5460 gosub25
  105. 5470 next
  106. 5480 close1:goto1000
  107. 5620 :
  108. 9700 ifkt=99thengoto5000
  109. 9710 ifq$="0"thenclr:goto190
  110. 9720 gosub25:close15
  111. 9730 forl=1to30:print:next
  112. 9740 print"ende"
  113. 9750 end
  114.