BCO76 VIC-20 Slot, il sorgente del gioco di cui non si sentiva il bisogno!

Scialve a tutti!
Ricordate quando tanto tanto tempo fa in un bosco incantato io e TATA (più io che la TATA) vi abbiamo raccontato di quando non riuscendo a dormire BCO aveva realizzato un gioco di slot-machine programmato per il BASIC del Vic 20? BCO, in uno slancio di entusiasmo, ha pensato, sempre a tempo perso e visto che non abbiamo nulla di nuovo da segnalare (e TATA è d'accordo), di pubblicare qui di seguito anche il sorgente (BASIC):

10 print rnd(-time):poke 36879,8
20 ca=5
30 v1=int(rnd(1)*5)
40 v2=int(rnd(1)*5)
50 v3=int(rnd(1)*5)
60 dim ch(6,2)
70 ch(0,0)=81:ch(0,1)=4
80 ch(1,0)=65:ch(1,1)=6
90 ch(2,0)=90:ch(2,1)=3
100 ch(3,0)=88:ch(3,1)=5
110 ch(4,0)=83:ch(4,1)=2
120 ch(5,0)=55:ch(5,1)=7
130 sp=7680:sc=38400
140 print chr$(147):print chr$(5)+chr$(18)+"bco76 vic20-slot":goto 1000
150 print chr$(147):ca=ca-1
160 for t=1 to 20
170 v1=int(rnd(1)*6)
180 v2=int(rnd(1)*6)
190 v3=int(rnd(1)*6)
200 poke sp,ch(v1,0):poke sc,ch(v1,1)
210 poke sp+1,ch(v2,0):poke sc+1,ch(v2,1)
220 poke sp+2,ch(v3,0):poke sc+2,ch(v3,1)
230 for w=1 to t*15:nextw
240 next t
250 pz=0
260 if v1=0 then pz=5
270 if (v1=0 and v2=0) then pz=10
280 if (v1=0 and v2=0 and v3=0) then pz=20
290 if (v1=1 and v2=1 and v3=1) then pz=30
300 if (v1=2 and v2=2 and v3=2) then pz=50
310 if (v1=3 and v2=3 and v3=3) then pz=100
320 if (v1=4 and v2=4 and v3=4) then pz=200
330 if (v1=5 and v2=5 and v3=5) then pz=1000
340 ca=ca+pz
350 if pz>0 then gosub 3000
1000 print chr$(30)+chr$(18)+"you hold $"ca
1010 if ca=0 then end
1020 print chr$(158)+"press space to roll"
2000 get a$
2010 if a$="" then 2000
2020 if a$=" " then 150
2030 goto 2000
3000 print chr$(5)+chr$(18)+"you win $"pz
3010 for t=1 to 30
3020 poke 36879,(int(rnd(1)*256))
3030 next t
3040 poke 36879,8
3050 return
run

Non che serva a questo granché ma metti che a qualche nostalgico venga voglia di dargli la rivincita e ribatterlo sul suo VIC-20...
Ad ogni modo ora è qua per i poster anche lui!

Ma bando alle malinconie e passiamo alle cose veramente tristi e cioè alla serie che nel 1975 accompagnò e promosse l'uscita del singolo Bohemian Rhapsody dei Queen^{[citazione falsa come la storia di Paul McCartney morto nel 1966 e sostituito da un sosia]}: Biancaneve e i 777 nani!™

Biancaneve e i 777 nani!™
(dalla versione giapponese a puntate degli anni '70)
Episodio 20 - Malevolo - il nano ostile.
In questa puntata Biancaneve finisce su un sito del nano Malevolo (nonostante il sito fosse segnalato come malevolo) e prende un virus informatico che la costringe a reinstallare tutte le Windows della casa dei nanetti.

E per concludere degnamente, il proverbio del giorno:
"A pensar male, si fa peccato ma ci si diverte molto."

Stay constructed!