10 ! PRINI 20 ! Initiering av skrivare MICROLINE 82A 30 ! Auto-startas 40 ! 50 INTEGER : EXTEND 60 ! 70 ! 80 IF NOT FNAnsluten THEN Dummy=FNFel : CHAIN "NUL:" 90 ! 100 OPEN "PR:VSA36A72.44A" AS FILE 1 110 ; #1,FNSidl{ngd$(72); : REM F|r 12" papper 120 ; #1,FNTof$; 130 ; #1,FNKortrad$; 140 CLOSE 1 150 ; CHR$(12); 160 CHAIN "NUL:" ! N{sta program 170 ! 180 DEF FNFel 190 ; CHR$(7) "Skrivaren {r inte korrekt ansluten!" 200 ; "Kontrollera kabeln och tryck sedan p} Reset-knappen igen." : ; 210 RETURN 0 220 FNEND 230 ! 240 DEF FNAnsluten 250 OUT 33,16 : RETURN ((INP(33) AND 32)=32) 260 FNEND 270 ! 280 ! Top of Form position setting 290 ! Nollst{llning av skrivarens radr{knare 300 ! 310 DEF FNTof$=CHR$(27,53) 320 ! 330 ! Format Length setting 340 ! Papperets l{ngd i antal rader 350 ! 70 = A4-papper, 72 = 12" papper 360 ! Noll anger att sidl{ngden v{ljes med vredet p} skrivaren 370 ! 380 DEF FNSidl{ngd$(X) LOCAL X1,X2 390 IF X<0 OR X>99 THEN RETURN "" 400 X2=MOD(X,10) : X1=(X-X2)/10 410 RETURN CHR$(27,70,48+X1,48+X2) 420 FNEND 430 ! 440 ! Val av radl{ngd (med eller utan 8 teckens marginaler) 450 ! 460 DEF FNL}ngrad$=CHR$(27,65) 470 DEF FNKortrad$=CHR$(27,66)