100 REM RANDEINSTELLUNG
110 OPEN 1,4
115 PRINT#1,"@"
120 PRINT"[147] RANDEINSTELLUNG"
125 :
130 PRINT"SEITENLAENGE IN ZEILEN ODER INCH <Z/I>"
140 POKE 198,0 : WAIT 198,1 : GET A$
150 IF A$<>"I" THEN 200
160 INPUT"WIEVIEL INCH";A
170 A=INT(A):IF A<1 OR A>32 THEN 160
180 PRINT#1,"C";CHR$(0);CHR$(A);
190 GOTO 240
200 INPUT"WIEVIELE ZEILEN";A
210 A=INT(A):IF A<1 OR A>255 THEN 160
220 PRINT#1,"C";CHR$(A);
230 :
240 INPUT"WIEVIELE ZEILEN OBERER RAND";A
250 A=INT(A):IF A<1 OR A>255 THEN 240
260 PRINT#1,"";CHR$(99);CHR$(A);
265 O=A
270 :
280 INPUT"WIEVIELE ZEILEN UNTERER RAND";A
290 A=INT(A):IF A<1 OR A>255 THEN 280
300 PRINT#1,"N";CHR$(A);
310 :
340 INPUT"WIEVIELE SPALTEN LINKER RAND";A
350 A=INT(A):IF A<0 OR A>152 THEN 340
360 PRINT#1,"";CHR$(108);CHR$(A);
365 L=A
370 :
380 INPUT"WIEVIELE SPALTEN RECHTER RAND";A
390 A=INT(A):IF A<2 OR A>160 THEN 380
395 IF A-L<2 THEN PRINT"!!! MINDESTENS 2 DRUCKSPALTEN !!!" : GOTO 340
400 PRINT#1,"Q";CHR$(A);
410 :
420 INPUT"WELCHE MASTERDRUCKART";A
430 A=INT(A):IF A<0 OR A>255 THEN 420
440 PRINT#1,"!"CHR$(A);
450 :
460 PRINT"SEITENVORSCHUB/FORMFEED <J/N>"
470 POKE 198,0 : WAIT 198,1 : GET A$
480 IF A$="J" THEN PRINT#1,CHR$(12) : GOTO 500
490 PRINT#1 : IF O=0 THEN 500
495 FOR I=1 TO O : PRINT#1 : NEXT
500 CLOSE1
510 PRINT"DRUCKEREINSTELLUNGEN SIND AKTIVIERT"