home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 July / 64er_Magazin_91-07_1991_Markt__Technik_de_Side_A.d64 / setup v1.1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  2.8 KB  |  115 lines
  1. 5 lw=8: rem laufwerksnummer fuer konfigdatei
  2. 10 print"[147]     64'er messlabor  setup/programm    "
  3. 20 print"mit diesem programm koennen sie das"
  4. 30 print"64'er messlabor[146] an ihre wuensche"
  5. 40 print"optimal anpassen. befolgen sie dazu nur"
  6. 50 print"die anweisungen, die auf dem bildschirm"
  7. 60 print"erscheinen und beachten sie die hinweise"
  8. 70 print"in der jeweiligen 64'er[146]-ausgabe!"
  9. 75 print""
  10. 80 print"[145]weiter -> taste druecken"
  11. 85 fora=1to200:nexta
  12. 90 geta$:if a$<>"" then 150
  13. 100 print"[145]weiter -> taste druecken"
  14. 110 fora=1to200:nexta
  15. 120 goto 80
  16. 150 print"[147]     64'er messlabor  setup/programm    "
  17. 160 print"wieviele analoge module haben sie"
  18. 165 print"installiert (1-6)? ";
  19. 170 get i$
  20. 180 ifi$=""then170
  21. 190 ifi$<"1"ori$>"6"thenprint:print"[145][145][145][145]";:goto160
  22. 200 print""i$
  23. 210 n=val(i$)
  24. 215 for a = 1 to 300: next a
  25. 220 for m = 1 to n
  26. 222 :  f=0
  27. 230 :  print"[147]             setup modul "m;"[157]             "
  28. 240 :  print"welche groesse misst modul ";m" ?"
  29. 250 :  print"(temperatur, luftdruck usw.)"
  30. 255 :  print"maximal 10 buchstaben"
  31. 256 :  l=10
  32. 260 :  gosub2000
  33. 261 :  g$(m)=i$
  34. 262 :  print
  35. 270 :  print"geben sie bitte die einheit an!"
  36. 280 :  print"(grad, volt usw.)"
  37. 290 :  print"maximal 4 buchstaben"
  38. 300 :  l=4
  39. 310 :  gosub 2000
  40. 311 :  e$(m)=i$
  41. 315 :  print"[147]             setup modul "m;"[157]             "
  42. 320 :  print"auf welcher bildschirmposition"
  43. 330 :  print"soll die anzeige erfolgen?"
  44. 340 :  print""
  45. 350 :  for b = 1 to 6
  46. 360 :     if p(b)<>0thenprint"      [157][157][157]   [157][157][157]      [145][145]";:goto380
  47. 370 :     print"      [157][157][157]"b"[157] [157][157][157]   [146]   [145][145]";
  48. 380 :     if b = 3 then print""
  49. 390 :  next b
  50. 395 :  print""
  51. 400 :  geta$
  52. 410 :  ifa$=""then400
  53. 420 :  ifa$<"1"ora$>"6"then400
  54. 422 :  f=0
  55. 430 :  for b = 1 to 6
  56. 440 :    if p(val(a$))<>0then f=1
  57. 450 :  next b
  58. 460 :  iff=1then400
  59. 470 :  print""a$
  60. 480 :  p(val(a$))=1
  61. 490 :  b(m)=val(a$)
  62. 500 :  print"[147]             setup modul "m;"[157]             "
  63. 510 :  print"sollen die daten auf diskette"
  64. 520 :  print"archiviert werden (j/n)?"
  65. 530 :  geta$
  66. 540 :  ifa$<>"j"anda$<>"n"then530
  67. 550 :  a(m)=(a$="j")
  68. 560 :  print""a$
  69. 561 :  forx=1to200:nextx
  70. 570 :  ifa$="n"then650
  71. 580 :  print"welchen namen soll die archiv-"
  72. 590 :  print"datei erhalten (max 16 zeichen)?"
  73. 600 :  print"achtung, dateien, die schon"
  74. 610 :  print"unter diesem namen existieren,"
  75. 620 :  print"koennen zerstoert werden!"
  76. 630 :  l=16
  77. 635 :  i$=""
  78. 640 :  gosub2000
  79. 645 :  ifi$=""theni$=g$(m)
  80. 650 :  n$(m)=i$
  81. 660 next m
  82. 700 print"[147]             setup modul              "
  83. 710 print"legen sie die diskette in laufwerk"
  84. 720 print""lw" ein und druecken eine taste"
  85. 730 print"zum speichern der konfigurations-"
  86. 740 print"datei!"
  87. 750 geta$
  88. 760 ifa$=""then750
  89. 770 open1,lw,15,"i"
  90. 780 input#1,f,f$,t,s
  91. 790 iff<>0thengosub3000
  92. 800 open2,lw,2,"@:konfigmes,s,w"
  93. 805 print#2,n
  94. 810 for m = 1 to n
  95. 820 :  print#2,g$(m)
  96. 830 :  print#2,e$(m)
  97. 840 :  print#2,b(m)
  98. 850 :  print#2,a(m)
  99. 860 :  print#2,n$(m)
  100. 870 next m
  101. 880 close2
  102. 890 close1
  103. 900 print"[147]good bye!"
  104. 1999 end
  105. 2000 x=0:i$="":a$=""
  106. 2001 geta$
  107. 2010 ifa$=""then2001
  108. 2020 if(a$<"a"ora$>"z")anda$<>"[148]"anda$<>chr$(13)then2001
  109. 2021 x=x+1:ifx=l+1thena$=chr$(13)
  110. 2025 ifa$=chr$(13)thenreturn
  111. 2026 ifa$="[148]"theni$=left$(i$,len(i$)-1):print"[157]";:x=x-2:goto2001
  112. 2030 i$=i$+a$
  113. 2040 print""a$;
  114. 2050 goto2001
  115.