home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 45 / Commodore_Disc_45_19xx_-_de.d64 / messerweiterung (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  179 lines
  1. 10 rem messber. erweiterung c64/128
  2. 20 rem (p) commodore disc
  3. 30 rem ============================
  4. 40 rem (c) by marco voigt      v3.5
  5. 50 rem (v) a.m.                v2.0
  6. 60 rem basic v2.0
  7. 70 rem c64/c128
  8. 80 rem ============================
  9. 95 gosub 60000
  10. 100 cl$=chr$(147):printcl$
  11. 110 printc2$
  12. 120 poke53280,0:poke53281,0:printcl$wh$;
  13. 130 printsl$rn$"         [205][197][211][211][194][197][210][197][201][195][200][211][197][210][215][197][201][212][197][210][213][206][199]        "rf$
  14. 140 printbl$left$(qd$,4)rn$" [214] "rf$"oltmesser"
  15. 150 printc4$rn$" [211] "rf$"trom-messer"
  16. 160 printc4$rn$" [197] "rf$"nde"
  17. 170 printleft$(qd$,5)left$(qr$,7)wh$rn$"[194]itte waehlen [211]ie."
  18. 180 gosub1580:ifa$="v"then240
  19. 190 ifa$="e"thenend
  20. 200 ifa$="s"then940
  21. 201 goto180
  22. 210 :
  23. 220 rem *********** voltmesser **********
  24. 230 :
  25. 240 cl$=chr$(147)+wh$+rn$+"     [214]oltmesser: [194]erechnung des [210]v     "+chr$(13)
  26. 270 printcl$;
  27. 290 printwh$c4$"[194]itte waehlen [211]ie die [194]erechnungsform  "
  28. 300 printc4$rn$"[205]oeglichkeiten:"rf$
  29. 310 printbl$
  30. 320 print"     [213]-[213]m"
  31. 330 print"[210]v= "zv$zv$zv$zv$zv$zv$zv$" * [210]m     = "rn$" 1 "rf$
  32. 340 print"      [213]m"
  33. 350 printc4$
  34. 360 print"     [213]-[213]m                   "wh$"[201]ns [200]aupt-"
  35. 380 printbl$"[210]v= "zv$zv$zv$zv$zv$zv$zv$"          = "rn$" 2 "rf$"  "wh$"menue mit"
  36. 400 printbl$"      [201]m                    "wh$rn$" >[211][208][193][195][197]< "rf$
  37. 420 printbl$c4$
  38. 430 print"[210]v=(n-1)[210]m           = "rn$" 3 "rf$
  39. 440 printc4$rn$"[197]rklaerung:[213]m=[205]essbereich des [205]esswerks"
  40. 450 print rn$"           [201]m=[211]trom bei [214]ollausschlag  "
  41. 460 print rn$"           n=[198]aktor d.[205]essbereichserw. "
  42. 470 print rn$"           [210]m=[215]iderstand des [205]esswerkes"
  43. 480 print rn$"           [213]=[218]u messende [211]pannung      "
  44. 490 print rn$"           [210]v=[214]orwiderstand            "
  45. 500 gosub1580:ifa$="1"then 550
  46. 510 ifa$="2"then690
  47. 520 ifa$="3"then820
  48. 530 ifa$=" "then run
  49. 540 goto 500
  50. 550 printcl$yl$;
  51. 560 printleft$(qd$,4)" [218]u messende [211]pannung "rn$"([213])"rf$;:inputa
  52. 570 printc4$c4$" [211]pannung d.[205]esswerkes "rn$"([213]m)"rf$;:inputb
  53. 580 printc4$c4$" [215]iderstand d.[205]esswerks "rn$"([210]m)"rf$;:inputc
  54. 590 if b>aorb=athenprintc4$+c4$+wh$+c3$+c3$+c3$+rn$+"[211]ie brauchen keinen [215]iderstand.":goto640
  55. 600 ifa=0orb=0orc=0thenprintc4$+c4$+left$(qr$,6)+rn$+wh$+"[194]edienungsfehler!":forl=1to800:nextl:goto550
  56. 610 printc4$c4$left$(qr$,7)g3$"[194]itte warten ...":forl=1to800:nextl
  57. 620 rv=(a-b)/b*c
  58. 630 printbl$c4$c4$"     [214]orwiderstand ([210]v)="rv"[207]hm"
  59. 650 printbl$c4$c4$left$(qr$,7)rn$"[206]och eine [194]erechnung (j/n)"
  60. 660 a=0:b=0:c=0
  61. 670 gosub1580:ifa$="j"then:goto 550
  62. 680 if a$="n"then270
  63. 681 goto670
  64. 690 printcl$yl$;
  65. 700 printc4$c4$c4$" [218]u messende [211]pannung "rn$"([213])"rf$;:inputa
  66. 710 printc4$c4$" [211]pannung d.[205]esswerkes "rn$"([213]m)"rf$;:inputb
  67. 720 printc4$c4$" [211]trom bei [214]ollausschlag"rn$"([201]m)"rf$;:inputd
  68. 730 if a<bora=bthenprintc4$+c4$+left$(qr$,4)+rn$+wh$+c3$+"[211]ie brauchen keinen [215]iderstand.":goto 780
  69. 740 ifnot(a=0orb=0ord=0)then760
  70. 741 printc4$+c4$+left$(qr$,7)+wh$+rn$+"[194]edienungsfehler!"
  71. 745 forl=1to800:nextl:goto690
  72. 750 printc4$c4$left$(qr$,9)g3$"[194]itte warten ...":forl=1to800:nextl
  73. 760 rv=(a-b)/d
  74. 770 printbl$c4$c4$c4$c3$c3$c3$"[214]orwiderstand ([210]v)="rv"[207]hm"
  75. 780 rem
  76. 790 printbl$c4$c4$left$(qr$,6)rn$"[206]och eine [194]erechnung (j/n)"
  77. 800 a=0:b=0:d=0:gosub1580:ifa$="j"then690
  78. 810 if a$="n"then 240
  79. 811 goto800
  80. 820 printcl$yl$;
  81. 830 printc4$c4$c4$" [198]aktor d.[205]essb.erweiterung "rn$"(n)"rf$;:inpute
  82. 840 printc4$c4$" [215]iderstand d.[205]esswerkes "rn$"([210]m)"rf$;:inputc
  83. 850 if e<1ore=1thenprintc4$+c4$+c3$+c3$+c3$+wh$+rn$+"[211]ie brauchen keinen [215]iderstand":goto900
  84. 860 ife=0orc=0thenprintc4$+c4$+c4$+left$(qr$,7)+wh$+rn$+"[194]edienungsfehler!":forl=1to800:nextl:goto820
  85. 870 printc4$c4$c4$left$(qr$,8)g3$"[194]itte warten ...":forl=1to800:nextl
  86. 880 rv=(e-1)*c
  87. 890 printbl$c4$c4$left$(qr$,4)"[214]orwiderstand ([210]v)="rv"[207]hm"
  88. 910 printbl$c4$c4$left$(qr$,4)rn$c3$"[206]och eine [194]erechnung (j/n)"
  89. 920 e=0:c=0:gosub1580:ifa$="j"then820
  90. 930 ifa$="n"then 240
  91. 931 goto920
  92. 940 cl$=chr$(147)+pu$+rn$+"    [211]trom-messer: [194]erechnung des [210]p    "+chr$(13)
  93. 960 printcl$;
  94. 970 printwh$c4$" [194]itte waehlen [211]ie eine [194]erechnungsform"
  95. 980 print" "c4$rn$"[205]oeglichkeiten:"rf$
  96. 990 printpu$
  97. 1000 print"      [201]m"
  98. 1010 print"[210]p= "zv$zv$zv$zv$zv$zv$" * [210]m    = "rn$" 1 "rf$
  99. 1020 print"     [201]-[201]m
  100. 1030 [153]
  101. 1040 [153]"      (NULL)m                   "wh$"right$ns left$aupt-"
  102. 1060 [153]pu$"(NULL)p= "zv$zv$zv$zv$zv$zv$"         = "rn$" 2 "rf$" "wh$"  menue mit:"pu$
  103. 1070 [153]"     right$-right$m                  "wh$rn$" >(NULL)(NULL)atnlenval<"s2$pu$
  104. 1080 [153]
  105. 1090 [153]"      (NULL)m"
  106. 1100 [153]"(NULL)p= "zv$zv$zv$zv$zv$zv$"         = "rn$" 3 "rf$
  107. 1110 [153]"    (n-1)
  108. 1120 print
  109. 1130 printyl$rn$"[197]rklaerung:[201]m=[205]essbereich des [205]esswerks"
  110. 1140 printrn$"           [201] =[218]u messender [211]trom       "
  111. 1150 printrn$"           [210]m=[215]iderstand des [205]esswerkes"
  112. 1160 printrn$"           n =[198]aktor f.[205]essbereichserw."
  113. 1165 printrn$"           [213]m=[211]pannungsabfall bei [201]m   "
  114. 1166 printrn$"              am [205]esswerk              "
  115. 1170 gosub1580:ifa$="1"then 1220
  116. 1180 if a$="2"then 1350
  117. 1190 if a$="3"then 1460
  118. 1200 if a$=" "then run
  119. 1210 goto 1170
  120. 1220 printcl$yl$;
  121. 1230 printc4$c4$c4$" [205]essbereich d.[205]esswerks "rn$"([201]m)"rf$;:inputg
  122. 1240 printc4$c4$" [218]u messender [211]trom "rn$"([201])"rf$;:inputh
  123. 1250 printc4$c4$" [215]iderstand d.[205]esswerkes"rn$"([210]m)"rf$;:inputf
  124. 1260 ifg>horg=hthen printc4$c4$c4$c3$c3$c3$wh$rn$+"[211]ie brauchen keinen [215]iderstand":goto1310
  125. 1270 ifg*h*f=0thenprintc4$c4$c4$left$(qr$,6)wh$rn$"[194]edienungsfehler!":forl=1to800:nextl:goto1220
  126. 1280 printc4$c4$left$(qr$,8)g3$"[194]itte warten ...":forl=1to1000:nextl
  127. 1290 rp=g/(h-g)*f
  128. 1300 printbl$c4$c4$c3$"[208]arallelwiderstand ([210]p)="rp"[207]hm"
  129. 1310 printbl$c4$c4$rn$left$(qr$,4)"[206]och eine [194]erechnung (j/n)"
  130. 1320 g=0:h=0:f=0
  131. 1330 gosub1580:ifa$="j"then 1220
  132. 1340 ifa$="n"then 960
  133. 1341 goto1330
  134. 1350 printcl$yl$;
  135. 1360 printc4$c4$c4$" [211]pannung bei [214]ollausschlag"rn$"([213]m)"rf$;:inputf
  136. 1370 printc4$c4$" [205]essbereich d.[205]esswerks"rn$"([201]m)"rf$;:inputg
  137. 1380 printc4$c4$" [218]u messender [211]trom     "rn$"([201])"rf$;:inputh
  138. 1390 ifnot(g>horg=h)then1400
  139. 1391 printc4$c4$c4$c3$c3$c3$wh$rn$"[211]ie brauchen keinen [215]iderstand":goto1430
  140. 1400 printc4$c4$left$(qr$,8)g3$"[194]itte warten ...":forl=1to1000:nextl
  141. 1410 rp=f/(h-g)
  142. 1420 printbl$c4$c4$c3$"[208]arallelwiderstand ([210]p)="rp"[207]hm"
  143. 1430 printbl$c4$c4$rn$left$(qr$,4)"[206]och eine [194]erechnung (j/n)"
  144. 1440 f=0:g=0:h=0:geta$:ifa$="j"then 1350
  145. 1450 ifa$="n"then940
  146. 1451 goto1440
  147. 1460 printcl$yl$;
  148. 1470 printleft$(qd$,4)" [215]iderstand d.[205]esswerkes"rn$"([210]m)"rf$;:inputi
  149. 1480 printc4$c4$" [198]aktor d.[205]essbereich [197]rw."rn$"(n)"rf$;:inputk
  150. 1490 ifk=1ork<1thenprintc4$+c4$+c3$+c3$+c3$+wh$+rn$+"[211]ie brauchen keinen [215]iderstand":goto1540
  151. 1500 ifi=0ork=0 thenprintc4$+c4$+left$(qr$,8)+wh$+rn$+"[194]edienungsfehler!":forl=1to800:nextl:goto1460
  152. 1510 printc4$c4$left$(qr$,8)g3$"[194]itte warten ...":forl=1to1000:nextl
  153. 1520 rp=i/(k-1)
  154. 1530 printbl$c4$c4$c3$"[208]arallelwiderstand ([210]p)="rp"[207]hm"
  155. 1540 printbl$c4$c4$rn$left$(qr$,4)"[206]och eine [194]erechnung (j/n)":i=0:k=0
  156. 1550 gosub1580:ifa$="j"then1460
  157. 1560 if a$="n"then940
  158. 1561 goto1550
  159. 1580 geta$:ifa$=""then1580
  160. 1590 return
  161. 60000 rem nachspann ===============
  162. 60010 rem * farbcodes/steuercodes *
  163. 60020 wh$=chr$(005):sl$=chr$(014)
  164. 60030 c4$=chr$(017):rn$=chr$(018)
  165. 60040 he$=chr$(019):c3$=chr$(029)
  166. 60050 c2$=chr$(145):rf$=chr$(146)
  167. 60060 cl$=chr$(147):g3$=chr$(155)
  168. 60070 rem *** zeichensatz/graphik *
  169. 60080 s2$=chr$(160):zv$=chr$(192)
  170. 60081 bl$=chr$(154):yl$=chr$(158)
  171. 60082 pu$=chr$(156)
  172. 60090 rem ********* zeichenfolgen *
  173. 60100 for q=1 to 40
  174. 60110 qd$=qd$+c4$:qr$=qr$+c3$
  175. 60120 next q
  176. 60130 return
  177. 60140 rem messber. erweiterung ====
  178. 60150 rem =ende====================
  179.