81›82›83›84›85 REM Star Gemini 10X/XMM801 Printer Drivers,Disk File Output,ASCII Output Mods  (c) 1993  Thomas J. Andrews›86›88›460 I=N1:MAX=12:TMP$=""›465›1020 POKE 764,255:CLOSE #N4:OPEN #N4,N8,Z,FNAME$:? #N4;"@A";CHR$(N8);:RETURN ›1042›1044›1050 POKE 752,N1:POSITION 13,12:? "FORMAT: ีะาษวศิ ":POSITION 21,13:? "SIDEWAYS";:GOSUB 340›1070 GOSUB 320:POSITION 27,N9:IF UPR=N1 THEN ? " ีะาษวศิ ";:GOTO 1090›1130 ? " ษฮึฎ  480 dpl SINGLE SINGLE  CENTER":? " REG.  ";:IF NOT STAR THEN ? "720 dpl";:GOTO 1137›1133 IF STAR=N3 THEN ? "       ";:GOTO 1137›1135 ? "960 fst";›1137 ? " DOUBLE DOUBLE   LEFT"›1140 ? "       960 dpl TRIPLE  FOUR   RIGHT":IF STAR=N3 THEN ? "              ";:GOTO 1145›1143 ? "      1920 dpl";›1145 ? "  MORE   MORE";:POKE N82,N2›1170 MODE=YC-ITOP-(YC=21)+N5*(YC=20):IF STAR=N1 AND MODE=6 THEN MODE=N1:STAR=N6›1173 IF STAR=N3 AND (MODE=N6 OR MODE=N3) THEN GOSUB 210:GOTO 1170›1175 LIM=640*(MODE=N6)+N960*(MODE=N1)+320*(MODE=Z)+1920*(MODE=N3):LIM0=LIM›1600 SCR=SCR+320/H:GOSUB 2940:FOR I=N1 TO HT/N8:? #N4;PCD$;CHR$(COLL);CHR$(COLH);PRNT$(N1,LIM)›1690 CLOSE #N4:? "";:GOSUB 280:GOTO 2830›2080 GOSUB 1020›2100 GOSUB 2940:FOR J=N1 TO W:? #N4;PCD$;CHR$(COLL);CHR$(COLH);PRNT$(N1,LIM)›2190 CLOSE #N4:? "";:GOSUB 280:GOTO 2830›2490 DIM DL7$(N210),DL8$(N210),SHADE$(96),DLI$(N16),PCD$(N99)›2495 CLOSE #N4:OPEN #N4,N6,Z,"D:STAR":INPUT #N4;PCD$:STAR=N1:IF PCD$(LEN(PCD$))="S" THEN STAR=Z›2496 IF NOT STAR THEN CLOSE #4:OPEN #N4,N6,2,"D:XMM801":INPUT #N4,PCD$:IF PCD$(LEN(PCD$))<>"S" THEN STAR=N3›2840 POP :POP :POP :TRAP 2210:GOSUB 110:GOSUB 210:OP=YC-N8:IF STAR=N6 THEN STAR=N1›2850 ON OP GOSUB 550,610,630,800,2880›2880 GOSUB 280:POKE 752,N1:POSITION 13,12:? "DEVICE: ะาษฮิลา ":POSITION 21,13:? "  DISK  ";›2890 XC=21:YC=12:ITOP=YC:IBOT=13:ILEN=N8:IINC=N1:GOSUB 210:DEV=YC-N11›2900 FNAME$="P:":IF DEV=N2 THEN GOSUB 360›2910 GOSUB 300:POSITION N11,N9:IF DEV=N1 THEN ? " ะาษฮิลา ";:GOTO 1040›2920 ? FNAME$:GOTO 1040›2930 REM SET PRINTER MODE AND MARGIN›2940 PCD$="":IF LMAR>Z THEN PCD$=" ":PCD$(LMAR)=PCD$:PCD$(N2)=PCD$›2950 IF MODE=N6 THEN PCD$(LMAR+N1)="*":RETURN ›2960 IF MODE=Z THEN PCD$(LMAR+N1)="K":RETURN ›2970 IF MODE=N1 AND STAR<N3 THEN PCD$(LMAR+N1)="L":RETURN ›2975 IF MODE=N1 AND STAR=N3 THEN PCD$(LMAR+N1)="V":RETURN ›2980 IF MODE=N1 THEN PCD$(LMAR+N1)="y":RETURN ›2990 PCD$(LMAR+N1)="Z":IF STAR>Z THEN PCD$(LMAR+N1)="z"›3000 RETURN ›