L'emulatore si chiama VZ ALIVE ma non è l'unico (ad esempio il MESS include la famiglia LASER). I giochi sono
in questa pagina dell'emulatore.
Dagli SNAP capirai quanto sono tristi. Ma di più il processore Z80 non avrebbe potuto fare.
Ho trovato anche un sito di un appassionato Italiano che ha fatto dei giochini in BASIC. Ad esempio BOMBER del quale ha pubblicato il listato :
1 cls:color6,1
2 print "stefano bonaldo presents:"
3 print:print
4 print "b o m b e r":print:print
5print"destroy all buildings with bombsto land safely"
6print"press b to bomb":print:print
7 print "to contact me"
8 print "write to steve75@libero.it"
9 print:print
10 print "press c to continue"
11 a$ = inkey$
12 if inkey$ = "c" then cls:goto40
13goto11
40cls:color4,0
50cls:pu=0
60aa=28672:cc=28673:dd=28674
62color3,0
90cls
100forn=2to29
104a=rnd(6)
106b=rnd(4)
108gosub1000
110forh=29152+ntocstep-32
112pokeh,g
114nexth
116nextn
118forn=0to31
120poke29152+n,252
122nextn
124poke29150,255
200fors=1to473
210pokeaa+s,198:pokecc+s,192:pokedd+s,201
212pokeaa+s-1,96
214a$=inkey$
215ifinkey$="b"thengoto2900
224uu=dd+s+1
230ifpeek(uu)<>96thengoto2000
240ifpeek(uu)=255then800
790nexts
800forn=1to4
802color3,1
820sound10,1:sound14,1:sound16,1
824color3,0
840nextn
844cls
860color3,1:print@233,"B O N U S"
880forn=1to400:nextn
890goto60
1000ifa=1c=28864
1002ifa=2c=28896
1004ifa=3c=28928
1006ifa=4c=28960
1008ifa=5c=29024
1010ifa=6c=29056
1012ifb=1g=191
1014ifb=1g=179
1016ifb=3g=182
1018ifb=4g=188
1020return
2000forzz=1to4
2010pokeaa+s,249:pokecc+s,250:pokedd+s,251
2011sound10,1
2012pokeaa+s,96:pokecc+s,96:pokedd+s,96
2014sound5,1
2050nextzz
2060forss=sto479step32
2062pokeaa+ss,249:pokecc+ss,246:pokedd+ss,249
2064sound10,1
2066print@ss," "
2068nextss
2070form=1to100:nextm
2072cls:print@32,"points:"pu
2073if mp < pu then mp=pu
2074print@96,"max points:"mp
2076forn=0to29
2078poke28992+n,198:poke28993+n,192:poke28994+n,201
2080poke28992+n-1,96
2081poke29021,96:poke29022,96:poke29023,96
2082a$=inkey$
2084print@448,"play again? (y/n)"
2086ifa$="y"thengoto50
2088ifa$="n"thenend
2090nextn
2100goto2076
2881print@n," "
2900a$="a":ifs<255thenxx=383
2908ifs>287thenxx=478
3000forff=s+32toxxstep32
3002pokeaa+ff,99
3004pokeaa+ff,96
3008ifpeek(aa+ff+32)<>96thenpu=pu+1
3014nextff
3016sound1,1
3050goto210
8002sound3,1
Che ridere.