home *** CD-ROM | disk | FTP | other *** search
/ C64,5 #9 / C645_09_1997-04-20_Alliance_cs_Side_A.d64 / paddles-program. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  148 lines

  1. 1000 print chr$(147):clr
  2. 1010 : print "            prawa kirchoffa
  3. 1011 : [153] "            ===============
  4. 1012 :
  5. 1020 rem program symulacyjny do nauki elektrycznosci
  6. 1021 rem w szczegolnosci : prawa ohma
  7. 1022 rem oraz            : praw kirchoffa
  8. 1029 :
  9. 1099 :
  10. 1100 rem === przygotowanie ============
  11. 1101 :
  12. 1110 : rem -- funkcja zaokraglajaca --
  13. 1111 :
  14. 1120 :  def fn rn(x)=int(100*x+0.5)/100
  15. 1190 :
  16. 1200 : rem -- znaki sterujace --
  17. 1201 :
  18. 1210 :  kg$=chr$(145):rem kursor w gore
  19. 1220 :  kl$=chr$(157):rem kursor w lewo
  20. 1230 :  hm$=chr$(19) :rem kursor home
  21. 1240 :  ke$=chr$(147):rem kas. ekranu
  22. 1299 :
  23. 1999 :
  24. 2000 rem === wprowadzenie =============
  25. 2001 :
  26. 2100 : rem 'pole do popisu'
  27. 2101 : rem 'tu mozesz wklepac instr.'
  28. 2999 :
  29. 3000 rem === wprow. danych i inicj.====
  30. 3001 :
  31. 3100 : print: print
  32. 3200 : print" podaj wartosci parametrow!
  33. 3210 : [153]
  34. 3290 :
  35. 3300 : [133]" napiecie zrodla             [v]"; uo
  36. 3310 : [133]" calk.rezyst.potencjometru [ohm]"; rp
  37. 3320 : [133]" calk.rezyst.obciazenia    [ohm]"; rv
  38. 3390 :
  39. 3500 : [143] -- wartosci poczatkowe
  40. 3501 :
  41. 3510 :  ru[178]1000: [143] rez.wewn.woltom.
  42. 3520 :  ra[178]0.1 : [143] rez.wewn.amperom.
  43. 3530 :
  44. 3540 :  im[178]10  : [143] prad maxymalny
  45. 3998 :
  46. 3999 :
  47. 4000 [143] === schemat elektryczny ======
  48. 4001 :
  49. 4010 sz$(1)[178]"lenlenlenlen"[170]kl$[170]kl$[170]kg$[170]"  "[170]kl$[170]kg$[170]" "
  50. 4020 sz$(0)[178]"to(NULL)  "[170]kl$[170]kl$[170]kg$[170]"(NULL) "[170]kl$[170]kg$[170]"(NULL)"
  51. 4030 le$[178]"     "[170]kl$[170]kl$[170]kl$[170]kl$[170]kl$[170]kl$
  52. 4050 :
  53. 4100 : [153] ke$
  54. 4110 [153]"   orlenlenlenlenlenlenlen waitlenlenlenlenlenlenlenlenlenlenlen waitlenlenlenlenlenlenlenlenlenlen^
  55. 4120 print"   [194]       [194]           [194]          [194]
  56. 4130 [153]"   peek       peek           peek          peek
  57. 4140 print"   [194]      [176][177][174]          [194]         [176][177][174]
  58. 4150 [153]"   peek      peek peek          peek         peek peek
  59. 4160 print"   [194]      [194] [194]          [194]         [194] [194]
  60. 4170 [153]"   peek      peek peek          peek         peek peek
  61. 4180 print" [195][195][177][195][195]    [194] [194]          [194]         [194] [194]
  62. 4190 [153]"  len=len     peek peek_lenlen^      peek         peek peek
  63. 4200 print"   [194]      [194] [194]   [194]      [194]         [194] [194]
  64. 4210 [153]"   peek   rp peek peek   peek      peek      rv peek peek
  65. 4220 print"   [194]      [194] [194]   [194]      [194]         [194] [194]
  66. 4230 [153]"   peek      peek peek   peek      peek         /=exp
  67. 4240 print"   [194]      [194] [194]   [194]      [194]          [194]
  68. 4250 [153]"   peek      /=exp   peek  (NULL)lenlenlen>lenlenlenright$  (NULL)lenlenlen>lenlenlenright$
  69. 4260 print"   [194]       [194]    [194]  [194]       [194]  [194]       [194]
  70. 4270 [153]"   peek       peek    peek  mid$lenlenlen=lenlenlen(NULL)  mid$lenlenlen=lenlenlen(NULL)
  71. 4280 print"   [194]       [194]    [194]    v [194]          [194] a
  72. 4290 [153]"   peek       peek    peek      peek          peek
  73. 4300 print"   [194]       [194]    [194]      [194]          [194]
  74. 4310 [153]"   /lenlenlenlenlenlenlenexp    /lenlenlenlenlenlen waitlenlenlenlenlenlenlenlenlenlenexp
  75. 4320 print"      s1                    s2
  76. 4400 :
  77. 4999 :
  78. 5000 [143] == petla glowna (symulacja) ==
  79. 5001 :
  80. 5020 : [143] --- odczyt stanu paddles
  81. 5021 :
  82. 5030 :   sr[178]255[171][194](56321)
  83. 5040 :   dl[178][194](54297)
  84. 5050 :   dr[178][194](54298)
  85. 5090 :
  86. 5100 : [143] --- wylacznik 1
  87. 5101 :
  88. 5110 :   [139] sr[178]4 [167] s1[178]1[171]s1
  89. 5190 :
  90. 5200 : [143] --- potencjometr
  91. 5201 :
  92. 5210 :   [139] dl[178]0 [167] dl[178]1
  93. 5220 :   r1[178]rp[172]dl[173]255
  94. 5390 :
  95. 5400 : [143] --- wylacznik 2
  96. 5401 :
  97. 5410 :   [139] sr[178]8 [167] s2[178]1[171]s2
  98. 5490 :
  99. 5500 : [143] --- rezystor obciazenia
  100. 5501 :
  101. 5540 :   [139] dr[178]0 [167] dr[178]1
  102. 5550 :   r2[178]rv[172]dr[173]255
  103. 5999 :
  104. 6000 : [143] --- obliczenia
  105. 6001 :
  106. 6010 :   r3[178]1[173](1[173]r1[170]1[173]ru)
  107. 6110 :
  108. 6115 :   r4[178]r2[170]ra
  109. 6120 :   r5[178]1[173](1[173]r3[170]s2[173]r4)
  110. 6130 :   r6[178]rp[171]r1
  111. 6140 :   r[178]r5[170]r6
  112. 6190 :
  113. 6200 :   u[178]s1[172]u0
  114. 6210 :   i[178]u[173]r
  115. 6220 :   u4[178]u[171]i[172]r6
  116. 6230 :   i4[178]s2[172]u4[173]r4
  117. 6290 :
  118. 6300 : [143] --- zobrazowanie graficzne
  119. 6301 :
  120. 6400 :   [151] 214,20: [143] wyl.w lini 20
  121. 6405 :   [153] [199](13);
  122. 6410 :   [153] [166]5);sz$(s1);[166]99);sz$(s2)
  123. 6420 :
  124. 6430 :   [151] 214,15: [143] wolt.w lini15
  125. 6435 :   [153] [199](13);
  126. 6440 :   [153] [166]20);le$;[165] rn(u4)
  127. 6450 :
  128. 6460 :   [151] 214,15: [143] amp.w lini 15
  129. 6465 :   [153] [199](13);
  130. 6470 :   [153] [166]31);le$;[165] rn(i4)
  131. 6490 :
  132. 6499 :
  133. 6500 : [143] --- warunek zakonczenia
  134. 6501 :
  135. 6510 :   [139] i[177]im [167] 7000: [143] przepalenie bezpiecznika
  136. 6599 :
  137. 6900 :   [161] t$: [139] t$[179][177]" " [167] 5020
  138. 6991 :
  139. 6995 [143] koniec petli glownej =========
  140. 6998 :
  141. 6999 :
  142. 7000 [143] === koniec ===================
  143. 7001 :
  144. 7010 : [153] hm$[170]"przepalony bezpiecznik!"
  145. 7020 :
  146. 7900 : [128]
  147. 7999 :
  148.