This is an online emulation of a Commodore 64 game, programmed in Basic and taking only 4 kilobyte. Java emulation eats a lot of processor power, so stutters may occur or the game may be even unplayable. Game runs best on the original machine, or a local emulator such as ccs64 or vice. You can download a disk image of the game here: stakk raize @ csdb
Below you find the original listing, Commodore graphic symbols are of course scrambled.
0 DATA255,255,255,255,255,,255,,:LI=3:PE=53279:J1=56321:SP=2040:SC=0:F=1:GOTO60
1 L=829:M=893:S=957:FORK=0TO7:L=L+3:M=M+3:S=S+3:V=53248
2 FORC=0TO2:READD:POKEL+C,D:READD:POKEM+C,D:READD:POKES+C,D:NEXT:RESTORE:NEXT:C=1024
3 K=C*54:B=40:D=127:FORA=0TO24:POKEC+A*40,D:POKEC+A*40+15-F,D:POKESP+7-ABS(1-A),255
4 POKEC+A*B+30-2*F,D:POKEC+A*B+1,D:POKEC+A*B+14-F,D:POKEC+A*B+16-F,D:POKEC+A*B+29-2*F,D
5 POKEK+A*40+1,0:POKEK+A*40+14-F,0:POKEK+A*40+16-F,0:POKEK+A*40+29-2*F,0:NEXT
6 P=2:O=2:U=1:H=1:Y=18-F:Z=3:T=24:R=24:POKEV+21,5:POKEV+39,1:POKEV+41,11:D=160:J0=3
7 POKEV+1,(R+6)*8+2:POKEV+5,(T+6)*8+2:POKESP,13:POKESP+2,13:S=0:GOTO14
8 POKESI+4,65:SC=INT(SC+S):PRINT"";SC:ONQGOTO12,9,10,9,10,9,10,9,10
9 POKESI+4,17:POKESP,15-P:Q=Q-1:P0=SGN(Q):GOTO25
10 POKESI+1,ABS(R-(8-Q)):S=0:POKESP,11:Q=Q-1:P0=SGN(Q):GOTO25
12 POKESI+1,26-R+1:POKESI+4,64:Q=0:P0=0:POKESP,15-P:R=R-1:POKEV+1,(R+6)*8+2:E=PEEK(PE):GOTO25
14 POKESI+11,128+(Q0-1):ONPEEK(PE)AND1GOTO17
15 Z=Z+U:POKEV,(Z*8)+24:J=J+1:ONABS(240-(PEEK(J1)))GOTO20:GOTO25
17 ONJGOTO15:IFU=1THENU=-1:J=0:GOTO15
18 U=1:J=0:GOTO15
20 S=0:FORA=0TOP:POKEK+R*B+Z+A,Z+A+1:POKER*B+C+Z+A,D:S=S+(PEEK((R+1)*B+C+Z+A)ANDD)/D:NEXT
21 POKESI+3,(T*(P+1)/3)AND15:ON(S/(P+1))GOTO24:ONP+1GOTO39:P=P-1:Q=9:P0=1
23 ONR-1GOTO42:GOTO25
24 ONR-1GOTO42:Q=1:P0=1:POKESI+1,26-R:POKESI+4,65
25 FORA=PTO2-(Q0AND2):NEXT:ONQ0GOTO37,35:ONABS((PEEK(PE)AND4)-3)GOTO27
26 Y=Y+H:POKEV+4,Y*8+24:J0=J0+1:GOTO29
27 ONJ0GOTO26:IFH=1THENH=-1:J0=0:R0=R0-1:R1=INT(RND(1)*((F+2)*2/4))+1:GOTO26
28 M0=INT(((RND(1)*(25-2*F))+1)/(25-2*F)):R0=R0-1:H=1:J0=0:GOTO 26
29 ONABS(YI-Y)+1GOTO33:ONP0+YIGOTO30:ONP0GOTO8:GOTO14
30 YI=17-F+INT(RND(1)*(9-F)):E=PEEK(PE):R0=2:R1=2:ONP0GOTO8:GOTO14
33 IFR0<1THENYI=YI+M0:FORA=0TOO:POKET*B+C+Y+A,D:NEXT:O=O-M0:Q0=2:ONP0GOTO8:GOTO14
34 POKESI+8,26-T:ONP0GOTO8:GOTO14
35 Q0=M0:R0=R1:POKESP+2,15-O:T=T-1:POKEV+5,(T+6)*8+2:E=PEEK(PE):ONTGOTO39:ONP0GOTO8:GOTO14
36 E=PEEK(PE):FORA=1TO23:NEXT:POKESP+2,11:Q1=1:ONSGN(Q)GOTO8:GOTO14
37 ONO+2GOTO36:FORA=0TO1:POKESI+11,129-A:POKESI+8,2*A:NEXT:Q1=Q1+1:IFQ1=16THENQ0=0:Q1=0:YI=Y
38 ONSGN(Q)GOTO8:GOTO14
39 LI=LI-1:POKESI+11,8:A=24-R:POKESI+4,65:POKESI+18,65:POKESI+17,8
40 FORD=0TOA:POKESI+1,(24-D)*2:POKESI+15,(24-D)*2-3:POKEV+1,(R+6)*8+2
41 POKESI+17,D:R=R+1:NEXT:POKESI+4,8:POKESI+18,8:FORA=1TO900:NEXT:GOTO59
42 POKE53269,0:POKESI+11,8
43 DATA7,81,150,9,196,200,7,81,50,9,196,150,11,158,300,9,196,300,11,158,200
44 DATA9,196,50,11,158,150,14,162,300,,,
45 RESTORE:FORA=0TO8:READQ:NEXT
46 READL,M,S:IFL=0THENPOKESI+4,64:GOTO48
47 POKESI+4,65:POKESI,M:POKESI+1,L:FORA=1TOS/8:POKESI+3,S/100:NEXT:GOTO46
48 PRINT"BONUS:":PRINT"";P+1;"BLOCK":PRINT"
X"
49 M=0:L=0:FORA=17-FTO28-2*F:M=M+PEEK(1104+SL*40+A)/32:L=L+1:NEXT:IFM/L=1THEN51
50 SC=SC+(P+1)*BO:PRINT"NEW SCORE >";SC:GOTO57
51 POKESI+1,BO+5:FORW=17-FTO28-2*F:POKE1104+SL*40+W,160:POKESI+4,17+W*3
52 POKEK+80+SL*40+W,13:NEXT
53 SL=SL+1:BO=BO+1:POKESI+4,8:PRINT"";BO;" LINES":PRINT"=";(P+1)*BO:GOTO49
57 F=F+1:PRINT"HIT BUTTON"
58 A=PEEK(J1):IFA=255THEN58
59 YI=0:J=0:J0=0:M=0:M0=0:Q0=0:SL=0:BO=0:P0=0:POKEV+4,0:ONLI+1GOTO87
60 POKE53280,0:POKE53281,0:ONSGN(V)+1GOTO67:POKEV+21,0
61 PRINT"š“"
62 FORA=1TOLI:POKE1025+A,81:NEXT:PRINT"LIFE"
63 PRINT"LEVELš";F:FORA=1TO199:POKE55817,A:NEXT:PRINT" "
65 FOR A=0TO30-2*F:POKE1064+A,255:POKE55336+(30-2*F)-A,7:NEXT:ONABS(B-39)GOTO3:GOTO1
67 PRINT"“":PRINT:PRINT" ©’ÄÄľ ß © ² Ý ® ° "
68 PRINT" Ç ¼ÃòÃþ ÎÍ Â °½  ÕË"
69 PRINT" ÊÃÃÃÉ Â Î Í «²© «²Ë"
70 PRINT" È Â Î·¸¸·Í ÂÊÉ Âß®"
71 PRINT" ¯¯¯¯¯© Â Î Í Â ÊÉ Â Ã»":PRINT:R=1:GOTO82
74 PRINT: PRINT"— ¿¿¿¿ ¬¿¿¿ ¿¿¾¿¿¿¿¿¿¾¿¿¿¿¾"
75 PRINT"˜ ¿¾ ¿ ¿¾ ¿¾¬¿ ¬¾ ¿¾"
76 PRINT"› ¿¾ ¿ ¿¾ ¿¾¬¿ ¬¾ ¿¿¬"
77 PRINT" ¿¿¿¾ ¿¿¿¿¾¬¿ ¬¾ ¿¾¾"
78 PRINT"› ¿¾ ¿ ¿¾ ¿¾¬¿ ¬¾ ¿¾"
79 PRINT"˜ ¬¿¾ ¿ ¿¾ ¿¾¬¿ ¬¿¬¬¬¬ ¿¿¬¬":REM
(W) 2K9 ZEROZILLION
80 PRINT"— ¾¾¾ ¾¾¾¾ ¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾¾":GOTO83
82 R=R+1:FORA=5TO35:POKE55296+(R*40)+A,R+9:NEXT:X=X+1:ONR/6GOTO74:GOTO82
83 PRINT"› HIT CHOICE STICK PORT 1 OR SPACE":GETA$:IFA$=""THEN83
85 SI=54272:POKESI+24,15:POKESI+5,04:POKESI+6,56:POKESI+2,99
86 POKESI+12,04:POKESI+13,35:POKESI+19,04:POKESI+20,85:GOTO61
87 PRINT" ":PRINT:PRINT:PRINT:PRINT:PRINT
88 PRINT"›Î·ÕÃÉÍ ÎÕÃÃ Í ´ÕÃðÃÉ"
89 PRINT"˜´ Ý ÝÎÍÎÍ ηÍÍ ´Â  Â"
90 PRINT"—´ «Ã³´ ª«Ã ´Ñª Í ´«Ã ÂÃË"
91 PRINT"˜´§Â ´ ªÂ Í¯Î Í ´Â ÂÍ "
92 PRINT"›ÍºÂ ´ ªÃÃà ʹÃàͯ":PRINT:PRINT""
94 PRINT:PRINT"YOUR FINAL SCORE IS";SC:PRINT:IFSC>SHTHEN97
96 PRINT"HIGHSCORE IS STILL AT";SH:PRINT:PRINT:GOTO 98
97 PRINT"YOU'VE SET A NEW HIGHSCORE":PRINT:PRINT:SH=SC
98 PRINT"‘HIT THE BUTTON TO PLAY ONCE MORE":A=PEEK(J1):IFA=255THEN98
99 GOTO0