Another gem made with Cryptok's AI...An idle/incremental CrypTok simulator, also in Commodore BASIC. Again, I can't promise that the game will run flawlessly, as it was freshly and just made with AI, but it should be a fun project to those who wish to modify the code to make it work.

Fingers crossed! Have fun!

10 REM CRYPTOK IDLE SIMULATOR V1.0
20 REM FOR COMMODORE 64
30 PRINT CHR$(147): REM CLEAR SCREEN
40 PRINT "CRYPTOK IDLE SIMULATOR"
50 PRINT "====================="
60 PRINT
70 REM INITIALIZE VARIABLES
80 C = 0: REM COINS
90 M = 1: REM MINERS
100 P = 0.1: REM PRICE PER COIN
110 U = 0: REM UPGRADES
120 T = 0: REM TOTAL MINED
130 PRINT "STARTING YOUR CRYPTO EMPIRE..."
140 PRINT
150 REM MAIN GAME LOOP
160 PRINT "COINS:", INT(C*100)/100
170 PRINT "MINERS:", M
180 PRINT "COIN PRICE: $", INT(P*100)/100
190 PRINT "TOTAL MINED:", INT(T)
200 PRINT "UPGRADES:", U
210 PRINT
220 PRINT "1) WAIT (MINE COINS)"
230 PRINT "2) BUY MINER ($10)"
240 PRINT "3) SELL COINS"
250 PRINT "4) UPGRADE MINERS ($50)"
260 PRINT "5) CHECK CRYPTOK PRICES"
270 PRINT "6) QUIT"
280 PRINT
290 INPUT "CHOICE"; A
300 IF A = 1 THEN GOTO 400
310 IF A = 2 THEN GOTO 500
320 IF A = 3 THEN GOTO 600
330 IF A = 4 THEN GOTO 700
340 IF A = 5 THEN GOTO 800
350 IF A = 6 THEN GOTO 900
360 GOTO 160
370 REM MINING ROUTINE
400 MC = M (1 + U 0.1): REM MINING WITH UPGRADES
410 C = C + MC
420 T = T + MC
430 REM PRICE FLUCTUATION
440 P = P + (RND(1) - 0.5) * 0.02
450 IF P < 0.01 THEN P = 0.01
460 PRINT "MINED", INT(MC*100)/100, "COINS!"
470 FOR I = 1 TO 1000: NEXT I: REM DELAY
480 GOTO 160
490 REM BUY MINER
500 IF C * P >= 10 THEN GOTO 520
510 PRINT "NOT ENOUGH MONEY!": GOTO 550
520 M = M + 1
530 C = C - 10/P
540 PRINT "BOUGHT NEW MINER!"
550 FOR I = 1 TO 1000: NEXT I
560 GOTO 160
570 REM SELL COINS
600 IF C <= 0 THEN PRINT "NO COINS TO SELL!": GOTO 650
610 MO = C * P
620 PRINT "SOLD FOR $", INT(MO*100)/100
630 C = 0
640 PRINT "TO THE MOON!"
650 FOR I = 1 TO 1000: NEXT I
660 GOTO 160
670 REM UPGRADE MINERS
700 IF C * P >= 50 THEN GOTO 720
710 PRINT "NEED MORE COINS!": GOTO 760
720 U = U + 1
730 C = C - 50/P
740 PRINT "MINERS UPGRADED!"
750 PRINT "+10% MINING POWER"
760 FOR I = 1 TO 1000: NEXT I
770 GOTO 160
780 REM PRICE CHECK
800 PRINT "CRYPTOK MARKET UPDATE:"
810 PRINT "BTC: $", INT(RND(1)*50000+20000)
820 PRINT "ETH: $", INT(RND(1)*3000+1000)
830 PRINT "SOL: $", INT(RND(1)*200+50)
840 PRINT "DOGE: $", INT(RND(1)0.5100)/100
850 PRINT "YOUR COIN: $", INT(P*100)/100
860 FOR I = 1 TO 2000: NEXT I
870 GOTO 160
880 REM QUIT GAME
900 PRINT CHR$(147)
910 PRINT "FINAL STATS:"
920 PRINT "TOTAL MINED:", INT(T)
930 PRINT "FINAL MINERS:", M
940 PRINT "UPGRADES:", U
950 PRINT
960 PRINT "THANKS FOR PLAYING!"
970 PRINT "VISIT CRYPTOK.ME FOR REAL CRYPTO!"
980 END

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.

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.

I really did this for a living...

#bitcoin #asic #everyone #cryptok

How long did it take you to understand crypto basics?
#Cryptok