   ~  @    `           x     @|   ~ `      p      @ @          p|@  ~            x  |        @@   `   @x    `       x     ~
0 REM Ilustsator 1.7
1 CLS:GOSUB10200:INPUT"Zmenit cas?";T$
2 IF ASC(T$)=65THENGOSUB10100
10 CLEAR5000
11 DIMMX(100),MY(100),VX(100),VY(100)
12 DIMT(100,1),NA(100),SI(100),VS(100),SKL(100),WR$(100)
15 CLS:PRINT&3,7"I L U S T R A T O R"
16 ERASE
18 PRINT&4,6"---------------------"
19 PRINT&8,18 CHR$(15)"C"
20 PRINT&9,2"Pohyb";CHR$(15)"MMMMMMMMMMEMD"
30 PRINT&10,18 CHR$(15)"B"
31 FRAME
35 PEN1:DRAW511,255,-2:DRAW350,255,-1:PEN2
40 PRINT&13,2"Zaznam bodu     Z"
50 PRINT&15,2"Vektor k bodu   X"
60 PRINT&17,2"Text            F5"
65 PRINT&19,2"Zmena kroku     F1"
70 PRINT&21,2"Vykresleni      IC"
71 IF SUB=111THEN SUC=0:RETURN
80 GOSUB700
90 IFUSR(HEX(6000))=28THENMOVA0,0
100 CLS:ERASE
110 PRINT&8,2"Nastav papir"
115 SPEED 4
120 N=1:GOSUB500
130 FOR G=0TOR
135 GOSUB10200
140 MOVAMY(G),MX(G)
150 VECTAVY(G),VX(G)
151 NEXT G
153 FOR G=0TOU
154 GOSUB10200
155 SIZENA(G),SI(G),VS(G),SK(G)
157 MOVAT(G,1),T(G,0)
158 IFRIGHT$(WR$(G),1)=" "THENN=LEN(WR$(G)):GOSUB500:I=N:ZP=1:GOSUB4100:WRITEW$
159 WRITE WR$(G)
161 NEXT G
165 MOVR0,0
170 PRINT"JESTE KOPII?":N=1:GOSUB500
180 IFV$="A"THEN100
190 IFV$="n"THENRUN10
195 IFV$="k"THENMOVA0,0:GOTO499
200 GOTO170
499 END
500 REM    PPGM:VSTUP
501 REM  INpromenna..N-delka
502 REM OUTpromenna..V$-retezec
503 REM Rozsah...500-750
504 REM Ostatni promenne:
505 REM          J,H,X,IN,IN$
510 GOSUB1000
515 FOR J=1TON
516 PRINT".";
517 NEXT J
518 FOR J=1TON
519 PRINTCHR$(8);
520 NEXT J
525 J=0:V$=""
530 J=J+1
535 IN=USR(HEX(6000)):IN$=CHR$(IN)
537 P$j*|
540 IFIN=0THEN535
550 IFIN=8THENJ=J-2
555 IFIN=13THENPRINT:PRINT"?:";:GOTO500
560 V$=V$+IN$:PRINTIN$;CHR$(7);
570 IFIN$<>""THEN570
580 IF J<N THEN530
590 PRINT
600 RETURN
700 REM********VEKTOR********
705 GOSUB1000
708 KR=100:PRINT&28,0"Krok:";KR
710 PRINT&26,6 X,;"    ";Y
711 GOSUB10200
715 PRINT&28,20 USR(HEX(6000))
720 IFUSR(HEX(6000))=25THENY=Y-KR
725 IFY<1THENY=0
730 IFUSR(HEX(6000))=26THENY=Y+KR
735 IFY>2500THENY=2500
740 IFUSR(HEX(6000))=8THENX=X-KR
745 IFX<1THENX=0
750 IFUSR(HEX(6000))=32THENX=X+KR
755 IFX>1750THENX=1750
756 IFUSR(HEX(6000))=1THENPRINT&28,0;:INPUT"Krok";KR
757 IFUSR(HEX(6000))=12THENX=0:Y=0
758 IFUSR(HEX(6000))=66THENGOSUB10300
760 IFUSR(HEX(6000))<>90THEN770
765 PY=Y:PX=X:PP=1:POINTR0,0:MX(R)=X
767 MY(R)=Y:VX(R)=X:VY(R)=Y:R=R+1
770 IFUSR(HEX(6000))=5THENGOSUB2000
772 IFUSR(HEX(6000))=4THEN LET NN=1:GOSUB2000
775 IFPP<>1THEN790
780 IFUSR(HEX(6000))=88THENVECTAPY,PX:VX(R-1)=X:VY(R-1)=Y
785 IFUSR(HEX(6000))=28THENRETURN
790 MOVAY,X:GOTO710
1000 REM   P O Z O R  P O Z O R 
1010 RESTORE1050
1020 FORI=24576TO24580
1030 READ A:POKEI,A
1040 NEXTI
1050 DATA205,201,248,121,201
1060 RETURN
1080 REM                                                         
1090 REM     KONEC   TED
2000 REM TEXT
2010 ERASE:CALL HEX(F973):CLS
2020 PRINT:PRINT"         P I S M O"
SJzzyYifFYu99999-Blme male"
2040 PRINT"2.....Kolme stredni"
2050 PRINT"3...>.Kolme velke"
r0>0 PRINeiee

%*rAz8ttl S
zzyYifFYU999y9-*A:Bxea^cc' SxA?>6ZF.vY#####iurziva v
"]l ShAKF vA###w
F:DghTl S,zz
 'O-zZ !J0`5
*U|S,jzyYifFyuH C,(zF~ Uz	@2*v IUAA''''
''e S,,zx&wYifFYKF.vYNozt
]epO4%u S,S-if  )J6zTHEN2p00
S,z!Z3R
zRNMZ6NY2NMRNJ 
2140 T(U,0)=X:T(U,1)92150 NA(U)=NAQiUi}!KcS<RzMCUK!J6WZU-=SKL
S,RSM#!WWQ
zWWcC,R-af~y 'eCL5>*.niqOTO219p
2170 ~!LeuU
(z-X)(Oi&U,T^UU-2
S,tx	2*v*AA5 S,PYifFE# S,.z
F !Z]n!WW ixz*|SSzzU!+1
SS,x}iF)n5 SSSx+ '''O,-cSSzY).*6FJ 250p REM  DEFINOVANE
S-(z2K.vQ }is}aQWc
S-,z5>*.v9xRNBFvm9zPJ S-Sz5F>*.vMZ6RzvmMZ6J 2530 INPUT"VYSKA";VYS
2540 INPUT"SKLON";SKL
2550 RETURN
2600 REM   TYP 1
2610 NAK=0
2620 SIR=20
2630 VYS=-35
2640 SKL=0
2650 RETURN
2700 REM   TYP 2
2710 NAK=0
2720 SIR=65
2730 VYS=-140
2740 SKL=0
2750 RETURN
2800 REM   TYP 3
2810 NAK=0
2820 SIR=140
2830 VYS=-280
2840 SKL=0
2850 RETURN
2900 REM   TYP 4
2910 NAK=0
2920 SIR=20
2930 VYS=-35
2940 SKL=9
2950 RETURN
3000 REM   TYP 5
3010 NAK=0
3020 SIR=65
3030 VYS=-140
3040 SKL=15
3050 RETURN
3100 REM   TYP 6
3110 NAK=0
3120 SIR=140
3130 VYS=-280
3140 SKL=23
3150 RETURN
4000 REM      KONVERZE
4001 W$="":VV$=""
4010 I=LEN(V$)
4012 IFLEFT$(V$,1)="$"THEN4200
4015 SLOVO=0
4020 FOR D=ITO1STEP -1
4025 MD$=MID$(V$,D,1)
4030 IF MD$=" "AND SLOVO=0 THEN 4055
4040 SLOVO=1
4050 VV$=VV$+MD$
4055 NEXT D
4057 V$="":I=LEN(VV$)
4060 FOR D=ITO1STEP -1
4070 MD$=MID$(VV$,D,1)
4080 V$=V$+MD$
4090 NEXT D
4097 W$=""
4100 W$=""
4105 FOR D=1TOI
4110 MD$=MID$(V$,D,1)
4120 IFMD$="~"THENW$=W$+CHR$(27):GOTO4170
4130 IFMD$="^"THENW$=W$+CHR$(26):GOTO4170
4140 IFMD$="|"THENW$=W$+CHR$(25):GOTO4170
4150 IFMD$="\"THENW$=W$+CHR$(24):GOTO4170
4160 W$=W$+MD$
4170 NEXT D
4172 IF ZP=1THENZP=0:RETURN
4175 WR$(U)=W$
4180 RETURN
4200 VV$=MID$(V$,2)
4210 W=VAL(VV$)
4220 FORI=1TOW:W$=W$+" ":WRITE"O":NEXTI
4230 GOTO4175
10000 REM ppgm  realny cas
10010 REM Na zacawku programu volat zadani casu...GOSUB10100
10020 REM V cyklu volat zobra{eni casu...GOSUB10200
10025 REM Nastaweni budiku kdekoliv...GOSUB10300
10030 REM souradnice 
10040 REM TR....radek
10050 REM TS....sloupec
10100 INPUT "Cas  HH,MM,SS";HH,MM,SS
10110 A=(HH*3600+MM*60+SS)*50
10120 CA=INT(A/(256*256)):A=A-CA*256*256:POKE10,CA
10130 C9=INT(A/(256)):A=A-C9*256:POKE9,C9
10140 C8=INT(A):POKE8,C8
10150 RETURN
10200 A=INT((PEEK(HEX(A))*256*256+PEEK(HEX(9))*256+PEEK(HEX(8)))/50)
10210 HH=INT(A/3600):A=A-HH*3600
10215 IFHH>=24THENHH=0
10220 MM=INT(A/60):A=A-MM*60
10230 SS=INT(A):A=A-MM
10240 TR=0:TS=23
10250 IFBH=HH AND BM=MM AND SS<15THENPRINTCHR$(7);&TR,TS-10;"B U D I K"
10255 IFNOT(BH=HH AND BM=MM AND SS<15)THENPRINT;&TR,TS-10;"         "
10260 H$=STR$(HH)
10261 IF HH<10THENH$="0"+H$
10262 M$=STR$(MM)
10263 IF MM<10THENM$="0"+M$
10264 S$=STR$(SS)
10265 IF SS<10THENS$="0"+S$
10269 CA$=H$+":"+M$+":"+S$
10270 PRINT&TR,TS;CA$
10280 RETURN
10300 INPUT "Budik  HH,MM";BH,BM
Hjzze+ '''  <-cHXzxY!.(6J _  x           `     p          T*9  `jYI
2QQYI
2>YU
2YQ
2QaYU
2YUYU
2f&Q
2]&M
2&YQ
2Q*
r2Y*
r2EEU	r2aUYA
2MM
"5 ]Q-*jr6AAYM
2IQYU
2r&E
2e]YQ
2j&e
2Y)W      p @ |pp x `px| @ ``p |@` p   p ~ x     p @``  p |`x | x p  |~  @  x      p ~    `  p  @~   p p      `  x  @`  |  | p x@~ |  | |  | `  x  @~  x |    |  p    ` | |`|  x p  |  |@|     ~     @ @  x        |      x@x  `| | x@ x  x |  x  @@  x         x  ~  p    `    @    ~    x  x  xx   x  @x  p  p x  |  p  x~p |  ~@    | @    ~  @  @|  x   ~`` |  p  `@  p  x ` ~  ~      |  ~  |    p  ~ p    p@x@