1000 PRINT CHR$(147):CLR
1010 : PRINT "            PRAWA KIRCHOFFA
1011 : [153] "            ===============
1012 :
1020 REM PROGRAM SYMULACYJNY DO NAUKI ELEKTRYCZNOSCI
1021 REM W SZCZEGOLNOSCI : PRAWA OHMA
1022 REM ORAZ            : PRAW KIRCHOFFA
1029 :
1099 :
1100 REM === PRZYGOTOWANIE ============
1101 :
1110 : REM -- FUNKCJA ZAOKRAGLAJACA --
1111 :
1120 :  DEF FN RN(X)=INT(100*X+0.5)/100
1190 :
1200 : REM -- ZNAKI STERUJACE --
1201 :
1210 :  KG$=CHR$(145):REM KURSOR W GORE
1220 :  KL$=CHR$(157):REM KURSOR W LEWO
1230 :  HM$=CHR$(19) :REM KURSOR HOME
1240 :  KE$=CHR$(147):REM KAS. EKRANU
1299 :
1999 :
2000 REM === WPROWADZENIE =============
2001 :
2100 : REM 'POLE DO POPISU'
2101 : REM 'TU MOZESZ WKLEPAC INSTR.'
2999 :
3000 REM === WPROW. DANYCH I INICJ.====
3001 :
3100 : PRINT: PRINT
3200 : PRINT" PODAJ WARTOSCI PARAMETROW!
3210 : [153]
3290 :
3300 : [133]" NAPIECIE ZRODLA             [V]"; UO
3310 : [133]" CALK.REZYST.POTENCJOMETRU [OHM]"; RP
3320 : [133]" CALK.REZYST.OBCIAZENIA    [OHM]"; RV
3390 :
3500 : [143] -- WARTOSCI POCZATKOWE
3501 :
3510 :  RU[178]1000: [143] REZ.WEWN.WOLTOM.
3520 :  RA[178]0.1 : [143] REZ.WEWN.AMPEROM.
3530 :
3540 :  IM[178]10  : [143] PRAD MAXYMALNY
3998 :
3999 :
4000 [143] === SCHEMAT ELEKTRYCZNY ======
4001 :
4010 SZ$(1)[178]"LENLENLENLEN"[170]KL$[170]KL$[170]KG$[170]"  "[170]KL$[170]KG$[170]" "
4020 SZ$(0)[178]"TO(null)  "[170]KL$[170]KL$[170]KG$[170]"(null) "[170]KL$[170]KG$[170]"(null)"
4030 LE$[178]"     "[170]KL$[170]KL$[170]KL$[170]KL$[170]KL$[170]KL$
4050 :
4100 : [153] KE$
4110 [153]"   ORLENLENLENLENLENLENLEN WAITLENLENLENLENLENLENLENLENLENLENLEN WAITLENLENLENLENLENLENLENLENLENLEN^
4120 PRINT"   [194]       [194]           [194]          [194]
4130 [153]"   PEEK       PEEK           PEEK          PEEK
4140 PRINT"   [194]      [176][177][174]          [194]         [176][177][174]
4150 [153]"   PEEK      PEEK PEEK          PEEK         PEEK PEEK
4160 PRINT"   [194]      [194] [194]          [194]         [194] [194]
4170 [153]"   PEEK      PEEK PEEK          PEEK         PEEK PEEK
4180 PRINT" [195][195][177][195][195]    [194] [194]          [194]         [194] [194]
4190 [153]"  LEN=LEN     PEEK PEEK_LENLEN^      PEEK         PEEK PEEK
4200 PRINT"   [194]      [194] [194]   [194]      [194]         [194] [194]
4210 [153]"   PEEK   RP PEEK PEEK   PEEK      PEEK      RV PEEK PEEK
4220 PRINT"   [194]      [194] [194]   [194]      [194]         [194] [194]
4230 [153]"   PEEK      PEEK PEEK   PEEK      PEEK         /=EXP
4240 PRINT"   [194]      [194] [194]   [194]      [194]          [194]
4250 [153]"   PEEK      /=EXP   PEEK  (null)LENLENLEN>LENLENLENRIGHT$  (null)LENLENLEN>LENLENLENRIGHT$
4260 PRINT"   [194]       [194]    [194]  [194]       [194]  [194]       [194]
4270 [153]"   PEEK       PEEK    PEEK  MID$LENLENLEN=LENLENLEN(null)  MID$LENLENLEN=LENLENLEN(null)
4280 PRINT"   [194]       [194]    [194]    V [194]          [194] A
4290 [153]"   PEEK       PEEK    PEEK      PEEK          PEEK
4300 PRINT"   [194]       [194]    [194]      [194]          [194]
4310 [153]"   /LENLENLENLENLENLENLENEXP    /LENLENLENLENLENLEN WAITLENLENLENLENLENLENLENLENLENLENEXP
4320 PRINT"      S1                    S2
4400 :
4999 :
5000 [143] == PETLA GLOWNA (SYMULACJA) ==
5001 :
5020 : [143] --- ODCZYT STANU PADDLES
5021 :
5030 :   SR[178]255[171][194](56321)
5040 :   DL[178][194](54297)
5050 :   DR[178][194](54298)
5090 :
5100 : [143] --- WYLACZNIK 1
5101 :
5110 :   [139] SR[178]4 [167] S1[178]1[171]S1
5190 :
5200 : [143] --- POTENCJOMETR
5201 :
5210 :   [139] DL[178]0 [167] DL[178]1
5220 :   R1[178]RP[172]DL[173]255
5390 :
5400 : [143] --- WYLACZNIK 2
5401 :
5410 :   [139] SR[178]8 [167] S2[178]1[171]S2
5490 :
5500 : [143] --- REZYSTOR OBCIAZENIA
5501 :
5540 :   [139] DR[178]0 [167] DR[178]1
5550 :   R2[178]RV[172]DR[173]255
5999 :
6000 : [143] --- OBLICZENIA
6001 :
6010 :   R3[178]1[173](1[173]R1[170]1[173]RU)
6110 :
6115 :   R4[178]R2[170]RA
6120 :   R5[178]1[173](1[173]R3[170]S2[173]R4)
6130 :   R6[178]RP[171]R1
6140 :   R[178]R5[170]R6
6190 :
6200 :   U[178]S1[172]U0
6210 :   I[178]U[173]R
6220 :   U4[178]U[171]I[172]R6
6230 :   I4[178]S2[172]U4[173]R4
6290 :
6300 : [143] --- ZOBRAZOWANIE GRAFICZNE
6301 :
6400 :   [151] 214,20: [143] WYL.W LINI 20
6405 :   [153] [199](13);
6410 :   [153] [166]5);SZ$(S1);[166]99);SZ$(S2)
6420 :
6430 :   [151] 214,15: [143] WOLT.W LINI15
6435 :   [153] [199](13);
6440 :   [153] [166]20);LE$;[165] RN(U4)
6450 :
6460 :   [151] 214,15: [143] AMP.W LINI 15
6465 :   [153] [199](13);
6470 :   [153] [166]31);LE$;[165] RN(I4)
6490 :
6499 :
6500 : [143] --- WARUNEK ZAKONCZENIA
6501 :
6510 :   [139] I[177]IM [167] 7000: [143] PRZEPALENIE BEZPIECZNIKA
6599 :
6900 :   [161] T$: [139] T$[179][177]" " [167] 5020
6991 :
6995 [143] KONIEC PETLI GLOWNEJ =========
6998 :
6999 :
7000 [143] === KONIEC ===================
7001 :
7010 : [153] HM$[170]"PRZEPALONY BEZPIECZNIK!"
7020 :
7900 : [128]
7999 :