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%<R% THEN T%=R%-S% ELSE GOTO 340
310 FOR J%=1% TO T%
320 ; CUR(4%+I%+J%,20%)"";CUR(4%+I%+J%,55%)""
330 NEXT J%
340 ; CUR(5%+I%+T%,20%)""
345 ; CUR(2%,30%)"*****  ETIKETT *****"
350 ; CUR(22,10%)SPACE$(69%)
360 ; CUR(22%,10%)"[r Du n|jd med etiketten (J/N) "; : GET F$
370 IF F$="J" OR F$="j" THEN 380 ELSE 10
380 ; CUR(22,10%)SPACE$(69%)
390 ; CUR(22%,10%)"Hur m}nga etiketter vill Du ha "; : INPUT A%
400 ; CUR(22,10%)SPACE$(69%)
405 IF A%=0% THEN 1000
410 ; CUR(22%,10%)"Justera skrivaren och tryck RETURN "; : GET F$
420 OPEN "PR:VSA33C01.5" ASFILE 1
430 FOR I%=1% TO A%
440 ; CUR(22%,10%)"Etikett nummer "I%" skrivs ut nu               "
450 FOR J%=1% TO S%
460 ; #1;TAB(V%)A$(J%)
470 NEXT J%
480 FOR K%=1% TO T%
490 ; #1
500 NEXT K%
510 NEXT I%
520 CLOSE 1
530 ; CUR(22%,10%)"Utskrift klart !!    "
535 ; CUR(22%,30%)"Vill Du ha flera etiketter (J/N) "; : GET F$
540 IF F$="J" OR F$="j" THEN 560 ELSE 550
550 ; CHR$(12%) : Z%=INP(7) : END 
560 ; CUR(22,10%)SPACE$(69%)
570 ; CUR(22%,10%)"Skall det vara samma text p} dom  (J/N) "; : GET F$
580 IF F$="N" OR F$="n" THEN 10 ELSE 380
1000 ; CHR$(12%)CUR(10%,30%)"I   D   I   O   T" : END