5 POKE53280,0:PRINT"[147][142]":POKE53281,0:FORA=0TO1000:NEXT
10 PRINTCHR$(5)"":FORI=1TO3:PRINTCHR$(17):NEXT:PRINT"AWAY WE GO"
20 FORI=1TO16:PRINT"[145][148] [157]":POKE53270,200:WAIT53265,128
30 POKE53270,PEEK(53270)AND248:WAIT53265,128
40 FORJ=1TO7:POKE53270,(PEEK(53270)AND248)+J:FORK=0TO10:NEXT:NEXTJ,I
50 PRINT"[145][145][145]":POKE53270,200
60 FORI=1TO14:PRINTTAB(15)"           "
63 POKE53265,PEEK(53265)AND248:WAIT53265,128
65 PRINTTAB(15)"I'M FALLING[145]"
70 FORJ=1TO7:POKE53265,24+J:IFJAND1THENPOKE53265,24:WAIT53265,128
80 FORK=1TO30:NEXTK,J,I
90 POKE53281,2:FORI=1TO20:NEXT:PRINT"[147]":POKE53281,0:POKE53265,27
95 R(0)=2:R(1)=8:R(2)=10:R(3)=8:R(4)=7
100 FORU=3TO20:FORV=1TOU*3:E=1845-U+INT(RND(1)*(U*2))-INT(RND(1)*U)*40
110 POKE54272+E,R(INT(RND(1)*5)):POKEE,160:NEXTV,U:PRINT"";