999 DR=4:SE=1
1000 OPEN1,8,15,"S:PR-MICRO"
1010 PRINT#1,"C:PR-MICRO=MICRODRUCK"
1020 OPEN2,8,2,"PR-MICRO,P,A"
1030 PRINT#2,CHR$(DR);CHR$(SE);:C$=""
1040 READA$:IF A$="*" THEN 1070
1050 C$=C$+CHR$(VAL(A$))
1060 GOTO 1040
1070 PRINT#2,CHR$(LEN(C$));C$;
1080 C$=""
1090 READA$:IF A$<>"*" THEN 1050
1100 CLOSE2:CLOSE1
1110 END
2000 REM CODE FUER ZEILENVORSCHUB
2010 DATA 13,*
2100 REM CODE FUER 1920 PUNKTE/ZEILE
2101 REM BZW. 240 PUNKTE/ZOLL
2110 DATA 27,42,3,*
2200 REM CODE FUER 0/216 ZOLL VORSCHUB
2210 DATA 27,51,0,*
2300 REM CODE FUER 1/216 ZOLL VORSCHUB
2310 DATA 27,51,1,*
2400 REM CODE FUER 14/216 ZOLL VORSCHUB
2410 DATA 27,51,14,*
2500 REM CODE FUER 22/216 ZOLL VORSCHUB
2510 DATA 27,51,22,*
2601 REM BZW. 60 PUNKTE/ZOLL
2610 DATA 27,42,0,*
2700 REM CODE UM DAS BLATT UM 400/216
2701 REM ZOLL VORZUSCHIEBEN
2710 DATA 27,74,200,27,74,200,*
2800 REM CODE UM DAS BLATT UM 400/216
2801 REM ZOLL ZURUECKZUZIEHEN
2810 DATA 27,106,200,27,106,200,*
2900 REM DRUCKERINITIALISIERUNG
2901 REM (HIER NUR EIN PIEPSER)
2910 DATA 7,*
3000 REM DRUCKER ZURUECKSETZEN
3010 DATA 27,50,*
9999 DATA *