Countabout 243
440 LOCATE V,W: PRINT CHR$(233);CHR$(235 );CHR$(234):LOCATE V,W+1:PRINT" ";CHR$(2 35);CHR$(240):LOCATE V,W+2:PRINT CHR$(23 7);CHR$(235);CHR$(236):RETURN
450 PEN 2:LOCATE V,W: PRINT"":LOCATE V,W+1:PRINT CHR$(231);" ";CHRi(232):LOCA TE V,W+2:PRINT CHR$(238);CHR$(238);CHR$4 239) :PEN 1:RETURN
460 PEN 3:LOCATE V,W: PRINT CHR$(241);CH R$(235);CHR$(235):LOCATE V,W+1:PRINT CHR $(237);CHR$(235);CHR$(234):LOCATE V,W+2: PRINT CHR$(237);CHR$(235);CHR$(236):PEN 1: RETURN
470 PEN 2:LOCATE V,W: PRINT CHR$(233);CH R$(235);CHR$(234):LOCATE V,W+1:PRINT CHR $(242);CHR$(235);CHR$(234):LOCATE V,W+2: PRINT CHR$(237);CHR$(235);CHR$(236):PEN 1:RETURN
480 PEN 3:LOCATE V,W: PRINT" ":LOCATE
V,W+1:PRINT" ";CHR$(231):LOCATE V,W+2:P RINT" ";CHR$(231);" ":PEN 1:RETURN
490 PEN 2:LOCATE V,W: PRINT CHR$(233);CH R$(235);CHR$(234):LOCATE V,W+1:PRINT CHR $(242);CHR$(235);CHR$(240):LOCATE V,W+2: PRINT CHR$(237);CHR$(235);CHR$(236):PEN
1:RETURN
500 PEN 2:LOCATE V,W: PRINT CHR$(233);CH R$(235);CHR$(234):LOCATE V,W+1:PRINT CHR $(237);CHR$(235);CHR$(240):LOCATE V,W+2: PRINT CHR$(237);CHR$(235);CHR$(236):PEN 1:RETURN
510 FOR L=1 TO 1500:NEXT
520 LOCATE V,W:PRINT" ";:LOCATE V,W+1:
PRINT"	";:LOCATE V,W+2:PRINT"	";
530 LOCATE 22,9:PRINT "
540 RETURN
550 N4 ="H OUSE 5"
560 PEN 3:PRINT " ";CHR$(247);CHR$(143); CHR$(143);CHR$(143);CHR$(246);" ";Z$;CH R$(247);CHR$(143);CHR$(143);CHR$(143);CH R$(143);CHR$(143);CHR$(246);:PEN 2:PRINT
"Z$;CHR$(232);" ";CHR$(232);Z$;C HR$(232);" ";
570 PRINT CHR$(249);"	";CHR$(232);:PEN
1