1 MAXFILES=1:CLEAR512:LFILESV 2 DEFSTRA-H:DEFINTI-W:E=CHR$(34):GC=CHR$(13):GOTO10 6 A=A+GC:B="O¯G2æöå*¥ùÃëd":Y=VARPTR(B):X=VARPTR(A):CALLPEEK(Y+1)+256*PEEK(Y+2),PEEK(X),PEEK(X+1)+256*PEEK(X+2):RETURN 7 A=A+"," 8 B=STR$(N):A=A+RIGHT$(B,LEN(B)-1):RETURN 10 IFDSKI$("d-text.ba")=0THENPRINT"Need D-TEXT in RAM.";:CALL23456 20 CLS:CALL8802:A="Run":GOSUB6:PRINT"Add new PRNT format to D-TEXT.":PRINT"Refer to instructions, p. 41 of manual.":A="" 30 PRINT:PRINT"IMPORTANT!!!!":INPUT"How many formats are there now";N:IFN<1THENBEEP:GOTO30ELSEN=N+201:GOSUB8:A=A+" DATA " 35 LINEINPUT"Name of Format: ";C:IFLEN(C)<1ORLEN(C)>15THENBEEP:GOTO35ELSEA=A+E+C+E+","+E+"lpt:"+E 40 INPUT"Left Margin";N:GOSUB7 50 INPUT"Text width ";N:N=N-1:GOSUB7 60 INPUT"Are there page breaks (y/n)";D:K=INSTR("yY",D)>0:IFKTHENINPUT"How many lines in text body";NELSEN=32000 65 GOSUB7 70 INPUT"Spacing (1=single, 2=double, etc.)";N:IFN<1THENBEEP:GOTO70ELSEGOSUB7 80 IFKTHENINPUT"Print header at top of page (y/n)";C:N=INSTR("yY",C)ELSEN=0: 85 GOSUB7 90 INPUT"Does printer need CR/LF pairs (y/n)";C:IFINSTR("yY",C)THENA=A+",4,13,0,10,0"ELSEA=A+",2,13,10" 100 IFKTHENINPUT"Lines at the top of page";NELSEN=0 105 GOSUB7 110 IFK=0THENA=A+",1,12"ELSEINPUT"Use form feed (y/n)";C:IFINSTR("yY",C)THENA=A+",1,12"ELSEINPUT"How many lines at the bottom";N:GOSUB7:M=N:FORI=1TOM:N=10:GOSUB7:NEXT 120 N=0:IFKTHENINPUT"Pause at page breaks (y/n)";C:N=INSTR("yY",C) 125 GOSUB7 130 PRINT:INPUT"Are these responses OK (y/n)";C:IFINSTR("yY",C)=0THENCLEAR:MENUELSEGOSUB6:POKE-86,1:POKE-85,11:POKE-84,255:LOAD"d-text