| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 07:19:29 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=d8c9936c7d1088876ae38d063c62a9d0d3704e7b828aafcca17e40b6b4de2e03a%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22MdoR4SqjsEvwvX-8DgHEqQsDq7zzzooR%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cc96e90a98a403-BLR
ALRMBOBS.BAS - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '_|_|_| ALRMBOBS.BAS
- '_|_|_| This program builds on the shadebob concept to create
- '_|_|_| a faster display utilizing the graphics GET and PUT,
- '_|_|_| manipulating screen data directly in an array buffer.
- '_|_|_| No guarantees or warrantees are given or implied.
- '_|_|_| Released to PUBLIC DOMAIN by Kurt Kuzba. (3/10/96)
- DECLARE SUB DRAW.bob (x%, y%, i%)
- RANDOMIZE TIMER
- SCREEN 13: CLS
- DIM SHARED buf(805) AS INTEGER
- DIM bob(448) AS INTEGER
- FOR t% = 0 TO 447: bob(t%) = t%: NEXT
- whatbob = 0
- DO UNTIL INKEY$ <> ""
- IF whatbob = 0 THEN
- FOR t% = 0 TO 447
- SOUND 1000 + t%, .03
- SWAP bob(t%), bob(RND * 447)
- SOUND 1400 - t%, .03
- NEXT
- i% = RND * 15 + 1
- END IF
- DRAW.bob ((bob(whatbob) \ 16) * 10), ((bob(whatbob) MOD 16) * 10), i%
- whatbob = (whatbob + 1) MOD 448
- LOOP
- SCREEN 0: : WIDTH 80, 25
- '_|_|_| end ALRMBOBS.BAS
- SUB DRAW.bob (x%, y%, i%)
- GET (x%, y%)-(x% + 39, y% + 39), buf
- DEF SEG = VARSEG(buf(0)): os& = VARPTR(buf(0))
- FOR t% = 4 TO 1603
- POKE t% + os&, (PEEK(t% + os&) + i%) AND 255
- NEXT
- PUT (x%, y%), buf, PSET
- END SUB
Tags:
qbasic shadebobconcept
Advertisement
Add Comment
Please, Sign In to add comment
-
⭐✅ MAKE $2500 IN 15 MIN⭐⭐⭐ L
JavaScript | 8 sec ago | 0.24 KB
-
⭐✅ Jack's Profit Method ✅ NEVER SEEN BEF...
JavaScript | 10 sec ago | 0.24 KB
-
⭐✅ Online Marketplace Exploit ✅ NEVER SEEN BE...
JavaScript | 19 sec ago | 0.24 KB
-
⭐✅ Exploit 2500$ in 15 Minutes⭐⭐⭐ 1
JavaScript | 20 sec ago | 0.24 KB
-
⭐✅ Trading Profit Method ✅ NEVER SEEN BEFORE...
JavaScript | 28 sec ago | 0.24 KB
-
Free Crypto Method (NEVER SEEN BEFORE)⭐⭐ X
JavaScript | 31 sec ago | 0.24 KB
-
⭐ Instant BTC Profit Method ✅ NEVER SEEN BEFO...
JavaScript | 37 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ P
JavaScript | 45 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
