Fill the Box by RAX

10 Line BASIC ============= Category : PUR-80 TITLE : Fill The Box PLATFORM : Oric Atmos LANGUAGE : BASIC 1.1b AUTHOR : RAX CODE: ---------1---------2---------3---------4---------5---------6---------7-------- 0E$="####6I######+#+#+++##3%##+S*####))_2_2))####)S&S&)####A)AA/A/)##" 1F$="#$1@##Z^S#)#&#V+#++,#+###%$=2%4/4####31 ""THENK=ASC(K$):X=X-(K=9)+(K=8):Y=Y-(K=10)+(K=11) 5Z=SCRN(Q+X,W+Y):IFZ<>20THENX=E:Y=RELSEN=N-1:P=P+1:IFP>19THENP=18:M=N=0ORK=82 6PLOTQ+X,W+Y,P:WAIT9:PLOTQ+X,W+Y,17:UNTILM:IFK<>82THENL=L+1 7IFL ""THENK=ASC(K$):X=X-(K=9)+(K=8):Y=Y-(K=10)+(K=11) K$=KEY$ - get key into K$ E=X - ...