This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page,
please contact me immediatelly so I can remove it!
|
-
Entry name:Print 1029
-
Category:Printer utilities
-
Publisher/Developer:Flop 1
-
Year:1988






Listing 1
1 POKE 566,158:POKE 65,0 10 POKE 82,0:? "":? "":? " " 12 ? "":? " " 14 ? "":? " " 16 ? "" 18 ? " THIS PROGRAAM ALLOWS YOU TO ":? " TO MAKE HARD-COPIES OF " 20 ? " PICTURES PREPARED EITHER IN ":? " " 22 ? " ":? " " 24 ? " ":? " VYSTUP :TISKARNA ATARI 1029 " 26 ? " NA DISK VE FORME 8GR A TIS.":? "" 28 ? " ":? "" 30 ? " M&K SOFTWARE AND JARSOFTWARE " 31 ? " upravil Boris Letocha junior 1988 " 32 ? "" 34 ? " "; 36 CLOSE #3:OPEN #3,4,0,"K:":GET #3,A:CLOSE #3 50 DIM FN$(18),D$(18),D1$(18),MAIN$(342),MA$(55),INV$(35),PRNT$(172),MOVE$(50),IOK$(21),IOH$(23),ZN$(16) 51 DIM OBR$(7680):OBR$="":OBR$(7680)="":OBR$(2)=OBR$ 52 INV$="hXYI`" 54 PRNT$(1,80)="hhhhh 6^i_i(`_^i(i" 56 PRNT$(81,172)="i%>>>>>>>BDEIH V`" 58 MOVE$="hhhhhhh`" 60 MA$="h01)XiYi`" 62 MAIN$="hBDEHI <" 64 MAIN$(55)=" " 66 MAIN$(115)="XY ^)) " 68 MAIN$(175)="/ " 70 MAIN$(228)=CHR$(155) 72 MAIN$(229)="`RPee`/ee" 74 MAIN$(291)="(eeee" 80 IOK$="HI V0`hh`" 82 IOH$="hhhr0 V`" 90 POKE 82,1:? "" 100 ? "INPUT FILENAME OR FOR DIRECTORY":? "";:INPUT FN$:IF FN$="" THEN 10010 105 GOTO 15100 106 GOSUB 10000 107 GOTO SKOK 110 GRAPHICS 24:POKE 710,0:POKE 709,14 130 TRAP 250:CLOSE #3:OPEN #3,4,0,FN$:TRAP 40000 140 POKE 891,128:SCRN=PEEK(88)+PEEK(89)*256:TOP=PEEK(106)*256:SIZ=TOP-SCRN:SHI=INT(SIZ/256) 150 SLO=INT(SIZ-256*SHI):POKE 884,PEEK(88):POKE 885,PEEK(89):POKE 888,SLO 160 POKE 889,SHI 170 JSR=USR(ADR(IOH$),7) 180 CLOSE #3 190 GOTO 19000 220 ? " WHICH FILE ->";:INPUT F$ 230 RETURN 250 TRAP 300:? "";FN$:? "NON-EXISTING FILENAME":CLOSE #3:CLOSE #1:?:GOTO 100 300 ? "BAD DEVICE NUMBER ":?:GOTO 100 500 REM MO1,MO2,MO3 510 IF MO2<255 THEN 550 520 A=USR(ADR(MOVE$),MO1,255,MO3):MO1=MO1+255:MO3=MO3+255:MO2=MO2-255:GOTO 510 550 A=USR(ADR(MOVE$),MO1,MO2,MO3) 560 RETURN 2000 ? "":POSITION 1,4 2001 REM ? " " 2002 POKE 752,1:?:?:? " ":? " " 2003 ? " " 2004 ? " ":? " AFTER LOADING THE PICTURE " 2005 ? " TO PRINT SCREEN " 2006 ? " TO INVERS-VIDEO " 2010 ? " TO LOAD NEXT ONE " 2012 ? " " 2013 ? " " 2015 ? " NOW,HIT ANY TO CONTINUE ":? " " 2019 CLOSE #3:OPEN #3,4,0,"K:":GET #3,A:CLOSE #3 2020 POKE 752,0:GOTO 106 5000 POKE 709,PEEK(710) 5100 JSR=USR(ADR(MOVE$),ADR(IOK$),LEN(IOK$),1536) 5220 GRAPHICS 24:N=USR(ADR(MA$)):REM CHANGE TO ANTIC "E" 5230 TRAP 250:CLOSE #1:OPEN #1,4,0,FN$:TRAP 40000 5240 A=USR(ADR(MAIN$)):REM LOAD THE KOALA FILE 5250 CLOSE #1:GOTO 19000 10000 IF FN$(1,1)<>"D" THEN D$="D:":D$(3)=FN$:FN$=D$:RETURN 10001 TRAP 10005:IF FN$(2,2)<>":" THEN 10006 10002 RETURN 10005 D$="D:":D$(3)=FN$:FN$=D$:RETURN 10006 IF FN$(3,3)<>":" THEN 10005 10008 RETURN 10010 TRAP 10040:FN$="D":FN$(2)=STR$(DNUM):FN$(3)=":*.*":OPEN #3,6,0,FN$ 10020 TRAP 10050:? "" 10030 INPUT #3;D$:? D$;"";:INPUT #3;D1$:? D1$:GOTO 10030 10040 CLOSE #3:? "":?:?:?:GOTO 100 10050 CLOSE #3:?:?:?:GOTO 100 10060 GOTO 100 15000 TRAP 15030:?:? "CHOSE HORIZONTAL POSITION ON THE PAPER,1-MOST LEFT, 2-CENTER, 3-MOST RIGHT":? ""; 15005 INPUT OFFSET 15008 IF OFFSET<>1 AND OFFSET<>2 AND OFFSET<>3 THEN OFFSET=68:GOTO 15025 15010 IF OFFSET=1 THEN OFFSET=0 15020 IF OFFSET=2 THEN OFFSET=68 15022 IF OFFSET=3 THEN OFFSET=136 15025 GOTO 23000 15030 OFFSET=68:? "0":GOTO 32000 15100 ?:? "CHOOSE OPTION,DEPENDING ON GRAHICS MODE":? "USED FOR THE PICTURE :" 15110 ? " 1. HI-RES ANTIC MODE [8]" 15120 ? " 2. KOALA MICRO-ILUSTRATOR" 15121 ? " 3. GRAPHIC ARTS DEPARTG (roztahnute)" 15122 ? " 4. GRAPHIC ARTS DEPARTG (normal)" 15123 ? " 5. B-GRAPH" 15125 ? "?"; 15140 CLOSE #3:OPEN #3,4,0,"K:" 15150 GET #3,A 15160 IF A=ASC("1") THEN SKOK=110:? "1":GOTO 15190 15161 IF A=ASC("4") THEN SKOK=22000:? "4":GOTO 15190 15162 IF A=ASC("5") THEN SKOK=27000:? "5":GOTO 15190 15165 IF A=ASC("2") THEN ? "2":SKOK=5000:GOTO 15190 15170 IF A<>ASC("3") THEN POKE 694,0:GOTO 15150 15180 ? "3":SKOK=21000 15190 CLOSE #3:GOTO 15000 19000 IF PEEK(53279)=6 AND POC<2 THEN 20000 19001 IF PEEK(53279)=3 THEN 90 19002 IF PEEK(53279)=5 THEN I=USR(ADR(INV$)) 19003 IF PEEK(53279)=6 AND POC>1 THEN 26000 19004 GOTO 19000 20000 GOSUB 20005:GOTO 100 20005 TRAP 20500:POKE 16,64:POKE 53774,64:IF GR8=1 THEN GOTO 24000 20006 SCREEN=PEEK(88)+256*PEEK(89):IOCB=2 20010 JSR=USR(ADR(MOVE$),ADR(PRNT$),LEN(PRNT$),1536) 20015 CLOSE #IOCB:OPEN #IOCB,8,0,ZN$ 20020 FOR PR=0 TO 27:? #IOCB;"9A";CHR$(1);CHR$(64+OFFSET); 20025 ON OFFSET=0 GOTO 20030:FOR I=1 TO OFFSET:? #IOCB;CHR$(0);:NEXT I 20030 DUMMY=USR(1536,IOCB,SCREEN):SCREEN=SCREEN+280:? #IOCB:NEXT PR:? #IOCB;"6":CLOSE #IOCB:RETURN 20500 ? "TISKARNA NENI ZAPOJENA":TRAP 40000:?:POP:GOTO 100 21000 GRAPHICS 24:POKE 710,0:POKE 709,14 21005 TRAP 250:CLOSE #3:OPEN #3,4,0,FN$:TRAP 21050:FOR A=1 TO 5:GET #3,B:NEXT A 21010 D=PEEK(88)+PEEK(89)*256 21015 FOR A=0 TO 191 STEP 2 21020 B=USR(ADR("h0BhEhDI(H V`"),D) 21030 B=USR(ADR(MOVE$),D,40,D+40):D=D+80 21040 NEXT A 21050 CLOSE #3:GOTO 19000 22000 GRAPHICS 24:POKE 710,0:POKE 709,14 22005 TRAP 250:CLOSE #3:OPEN #3,4,0,FN$:TRAP 40000:FOR A=1 TO 5:GET #3,B:NEXT A 22010 GOTO 140 23000 ?:?:? "KAM BUDE ZAPISOVAT" 23001 ? "1)NA TISKARNU" 23002 ? "2)NA ZARIZENI:NAZEV VE FORME TISKARNY":? "3)NA ZARIZENI:NAZEV VE FORME 8 GR" 23003 CLOSE #1:OPEN #1,4,0,"K:":GET #1,P:CLOSE #1:P=P-48:IF P<1 OR P>3 THEN 23000 23004 ON P GOTO 23010,23005,23015 23005 ?:? "ZADEJ ZARIZENI:NAZEV":INPUT ZN$:GR8=0:POC=0:GOTO 2000 23010 ZN$="P:":GR8=0:GOTO 25000 23015 ?:? "ZADEJ ZARIZENI:NAZEV":INPUT ZN$:GR8=1:POC=1:GOTO 2000 24000 CLOSE #3:OPEN #3,8,0,ZN$ 24001 POKE 891,128:SCRN=PEEK(88)+PEEK(89)*256:SIZ=192*40:SHI=INT(SIZ/256) 24002 SLO=INT(SIZ-256*SHI):POKE 884,PEEK(88):POKE 885,PEEK(89):POKE 888,SLO 24003 POKE 889,SHI 24004 JSR=USR(ADR(IOH$),11) 24005 CLOSE #3 24006 GOTO 100 25000 ?:? "ZADEJ KOLIK KOPII":INPUT POC:IF POC=1 THEN 2000 25010 ? "KOLIK RADKU MEZI KOPIEMI":INPUT RAD 25020 GOTO 2000 26000 AO=PEEK(88)+PEEK(89)*256:MO1=AO:MO2=7680:MO3=ADR(OBR$):GOSUB 500:FOR KL=1 TO POC 26005 MO1=ADR(OBR$):MO2=7680:MO3=AO:GOSUB 500 26010 GOSUB 20005 26020 IF RAD=0 THEN GOTO 26030 26025 FOR LK=1 TO RAD:LPRINT:NEXT LK 26030 NEXT KL 26040 GOTO 100 27000 GRAPHICS 24:POKE 710,0:POKE 709,14 27010 TRAP 250:CLOSE #3:OPEN #3,4,0,FN$:TRAP 40000 27020 POKE 891,128:SIZ=7*40+10:SHI=INT(SIZ/256) 27030 SLO=INT(SIZ-256*SHI):POKE 884,PEEK(88):POKE 885,PEEK(89):POKE 888,SLO 27040 POKE 889,SHI 27050 JSR=USR(ADR(IOH$),7) 27120 POKE 891,128:SCRN=PEEK(88)+PEEK(89)*256:TOP=PEEK(106)*256:SIZ=TOP-SCRN:SHI=INT(SIZ/256) 27130 SLO=INT(SIZ-256*SHI):POKE 884,PEEK(88):POKE 885,PEEK(89):POKE 888,SLO 27140 POKE 889,SHI 27150 JSR=USR(ADR(IOH$),7) 27160 CLOSE #3:GOTO 19000
References
Listing downloads
Copyright holder