Atari 8-bit Source code

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)="hhhhh 6^i_i(`_^i(i"
56 PRNT$(81,​172)="i%>>>>>>>BDEIH V`"
58 MOVE$="hhhhhhh`"
60 MA$="h01)XiYi`"
62 MAIN$="hBDEHI <"
64 MAIN$(55)="    "
66 MAIN$(115)="XY ^))   "
68 MAIN$(175)="/ "
70 MAIN$(228)=CHR$(155)
72 MAIN$(229)="`RPee`/ee"
74 MAIN$(291)="(eeee"
80 IOK$="HI V0`hh`"
82 IOH$="hhhr0 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;"9A";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("h0BhEhDI(H V`"),​D)
21030 B=USR(ADR(MOVE$),​D,​40,​D+40):​D=D+80
21040 NEXT A
21050 CLOSE #3:​GOTO 19000	

• Download link 1