start bastext 1025 start tok64 d64-KRdgNP 1 PUTc:PUT 2 FORc=40TO43:CPROG0,c 3 CPROG"*..**..*" 4 CPROG".*.**.*." 5 CPROG"..****.." 6 CPROG".******." 7 CPROG"..****.." 8 CPROG".*.**.*." 9 CPROG"*..**..*" 10 CPROG"{.*8}":NEXT 11 PRINT"{clear}":PRINT:y=0:y1=24:FORx=0TO39STEP2:COPYx,y,40,1:COPYx+1,y,44,1:COPYx,y1,41,1 20 COPYx+1,y1,45,1:NEXT 21 FORy=1TO23STEP2:COPY0,y,42,1:COPY0,y+1,46,1:COPY39,y,43,1:COPY39,y+1,47,1 22 NEXT 25 PRINT"{down*3}{right*7}note: this does not move" 30 FORp=0TO100:FORl=0TO7:SHIFTl0,40TO44 32 SHIFTd0,42TO46:SHIFTu0,43TO47 40 SHIFTr0,41TO45:NEXT 50 FORl=0TO7:SHIFTl0,44TO40 55 SHIFTd0,46TO42:SHIFTu0,47TO43 60 SHIFTr0,45TO41:NEXT:NEXT stop tok64 (bastext 1.0)