1 REM Ins{nt av 810
5 REM FELET P] RAD 530 , VAR ERROR 20 , BEKLAGAR.....
6 REM TACK F\R HJ[LPEN PER LARSEN <774>
10 REM ETIKETT2
20 REM ETIKETTPROGRAM
30 REM PRO-DATA 840523
40 REM B.LINDAHL MEDLEM 810
50 REM R%=ETIKETTSTORLEK
60 REM S%=ANTAL RADER SOM SKALL SKRIVAS UT
70 REM A%=ANTAL ETIKETTER
80 REM A$()= TEXTRADER
90 REM V%=V[NSTERMARGINAL
100 REM T%=TOMRADER
110 REM Z%=SLASKVARIABEL
120 REM F$=FR]GESTR[NG
130 ONERRORGOTO 130
140 Z%=INP(4%) : REM 80 TKN
150 ; CHR$(12%)
160 ; CUR(2%,30%)"***** ETIKETT *****"
170 ; CUR(5%,10%)"Hur stora {r etiketterna, antal rader "; : INPUT R%
180 ; CUR(7%,10%)"Ange antal rader som skall skrivas "; : INPUT S%
190 FOR I%=1% TO S%
200 ; CUR(8%+I%,10%)"Ange text p} rad "I%" "; : INPUTLINE A$(I%)
210 A$(I%)=LEFT$(A$(I%),LEN(A$(I%))-2%) : REM TAR BORT CR/LF
220 NEXT I%
230 ; CUR(8%+I%+3%,10%)"Ange v{nstermarginal "; : INPUT V%
240 ; CUR(2%,30%)"***** ETIKETT *****"
250 ; CHR$(12%)
260 ; CUR(5%,20%)""
270 FOR I%=1% TO S%
280 ; CUR(5+I%,20%)""TAB(20%+V%)A$(I%);CUR(5%+I%,55%)""
290 NEXT I%
300 IF S%