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:Soucasny tisk
-
Category:Printer utilities
-
Publisher/Developer:Flop 1
-
Year:1989







Listing 1
0 REM 1 REM | SOUTISK.BAS = SOUCASNY TISK | 2 REM | DVOU OBRAZKU PRO 800 XL, XE | 3 REM |Boris Letocha junior (c) 1989| 4 REM | Hradec Kralove | 5 REM 10 ? "KOLIK OBRAZKU ZASEBOU (1,2)" 11 POKE 82,0 15 ? "";:GOSUB 600:? CHR$(P) 20 P=P-48:IF P<>1 AND P<>2 THEN 10 25 POC=P 30 GOTO 15000 50 DIM FN$(18),D$(18),D1$(18),MAIN$(342),MA$(55),PRNT$(172),MOVE$(50),IOK$(21),IOH$(23),ZN$(16),TISK$(280) 51 DIM OBR$(19000):OBR$="":OBR$(19000)="":OBR$(2)=OBR$ 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 GOTO 10000 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 250 TRAP 300:? "";FN$:? "NEEXISTUJICI SOUBOR":CLOSE #3:CLOSE #1:?:GOTO 100 300 ? "SPATNE CISLO DISKU ":?: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 UK=UK+7680:GOTO 10200 600 CLOSE #1:OPEN #1,4,0,"K:":GET #1,P:CLOSE #1:RETURN 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 UK=ADR(OBR$):KL=0 10010 KL=KL+1:? "":IF KL>POC THEN 10300 10020 ? "ZADEJ NAZEV (DIR=RETURN)" 10030 INPUT FN$:IF FN$="" THEN 11000 10040 IF FN$(2,2)<>":" AND FN$(3,3)<>":" THEN D$=FN$:FN$="D:":FN$(3)=D$ 10050 GOTO 15100 10060 SCR=PEEK(88)+PEEK(89)*256 10070 IF ROZ=0 THEN MO1=SCR:MO2=7680:MO3=UK:GOTO 500 10075 WQW=1 10080 IF WQW>192 THEN 10200 10090 A=USR(ADR(MOVE$),SCR,80,UK) 10100 SCR=SCR+40:UK=UK+80 10110 A=USR(ADR(MOVE$),SCR,40,UK) 10120 SCR=SCR+40:UK=UK+40 10130 WQW=WQW+2:GOTO 10080 10200 GOTO 10010 10300 SCR=ADR(OBR$):IOCB=2 10310 JSR=USR(ADR(MOVE$),ADR(PRNT$),LEN(PRNT$),1536) 10320 CLOSE #IOCB:OPEN #IOCB,8,0,"P:" 10330 GOSUB 20000 10340 IF SCR<UK THEN GOTO 10330 10350 GOSUB 600:IF P<>ASC("K") THEN 10300 10360 RUN 11000 CLOSE #2:OPEN #2,6,0,"D:*.*":TRAP 10020 11010 INPUT #2;D1$:? D1$;" ";:GOTO 11010 15000 TRAP 15030:?:? "HORIZONTALNI UMISTENI OBRAZKU 1-MOST LEFT, 2-CENTER, 3-MOST RIGHT":? ""; 15005 GOSUB 600:? CHR$(P):OFFSET=P-48 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 50 15030 OFFSET=68:? "0":GOTO 50 15100 ?:? "Z KTEREHO PROGRAMU" 15110 ? " 1. HI-RES ANTIC MODE [8]" 15120 ? " 2. KOALA MICRO-ILUSTRATOR" 15121 ? " 3. GRAPHIC ARTS DEPARTG (roztahnute)" 15122 ? " 4. ATARI ARTIST" 15125 ? ""; 15150 GOSUB 600:A=P 15160 IF A=ASC("1") THEN ROZ=0:SKOK=110:? "1":GOTO 15190 15161 IF A=ASC("4") THEN SKOK=5000:ROZ=1:? "4":GOTO 15190 15165 IF A=ASC("2") THEN ? "2":SKOK=5000:ROZ=0:GOTO 15190 15170 IF A<>ASC("3") THEN POKE 694,0:GOTO 15150 15180 ? "3":SKOK=21000:ROZ=0 15190 CLOSE #3:GOTO SKOK 19000 GOTO 10060 20000 REM 20005 TRAP 20500:POKE 16,64:POKE 53774,64 20020 ? #IOCB;"9A";CHR$(1);CHR$(64+OFFSET); 20025 ON OFFSET=0 GOTO 20030:FOR I=1 TO OFFSET:? #IOCB;CHR$(0);:NEXT I 20026 TISK$=OBR$(SCR-ADR(OBR$)+1,SCR-ADR(OBR$)+280) 20030 DUMMY=USR(1536,IOCB,ADR(TISK$)):SCR=SCR+280:? #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
References
Listing downloads
Copyright holder