10 PRINT"[147]";:GOSUB59000
20 FORI=1TO50:BR=5:HO=3:ZL=INT(RND(1)*19)+1:SP=INT(RND(1)*32)+1:GOSUB1100
30 ZL=ZL+1:SP=SP+1:BR=3:HO=1:GOSUB1300: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
1300 GOSUB1200:FORI9=1TOHO+2:PRINTTAB(SP)LEFT$(L$,BR+2);:IFI9<HO+2THENPRINT
1310 NEXT:RETURN
59000 I9=0:ZL=0:SP=0:BR=0:HO=0
59080 L$="                                       "
59090 FC=11:FB=15:FR=12:POKE53281,FB:POKE53280,FR:POKE646,FC
59099 RETURN