start tok64 d64-iiNEMw
100 REM" ka43/61{space*2}open system 06-aug-92 by k. aanestad, oslo
110 :
120 l=2935:nm=121:ml=167:ws=PEEK(45)+256*PEEK(46)-l
130 POKE 53281,6:PRINT"{white}{clear}{reverse on}s{reverse off}erial cbm or {reverse on}p{reverse off}arallel
140 INPUT"centronics{space*2}printer{space*7}p{left*3}";p$:p=0:IF p$="p"THENp=1:GOTO170
150 PRINT"printer is set for
160 INPUT"{reverse on}c{reverse off}ommodore-ascii or {reverse on}a{reverse off}scii{space*2}c{left*3}";pe$:pe=ASC(pe$)
170 wl=PEEK(55)+256*PEEK(56)-l:INPUT"{down}ka43 at top of basic ram{space*2}y{left*3}";a$
180 IFa$="y"GOTO200
190 INPUT"{down}ka43{space*2}start{space*3}49152{left*7}";wl
200 IF wl-256*INT(wl/256)=250 THEN PRINT"{down}{reverse on} please relocate {reverse off}":END
205 SYS ws-5*nm-ml,ws,wl,l,ws-5*nm,nm
210 SYS ws-5*nm-ml,ws,wl,l,ws-5*nm,nm
220 PRINT"restart{space*2}ka43{space*2}with: sys";wl:PRINT
230 REM"for y=wl+2905 to wl+2905+27:read nc:poke y,nc:next:rem" ascii table
240 DATA 15,20,192,205,165,186,167,186,176,201,174,187,189,188,173,200
250 DATA 219,146,220,157,221,143,91,145,92,155,93,134:REM" norwegian ibm
260 de=127:POKEwl+420,de:POKEwl+430,de:REM" set lower if par printer allow
270 IF p=1 THEN330:REM" par default
280 POKEwl+398,24:POKEwl+399,144:POKEwl+400,248
290 POKEwl+498,44:POKEwl+512,24:POKEwl+540,44:POKEwl+543,24
300 POKEwl+80,83:POKEwl+1536,24:POKEwl+1623,24:POKEwl+2609,36
310 POKEwl+187,227:POKEwl+188,168
320 IF pe=67 THEN POKEwl+1607,76+128:POKEwl+227,3
330 REM"pokewl+1307,10:pokewl+1319,5:pokewl+1602,42:pokewl+1607,1:rem"{arrow left}c0,1
340 IF wl+l=PEEK(55)+256*PEEK(56) THEN wl=wl+7
350 SYSwl:PRINT"{down}{light green}":{arrow left}b0"ka43":PRINT"{light blue}{arrow left}x"CHR$(34)"help*":PRINT"{up*4}":NEW:END
stop tok64
(bastext 1.0)