Z80/Turbo Pascal 3.0 A proper BASIC style $inkey for Pascal

60 views

Skip to first unread message

Eightbitswide

unread,

Jan 25, 2023, 11:49:49 AM1/25/23

to Programming on CP/M

This one eluded me for a day or two. Between reading the manual and various Google searches that turned up non-functional code, I finally managed an $inkey style command for Turbo Pascal 3.0 that does not wait for keypress.

program test;

var ch:char;

begin

ch:=' ';

repeat

if keypressed = True then begin

read(Kbd,ch);

if ch='w' then writeln('UP');

if ch='s' then writeln('DOWN');

end;

until ch=#27;

writeln('Exit!');

end.

key2.pas

Fred Weigel

unread,

Jan 25, 2023, 12:34:44 PM1/25/23

to Programming on CP/M

A couple of points

if keypressed = True then begin

should be

if keypressed then begin

The extra compare against true is NOT needed, and costs 8 bytes of code. Remember that Turbo Pascal is one of the great tools! But it does absolutely no optimizations.

The extra ; characters may force more code to be produced (in your case, it didn't). But, ';' is a statement separator in Pascal, not a statement terminator. consider the following:

program test;
var ch:char;
begin

(* ch:=''; - not needed *)
repeat
if keypressed then begin
read(kbd,ch);
if ch='w' then writeln('up');
if ch='s' then writeln('down') (* ; not needed here *)
end;
until ch=#27;
writeln('exit!') (* ; not needed here *)
end.

Now... your posted code produces 174 bytes of object. This is the

same, but only 155 bytes of object.

FredW

(and, thanks for the trip down memory lane!)

Fred Weigel

unread,

Jan 25, 2023, 12:42:25 PM1/25/23

to Programming on CP/M

and (doesn't save bytes)... the ';' in "end ; until" is also not needed -- end terminates begin,

so we do NOT need the separator there, either... my mental "rule" is... semicolon after end

or begin is really suspicious. semicolon before begin or end is really suspicious.

globalpsyche...@gmail.com

unread,

Apr 1, 2024, 10:54:13 AM4/1/24

to Programming on CP/M

Email: globalpsyche...@gmail.com

https://globalpsychedelicsonline.com/product/4-aco-dmt-microdosing/

THE SCIENCE OF 4-ACO-DMT MICRODOSING

4-AcO-DMT is also known as O-Acetylpsilocin; that is, the O-acetylated form or ester of psilocin (4-HO-DMT) – psilocybin (4-PO-DMT) being the O-phosphorylated form. In other words, 4-AcO-DMT has the same basic structure as both psilocin and psilocybin, but with an acetoxy group bonded to its indole ring.

Like psilocybin, 4-AcO-DMT is considered a prodrug of psilocin, converting into the latter through metabolism by the body. Pharmacologist David Nichols even went so far as to advocate its replacement of psilocybin in psilocin research, since 4-AcO-DMT is by far the easier ester to synthesize.

The prodrug theory is not without its critics, however. According to some, the immediate psychoactivity of 4-AcO-DMT when injected or smoked (i.e. when bypassing the metabolism), as well as its higher average dose than psilocin, suggests the compound is uniquely psychoactive in its own right and not just, or even necessarily, as a metabolic precursor to psilocin.

There are subjective differences too. While some consider the effects of 4-AcO-DMT to be identical to those of psilocybin mushrooms, others point out differences. They may find it mellower, more forgiving, or less ego-disruptive than mushrooms, while some even liken it to DMT, especially at high doses.

Still, it’s important to note that naturally occurring levels of psilocybin and psilocin vary significantly even between mushrooms of the same species, so no two experiences are likely to be the same. They also tend to be accompanied by other alkaloids, such as baeocystin and norbaeocystin, which have presumed effects of their own. 4-AcO-DMT, meanwhile, has no such variability, so it ensures greater consistency for microdosing at least, even if its subjective effects are different from psilocybin mushrooms.

Given its chemical similarities to psilocin, though, we can safely assume that 4-AcO-DMT has roughly the same mechanism of action – primarily activating the 5-HT2A serotonin receptors.

Much of what we understand about how psychedelics work involves serotonin, a chemical that keeps our brains ticking. It is one of the most important neurotransmitters, affecting nearly everything we do – from how we feel to how we process information.

Indeed, much like other classical psychedelics (including LSD), psilocybin, psilocin, and 4-AcO-DMT actually share a similar molecular structure to serotonin. So while SSRI (selective serotonin reuptake inhibitor) antidepressants work to alleviate low mood by increasing serotonin levels in the brain, 4-AcO-DMT would be expected to work more directly by actually mimicking serotonin itself, and stimulating serotonin receptors.

The stimulation of the 5-HT2A receptor in particular has two very important results:

The production of “Brain Derived Neurotrophic Factor” (BDNF). BDNF is “like Miracle-Gro for your brain. It stimulates growth, connections, and activity.”
The increased transmission of “Glutamate.” Glutamate is the neurotransmitter most responsible for brain functions like cognition, learning, and memory.

Glutamate and BDNF work together in ways we’re still investigating, but it has become clear that having more of each leads to many of the benefits we seek from microdosing.

Another thing the classical psychedelics are capable of doing is causing parts of the brain that wouldn’t usually communicate with one another… to communicate with one another!

Psychedelics facilitate these unique connections by dampening the activity of an often-overused part of our brain called the “Default Mode Network” (DMN). The DMN features in a range of mental activities, including daydreaming, self-reflection, and thinking about the past or future. And some studies suggest depression may be linked to an overactive DMN, possibly causing us to ruminate, over-analyze or criticize ourselves, and continually step out of the present moment to fret about the past or the future.

This helps to explain the remarkable efficacy of psilocin and related substances in the treatment of depression and anxiety, with some patients even reporting lasting (six months+) relief from a single high dose of psilocybin. It could also help to explain how the use of these substances can lead to creative insights and perspectives that otherwise remain inaccessible.

4-aco-dmt-microdosing

Message has been deleted

Henry Kain

unread,

Apr 6, 2024, 5:12:35 AM4/6/24

to Programming on CP/M

Clone Credit Card💳 orders 📦available
Hi guys tipin with clone cards and get rich today with clones we do have high and low balance content us for more details thanks we do ship through USPS best and fast shipping agency ever 🇱🇷

Clone Credit Card💳 orders 📦available
Hi guys tipin with clone cards and get rich today with clones we do have high and low balance content us for more details thanks we do ship through USPS best and fast shipping agency ever 🇱🇷

Get at me for your low & high balance clone cards going for cool prices. Clone cards are spammed credit cards with clean funds. My clone cards are available for cash out in ATMs🏧,Gas stations⛽️ and can be used for online purchases. Our clone card comes with an ATM pin for easy cash outs ™️
$200 for balance $2k
$400 for balance $5K
$500for balance $7k
$700 for balance $10k

High balance
$1k for balance $15k
$3k for balance $30k
$5k balance $50k
$7k for balance $ 75k

• Shipping 🛫 🛫

• Swift Delivery On DHL & FedEx express

Text me now and make your
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
❗️We have a %100 money back policy . You can opt-out for a refund when you have problems with our cards 💳
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45

Legit clones and CVV:
Clones cards 💳 Available

Low and high balance available and all cards come with pin 📌 GET RICH NOW AND THANK ME LATER
Credit Card Clone Orders 💳 📦 Available Get me for your low and high balance clone cards at a great price. Clone cards are credit cards with clean funds. My clone cards are available for withdrawal at ATMs 🏧, gas stations ⛽️ and can be used for online purchases. Our cloned cards come with an ATM pin for easy withdrawals. How does it work? 💻 💳 Spammers use credit card filters to obtain information from the magnetic stripe of a credit or debit card. The information received is not limited to credit card password, numbers, CVV and expiration date. This information comes in the form of pin dumps (101 or 201), now they use the MSR printer to put the received information on a blank card.

https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
#counterfeit #fakemoney #fakebanknotes #fakenotes #money #fakenote #counterfeitmoney #fakecurrency #fakenotesfordays #bhfyp #counterfeitrock #cash #counterfeitmoneyforsale #fakenotesuk #pounds #fakenotesalready #jamiecampbellbower # #tristanmarmont #fa #fakenotestilyatakenote
CLONE CARD , BANK LOGIN
_________Contact Us________
TELEGRAM CHANNEL :
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
Sell Pros + Driving license Info Fullz Any State : New York , California, Alabama, Arizona , California , Colorado , Florida , Georgia , Hawaii, Illinois , Indiana, Kansas, Massachusetts, Michigan ..... Any state in USA
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
Sell Info Fullz Company USA Uk Ca Fresh 2021

* Items for sale :

1. USA Fullz ( DOB + SSN) + DL

2. US CC Random

3. EU Random , EU DOB

4. Other Countries (WorldWide)

5. Cash App (Account or Transfer) FLIP

6. Paypals (Verified, Unverified)
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
7. Dumps Track 1/2

Dumps with pin quickest way to get rich. Atm withdrawals In Store purchases. All you need is reader writer. I can supply you work no matter where you are.

Usa, Uk, Canada, China, AU , EU
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
Clone card rates

LOW BALANCE
£200 for balance £3k
£300 for balance £4.5k
£400 for balance £6k
£500for balance £8k
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
HIGH BALANCE

£2k for balance £20k
£4k for balance £40k
£5k for balance £60k

Text me now and make your orders right away we are always available anytime you need your package delivered asap guys we good 😊

Telegram link 👇

https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
Get at me for your low & high balance clone cards going for cool prices. Clone cards are spammed credit cards with clean funds. My clone cards are available for cash out in ATMs🏧,Gas stations⛽️ and can be used for online purchases. Our clone card comes with an ATM pin for easy cash outs ™️
$200 for balance $2k
$400 for balance $5K
$500for balance $7k
$700 for balance $10k

High balance
$1k for balance $15k
$3k for balance $30k
$5k balance $50k
$7k for balance $ 75k

• Shipping 🛫 🛫

• Swift Delivery On DHL & FedEx express

Text me now and make your
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
❗️We have a %100 money back policy . You can opt-out for a refund when you have problems with our cards 💳
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45

Legit clones and CVV:
Clones cards 💳 Available

Low and high balance available and all cards come with pin 📌 GET RICH NOW AND THANK ME LATER
Credit Card Clone Orders 💳 📦 Available Get me for your low and high balance clone cards at a great price. Clone cards are credit cards with clean funds. My clone cards are available for withdrawal at ATMs 🏧, gas stations ⛽️ and can be used for online purchases. Our cloned cards come with an ATM pin for easy withdrawals. How does it work? 💻 💳 Spammers use credit card filters to obtain information from the magnetic stripe of a credit or debit card. The information received is not limited to credit card password, numbers, CVV and expiration date. This information comes in the form of pin dumps (101 or 201), now they use the MSR printer to put the received information on a blank card.

https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
#counterfeit #fakemoney #fakebanknotes #fakenotes #money #fakenote #counterfeitmoney #fakecurrency #fakenotesfordays #bhfyp #counterfeitrock #cash #counterfeitmoneyforsale #fakenotesuk #pounds #fakenotesalready #jamiecampbellbower # #tristanmarmont #fa #fakenotestilyatakenote
CLONE CARD , BANK LOGIN
_________Contact Us________
TELEGRAM CHANNEL :
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
Sell Pros + Driving license Info Fullz Any State : New York , California, Alabama, Arizona , California , Colorado , Florida , Georgia , Hawaii, Illinois , Indiana, Kansas, Massachusetts, Michigan ..... Any state in USA
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
Sell Info Fullz Company USA Uk Ca Fresh 2021

* Items for sale :

1. USA Fullz ( DOB + SSN) + DL

2. US CC Random

3. EU Random , EU DOB

4. Other Countries (WorldWide)

5. Cash App (Account or Transfer) FLIP

6. Paypals (Verified, Unverified)
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
7. Dumps Track 1/2

Dumps with pin quickest way to get rich. Atm withdrawals In Store purchases. All you need is reader writer. I can supply you work no matter where you are.

Usa, Uk, Canada, China, AU , EU
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
Clone card rates

LOW BALANCE
£200 for balance £3k
£300 for balance £4.5k
£400 for balance £6k
£500for balance £8k
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
HIGH BALANCE

£2k for balance £20k
£4k for balance £40k
£5k for balance £60k

Text me now and make your orders right away
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45
https://t.me/henrykain45

SUSIANTI

unread,

May 12, 2024, 4:03:37 PM5/12/24

to Programming on CP/M

### SERIOUS FRAUD ###

ICQ: 6060222 ( Tony ) - Working 24/7
Telegram: https://t.me/vendorvuggs1 @vendorvuggs1( Tony ) - Working 24/7
Whatsapp +1‪(636) 851-9306‬

Telegram: @Henrykain457( Henry )

I paid this scammer $2,282 for a 15k card transaction but he is busy running away from me.
Don't do deal with this Muslim scammer.

Tony and Henry are the same con artists and look at his picture.

Reply all

Reply to author

Forward

0 new messages