DELOSCSMLCXSNSHTOPLRKECCXSSDELAKENCOCIS7177743 $$$$| CLEARBLK.BAS by: Ken Cox |$$| version 2, 30 Sep 90 |$$| Do Not renumber |$$|This program self destructs |$$dhh;@T,;@,;@,;@T,;@T,;@,;@T,;@T,;@%,i@@6.6hإXiYiȰ(i'`n@@6.6hإXihYiȰ%i'`s@@6.6hإXi@YiȰ(i'`x@@6.6hإXi@YiȰ(i'`}@@6.6hإXi(YiȰ'i'`##6.hإXiYi2` >:A%,AYB-B (B-@B (B-@B (䠰B-@B (䠰B-@B (ǺB-@B (6-?:C:,,A-@@#A 'ˮӠ.@.@@K:]A 'AA&9AAK@]AR@<-@@< "c-@@ --@7@3 E-@@K ]-@7@c <-@@< ">-@@ > $>-@@> $>-@@> $>-@@> $)-@@) Ӡ٠٠AY@4)@6-?:C:,,C A@-@@C  6.6-/-@ @/ Clear the screen from,-@ @ row ,@6-?:C:,,4A@  6-A:,!! )!@#AUC Au-@@C  6-@%B:,@)  thru row 6@6-%@"!@$AU'!&@AU,E A-@@E !1-@@ from6/-@ @!" column /@; 6-A:,4A@!! )!@9AUEE A%-@@E ! J9-@%B:,@!,  thru column 9@O6-%@T!@@AUY!&@AU^ AucDA@H'-@ @D Hey! You can't do that..h<-@@< " m6-%@r8)@"AA.6-?:C:,,8 A@w<-@@< " OK? /N |8)@8"@)"A!)"AUA"A)"@x% Au# Au6-&#6-$@@&6-P:'AV,&6-&+$AV,6-?:C:,, B-@6-?:C:,,`-@@8 箮J-@@` :-@A -A @: >:A%,&-@&  1002 DATA &-@&  1004 DATA &-@&  1006 DATA &-@&  1008 DATA &-@&  1010 DATA 2-@. POKE 842,12:GOTO 4702*-@'AB@*& >:A%,*-@* 10 DIM (54)/-@/ 20 =>:@4, #A-@@T"%"AU)"@4%6-@c >:@',>:,  >:@4, #A -@@T""@4' AP ! AU&'' :(,)=CHR$()+.-@.  30 X=USR(ADR())0P-@P 6POKE 842,12:POKE 752,0:PRINT CHR$(125):POKE 709,0:LIST5-@ NEW:*-@'AB@*&?P6-?:C:,,6-?:C:,,% Au7-@@P D:-@@:  ˬ RETURN I4-@@4 Enter the string name: ̤N"-@'@"@S 4̤6.ML$X 6-B:,]2-@%@:7<,,!A'('2 Aub g-7<,0$-67%@<%@,.$l1-@'@ %6-?:C:,,16-?:C:,,q:-@@:  ˿YΠv)@{&#"AU)"@)"A!&$!!"@x)"AAu A0104,24,216,165,88,105133,0,165,89,105133,1,169,0,162 160145,0,200,176,22,192""208,247,202,240,20,165,0,10539,133,0,169,0,144,232,24 230,1,144,227,24,230,1,144 229,96D2:CLEARBLK.BAS