start tok64 d64-G6JBz6
2 POKE631,82:POKE632,85:POKE633,78:POKE634,54:POKE635,13:REM" run6
4 POKE198,5:OPEN15,9,15,"i0":END:"{arrow left}e9 may stop some turbo cart."
6 CLOSE15:d=8:IF(st AND 191)=0 THENd=9
8 :
100 PRINT"{clear}{light gray}{space*4}********************************"
110 PRINT"{space*4}* headline printer for ka43/61 *"
120 PRINT"{space*4}*{space*2}16-oct-92 by k]re aanestad{space*2}*"
130 PRINT"{space*4}********************************{light blue}"
160 READ f$:sr$="loading":GOSUB790:sr$=f$:GOSUB790:PRINT"{up*2}"
170 {arrow left}e8:{arrow left}x"user chr",f$d
180 IF(st AND 191)<>0 AND d=9 THEN:{arrow left}e9:PRINT"{up*3}":{arrow left}e8:{arrow left}x,f$8
190 :
500 REM "restart prg at line 500
510 IF f$="" THEN READ f$
520 READ l,lm,n,h,f:lh=INT(l/2)-lm:DIM a$(n):FOR x=1 TO n:READ a$(x):NEXT
530 co=PEEK(646):fr$="{space*2}":IF f THENfr$="^"+CHR$(ASC("^")+128)
540 FOR x=3 TO lh:f1$=f1$+"{arrow left}":f2$=f2$+" ":NEXT
550 fl$=fr$+f2$+f2$+fr$:f1$=f1$+f1$:IF f THEN fd$=fl$
560 ft$=CHR$(35)+CHR$(35+128)+f1$+CHR$(36)+CHR$(36+128)
570 fb$=CHR$(37)+CHR$(37+128)+f1$+CHR$(38)+CHR$(38+128)
580 PRINT CHR$(142);"{down}{yellow} make your printer ready and hit a key!":WAIT 203,63
590 PRINT "{clear}":sr$="printing data":GOSUB790:sr$="from line 5{0*3}-":GOSUB790
600 {arrow left}c0:rl=PEEK(776)+256*PEEK(777)-100+1736:OPEN 4,4:REM" linespc
610 FORx=1 TO lm:h$=h$+" ":NEXT:IF lm=0 THEN h$=""
620 rd=PEEK(rl):rb=rd-1:IF h=1 THEN h$="{ct h}"+h$:GOTO640
630 POKE rl,rb:PRINT#4,"{ct h}";
640 IF f THEN bn$=ft$:r=1:GOSUB850:IF n>1 THEN bn$=fd$:r=1:GOSUB850
650 FOR x=1 TO n:he$="":l=LEN(a$(x)):FOR ll=1 TO l:c$=MID$(a$(x),ll,1)
660 he$=he$+c$+CHR$(ASC(c$)+128):NEXT ll
670 IF LEFT$(he$,1)="{ct d}" THEN he$="{ct n}"+MID$(he$,3)+"{ct o}":l=(l-1)*2
680 he$=LEFT$(fl$,lh-l)+he$:IF f THEN he$=he$+RIGHT$(fl$,lh-l)
690 bn$=he$:r=1:GOSUB850
700 IF(n>1 AND a$(x)<>" ") THEN bn$=fd$:r=1:GOSUB850
710 NEXT x
720 IF f<2 THEN750
730 bn$=fb$:GOSUB850:bn$="{reverse on}"+ft$:GOSUB850:bn$=fd$
740 FOR x=1 TO f:GOSUB850:NEXT
750 IF f THEN bn$=fb$:r=1:GOSUB850
760 {arrow left}c3:PRINT#4,CHR$(27);CHR$(50):CLOSE 4:{arrow left}c0:POKE rl,rd:REM"reset linespc
770 PRINT CHR$(142):POKE 646,co
780 END
790 sl=20:PRINT"{yellow}{ct n}":REM" screen
800 l=LEN(sr$):FOR ll=1 TO l:c$=MID$(sr$,ll,1):sc$=CHR$(ASC(c$)+128)
810 PRINT TAB(sl-l);c$;sc$;"{left*2}{down}{reverse on}";c$;sc$;"{up}{reverse off}";:NEXT ll
820 PRINT"{down*2}":RETURN
840 REM" printer
850 bu$=h$+bn$:POKE rl,1:PRINT#4,bu$:IF h THEN POKE rl,rb-1:PRINT#4,bu$
860 IF r=0 THEN RETURN
870 r=0:bn$="{reverse on}"+bn$:GOTO850
880 :
5000 DATA "headlinenor1.chr":REM" chr set"
5010 DATA 120,15,6,1:REM"chr/line,left margin,no of strings, nlq (0=no, 1=yes)"
5020 DATA 1:REM" frame (0=no,1=yes,>1 formula frame with no of lines)"
5030 DATA "{ct d}open system ka43/61"," ":REM" <ctrl>d for double width, extra line"
5040 DATA "an extended operating system","for commodore 64"
5050 DATA "by","k]re aanestad"
stop tok64
(bastext 1.0)