10 PRINT"[147]";:GOSUB59000
20 BR=5:HO=3:FORI=1TO50:ZL=INT(RND(1)*19)+1:SP=INT(RND(1)*32)+1:GOSUB1100:NEXT
999 END
1100 GOSUB1200:PRINT"[176]";:FORI9=1TOBR:PRINT"[192]";:NEXT:PRINT"[174]"
1110 FORI9=1TOHO:PRINTTAB(SP)"[221]"SPC(BR)"[221]":NEXT
1120 PRINTTAB(SP)"[173]";:FORI9=1TOBR:PRINT"[192]";:NEXT:PRINT"[189]";:RETURN
1200 POKE214,ZL:POKE211,SP:SYS58640:RETURN
59000 I9=0:ZL=0:SP=0:BR=0:HO=0
59090 FC=11:FB=15:FR=12:POKE53281,FB:POKE53280,FR:POKE646,FC
59099 RETURN