home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 July / 64er_Magazin_91-07_1991_Markt__Technik_de_Side_A.d64 / main v1.1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  4.1 KB  |  147 lines
  1. 1 poke53280,1:poke53281,0
  2. 5 nu= 0
  3. 6 fa = 1000.82836
  4. 10 rem ****************************************
  5. 20 rem * main v1.1  (c) by markt und technik  *
  6. 30 rem * 1991                                 *
  7. 40 rem * written by hgrb                      *
  8. 50 rem * 1991                                 *
  9. 60 rem ****************************************
  10. 70 lw=8: rem laufwerksnummer
  11. 80 ifa=0thena=1:load"messzyklus",lw,1
  12. 85 print"[147]moechten sie den a/d-wandler eichen?"
  13. 86 print"(j/n)"
  14. 87 geta$:ifa$=""then87
  15. 88 ifa$="j"then1000
  16. 89 ifa$<>"n"then86
  17. 90 z%(1)=2:z%(2)=2:z%(3)=2:z%(4)=10:z%(5)=10:z%(6)=10
  18. 100 s%(1)=1:s%(2)=15:s%(3)=29:s%(4)=1:s%(5)=15:s%(6)=29
  19. 110 l$="          "
  20. 120 print"[147]            64'er messlabor             "
  21. 130 dimma$(6,4)
  22. 140 open1,lw,15,"i"
  23. 150 open2,lw,2,"konfigmes,s,r"
  24. 160 input#2,n :rem anzahl installierter module
  25. 170 for m = 1 to n :rem moduldaten einlesen
  26. 180 :  input#2,g$(m) :rem zu messende groesse
  27. 190 :  input#2,e$(m) :rem einheit des messwerts
  28. 200 :  input#2,b(m) :rem bildschirmposition
  29. 210 :  input#2,a(m)  :rem archivierung?
  30. 220 :  input#2,n$(m) :rem archivierungsdatei
  31. 230 next m :rem naechstes modul
  32. 231 close2
  33. 232 close1
  34. 240 rem *************************************
  35. 250 rem * start der messroutinen            *
  36. 260 rem *************************************
  37. 270 rem initialisierung
  38. 280 rem goto 60000 : rem hier kann funkuhrroutine eingebaut werden
  39. 290 for i = 1 to 6
  40. 300 :  ma$(i,0) = "modul "+str$(i)+"  "
  41. 310 :  ma$(i,1) = "000000[146]"
  42. 320 :  ma$(i,2) = "unit[146]"
  43. 330 :  ma$(i,3) = "[158]          [146]"
  44. 340 :  m  = i
  45. 345 :  bs = i
  46. 350 :  gosub 570: rem maske aufbauen
  47. 360 next i
  48. 370 print"";
  49. 380 fora=1to8
  50. 390 :  print"[165]"spc(11)"[167]"spc(13)"[167]"spc(12)"[167]";
  51. 400 next a
  52. 410 print"[207][183][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][183][183][183][208][183][183][183][183][183][183][183][183][183][183][183][183][208]";
  53. 420 fora=1to8
  54. 430 :  print"[165]"spc(11)"[167]"spc(13)"[167]"spc(12)"[167]";
  55. 440 next a
  56. 450 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";
  57. 460 form=1ton
  58. 470 :  bs=m
  59. 480 :  on m gosub 10000,10000,10000,10000,10000,10000
  60. 490 ma$(m,0)=""+g$(m)+left$(l$,10-len(g$(m)))
  61. 500 ma$(m,2)=""+e$(m)+left$(l$,4-len(e$(m)))
  62. 510 :  ma$(m,1)=""+right$(str$(an),7)+left$(l$,6-len(str$(an)))
  63. 520 :  bs =b(m)
  64. 530 :  gosub570
  65. 540 next m
  66. 550 goto460
  67. 560 end
  68. 570 rem ************************************
  69. 580 rem *bildschirmausgabe anzeigefeld     *
  70. 590 rem *uebergabewert: nummer der         *
  71. 600 rem *ausgabeposition in bs             *
  72. 610 rem ************************************
  73. 620 print"";: rem auf homeposition
  74. 630 for a = 0 to z%(bs) : rem zeilen-
  75. 640 :  print"";
  76. 650 next a
  77. 660 for a = 1 to s%(bs) : rem und spalten-
  78. 670 :  print""; :rem position
  79. 680 next a : rem einstellen
  80. 690 print ""ma$(m,0); : rem ausgabe messgroesse
  81. 700 print"[157][157][157][157][157][157][157][157][157][157]";ma$(m,1);ma$(m,2); : rem ausgabe wert und einheit
  82. 710 print"[157][157][157][157][157][157][157][157][157][157]";ma$(m,3)
  83. 720 return
  84. 1000 print"[147]eichung des analog/digitalwandlers"
  85. 1010 print"schliessen sie den eingang des"
  86. 1020 print"a/d-wandlers mit einer drahtbruecke"
  87. 1030 print"kurz (entspricht 0 volt).
  88. 1040 [153]"druecken sie dann eine taste!"
  89. 1050 [161]a$
  90. 1060 [139]a$[178]""[167]1050
  91. 1070 bs[178]1
  92. 1080 [129]a[178]1[164]10
  93. 1090 :  [141]5000
  94. 1100 :  n[178]n[170]fz
  95. 1110 [130]a
  96. 1120 n[178]n[173]10
  97. 1130 [153]"eichwert fuer 0volt ist ";n
  98. 1140 [153]"bitte tragensie diesen wert im"
  99. 1150 [153]"programm ein mit:"
  100. 1160 [153]"5 n = <eichwert>"
  101. 1170 [153]"verbinden sie nun den eingang"
  102. 1180 [153]"des a/d-wandlers mit 5 volt."
  103. 1190 [153]"druecken sie dann eine taste."
  104. 1200 [161]a$
  105. 1210 [139]a$[178]""[167]1200
  106. 1220 bs[178]1
  107. 1230 [141]5000
  108. 1240 [129]a[178]1[164]10
  109. 1250 :  [141]5000
  110. 1260 :  fa[178]fa[170]fz
  111. 1270 [130]a
  112. 1280 fa[178]fa[173]10
  113. 1290 [153]"die steigung betraegt ";fa[173]5
  114. 1300 [153]"tragen sie diesen wert im"
  115. 1310 [153]"programm ein mit:"
  116. 1320 [153]"6 fa = <steigung>"
  117. 1330 [153]"danach muss das programm unbedingt"
  118. 1340 [153]"unter dem namen main v1.2e"
  119. 1350 [153]"auf disk gespeichert werden!"
  120. 1360 [128]
  121. 5000 [143] ************************************
  122. 5010 [143] * analogmessroutine                *
  123. 5020 [143] * uebergabewert: analogmodul-      *
  124. 5030 [143] * nummer in variable bs            *
  125. 5040 [143] * eichwerte fuer nullpunkt in      *
  126. 5050 [143] * n, fuer steigung in fa           *
  127. 5060 [143] ************************************
  128. 5070 [151]56579,[194](56579)[176] 224
  129. 5080 [151] 56577,m[172]32                   :[143] analogport waehlen
  130. 5090 [158] 53100                          :[143] timing nur in masch.
  131. 5100 fz [178] (255[171][194](56580))[170](255[171][194](56581))[172]256
  132. 5110 u [178] (fz [171] nu) [173] fa                  :[143] eichung
  133. 5120 [142]
  134. 10000 [143] ************************************
  135. 10010 [143] * druckmodul                       *
  136. 10020 [143] * uebergabe: analogportnummer in bs*
  137. 10030 [143] ************************************
  138. 10035 nt[178]2224.400:ns[178]23.5700
  139. 10036 [151]56579,[194](56579)[176]224
  140. 10037 [151]56577,m[172]32
  141. 10040 [129]te[178]1[164]1000
  142. 10050 [130]
  143. 10060 [141] 5000
  144. 10100 an [178][181](((fz[171]nt)[173]ns)[172]10[170].5)[173]10
  145. 10109 [139]an[177][178]100[167]an[178]99.99
  146. 10110 [142]
  147.