1 REM Ins{nd av Anders Johnson <4001> 1989-08-21 10.34.04 (KERMIT) 10 REM ...SAVE RAK (=SKRIVUT+rak h|ger) ny vers 83 07 31 sw 20 REM L%=1% om printer : Q%=1% om rak h|ger 22 REM R%=radr{knare : G%=antal steg som fattas till R5% : 30 DIM A$=127%,W$=14% : R9%=60% : REM Max rader/sida 40 R5%=60% : REM tecken/rad vid rak h|ger 50 M%=10% : REM vmarg 60 ; 'INFIL >'; : INPUTLINE W$ : W$=LEFT$(W$,LEN(W$)-2%) 70 IF INSTR(1%,W$,'.')=0% W$=W$+'.TXT' : ; '.TXT' ELSE ; 80 ONERRORGOTO 230 : OPEN W$ ASFILE 2% 90 GOSUB 380 : REM koll standard? 100 ; 'P] PRINTER? (N)'; : L%=0% : GET B$ : ; B$ 110 IF INSTR(1%,'YyJj',B$) GOSUB 470 : REM printer 120 ; 'RADER/SIDA ('R9%')'; : ONERRORGOTO 130 : INPUT R9% 130 ; 'RAK HMARG (N)?'; : GET B$ : ; B$ : Q%=0% : IF INSTR(1%,'YyJj',B$) 140 ELSE 150 140 Q%=1% : ; 'HUR L]NG RAD ('R5%')'; : ONERRORGOTO 150 : INPUT R5% 150 ; 'HUR BRED VMARG ('M%')'; : ONERRORGOTO 170 : INPUT M% : GOTO 170 160 ONERRORGOTO 210 : INPUTLINE #2%,A$ : REM l{s rad 170 IF INP(16%)>128% GOTO 170 : REM Handbroms 180 IF ASC(A$)=ASC('^') R%=0% : IF L%=0% ; '(Ny sida)'; : GET A$ : ; ELSE ; #L%CHR$(12%); : GOTO 160 190 IF Q% G%=R5%+2%-LEN(A$) : IF G%R9% A$='^' : GOTO 180 ELSE GOTO 160 210 IF L% IF R%<=R9% ; #L%CHR$(10%); 220 END 230 E%=E%+1% : IF E%>4% ; 'Sorry jag bryter !' : END 240 GOTO 60 250 REM rak h|germarg 260 REM C9% flagga 300-310 f|r f|rsta resp andra varvet 270 REM C1% extra skarvbit : S% radmitten 280 C1%=0% : C9%=0% : IF R%/2%=R%/2 C%=1% ELSE C%=R5%/2% 285 S%=C% : REM minns utg}ngspunkten 290 FOR I%=1% TO G% 300 B%=INSTR(C%,A$,' ') : IF B%=0% IF C%=1% 360 ELSE C9%=-1% : C%=1% : GOTO 300 310 IF C9%=-1% IF B%>S% C1%=C1%+1% : C9%=0% 315 IF B%<4% THEN C%=C%+1% : GOTO 300 : REM mellanslag i b|rjan av raden godk{nns ej 320 A$=LEFT$(A$,B%)+' '+RIGHT$(A$,B%+1%) 330 IF LEN(A$)=R5%+2% THEN 360 340 C%=B%+3%+C1% 350 NEXT I% 360 RETURN 370 REM ...koll om standardv{rden 380 ; : ; : ; 'Standardutskrift:' 390 ; : ; 'PRINTER -'R9%' rader/sida' 400 ; 'RAK Hmarg' : Q%=1% : REM Q% flagga 410 ; 'Vmarg ='M% 420 ; 'Radl{ngd ='R5% 430 ; : ; 'OK? (J)'; : GET B$ : ; B$ 450 IF B$='N' OR B$='n' THEN RETURN 460 GOSUB 470 : GOTO 160 470 REM printer 480 L%=1% : OPEN 'pr:' ASFILE L% 490 ; : ; 'Printer ej klar !'; : OUT 6%,17% 500 ; #L%CHR$(13%); : OUT 6%,0% 510 ; CHR$(13%)TAB(18%)CHR$(13%); 530 RETURN