60000 REM *****************************
60001 REM G R A F I K - D E S I G N E R
60002 REM *****************************
60003 DATA"","","[159]","[156]","","","[158]","[129]","[149]","[150]","[151]","[152]","[153]","[154]","[155]"
60004 DIMZ$(25):I=1024:DIMY$(15):FORI4=1TO15:READY$(I4):NEXTI4
60005 IFPEEK(I)=0THENA=I+1:GOTO60008
60006 IFI>2023THEN60011
60007 I=I+1:GOTO60005
60008 FORI=ATOA+38:IFPEEK(I)=0THENB=I-1
60009 NEXT:FORI=A-1+40TO2023STEP40:IFPEEK(I)=0THENC=I+1
60010 NEXT
60011 AB=B-A:D=C+AB:IFA=0ORB=0ORC=0ORD=0THENPRINT"?ILLEGAL SIZE  ERROR":END
60012 FA=PEEK(53280)
60013 IFFA>15THENFA=FA-16:GOTO60013
60014 FORI1=ATOCSTEP40:Z$="?"+CHR$(34):FORI=I1TOI1+AB:X=PEEK(I):CL=PEEK(I+54272)
60015 IFCL>15THENCL=CL-16:GOTO60015
60016 IFRV=2ANDX<128THENRV=3
60017 IFX>127ANDRV=0THENRV=1
60018 IFRV=1ORRV=2THENX=X-128
60019 IFX>63ANDX<96THENX=X+32:GOTO60023
60020 IFX>96ANDX<128THENX=X+64:GOTO60023
60021 IFX>0 ANDX<32THENX=X+64:GOTO60023
60022 IFX>=32ANDX<64THENX=X
60023 IFFA=CLTHEN60027
60024 FA=CL:IFFA=0THENZ$=Z$+"[144]"
60025 FORI2=1TO15:IFFA=I2THENZ$=Z$+Y$(I2)
60026 NEXTI2
60027 IFRV=1THENZ$=Z$+"":RV=2
60028 IFRV=3THENZ$=Z$+"[146]":RV=0
60029 Z$=Z$+CHR$(X):NEXTI:Z$=Z$+CHR$(34):Z$(AN)=Z$:Z$="":AN=AN+1:RV=0:NEXTI1
60030 INPUT"[147]AB WELCHER ZEILE ";ZN:IFZN<0ORZN>63000THEN60030
60031 PRINT"[147]":FORI=0TO(C-A)/40:PRINTZN+I;Z$(I):NEXT:PRINT"";:END