10 FOR n=0 TO 71
20 READ row: POKE USR "A"+n,row
30 NEXT n
100 DATA 7,31,60,120,127,255,255,255,224,248,60,30,254,255,255,255,255,255,255,127,117,58,29,7,253,255,245,234,86,172,88,224
110 DATA 16,27,9,4,2,1,1,0,8,216,208,192,96,32,16,144,0,1,0,0,0,0,0,0,168,40,8,8,16,32,0,0
120 DATA 0,108,254,254,124,56,16,0
1000 LET life=3: LET score=100: LET hiscore=10000
1010 BORDER 0: PAPER 0: CLS 
1020 LET l=20: LET c=30*RND: LET i=6*RND
1030 FOR j=l TO 0 STEP -1
1040 INK i
1050 IF j<18 THEN PRINT AT j+4,c;"  "
1060 PRINT AT j,c;"\a\b": PRINT AT j+1,c;"\c\d"
1070 IF j<20 THEN PRINT AT j+2,c; INK 2;"\e\f": IF j<19 THEN PRINT AT j+3,c; INK 2;"\g\h"
1080 PAUSE 2
1090 FOR b=1 TO life: PRINT AT 0,b; INK 2;"\i": NEXT b
1100 PRINT AT 0,6; INK 4;"SCORE ";score;AT 0,16; INK 3;"HI SCORE ";hiscore
1110 NEXT j
1120 CLS : GO TO 1020