Rockford Magazine/Rockford_Magazine_023_19xx_-_de_Side_B.d64/miniprint-rof

Commodore BASIC | 2023-02-26 | 565b | 18 lines

0 poke53272,21:print"[147] * miniprint * freeware 1994 by marek *
2 [153]"mit diesem prograemchen fuer epsonkom-
4 print"kompatible drucker spart man zwar keine
6 [153]"tinte. aber papier.
8 print"es druckt ca. das 4fache auf eine       seite.
10 [153]"spalte 2 und 3 sollte nur fuer den 40-
12 print"zeichen-modus benutzt werden.
14 [153]"ansonsten gehen 120 zeichen auf eine    a4 zeile.
16 input"welche spalte (1-3)";s:s=s-1
18 ifs<0ors>2thenrun
20 open1,4,1
30 print#1,chr$(27);"3";chr$(13);
40 print#1,chr$(27);"f";
50 print#1,chr$(27);"s";chr$(0);chr$(15);
60 print#1,chr$(27);"!";chr$(4);
70 print#1,chr$(27);chr$(108);chr$(45*s);
80 close4