10 REM ++++++++++++++++++++++++++++++++ 20 REM ! Program .... ETIKETT2.BAS 30 REM ! Utg}va 84-05-23 40 REM ! av (c) PRO-DATA 50 REM ! ABC80 i grundutf. + Skrivare 60 REM ! Ins{nt av B.LINDAHL <810> 70 REM ++++++++++++++++++++++++++++++++ 80 REM 90 REM Utskrift p} etiketter av valfri 100 REM text och valfritt antal. 110 REM 190 P0$="PR:VSA33C01.5" : REM printer-parametrar 200 REM R%=ETIKETTSTORLEK 210 REM S%=ANTAL RADER SOM SKALL SKRIVAS UT 220 REM A%=ANTAL ETIKETTER 230 REM A$()= TEXTRADER 240 REM V%=V[NSTERMARGINAL 250 REM T%=TOMRADER 260 REM Z%=SLASKVARIABEL 270 REM F$=FR]GESTR[NG 280 ONERRORGOTO 280 290 Z%=INP(4%) : REM 80 TKN 300 ; CHR$(12%) 310 ; CUR(2%,30%)"***** ETIKETT *****" 320 ; CUR(5%,10%)"Hur stora {r etiketterna, antal rader "; : INPUT R% 330 ; CUR(7%,10%)"Ange antal rader som skall skrivas "; : INPUT S% 340 FOR I%=1% TO S% 350 ; CUR(8%+I%,10%)"Ange text p} rad "I%" "; : INPUTLINE A$(I%) 360 A$(I%)=LEFT$(A$(I%),LEN(A$(I%))-2%) : REM TAR BORT CR/LF 370 NEXT I% 380 ; CUR(8%+I%+3%,10%)"Ange v{nstermarginal "; : INPUT V% 390 ; CUR(2%,30%)"***** ETIKETT *****" 400 ; CHR$(12%) 410 ; CUR(5%,20%)"" 420 FOR I%=1% TO S% 430 ; CUR(5+I%,20%)""TAB(20%+V%)A$(I%);CUR(5%+I%,55%)"" 440 NEXT I% 450 IF S%