home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 May / 64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64 / f+m equalizer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.1 KB  |  58 lines
  1. 100 rem equalizer zur anpassung
  2. 105 rem bereits vorhandener rel-dateien
  3. 108 :
  4. 110 print"[147]"(NULL)(14,5)"f+m manager"
  5. 120 print(NULL)(13,6)"[192][192][192][192][192][192][192][192][192][192][192][192][192]"
  6. 130 print(NULL)(15,8)"equalizer"
  7. 140 print(NULL)(6,11)"dateiname  [166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"
  8. 150 (NULL)3:(NULL)
  9. 160 ds=65535 : fe=-1
  10. 170 gosub500
  11. 180 :
  12. 190 :
  13. 200 print(NULL)(5,16)"datensaetze werden gezaehlt !"
  14. 210 print(NULL)(13,18)"datensatz#"
  15. 220 (NULL)"i"
  16. 230 (NULL) s0$
  17. 240 gosub600
  18. 250 for i=1tods
  19. 260 (NULL) i,1,a$ : input#127,er
  20. 270 if er<>50 then print(NULL)(23,18);i : next
  21. 280 (NULL)
  22. 290 (NULL) "s:"+left$(s0$,15)+"+"
  23. 300 print"[147]"(NULL)(2,0)"datensaetze:"i"datensatzlaenge:"s1$
  24. 310 :
  25. 320 print(NULL)(9,3)"anzahl der felder ? ";
  26. 330 (NULL) 2,fe :dim fe(fe)
  27. 340 iffe=1thenfe(1)=asc(a$):goto450
  28. 350 :
  29. 360 for j=1to fe
  30. 370 printtab(10)"max. feldlaenge :"val(s1$)-a
  31. 380 printtab(10)"feld";j;tab(19)"laenge : ";
  32. 390 (NULL) 3,fe(j)
  33. 400 if fe(j)=0 then printtab(11)"null nicht erlaubt":goto370
  34. 410 if a+fe(j) > val(s1$) then printtab(16)"zu lang !":goto370
  35. 420 a=fe(j)+a
  36. 430 next
  37. 440 :
  38. 450 printtab(9)"file wird geschrieben!"
  39. 460 ds=i-1 : gosub500
  40. 470 close15
  41. 480 end
  42. 490 :
  43. 500 open1,8,1,left$(s0$,15)+"+"
  44. 510 print#1, chr$(ds-int(ds/256)*256);
  45. 520 print#1, chr$(ds/256);
  46. 530 if fe=-1 then  print#1,chr$(1);chr$(1);:goto580
  47. 540 print#1, chr$(fe);
  48. 550 for k=1tofe
  49. 560 print#1, chr$(fe(k));
  50. 570 next
  51. 580 close1
  52. 590 return
  53. 600 open15,8,15
  54. 610 print#15,"m-r"chr$(200)chr$(0)
  55. 620 get#15,a$
  56. 630 s1$=str$(asc(a$))
  57. 640 return
  58.