Atari 8-bit Source code

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$="hXYI`"
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 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;"9A";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("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
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	

• Download link 1