| CARVIEW |
Select Language
HTTP/2 200
date: Sat, 11 Oct 2025 06:25:40 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=1573d9702b32b3abc86d8a9b1d0bbcf018b0c1ff606af146eff9773cc2311d8aa%3A2%3A%7Bi%3A0%3Bs%3A14%3A%22_csrf-frontend%22%3Bi%3A1%3Bs%3A32%3A%22RWp4mG_i0--2DzBLxP0lIU94S80qVyLw%22%3B%7D; HttpOnly; Path=/
cf-ray: 98cc48127984c1b8-BLR
TabbyCalc - Pastebin.com
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- rebol [title: "TabbyCalc"]
- title: "TabbyCalc"
- ;it's old code. don't judge me!
- parse-math: funct [str] [
- parse-math-replace-list: [
- "--" "+"
- "+-" "-"
- "*-" " * - "
- "/-" " / - "
- " e " "e"
- " e- " "e-"
- "^^" "** "
- ]
- op: charset "*/+-^^()e<>="
- ;e is an operation for exponents, eg 4e-2.
- ;consequently e cannot be a variable
- nop: complement op
- out: copy []
- a: none
- parse str [
- some [
- copy a some nop (append out a)
- | copy a some op (append out a)
- ]
- end
- ]
- out: form out
- foreach [a b] parse-math-replace-list [
- replace/all out a b
- ]
- load/all out
- ]
- ;inspired by tabbyCalc
- ;return is #"^M"
- sv: :system/view
- window: layout [
- backcolor black
- origin 5 space 5
- it: area "Please hit enter^/3e-6*5^^5+5+45+55654" black black 250x250 edge none font [name: "Tahoma" style: 'bold color: white]
- key escape [halt]
- ]
- it/feel: make object! bind/copy bind/copy [
- redraw: func [face act pos][
- if all [in face 'colors block? face/colors] [
- face/color: pick face/colors face <> focal-face
- ]
- ]
- detect: none
- over: none
- engage: func [face act event /local start end][
- switch act [
- down [
- either equal? face focal-face [unlight-text] [focus/no-show face]
- caret: offset-to-caret face event/offset
- show face
- ]
- over [
- if not-equal? caret offset-to-caret face event/offset [
- if not highlight-start [highlight-start: caret]
- highlight-end: caret: offset-to-caret face event/offset
- show face
- ]
- ]
- key [
- edit-text face event get in face 'action
- ;CHANGED BIT
- if event/key = #"^M" [
- end: find/reverse sv/caret newline
- start: any [
- find/reverse end newline
- head sv/caret
- ]
- string: copy/part start end
- ;If input is single number then do nothing.
- if all [
- attempt [load/all string]
- equal? 1 length? load/all string
- number? first load/all string
- ] [exit]
- attempt [caret: insert caret form do parse-math string]
- show face
- ]
- ]
- ]
- ]
- ] system/view ctx-text
- focus it
- view/new center-face window
- do-events
Advertisement
Add Comment
Please, Sign In to add comment
-
✅⭐ Make $2500 in 15 minutes ✅ NEVER SEEN BEFO...
JavaScript | 9 sec ago | 0.24 KB
-
⭐⭐⭐ G2A Payment Exploit ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 20 sec ago | 0.24 KB
-
⭐✅ Swapzone Glitch ✅ Working⭐⭐⭐ M
JavaScript | 25 sec ago | 0.24 KB
-
⭐✅ MAKE $2500 IN 15 MIN ✅ NEVER SEEN BEFORE ⭐...
JavaScript | 30 sec ago | 0.24 KB
-
✅ Make $2500 in 20 minutes⭐⭐⭐ H
JavaScript | 36 sec ago | 0.24 KB
-
⭐ ✅ Free Products Method ✅ ✅ NEVER SEEN BEFOR...
JavaScript | 39 sec ago | 0.24 KB
-
⭐ G2A Bug ⭐ (Get more on BTC swaps) ✅ NEVER S...
JavaScript | 48 sec ago | 0.24 KB
-
⭐⭐Exchange Exploit⭐⭐ M
JavaScript | 50 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
