New from the oven of the Cryptok AI...
A Magic 8 Ball in Commodore BASIC!

10 PRINT CHR$(147): REM CLEAR SCREEN
20 PRINT "MAGIC 8-BALL"
30 PRINT "============"
40 PRINT
50 PRINT "ASK A YES/NO QUESTION AND PRESS ENTER"
60 PRINT "(TYPE 'QUIT' TO EXIT)"
70 PRINT
80 INPUT "YOUR QUESTION"; Q$
90 IF Q$ = "QUIT" THEN END
100 IF Q$ = "" THEN GOTO 80
110 PRINT
120 PRINT "SHAKING THE MAGIC 8-BALL..."
130 FOR I = 1 TO 1000: NEXT I: REM PAUSE
140 R = INT(RND(1) * 20) + 1
150 ON R GOTO 160,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350
160 PRINT "IT IS CERTAIN": GOTO 360
170 PRINT "IT IS DECIDEDLY SO": GOTO 360
180 PRINT "WITHOUT A DOUBT": GOTO 360
190 PRINT "YES DEFINITELY": GOTO 360
200 PRINT "YOU MAY RELY ON IT": GOTO 360
210 PRINT "AS I SEE IT, YES": GOTO 360
220 PRINT "MOST LIKELY": GOTO 360
230 PRINT "OUTLOOK GOOD": GOTO 360
240 PRINT "YES": GOTO 360
250 PRINT "SIGNS POINT TO YES": GOTO 360
260 PRINT "REPLY HAZY, TRY AGAIN": GOTO 360
270 PRINT "ASK AGAIN LATER": GOTO 360
280 PRINT "BETTER NOT TELL YOU NOW": GOTO 360
290 PRINT "CANNOT PREDICT NOW": GOTO 360
300 PRINT "CONCENTRATE AND ASK AGAIN": GOTO 360
310 PRINT "DON'T COUNT ON IT": GOTO 360
320 PRINT "MY REPLY IS NO": GOTO 360
330 PRINT "MY SOURCES SAY NO": GOTO 360
340 PRINT "OUTLOOK NOT SO GOOD": GOTO 360
350 PRINT "VERY DOUBTFUL": GOTO 360
360 PRINT
370 PRINT "PRESS ANY KEY TO ASK ANOTHER QUESTION"
380 GET K$: IF K$ = "" THEN 380
390 GOTO 10

I hope it runs on your Commodore 64. If it doesn't, then that's why I made it Open Source.

https://youtu.be/N71X8YhFGhM?si=Gsspj4hqD4WFptoO
“Cryptok me Barbara” #classic #cryptok #everyone

Streaming a Hell in a Cell match between me and Cody Rhodes, in the CrypTok arena!

Guys, I am going to be doing a stream test using a living room configuration, directly to CrypTok. Just wanted to let you guys know in advance.

I still can't wait for the feature where I get to livestream to my Cryptok using OBS-style settings. That way, I can stream lots of WWE-related entertainment.

Have you ever crossed the street without looking both ways? "where was my head?"

That's what happened to me with my Cryptok assets... I clicked on a link "without looking" and my wallet was emptied. No sol approbation.
Stupid! 10.3m cryptoks gone.

And I'm experienced. But I'm slowly rebuilding what I've lost. And I've had help from the community, mainly a holder right here
Cryptok is the best crypto community ever.

Be careful and watch your steps ...

#cryptok #security #hacking

Me thinking so hard to make cryptok great

Lots of improvements happening! Continue to report issues but as you can see we are making a full migration into CrypTok me.

The full source code generated for AppleSoft BASIC by CrypTok's AI. Wanted to share the entire code, but I sure hope I can share it in the future without posting the entire code like the way I'm doing it now. Either way, enjoy!

10 REM BITCOIN MINING SIMULATOR
20 REM BY CRYPTOK AI
30 CLEAR
40 HOME
50 PRINT "BITCOIN MINING SIMULATOR"
60 PRINT "========================"
70 PRINT
80 REM INITIALIZE VARIABLES
90 B = 0: REM BITCOIN BALANCE
100 H = 1: REM HASH RATE (H/S)
110 M = 1: REM MINERS
120 U = 0: REM UPGRADES BOUGHT
130 T = 0: REM TOTAL MINED
140 REM
150 REM MAIN GAME LOOP
160 HOME
170 PRINT "BITCOIN MINING SIM"
180 PRINT "=================="
190 PRINT
200 PRINT "BITCOIN: "; INT(B * 100000000) / 100000000
210 PRINT "HASH RATE: "; H; " H/S"
220 PRINT "MINERS: "; M
230 PRINT "TOTAL MINED: "; INT(T * 100000000) / 100000000
240 PRINT
250 REM MINING CALCULATION
260 B = B + (H / 1000000): REM SIMPLIFIED MINING
270 T = T + (H / 1000000)
280 PRINT "MINING..."
290 FOR I = 1 TO 500: NEXT I: REM DELAY
300 PRINT
310 PRINT "UPGRADES:"
320 PRINT "1) BUY MINER (COST: "; 0.01 * (M + 1); " BTC)"
330 PRINT "2) UPGRADE HASH (COST: "; 0.05 * (U + 1); " BTC)"
340 PRINT "3) KEEP MINING"
350 PRINT "4) QUIT"
360 PRINT
370 INPUT "CHOICE: "; C
380 IF C = 1 THEN GOSUB 500
390 IF C = 2 THEN GOSUB 600
400 IF C = 3 THEN GOTO 160
410 IF C = 4 THEN GOTO 700
420 GOTO 160
430 REM
500 REM BUY MINER
510 COST = 0.01 * (M + 1)
520 IF B < COST THEN PRINT "NOT ENOUGH BTC!": FOR I = 1 TO 1000: NEXT I: RETURN
530 B = B - COST
540 M = M + 1
550 H = H + M
560 PRINT "MINER PURCHASED!"
570 FOR I = 1 TO 1000: NEXT I
580 RETURN
590 REM
600 REM UPGRADE HASH
610 COST = 0.05 * (U + 1)
620 IF B < COST THEN PRINT "NOT ENOUGH BTC!": FOR I = 1 TO 1000: NEXT I: RETURN
630 B = B - COST
640 U = U + 1
650 H = H * 1.5
660 PRINT "HASH RATE UPGRADED!"
670 FOR I = 1 TO 1000: NEXT I
680 RETURN
690 REM
700 REM END GAME
710 HOME
720 PRINT "FINAL STATS:"
730 PRINT "============"
740 PRINT "TOTAL BITCOIN MINED: "; INT(T * 100000000) / 100000000
750 PRINT "MINERS OWNED: "; M
760 PRINT "UPGRADES BOUGHT: "; U
770 PRINT
780 PRINT "THANKS FOR MINING!"
790 PRINT "VISIT CRYPTOKAPP.COM"
800 END

Apparently you can use CrypTok's AI to make BASIC programs, in any form of BASIC you want. This is actually pretty cool! I don't know if it will run properly, but if you got the source code, you can go full-out FOSS with it!

Also, I switched from regular Ubuntu to Linux Mint, in case you're curious.

Congratulations to Michael Glass , this week's winner for signing the daily book. Don't forget to sign in once every 24 hours for a chance to win this week's prize!

https://cryptokapp.com/groups/Signinhere

Cryptok