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%