start tok64 d64-xsMkd5 10 PRINT"{clear}"; 20 GETa$:PRINT "{reverse on} {left}{reverse off}";:IFa$=""THEN20 30 IF a$=CHR$(133) THEN PRINT" ";:GOTO 100 40 PRINT a$;: GOTO20 100 POKE 56334,PEEK(56334) AND 254: POKE1,PEEK(1) AND 251 110 FOR i=0 TO 127: FOR j=0 TO 7:POKE 32768+i*8+j,PEEK(53248+i*8+j):NEXTj:NEXTi 120 POKE 1,PEEK(1) OR 4: POKE 56334,PEEK(56334) OR 1 130 POKE 55,255: POKE56,127 140 DIM b(63): DIM v(39,7): s=0: OPEN4,4,4 150 PRINT#4,chr4(27)"a"CHR$(8) 160 PRINT#4,CHR$(27)CHR$(75)CHR$(64)CHR$(1); 170 FOR cl=1024 TO 2023: c=PEEK(cl) 180 l=(c*8)+32768 190 FOR x=0 TO 7: h(x)=PEEK(l+x): NEXT x 200 FOR z=0 TO 63: b(z)=0: NEXT 210 n=128:q=0:FOR x=0 TO7: m=128: FORy=0 TO 7 220 IF h(x)=>m THEN b(y+q)=n: h(x)=h(x)-m 230 m=m/2: NEXT y: q=q+8: n=n/2: NEXT x 240 FOR y=0 TO 7 250 v(s,y)=b(0+y)+b(8+y)+b(16+y)+b(24+y)+b(32+y)+b(40+y)+b(48+y)+b(56+y) 260 NEXTy: s=s+1 270 IF s<40 THEN 320 280 FOR s=0 TO 39: FOR y=0 TO 7: PRINT#4,CHR$(v(s,y));: NEXT y: NEXT s 290 s=0 300 CLOSE4,4,4: OPEN4,4: PRINT#4,CHR$(13);: CLOSE4,4: OPEN4,4,4 310 PRINT#4,CHR$(27)CHR$(75)CHR$(64)CHR$(1); 320 NEXT cl: CLOSE4,4 stop tok64 (bastext 1.0)