start tok64 d64-GUNQlT
0 a=53248:PRINT"{clear}64:ans eller dina tecken (64/#adress)":INPUTa$
1 IFa$<>"64"THENa=VAL(a$)
2 INPUT"banner text (max 40)";b$:INPUT"storlek (x=1- ),(y=1-10)";xs,ys
3 l=LEN(b$):INPUT"allting okey (j/n)";q$:IFq$<>"j"THENRUN
4 PRINT"{clear}"b$:OPEN1,4,0:bs$=CHR$(8):si$=CHR$(15):FORm=0TOl-1:t=PEEK(1024+m)
5 FORy=0TO7:POKE56334,0:POKE1,51:z=PEEK(t*8+a+y):POKE1,55:POKE56334,1
6 FORx=0TO7:IFz/2=INT(z/2)THENc%(y,x)=0:GOTO8
7 c%(y,x)=1
8 z=INT(z/2):NEXT:NEXT:FORy=7TO0STEP-1:FORi=1TOxs:PRINT#1,si$;
9 IFys<10THENFORj=1TO(80-ys*8)/2:PRINT#1," ";:NEXT
10 FORx=7TO0STEP-1:IFc%(x,y)=1THENFORj=1TOys:PRINT#1,"{reverse on} {reverse off}";:NEXT:GOTO12
11 FORj=1TOys:PRINT#1," ";:NEXT
12 NEXT:PRINT#1,bs$:NEXT:NEXT:NEXT:CLOSE1
stop tok64
(bastext 1.0)