| CARVIEW |
Select Language
HTTP/2 200
date: Sun, 12 Oct 2025 03:54:27 GMT
content-type: text/html; charset=UTF-8
server: cloudflare
x-frame-options: DENY
x-content-type-options: nosniff
x-xss-protection: 1;mode=block
vary: accept-encoding
cf-cache-status: DYNAMIC
content-encoding: gzip
set-cookie: _csrf-frontend=d6dba2ea073d76f10a6471c0ef30b6a2cbd2900ce84476eee1a342bb39fae49ea%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%225VhoqAyspB4dNtSC29eqPA0e35nOk2U1%22%3B%7D; HttpOnly; Path=/
cf-ray: 98d3a7ecf90ca403-BLR
Uklad nawrotny - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Uklad nawrotny, program napisal: Kamil Nowinski
- 'enjoy
- '-----------------------------------------------
- $regfile = "m8def.dat"
- $crystal = 8000000
- Config Portd = Output
- Config Portb = Input
- Portd = &B00000000
- Portb = &B00000000
- 'S1 - Dioda1
- 'S2 - Dioda2
- 'S3 - STOP (przerwanie)
- S1 Alias Portb.0
- S2 Alias Portb.1
- S3 Alias Portb.2
- Dioda1 Alias Portd.0
- Dioda2 Alias Portd.1
- Dim Stan1 As Bit
- Stan1 = 1
- Do
- If S1 = Stan1 Then
- Gosub Zarowka1
- Elseif S2 = Stan1 Then
- Gosub Zarowka2
- Else
- Dioda1 = 0
- Dioda2 = 0
- End If
- Loop
- End
- Zarowka1:
- Do
- Dioda1 = Stan1
- Dioda2 = 0
- If S1 = 0 And S3 = 1 Then Return
- Loop
- End
- Zarowka2:
- Do
- Dioda2 = Stan1
- Dioda1 = 0
- If S2 = 0 And S3 = 1 Then Return
- Loop
- End
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐GMAIL Logs (2FA disabled)⭐⭐
Java | 1 sec ago | 0.10 KB
-
⭐⭐⭐MAKE $900 INSTANTLY⭐⭐
Java | 6 sec ago | 0.10 KB
-
⭐⭐⭐ChangeNOW Exploit⭐⭐
Java | 14 sec ago | 0.10 KB
-
⭐⭐⭐Instant Profit Method⭐⭐
Java | 18 sec ago | 0.10 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 24 sec ago | 0.10 KB
-
⭐⭐⭐Exchange Exploit T 3⭐⭐
Java | 29 sec ago | 0.10 KB
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 37 sec ago | 0.10 KB
-
⭐⭐⭐Exploit 500$ in 15 Minutes⭐⭐
Java | 37 sec ago | 0.10 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
