| CARVIEW |
Select Language
HTTP/2 200
date: Mon, 13 Oct 2025 10:15:02 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=485da25aa0dbd83c0f7ba8d2d7672a803a79402b8f5263922aee5f365bd28b24a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22zdPIaDXXedaw1mgQbTgYJcUqXfaOSc_5%22%3B%7D; HttpOnly; Path=/
cf-ray: 98de12cd7fcb860e-BLR
Programa Carroza LUZ-4 - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 8 DIM b$(15), n(20)
- 10 CLS
- 15 b$(0) = " *": b$(1) = " *": b$(2) = " * ": b$(3) = " * *": b$(4) = " * ": b$(5) = " * * ": b$(6) = " * * ": b$(7) = " * * *"
- 16 b$(8) = " * ": b$(9) = " * *": b$(10) = " * * ": b$(11) = " * * *": b$(12) = " * * ": b$(13) = " * * *": b$(14) = " * * * ": b$(15) = " * * * *"
- 20 PRINT "PROG. a,b"
- 21 PRINT "CAMBIO DE PANTALLA 7,8,9": PRINT "velocidad '+' o '-'"
- 22 'OUT &H310, NOT (n(0)): OUT &H378, n(w)
- 25 pv = 50: c$ = " "
- 30 a$ = INKEY$
- 40 IF a$ = "a" THEN 1000 ELSE IF a$ = "b" THEN 2000 ELSE IF a$ = "z" THEN END ELSE 30
- 50 GOTO 10
- 1000 CLS : vel = 10000: pv = 1500: n(1) = 17: n(2) = 34: n(3) = 68: n(4) = 136
- 1002 LOCATE 7, 20: PRINT "programa 1";
- 1003 FOR w = 1 TO 4
- 1004 a = INT(n(w) / 16): b = n(w) MOD 16
- 1005 'OUT &H311, NOT (n(w)): OUT &H378, n(w)
- 1006 GOSUB 2700
- 1008 FOR r = 0 TO vel: NEXT r
- 1010 GOSUB 2500
- 1013 NEXT w
- 1020 IF c$ = "0" THEN 1022 ELSE 1050
- 1022 con = con + 1
- 1023 IF con = 6 THEN con = 1: GOTO 2000
- 1050 GOTO 1002
- 2000 CLS : vel = 10000: pv = 1500: n(1) = 1: n(2) = 2: n(3) = 4: n(4) = 8: n(5) = 16: n(6) = 32: n(7) = 64: n(8) = 128: n(9) = 255: n(10) = 128: n(11) = 64: n(12) = 32: n(13) = 16: n(14) = 8: n(15) = 4: n(16) = 2: n(17) = 1: n(18) = 255
- 2001 LOCATE 7, 20: PRINT "programa 2:";
- 2002 FOR w = 1 TO 18
- 2003 a = INT(n(w) / 16): b = n(w) MOD 16
- 2004 'OUT &H311, NOT (n(w)): OUT &H378, n(w)
- 2005 GOSUB 2700
- 2008 FOR r = 0 TO vel: NEXT r
- 2010 GOSUB 2500
- 2013 NEXT w
- 2020 IF c$ = "0" THEN 2022 ELSE 2002
- 2022 con = con + 1
- 2023 IF con = 6 THEN con = 1: GOTO 1000
- 2050 GOTO 2002
- 2500 'sub rutina de velocidad
- 2501 v$ = INKEY$
- 2510 IF v$ = "+" THEN vel = vel - pv ELSE IF v$ = "-" THEN vel = vel + pv ELSE IF v$ = "a" THEN 2515
- 2515 IF v$ = "a" THEN 1000 ELSE IF v$ = "b" THEN 2000 ELSE IF v$ = "1" THEN 2520
- 2520 IF v$ = "1" THEN c$ = "1": con = 0 ELSE IF v$ = "0" THEN c$ = "0" ELSE IF v$ = "7" THEN CLS : b$ = "7" ELSE IF v$ = "8" THEN CLS : b$ = "8" ELSE IF v$ = "9" THEN CLS : b$ = "9" ELSE IF v$ = "z" THEN 20
- 2530 RETURN
- 2700 'subrutina de velocidad
- 2701 IF b$ = "7" THEN 2702 ELSE IF b$ = "8" THEN 2766 ELSE IF b$ = "9" THEN 5866
- 2750 LOCATE 12, 52: PRINT b$(a); b$(b): LOCATE 11, 54: PRINT b$(a); b$(b): LOCATE 10, 56: PRINT b$(a); b$(b): LOCATE 9, 58: PRINT b$(a); b$(b): LOCATE 8, 60: PRINT b$(a); b$(b)
- 2750 LOCATE 12, 52: PRINT b$(a); b$(b): LOCATE 11, 54: PRINT b$(a); b$(b): LOCATE 10, 56: PRINT b$(a); b$(b): LOCATE 9, 58: PRINT b$(a); b$(b): LOCATE 8, 60: PRINT b$(a); b$(b)
- 2760 LOCATE 13, 21: PRINT "1 2 3 4 5 6 7 8 Vel.="; vel; "R="; con
- 2762 RETURN
- 2766 LOCATE 2, 1: PRINT "hecho por Juan"
- 2768 LOCATE 4, 1: PRINT "prog. de prueba"
- 2770 LOCATE 12, 20: PRINT b$(a); b$(b): LOCATE 11, 20: PRINT b$(a); b$(b): LOCATE 10, 20: PRINT b$(a); b$(b): LOCATE 9, 20: PRINT b$(a); b$(b): LOCATE 8, 20: PRINT b$(a); b$(b)
- 2775 LOCATE 12, 36: PRINT b$(a); b$(b): LOCATE 11, 36: PRINT b$(a); b$(b): LOCATE 10, 36: PRINT b$(a); b$(b): LOCATE 9, 36: PRINT b$(a); b$(b): LOCATE 8, 36: PRINT b$(a); b$(b)
- 2780 LOCATE 12, 52: PRINT b$(a); b$(b): LOCATE 11, 52: PRINT b$(a); b$(b): LOCATE 10, 52: PRINT b$(a); b$(b): LOCATE 9, 52: PRINT b$(a); b$(b): LOCATE 8, 52: PRINT b$(a); b$(b)
- 2790 LOCATE 13, 21: PRINT "1 2 3 4 5 6 7 8 Vel.="; vel; "R="; con
- 2800 RETURN
- 2866 LOCATE 2, 1: PRINT "hecho por Juan"
- 2868 LOCATE 4, 1: PRINT "prog. de prueba"
- 2870 LOCATE 12, 20: PRINT b$(a); b$(b): LOCATE 11, 18: PRINT b$(a); b$(b): LOCATE 10, 16: PRINT b$(a); b$(b): LOCATE 9, 18: PRINT b$(a); b$(b): LOCATE 8, 20: PRINT b$(a); b$(b)
- 2875 LOCATE 12, 36: PRINT b$(a); b$(b): LOCATE 11, 34: PRINT b$(a); b$(b): LOCATE 10, 32: PRINT b$(a); b$(b): LOCATE 9, 34: PRINT b$(a); b$(b): LOCATE 8, 36: PRINT b$(a); b$(b)
- 2880 LOCATE 12, 52: PRINT b$(a); b$(b): LOCATE 11, 50: PRINT b$(a); b$(b): LOCATE 10, 48: PRINT b$(a); b$(b): LOCATE 9, 50: PRINT b$(a); b$(b): LOCATE 8, 52: PRINT b$(a); b$(b)
- 2890 LOCATE 13, 21: PRINT "1 2 3 4 5 6 7 8 Vel.="; vel; "R="; con
- 2900 RETURN
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐⭐⭐Make $1500 in 20 minutes⭐⭐
Java | 1 sec ago | 0.15 KB
-
✅ Marketplace Glitch ✅ Working NEVER SEEN BE...
JavaScript | 2 sec ago | 0.25 KB
-
💎 ChangeNOW Exploit
JavaScript | 6 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ H
JavaScript | 11 sec ago | 0.25 KB
-
⭐⭐⭐Instant Profit Method⭐⭐
Java | 13 sec ago | 0.15 KB
-
🚀 Swapzone +37% glitch
JavaScript | 15 sec ago | 0.24 KB
-
📝 EASY MONEY GUIDE ✅ Working R
JavaScript | 18 sec ago | 0.25 KB
-
🚨 Free Crypto Method 🚨
JavaScript | 25 sec ago | 0.24 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
