Programy v Basicu

Mandelbrotův fraktál

Program z webu RosettaCode, upravený pro PP-01. Kreslí barevný Mandelbrotův fraktál.

Podívejte se na video.

10 SIZEX=256:SIZEY=256:MAXITER=256:SCALE 0,255,-127,128
20 FOR X=0 TO SIZEX
30 XI=X/200-2
40 FOR Y=0 TO SIZEY/2:YI=Y/200:XC=0:YC=0
50 FOR I=1 TO MAXITER
60 IF XC*XC+YC*YC>4 THEN GOTO 90
70 XT=XI+XC*XC-YC*YC:YC=YI+2*XC*YC:XC=XT
80 NEXT I
90 IF I>MAXITER THEN LET I=0
100 INK I-8*(I\8):PENUP:PLOT X,Y:PENUP:PLOT X,-Y
110 NEXT Y
120 NEXT X

Programy v Basicu převedené z PMD-85, převzato z webu pana Branislava Kapusníka (brano.topindex.sk):


LIST
10 OUT 0C9H,40H
20 OUT 0C9H,8DH
30 OUT 0C9H,21H
50 OUT 0C8H,64
60 GOTO 50

READY
KLOAD $1
READY
LIST
10 SETCHAR 1 255,129,129,153,153,129,129,255
11 GOSUB 110
20 SETCHAR 2 60,66,185,161,161,185,66,60
21 B$="SPIDER"
30 A$=CHR$(2)+" BRANISLAV KAPUSNIK 1989"

40 D$="GYMNAZIUM TOPOLCANY"
50 FOR I=3 TO 29:PRINT AT 10,I;CHR$(1),AT 18,I;CHR$(1):NEXT I
60 FOR I=11 TO 17:PRINT AT I,2;CHR$(1),AT I,30;CHR$(1):NEXT I
70 PAPER 7:INK 0:PRINT AT 12,14;B$:PAPER 0:INK 7
80 PRINT AT 14,4;A$,AT 16,7;D$
90 PAPER 0:INK 0
91 KLOAD $ 1
110 SCALE 0,31,0,31
111 CLEAR
112 INK 2
120 FOR I=3 TO 29
130 MOVE I,0:DRAW I,13
135 MOVE I,31:DRAW I,10
140 NEXT I
145 PAPER 0:INK 7
150 RETURN

READY
RUN

SPIDER
 BRANISLAV KAPUSNIK 1989GYMNAZIUM TOPOLCANY

READY
LIST

READY
KLOAD $1

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM PAVUK-PP 01
30 PAPER 0:INK 7:CLEAR:SETCHAR 1 255,255,255,255,255,255,255,255
31 SETCHAR 2 60,66,185,161,161,185,66,60
32 BEEP NO
40 PAPER 7:INK 0:FOR I=0 TO 9:PRINT AT I,0"                                ":BEEP 5,5:NEXT I
50 RESTORE 100
60 FOR I=1 TO 8:READ B:FOR J=1 TO B:READ C:PRINT AT I,C;CHR$(1):BEEP 10,10:NEXT J,I
62 PRINT AT 11,7"B.K.SOFTWARE'89":PAPER 7:INK 0:M$="",B$="":BEEP 100,100,100,100
64 A$="32664675658085837873754471897778659073857732847980797667657889"
65 P$=CHR$(24)+CHR$(219)+CHR$(60)+CHR$(231)+CHR$(60)+CHR$(255)+CHR$(60)+CHR$(219)
66 FOR I=1 TO LEN(A$) STEP 2:R$=MID$(A$,I,2):C=VAL(R$):B$=B$+CHR$(C):NEXT I
67 M$=CHR$(2)+B$:PAPER 2:INK 7
70 FOR I=1 TO LEN(M$):BEEP 200,1
72 PRINT AT 13,I-1;MID$(M$,I,1):NEXT I:PAPER 7:INK 0
75 FOR I=17 TO 21:PRINT AT I,3"                          ":NEXT I
76 PRINT AT 18,10"S-START",AT 20,10"K-KOPIROVANIE":PAPER 0:INK 7
78 PRINT AT 23,11"OVLADANIE:"
80 BMOVE 15,216:BPLOT P$,1
82 SETCHAR 3 0,0,24,60,90,24,24,0
84 SETCHAR 4 0,24,24,90,60,24,0,0
86 SETCHAR 5 0,16,8,124,124,8,16,0
88 SETCHAR 6 0,8,16,62,62,16,8,0
90 PRINT AT 27,14;CHR$(6),AT 26,15;CHR$(3),AT 27,16;CHR$(5),AT 28,15;CHR$(4)
91 BEEP 100,100:PAPER 0:INK 7:SETCHAR 5 255,207,191,129,129,191,207,255
92 SETCHAR 6 255,243,253,129,129,253,243,255
94 PRINT AT 27,13;CHR$(5),AT 27,17;CHR$(6):PAPER 7:INK 0:PRINT AT 25,15"Q",AT 29,15"Y"
95 PAPER 0:INK 7
100 DATA 6,1,2,3,4,22,25,4,1,5,21,25,12,1,5,8,9,10,11,13,17,19,23,25,30
101 DATA 12,1,2,3,4,7,11,13,17,19,23,25,29,9,1,7,11,13,17,19,23,25,28
102 DATA 9,1,7,11,13,17,19,23,25,27,10,1,7,11,14,16,19,23,25,26,28,12,1,8,9,10,11,12,15,20,21,22
103 DATA 25,29
110 REM START/COPY**************
120 FOR I=1 TO 30:INK 7:BMOVE I,120:BPLOT P$,1
125 BEEP I,10:WAIT 2
130 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
140 IF A=107 THEN 250
150 IF A=115 THEN 400
160 NEXT I
170 FOR I=30 TO 1 STEP -1:INK 7:BMOVE I,120:BPLOT P$,1
175 BEEP I,10:WAIT 2
180 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
190 IF A=107 THEN 250
200 IF A=115 THEN 400
210 NEXT I
220 GOTO 120
250 REM ***** COPY *****
260 PAPER 7:INK 0
261 GOSUB 280
265 WAIT 5:BEEP 100,100
270 PRINT AT 19,3"ZADAJTE CISLO ZAZNAMU!";:INPUT CZ:GOSUB 280
275 IF CZ<1 OR CZ>79 THEN 260
276 GOTO 283
280 FOR I=17 TO 21:BEEP 10,10:PRINT AT I,3"                          ":NEXT I:RETURN
283 GOSUB 280
285 PRINT AT 18,4"PRIPRAVTE MAGNETOFON",AT 20,4"A STLACTE LUB. KLAVES!"
286 A=KEY:IF A<>128 THEN 290
287 GOTO 286
290 A$="NAHRAVAM POD CISLOM"
291 GOSUB 280
300 PRINT AT 18,3"**************************",AT 20,3"**************************"
310 FOR I=1 TO LEN(A$):PRINT AT 19,I+3;MID$(A$,I,1);
320 BEEP 10,200:NEXT I:PRINT AT 19,23;CZ;"!"
330 KSAVE $ CZ
340 BEEP 255,100:GOSUB 280
360 INK 0:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":BEEP 255,100:WAIT 5
365 A=KEY
370 INK 7:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":WAIT 5
374 IF A<>128 THEN 379
375 GOTO 360
379 GOSUB 280
380 PAPER 7:INK 0:GOTO 75
400 GOSUB 31000                    :RESTORE 10000
401 A=26,B=30:DIM B(A,B):MIESTNOST=1
402 CLEAR:CAS=3
405 PAPER 7:INK 0:PRINT AT 0,8;"B.K.SOFTWARE'89":PAPER 0:INK 7
500 PAPER 0:INK 7:POCET=0:X=2,Y=16
501 SETCHAR 1 0,0,0,0,0,0,0,0
502 SETCHAR 2 0,0,24,36,36,24,0,0
503 SETCHAR 3 255,255,255,255,255,255,255,255
505 INK 3
510 FOR I=1 TO 26
515 FOR E=1 TO 30
520 READ A
540 B(I,E)=A
545 IF B(I,E)=2 THEN POCET=POCET+1
550 PRINT AT I,E;CHR$(B(I,E)):NEXT E,I
560 INK 7:BMOVE X,Y:BPLOT P$,1
570 PAPER 7:INK 0:PRINT AT 28,1"MIESTNOST:";STR$(MIESTNOST);".":PAPER 0:INK 7:BEEP 100,100
580 A=KEY:IF A=128 THEN 580
590 IF A=8 THEN 1000
600 IF A=24 THEN 900
610 IF A=113 THEN 800
620 IF A=121 THEN 700
630 GOTO 580
700 REM NNDND DOLE VVV
710 A=KEY
720 IF A=113 THEN 800
730 IF A=8 THEN 1000
740 IF A=24 THEN 900
750 IF B(Y/8,X)=3 THEN 30000
760 IF B(Y/8,X)=2 THEN POCET=POCET-1:B(Y/8,X)=1:BEEP 10,10
765 IF POCET<1 THEN 30030
770 INK 0:BMOVE X,Y:BPLOT P$,1
780 Y=Y+8:INK 7:BMOVE X,Y:BPLOT P$,1
785 WAIT CAS
790 GOTO 710
800 REM *** HORE ***
810 A=KEY
820 IF A=121 THEN 700
830 IF A=8 THEN 1000
840 IF A=24 THEN 900
850 IF B(Y/8,X)=3 THEN 30000
860 IF B(Y/8,X)=2 THEN POCET=POCET-1:B(Y/8,X)=1:BEEP 10,10
865 IF POCET<1 THEN 30030
870 INK 0:BMOVE X,Y:BPLOT P$,1
880 Y=Y-8:INK 7:BMOVE X,Y:BPLOT P$,1
885 WAIT CAS
890 GOTO 810
900 REM *** VPRAVO :::
910 A=KEY
920 IF A=113 THEN 800
930 IF A=121 THEN 700
940 IF A=8 THEN 1000
950 IF B(Y/8,X)=3 THEN 30000
960 IF B(Y/8,X)=2 THEN POCET=POCET-1:B(Y/8,X)=1:BEEP 10,10
965 IF POCET<1 THEN 30030
970 INK 0:BMOVE X,Y:BPLOT P$,1
980 X=X+1:INK 7:BMOVE X,Y:BPLOT P$,1
985 WAIT CAS
990 GOTO 900
1010 A=KEY
1020 IF A=121 THEN 700
1030 IF A=113 THEN 800
1040 IF A=24 THEN 900
1050 IF B(Y/8,X)=3 THEN 30000
1060 IF B(Y/8,X)=2 THEN POCET=POCET-1:B(Y/8,X)=1:BEEP 10,10
1065 IF POCET<1 THEN 30030
1070 INK 0:BMOVE X,Y:BPLOT P$,1
1080 X=X-1:INK 7:BMOVE X,Y:BPLOT P$,1
1085 WAIT CAS
1090 GOTO 1000
10000 REM _____ MIESTNOST 1.//__
10010 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10011 DATA 3,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10012 DATA 3,2,2,2,2,3,3,3,2,2,3,3,3,2,2,2,2,2,3,3,2,2,2,2,3,2,2,2,2,3
10013 DATA 3,2,2,2,2,3,1,1,3,2,3,1,1,3,2,2,2,3,1,1,3,2,2,3,3,2,2,2,2,3
10014 DATA 3,2,2,2,2,3,1,1,3,2,3,1,1,3,2,2,2,3,1,1,3,2,3,2,3,2,2,2,2,3
10015 DATA 3,2,2,2,2,3,3,3,2,2,3,3,3,2,2,2,2,3,1,1,3,2,2,2,3,2,2,2,2,3
10016 DATA 3,2,2,2,2,3,2,2,2,2,3,2,2,2,2,2,2,3,1,1,3,2,2,2,3,2,2,2,2,3
10017 DATA 3,2,2,2,2,3,2,2,2,2,3,2,2,2,2,2,2,3,1,1,3,2,2,2,3,2,2,2,2,3
10018 DATA 3,2,2,2,2,3,2,2,2,2,3,2,2,2,2,2,2,2,3,3,2,2,2,2,3,2,2,2,2,3
10019 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10020 DATA 3,2,2,3,3,3,2,2,2,3,3,3,2,3,2,3,3,3,2,2,2,3,3,3,3,3,3,2,2,3
10021 DATA 3,2,2,2,2,3,2,2,2,3,2,3,2,2,2,3,2,3,2,2,2,3,2,2,3,2,2,2,2,3
10022 DATA 3,2,2,2,2,3,2,2,2,3,2,3,2,2,2,3,2,3,2,2,2,3,2,2,3,2,2,2,2,3
10023 DATA 3,2,2,2,2,3,2,2,2,3,2,3,2,2,2,3,2,3,2,2,2,3,2,2,3,2,2,2,2,3
10024 DATA 3,2,2,2,2,2,3,2,3,2,2,3,2,2,2,3,2,2,3,2,3,2,2,2,3,2,2,2,2,3
10025 DATA 3,2,2,2,2,2,3,2,3,2,2,2,3,2,2,3,2,2,3,2,3,2,2,2,3,2,2,2,2,3
10026 DATA 3,2,2,2,2,2,2,3,2,2,2,2,2,3,3,2,2,2,2,3,2,2,2,2,3,2,2,2,2,3
10027 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10028 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10029 DATA 3,2,2,2,3,3,3,3,2,3,2,3,2,2,2,3,2,3,2,2,3,2,2,3,3,2,2,2,2,3
10030 DATA 3,2,2,2,2,2,2,3,2,3,2,3,2,2,2,3,2,3,3,2,3,2,3,1,1,3,2,2,2,3
10031 DATA 3,2,2,2,2,2,3,2,2,3,2,3,2,2,2,3,2,3,2,3,3,2,3,1,1,3,2,2,2,3
10032 DATA 3,2,2,2,2,3,2,2,2,3,2,3,2,2,2,3,2,3,2,2,3,2,3,3,3,3,2,2,2,3
10033 DATA 3,2,2,2,3,3,3,3,2,3,2,3,3,3,2,3,2,3,2,2,3,2,3,2,2,3,2,2,2,3
10034 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10035 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10080 REM ___MIESTNOST-ATARI___
10081 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10082 DATA 3,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10083 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,3
10084 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,3
10085 DATA 3,2,2,2,2,2,2,2,2,2,2,2,3,2,2,3,2,2,3,2,2,2,2,2,2,2,2,2,2,3
10086 DATA 3,2,2,2,2,2,2,2,2,2,2,3,2,2,2,3,2,2,2,3,2,2,2,2,2,2,2,2,2,3
10087 DATA 3,2,2,2,2,2,2,2,2,2,3,2,2,2,2,3,2,2,2,2,3,2,2,2,2,2,2,2,2,3
10088 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10089 DATA 3,2,2,2,3,2,2,2,3,3,3,3,3,2,2,2,3,2,2,2,3,3,3,3,2,2,2,3,2,3
10090 DATA 3,2,2,3,1,3,2,2,2,2,3,2,2,2,2,3,1,3,2,2,3,1,1,1,3,2,2,3,2,3
10091 DATA 3,2,3,1,1,1,3,2,2,2,3,2,2,2,3,1,1,1,3,2,3,1,1,1,3,2,2,3,2,3
10092 DATA 3,2,3,1,1,1,3,2,2,2,3,2,2,2,3,1,1,1,3,2,3,3,3,3,2,2,2,3,2,3
10093 DATA 3,2,3,3,3,3,3,2,2,2,3,2,2,2,3,3,3,3,3,2,3,3,2,2,2,2,2,3,2,3
10094 DATA 3,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,3,2,3,2,2,2,2,3,2,3
10095 DATA 3,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,3,2,2,3,2,2,2,3,2,3
10096 DATA 3,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,3,2,2,2,3,2,2,3,2,3
10097 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10098 DATA 3,2,2,3,3,2,2,2,3,3,2,2,2,3,3,2,2,2,2,3,2,2,2,3,2,3,3,3,2,3
10099 DATA 3,2,3,1,1,3,2,3,1,1,3,2,3,1,1,3,2,2,2,2,3,2,3,2,2,3,2,2,2,3
10100 DATA 3,2,3,1,1,3,2,3,1,3,3,2,3,1,3,3,2,2,2,2,3,2,3,2,2,3,2,2,2,3
10101 DATA 3,2,2,3,3,2,2,3,3,1,3,2,3,3,1,3,2,2,2,2,2,3,2,2,2,3,3,3,2,3
10102 DATA 3,2,3,1,1,3,2,3,1,1,3,2,3,1,1,3,2,2,2,2,3,2,3,2,2,3,2,2,2,3
10103 DATA 3,2,3,1,1,3,2,3,1,1,3,2,3,1,1,3,2,2,2,2,3,2,3,2,2,3,2,2,2,3
10104 DATA 3,2,2,3,3,2,2,2,3,3,2,2,2,3,3,2,2,2,2,3,2,2,2,3,2,3,3,3,2,3
10105 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10106 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10110 REM___MIESTNOST 3___
10111 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10112 DATA 3,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10113 DATA 3,2,3,3,3,3,3,3,3,3,2,2,2,3,2,2,2,2,2,3,3,2,3,2,3,3,2,2,2,3
10114 DATA 3,2,3,2,2,2,2,2,2,3,2,2,2,3,2,2,2,2,2,2,3,2,3,2,3,2,2,2,2,3
10115 DATA 3,2,3,2,3,3,3,2,2,3,2,2,2,3,3,3,3,3,3,2,3,2,3,2,3,2,2,2,2,3
10116 DATA 3,2,3,2,3,2,3,2,2,3,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3,2,2,2,2,3
10117 DATA 3,2,3,2,3,2,3,2,2,3,2,2,3,3,3,3,3,2,3,2,3,2,3,2,3,2,2,2,2,3
10118 DATA 3,2,3,2,3,2,3,2,2,3,2,2,3,2,2,2,3,2,3,2,3,2,3,2,3,2,2,2,2,3
10119 DATA 3,2,3,2,3,2,3,2,2,3,2,2,3,2,2,2,3,3,3,2,3,2,3,2,3,2,2,2,2,3
10120 DATA 3,2,3,2,2,2,3,2,2,3,2,2,3,2,2,2,2,2,2,2,3,2,2,2,3,2,2,2,2,3
10121 DATA 3,2,3,3,3,3,3,2,2,3,2,2,3,2,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,3
10122 DATA 3,2,2,2,2,2,2,2,2,3,2,2,3,3,3,3,3,2,3,2,2,2,2,2,2,2,2,2,2,3
10123 DATA 3,2,2,2,2,2,2,3,3,3,2,2,2,2,2,2,3,2,3,2,2,2,2,3,2,2,2,2,2,3
10124 DATA 3,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,3,3,3,2,2,2,3,3,3,2,2,2,2,3
10125 DATA 3,2,2,3,3,2,2,3,2,2,3,3,3,3,2,2,2,2,2,2,2,3,3,3,3,3,2,2,2,3
10126 DATA 3,2,2,2,3,2,2,3,2,2,3,2,2,3,2,2,2,2,2,2,2,2,3,3,3,2,2,2,2,3
10127 DATA 3,2,3,3,3,2,2,3,3,3,3,2,2,3,2,2,3,3,3,3,2,2,2,3,2,2,2,2,2,3
10128 DATA 3,2,3,2,2,2,2,2,2,2,2,2,2,3,2,2,3,2,2,3,2,2,2,2,2,2,2,2,2,3
10129 DATA 3,2,3,2,2,2,2,2,3,3,3,3,3,3,2,2,3,2,2,3,2,2,3,3,3,3,3,3,2,3
10130 DATA 3,2,3,3,3,3,3,2,2,2,2,2,2,3,2,2,3,2,2,3,2,2,3,2,2,2,2,3,2,3
10131 DATA 3,2,2,2,2,2,3,2,3,3,3,3,3,3,2,2,3,2,2,3,2,2,3,3,2,2,3,3,2,3
10132 DATA 3,2,2,2,3,3,3,2,3,2,2,2,2,2,2,2,3,2,2,3,2,2,2,3,2,2,3,2,2,3
10133 DATA 3,2,2,2,3,2,2,2,3,2,2,2,2,2,3,3,3,2,2,3,3,3,2,3,2,2,3,2,2,3
10134 DATA 3,2,2,2,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,2,3,2,2,3
10135 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10136 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10140 REM___MIESTNOST 4___
10141 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10142 DATA 3,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10143 DATA 3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3
10144 DATA 3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3
10145 DATA 3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3
10146 DATA 3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3
10147 DATA 3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3
10148 DATA 3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3
10149 DATA 3,2,3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3,2,3
10150 DATA 3,2,3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3,2,3
10151 DATA 3,2,3,2,3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3,2,3,2,3
10152 DATA 3,2,3,2,3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3,2,3,2,3
10153 DATA 3,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3
10154 DATA 3,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3
10155 DATA 3,2,3,2,3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3,2,3,2,3
10156 DATA 3,2,3,2,3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3,2,3,2,3
10157 DATA 3,2,3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3,2,3
10158 DATA 3,2,3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3,2,3
10159 DATA 3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3
10160 DATA 3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3
10161 DATA 3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3
10162 DATA 3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3
10163 DATA 3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3
10164 DATA 3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3
10165 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10166 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10200 REM---MIESTNOST 5.___
10210 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10211 DATA 3,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10212 DATA 3,2,2,3,3,3,3,3,3,3,3,2,2,3,3,2,2,3,3,2,2,3,3,3,3,3,3,2,2,3
10213 DATA 3,2,2,3,3,3,3,3,3,3,3,2,2,3,3,2,2,3,3,2,2,3,3,3,3,3,3,2,2,3
10214 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,2,2,2,2,2,2,3
10215 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,2,2,2,2,2,2,3
10216 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,3,3,3,3,2,2,3,3,3,3,3,2,2,2,3
10217 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,3,3,3,3,2,2,3,3,3,3,3,2,2,2,3
10218 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,2,2,2,2,2,2,3
10219 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,2,2,2,2,2,2,3
10220 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,3,3,3,3,2,2,3
10221 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,3,3,3,3,2,2,3
10222 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10223 DATA 3,2,3,3,3,3,3,3,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,3,3,2,2,2,2,3
10224 DATA 3,2,3,3,3,3,3,3,2,2,3,3,3,2,2,2,2,3,3,2,2,3,3,3,3,3,2,2,2,3
10225 DATA 3,2,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,3,3,2,2,3,3,1,1,3,3,2,2,3
10226 DATA 3,2,3,3,2,2,2,2,2,2,3,3,3,3,3,2,2,3,3,2,2,3,3,1,1,1,3,3,2,3
10227 DATA 3,2,3,3,3,3,3,2,2,2,3,3,2,2,3,3,3,3,3,2,2,3,3,1,1,1,3,3,2,3
10228 DATA 3,2,3,3,2,2,2,2,2,2,3,3,2,2,2,3,3,3,3,2,2,3,3,1,1,1,3,3,2,3
10229 DATA 3,2,3,3,2,2,2,2,2,2,3,3,2,2,2,2,3,3,3,2,2,3,3,1,1,3,3,3,2,3
10230 DATA 3,2,3,3,3,3,3,3,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,3,3,3,2,2,2,3
10231 DATA 3,2,3,3,3,3,3,3,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,3,3,2,2,2,2,3
10232 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10233 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10234 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
10235 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
30000 FOR W=0 TO 200:BEEP W,10:NEXT W:PAPER 7:INK 0:CLEAR:PRINT AT 15,12"NARAZ !":STOP
30010 REM___PRECHOD DO DALSEJ MI.
30020 BEEP 10,10,10,10,100,100,200,200,200,200,10,10,10,10,10,80
30030 MIESTNOST=MIESTNOST+1:POCET=0
30035 IF MIESTNOST>5 THEN 32000
30040 GOTO 402
31000 PRINT AT 14,0;CHR$(31):BEEP 100,10
31001 SETCHAR 3 255,255,255,255,255,255,255,255
31003 BEEP 200,200,100,200,200,100,200,10,255,10,156,255,255,255,12,12,12,12,36,69,58,98,45,85
31005 PAPER 0:INK 7
31010 PRINT AT 15,0"VASOU ULOHOHOU JE PREJST VSETKY",AT 16,0"SEKTORY (JE ICH 5),PRICOM"
31015 PRINT AT 17,0"NESMIETE NARAZIT DO PREKAZKY."
31020 PRINT AT 19,0;CHR$(3);"-PREKAZKA"
31025 BMOVE 0,167:BPLOT P$,1:PRINT AT 21,1"-PAVUK"
31030 PAPER 7:INK 0
31035 PRINT AT 23,0"  COPYRIGHT:B.K.SOFTWARE '89 ";CHR$(2);"  "
31040 PAPER 6:INK 0
31045 PRINT AT 25,4" ALL RIGHTS RESERVED! "
31047 PAPER 0:INK 7
31050 PRINT AT 27,4" STLACTE LUB.KLAVES ! ":BEEP 100,250
31060 R=KEY:IF R<>128 THEN RETURN
31065 GOTO 31060
32000 REM *** ZAVER ***
32001 CLEAR
32002 PAPER 0:INK 7
32003 RESTORE 32050
32005 SETCHAR 1 255,129,129,153,153,129,129,255
32006 SETCHAR 2 60,66,189,161,161,189,66,60
32010 FOR I=6 TO 25:FOR J=0 TO 31:PRINT AT I,J;CHR$(1):NEXT J,I
32015 SETCHAR 1 255,255,255,255,255,255,255,255
32016 PAPER 7:INK 0
32020 FOR I=8 TO 19:FOR J=2 TO 29:PRINT AT I,J;CHR$(1):BEEP 10,1:NEXT J,I:PAPER 0:INK 7
32025 DIM Z$(13)
32030 FOR I=1 TO 10:READ W$:Z$(I)=W$:NEXT I:GOTO 32090
32050 DATA"PRESLI STE VSETKY SEKTORY!"," "
32055 DATA"BOL TO DOBRY VYKON.RAD BY"
32060 DATA"SOM SA S VAMI ZOZNAMIL!"
32065 DATA"MOJA ADRESA JE:"," "
32070 DATA"BRANISLAV KAPUSNIK"
32075 DATA"KUZMICE 173"
32080 DATA"OKRES TOPOLCANY"
32085 DATA"         955 03"
32090 GOSUB 32091:GOTO 32105
32091 FOR I=1 TO 11
32100 PRINT AT I+8,3;Z$(I):NEXT I:RETURN
32105 FOR I=21 TO 23:FOR J=1 TO 30:BEEP 30,10:PRINT AT I,J;CHR$(1):NEXT J,I
32110 PAPER 7:INK 1:PRINT AT 22,6;"B.K.SOFTWARE '89 ";CHR$(2):BEEP 100,10
32125 PAPER 0:INK 7
32130 PRINT AT 28,6"STLACTE LUB.KLAVES !"
32140 BEEP 100,100,200,100,200,10,250,10,100,200,10,255
32145 PAPER 0
32150 FOR T=2 TO 7:INK T:GOSUB 32091
32160 FOR W=0 TO 3
32165 S=KEY:IF S<>128 THEN STOP
32170 NEXT W,T:GOTO 32150

READY
POKE 80H,0C3H

READY
LIST

READY
LIST

READY
POKE 0   80H,0C3H

READY
LIST
1 REM SPACE SHUTTLE;ZAVADZACI PROGRAM
2 REM (C) BRANISLAV KAPUSNIK
3 MEMEND
5 PAPER 0:INK 7:CLEAR
7 W$="                                "
18 SETCHAR 2 153,66,189,165,165,189,66,153
19 SETCHAR 1 0,0,0,0,0,0,0,0
20 DIM A$(5)
30 FOR I=1 TO 5:FOR J=1 TO 27:READ A:A$(I)=A$(I)+CHR$(A):NEXT J,I
35 GOTO 100
40 DATA 2,1,1,1,1,2,1,1,1,2,1,1,2,2,1,1,2,1,2,1,1,2,1,1,2,2,1
50 DATA 2,1,1,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,1,2,1,2,1,1,1
60 DATA 2,1,1,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,2,1,2,1,2,1,2,2
70 DATA 2,1,1,1,2,1,2,1,2,2,2,1,2,1,2,1,2,1,2,1,2,2,1,2,1,1,2
80 DATA 2,2,2,1,1,2,1,1,2,1,2,1,2,2,1,1,2,1,2,1,1,2,1,1,2,2,1
100 FOR I=1 TO 5:W$=W$+A$(I)+"     ":NEXT I:W$=W$+"                                "
110 FOR D=0 TO 22
111 BEEP D,10,D+30,10
120 PRINT AT D,3;W$
130 NEXT D
140 FOR D=22 TO 2 STEP-1
145 BEEP D,10,D*2,10
150 PRINT AT D,3;W$:NEXT D
200 SETCHAR 3 255,255,255,255,255,255,255,255
210 FOR I=11 TO 21:FOR J=3 TO 29:PRINT AT I,J;CHR$(3):NEXT J,I
215 DIM S$(10):RESTORE 260
220 FOR I=1 TO 9
230 READ Z$:PRINT AT 0,0;Z$
240 FOR H=0A000H TO 0A000H+32*8-32 STEP 32:S$(I)=S$(I)+CHR$(PEEK(H))+CHR$(PEEK(H))+CHR$(PEEK(H))
250 NEXT H:PRINT AT 0,0;" ":NEXT I
260 DATA "S","P","A","C","E","H","U","T","L"
270 S$(10)=CHR$(0)
275 INK 0:PAPER 7
280 Y=88:FOR X=10 TO 22:READ ABC:BMOVE X,88:BPLOT S$(ABC),1:BEEP X,100:NEXT X
290 DATA 1,2,3,4,5,10,1,6,7,8,8,9,5
300 SETCHAR 5 60,66,185,161,161,185,66,60
310 M$=CHR$(5)+" BRANISLAV KAPUSNIK 1989":F$="ODPM TOPOLCANY":G$="B.K.SOFTWARE '89"
320 FOR I=1 TO LEN(M$):PRINT AT 16,I+3;MID$(M$,I,1);:BEEP 200+I,10:NEXT I
330 FOR I=1 TO LEN(F$):PRINT AT 18,I+8;MID$(F$,I,1);:BEEP 250-I,10:NEXT I
340 PAPER 2:INK 6:PRINT AT 20,8;"B.K.SOFTWARE '89":BEEP 200,100
350 PAPER 0:INK 7
355 SETCHAR 2 255,255,255,255,255,255,255,255
370 FOR I=4 TO 27:PRINT AT 24,I;CHR$(2),AT 25,I;CHR$(2),AT 26,I;CHR$(2):BEEP 200+I,3:NEXT I
385 PAPER 7:INK 0
390 PRINT AT 25,6;"ALL RIGHTS RESERVED!"

READY
POKE 0   80H,0C3H

READY
LIST
1 REM SPACE SHUTTLE;ZAVADZACI PROGRAM
2 REM (C) BRANISLAV KAPUSNIK
3 MEMEND
5 PAPER 0:INK 7:CLEAR
7 W$="                                "
18 SETCHAR 2 153,66,189,165,165,189,66,153
19 SETCHAR 1 0,0,0,0,0,0,0,0
20 DIM A$(5)
30 FOR I=1 TO 5:FOR J=1 TO 27:READ A:A$(I)=A$(I)+CHR$(A):NEXT J,I
35 GOTO 100
40 DATA 2,1,1,1,1,2,1,1,1,2,1,1,2,2,1,1,2,1,2,1,1,2,1,1,2,2,1
50 DATA 2,1,1,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,1,2,1,2,1,1,1
60 DATA 2,1,1,1,2,1,2,1,2,1,2,1,2,1,2,1,2,1,2,2,1,2,1,2,1,2,2
70 DATA 2,1,1,1,2,1,2,1,2,2,2,1,2,1,2,1,2,1,2,1,2,2,1,2,1,1,2
80 DATA 2,2,2,1,1,2,1,1,2,1,2,1,2,2,1,1,2,1,2,1,1,2,1,1,2,2,1
100 FOR I=1 TO 5:W$=W$+A$(I)+"     ":NEXT I:W$=W$+"                                "
110 FOR D=0 TO 22
111 BEEP D,10,D+30,10
120 PRINT AT D,3;W$
130 NEXT D
140 FOR D=22 TO 2 STEP-1
145 BEEP D,10,D*2,10
150 PRINT AT D,3;W$:NEXT D
200 SETCHAR 3 255,255,255,255,255,255,255,255
210 FOR I=11 TO 21:FOR J=3 TO 29:PRINT AT I,J;CHR$(3):NEXT J,I
215 DIM S$(10):RESTORE 260
220 FOR I=1 TO 9
230 READ Z$:PRINT AT 0,0;Z$
240 FOR H=0A000H TO 0A000H+32*8-32 STEP 32:S$(I)=S$(I)+CHR$(PEEK(H))+CHR$(PEEK(H))+CHR$(PEEK(H))
250 NEXT H:PRINT AT 0,0;" ":NEXT I
260 DATA "S","P","A","C","E","H","U","T","L"
270 S$(10)=CHR$(0)
275 INK 0:PAPER 7
280 Y=88:FOR X=10 TO 22:READ ABC:BMOVE X,88:BPLOT S$(ABC),1:BEEP X,100:NEXT X
290 DATA 1,2,3,4,5,10,1,6,7,8,8,9,5
300 SETCHAR 5 60,66,185,161,161,185,66,60
310 M$=CHR$(5)+" BRANISLAV KAPUSNIK 1989":F$="ODPM TOPOLCANY":G$="B.K.SOFTWARE '89"
320 FOR I=1 TO LEN(M$):PRINT AT 16,I+3;MID$(M$,I,1);:BEEP 200+I,10:NEXT I
330 FOR I=1 TO LEN(F$):PRINT AT 18,I+8;MID$(F$,I,1);:BEEP 250-I,10:NEXT I
340 PAPER 2:INK 6:PRINT AT 20,8;"B.K.SOFTWARE '89":BEEP 200,100
350 PAPER 0:INK 7
355 SETCHAR 2 255,255,255,255,255,255,255,255
370 FOR I=4 TO 27:PRINT AT 24,I;CHR$(2),AT 25,I;CHR$(2),AT 26,I;CHR$(2):BEEP 200+I,3:NEXT I
385 PAPER 7:INK 0
390 PRINT AT 25,6;"ALL RIGHTS RESERVED!"

READY
POKE 80H,C   0C3H

READY
LIST
10 CLEAR
20 FOR I=1 TO 8:STENA$=STENA$+CHR$(255):NEXT I
30 FOR I=1 TO 4:BODY$=BODY$+CHR$(170)+CHR$(85):NEXT I
40 LOP$=CHR$(56)+CHR$(118)+CHR$ (239)+CHR$(223)+CHR$(223)+CHR$(239)+CHR$(118)+CHR$(56)
50 DIM A(30,30)
500 REM ***VYKR.MIESTNOSTI***
510 RESTORE 30000
520 FOR YOVA=1 TO 30:FOR XOVA=1 TO 30:READ W:A(XOVA,YOVA)=W
530 IF A(XOVA,YOVA)=1 THEN BMOVE XOVA,YOVA*8:BPLOT STENA$,1
540 IF A(XOVA,YOVA)=2 THEN BMOVE XOVA,YOVA*8:BPLOT BODY$,1
550 IF A(XOVA,YOVA)=3 THEN BMOVE XOVA,YOVA*8:BPLOT LOP$,1
560 NEXT XOVA,YOVA
30000 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
30010 DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
30020 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30030 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30040 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,2,1
30050 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30060 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30070 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30080 DATA 1,2,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,2,1
30090 DATA 1,2,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,2,1
30100 DATA 1,2,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,2,1
30110 DATA 1,2,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,2,1
30140 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30150 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30160 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30170 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30180 DATA 1,2,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,2,1
30190 DATA 1,2,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,2,1
30200 DATA 1,2,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,2,1
30210 DATA 1,2,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0,2,1
30220 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30230 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30240 DATA 1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1
30250 DATA 1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
30260 DATA 1,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,1
30270 DATA 1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,1
30280 DATA 1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,1
30290 DATA 1,0,0,0,0,1,0,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,1,0,0,0,0,1
30300 DATA 1,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,1
30310 DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1

READY
POKE 80H,0C3H

READY
LIST
1000 REM * TVORBA TESTU *
1005 BEEP NO
1010 PAPER 0:INK 7:CLEAR
1020 SETCHAR 1 0,0,0,255,255,0,0,0
1030 DIM A$(12)
1035 FOR I=0 TO 31:PRINT AT 14,I;CHR$(1),AT 16,I;CHR$(1):BEEP I*4,1:NEXT I
1037 PAPER 7:INK 0:PRINT AT 20,3;"KLAVESY:A-Z,MEDZERA,DEL,CR":PAPER 0:INK 7
1040 PRINT AT 15,0;"OTAZKY ZOSTAVIL(A)",AT 15,18;":";
1050 X=1
1060 A=KEY
1062 IF A=13 THEN 1100
1065 IF A=127 AND X>1 THEN X=X-1:PRINT CHR$(8);CHR$(32);CHR$(8);:A$(X)=CHR$(32):BEEP 200,100
1070 IF A=32 AND X<12 THEN X=X+1:PRINT CHR$(32);:FOR I=10 TO 30:BEEP I,5:NEXT I:A$(X-1)=CHR$(32)
1080 IF A>=97 AND A<=122 AND X-1<12 THEN X=X+1:PRINT CHR$(A-32);:A$(X-1)=CHR$(A-32):BEEP A,100
1090 GOTO 1060
1100 FOR I=1 TO 12:NAME$=NAME$+A$(I):NEXT I
1110 CLEAR:PRINT CHR$(29)
1120 FOR I=0 TO 31:PRINT AT 14,I;CHR$(1),AT 16,I;CHR$(1):BEEP I,1:NEXT I
1125 PAPER 7:INK 0:PRINT AT 20,7;"KLAVESY:0-9,DEL,CR":PAPER 0:INK 7
1130 PRINT AT 15,0;NAME$;",KOLKO OTAZOK?";
1140 X=1:DIM B$(3)
1150 A=KEY
1155 IF A=13 THEN 1190
1160 IF A>=48 AND A<=57 AND X-1<3 THEN X=X+1:PRINT CHR$(A);:B$(X-1)=CHR$(A):BEEP 100,100
1170 IF A=127 AND X>1 THEN X=X-1: PRINT CHR$(8);CHR$(32);CHR$(8);:B$(X)=CHR$(32):BEEP 200,100
1180 GOTO 1150
1190 FOR I=1 TO 3:CIS$=CIS$+B$(I):NEXT I:POCET=VAL(CIS$)
1200 CLEAR
1210 N=POCET*5+2
1220 DIM P$(N)
1230 P$(1)=NAME$,P$(2)=CIS$
1240 REM *** ACHTUNG-P$(1) A P$(2) SLUZI PRE ULOZENIE MENA A POCTU OTAZOK *********************
1250 FOR I=0 TO 31:PRINT AT 1,I;CHR$(1),AT 3,I;CHR$(1),AT 9,I;CHR$(1),AT 15,I;CHR$(1)
1260 PRINT AT 21,I;CHR$(1),AT 27,I;CHR$(1):BEEP 1,1:NEXT I
1270 PRINT AT 0,0;"OTAZKY PRIPRAVIL(A):";P$(1)
9999 WAIT
10000 PRINT KEY:GOTO 10000

READY
POKE 80H.   ,0C3H

READY
LIST
1000 REM * ZOSTAVOVANIE OTAZOK *
1010 PAPER 0:INK 7:CLEAR:SETCHAR 1 34,25,36,98,52,14,78,96
1020 FOR I=0 TO 31:PRINT AT 0,I;CHR$(1),AT 2,I;CHR$(1),AT 4,I;CHR$(1):BEEP I,I+1:NEXT I
1030 PRINT AT 1,0;CHR$(1);"OTAZKY PRIPRAVIL:",AT 1,31;CHR$(1),AT 3,0;CHR$(1),AT 3,31;CHR$(1)
1040 X=1:PRINT AT 1,17;":";
1050 DIM M$(13)
10000 WAIT

READY
POKE 0   80H,0C3H

READY
LIST
1000 REM * ZOSTAVOVANIE OTAZOK *
1010 PAPER 0:INK 7:CLEAR:SETCHAR 1 10,50,67,10,66,44,22,10
1011 BEEP NO
1020 FOR I=0 TO 31:PRINT AT 0,I;CHR$(1),AT 2,I;CHR$(1),AT 4,I;CHR$(1):BEEP I,I+1:NEXT I
1030 PRINT AT 1,0;CHR$(1);"OTAZKY PRIPRAVIL:",AT 1,31;CHR$(1),AT 3,0;CHR$(1),AT 3,31;CHR$(1)
1040 X=2:PRINT AT 1,17;":";
1050 DIM M$(13)
1060 A=KEY
1070 IF A>=97 AND A<=126 AND X<=13 THEN X=X+1:PRINT CHR$(A-32);:M$(X-1)=CHR$(A-32):BEEP 50,200
1080 IF A=32 AND X<=13 THEN X=X+1:PRINT CHR$(32);:M$(X-1)=CHR$(32):BEEP 100,100
1099 REM ************** BACHA VELA SKACE DOZADU :::::::::::::::::::::::::::::::::::::::::::::
1100 IF A=127 AND X>=2 THEN X=X-1:PRINT CHR$(8);CHR$(32);CHR$(8);:M$(X)=CHR$(32):BEEP A,20
1200 GOTO 1060
10000 WAIT
20000 PRINT KEY:GOTO 20000

READY
POKE 80H,0C3H

READY
LIST
10 REM MILAN RASTISLAV STEFANIK
15 PAPER 0:INK 7:CLEAR
20 X=1,Y=10
30 A=X,B=Y
40 READ H
50 IF H=-1 THEN 300
60 IF H=-2 THEN A=A+1:B=Y:GOTO 40
70 BMOVE A,B:BPLOT CHR$(H),1:B=B+1
80 GOTO 40
300 READ K,L:FOR I=1 TO K:BMOVE A,B:BPLOT CHR$(L),1:B=B+1:NEXT I:GOTO 40
995 REM *** 1 ***
1000 DATA -1,40,0,3,28,224,128,128,192,124,3,-1,117,0,1,1,3,2,2,12,8,8,24,16,16,16,32,32,64,64
1010 DATA 192,-2
1015 REM *** 2 ***
1020 DATA 0,0,0,0,3,12,24,32,-1,10,96,33,46,56,33,62,60,62,60,60,196,70,71,71,87,127,96,127,127
1030 DATA 95,91,79,79,127,128,-1,6,0,255,4,4,12,12,10,15,12,4,4,6,-1,13,2,3,3,3,3,1,1,1,1,-1,66,0
1040 DATA 1,1,3,2,2,6,4,12,8,24,16,16,48,32,32,96,64,192,128,129,1,3,3,2,6,4,4,12,12,8,8,24,16,16
1050 DATA 48,32,-2
1055 REM *** 3 ***
1060 DATA 0,0,7,28,204,12,12,12,4,4,4,6,2,2,2,3,63,240,63,192,0,0,0,0,137,42,212,253,166,127,9
1070 DATA 10,14,5,198,160,63,192,-1,6,0,7,48,192,-1,3,0,62,255,255,0,6,31,213,255,126,-1,10,0,1
1080 DATA 1,1,1,3,3,0,0,0,0,128,128,128,192,64,65,96,32,48,16,24,8,12,4,1,-1,40,0,1,2,4,24,16,48
1090 DATA 32,96,64,128,128,0,1,3,2,6,4,12,8,24,17,51,35,35,97,64,64,192,128,128,128,-1,10,0,120
1100 DATA 196,132,132,204,120,-2
1105 REM *** 4 ***
1110 DATA 1,7,200,-1,10,68,68,68,36,255,255,0,0,11,44,68,248,64,64,32,31,65,67,36,38,13,74,74,196
1120 DATA 255,-1,5,0,1,30,128,-1,7,0,128,192,128,0,96,160,-1,9,64,128,128,128,0,0,6,15,184,112
1130 DATA -1,5,0,24,38,63,192,255,-1,5,0,3,0,0,0,64,64,32,32,15,0,0,0,-1,11,1,-1,14,0,1,2,4,8,16
1140 DATA 32,64,128,1,2,2,4,4,8,8,16,32,64,128,128,-1,6,0,120,4,4,144,8,112,-2
1145 REM *** 5 ***
1150 DATA 255,-1,14,0,255,0,255,0,224,35,65,255,0,3,247,243,243,253,28,126,89,56,0,0,255,-1,5,0

READY
POKE 0   80H,0C3H

READY
LIST
1000 REM * ZOSTAVOVANIE OTAZOK *
1010 PAPER 0:INK 7:CLEAR:SETCHAR 1 0,126,126,126,126,126,126,0
1011 BEEP NO
1020 FOR I=0 TO 31:PRINT AT 0,I;CHR$(1),AT 2,I;CHR$(1),AT 4,I;CHR$(1):BEEP I,I+1:NEXT I
1025 BEEP 150,10
1030 PRINT AT 1,0;CHR$(1);"OTAZKY PRIPRAVIL:",AT 1,31;CHR$(1),AT 3,0;CHR$(1),AT 3,31;CHR$(1)
1040 X=2:PRINT AT 1,17;":";
1050 DIM M$(13)
1060 A=KEY
1065 IF A=13 AND LEN(M$(2))>0 AND ASC(M$(2))<>32 THEN 1300
1070 IF A>=97 AND A<=126 AND X<=13 THEN X=X+1:PRINT CHR$(A-32);:M$(X-1)=CHR$(A-32):BEEP 50,200
1080 IF A=32 AND X<=13 THEN X=X+1:PRINT CHR$(32);:M$(X-1)=CHR$(32):BEEP 100,100
1100 IF A=127 AND X>=3 THEN X=X-1:PRINT CHR$(8);CHR$(32);CHR$(8);:M$(X)=CHR$(32):BEEP A,20
1200 GOTO 1060
1300 BEEP 200,10:PRINT AT 3,1;"POCET OTAZOK:";
1310 DIM PO$(3)
1320 X=1
1330 A=KEY
1335 IF A=13 AND LEN(PO$(1))>0 AND ASC(PO$(1))<>32 THEN 1500
1340 IF A>=48 AND A<=57 AND X<=3 THEN X=X+1:PRINT CHR$(A);:PO$(X-1)=CHR$(A):BEEP 200,50
1350 IF A=127 AND X>=2 THEN X=X-1:PRINT CHR$(8);CHR$(32);CHR$(8);:PO$(X)=CHR$(32):BEEP 100,100
1400 GOTO 1330
1500 SCALE -215,40,-215,40
1510 INK 0:FOR I=1 TO 7: FOR J=1 TO 7:MOVE -215,I+J*J:DRAW 40,I+J*J:NEXT J,I:INK 7:CLEAR
1520 FOR I=1 TO 3:Q$=Q$+PO$(I):NEXT I:N=VAL(Q$)
1530 K=N*5+12:REM 2-MENO+POCET OT. 10-HODNOTENIE
1540 DIM O$(K):REM DIMENZIA OTAZOK###############################################################
1550 FOR I=1 TO 12:O$(1)=O$(1)+M$(I):NEXT I:REM NAPLNENIE O$-1 Z MENOM
1560 FOR I=1 TO 3:O$(2)=O$(2)+PO$(I):NEXT I:REM NAPL.O$-2 Z POCTOM OTAZOK
10000 WAIT
20000 PRINT KEY:GOTO 20000

READY
POKE 80H,0C3H

READY
LIST
1000 REM * ZOSTAVOVANIE OTAZOK *
1010 PAPER 0:INK 7:CLEAR:SETCHAR 1 0,126,126,126,126,126,126,0
1011 BEEP NO
1020 FOR I=0 TO 31:PRINT AT 0,I;CHR$(1),AT 2,I;CHR$(1),AT 4,I;CHR$(1):BEEP I,I+1:NEXT I
1025 BEEP 150,10
1030 PRINT AT 1,0;CHR$(1);"OTAZKY PRIPRAVIL:",AT 1,31;CHR$(1),AT 3,0;CHR$(1),AT 3,31;CHR$(1)
1040 X=2:PRINT AT 1,17;":";
1050 DIM M$(13)
1060 A=KEY
1065 IF A=13 AND LEN(M$(2))>0 AND ASC(M$(2))<>32 THEN 1300
1070 IF A>=97 AND A<=126 AND X<=13 THEN X=X+1:PRINT CHR$(A-32);:M$(X-1)=CHR$(A-32):BEEP 50,200
1080 IF A=32 AND X<=13 THEN X=X+1:PRINT CHR$(32);:M$(X-1)=CHR$(32):BEEP 100,100
1100 IF A=127 AND X>=3 THEN X=X-1:PRINT CHR$(8);CHR$(32);CHR$(8);:M$(X)=CHR$(32):BEEP A,20
1200 GOTO 1060
1300 BEEP 200,10:PRINT AT 3,1;"POCET OTAZOK:";
1310 DIM PO$(3)
1320 X=1
1330 A=KEY
1335 IF A=13 AND LEN(PO$(1))>0 AND ASC(PO$(1))<>32 AND ASC(PO$(1))<>48 THEN 1500
1340 IF A>=48 AND A<=57 AND X<=3 THEN X=X+1:PRINT CHR$(A);:PO$(X-1)=CHR$(A):BEEP 200,50
1350 IF A=127 AND X>=2 THEN X=X-1:PRINT CHR$(8);CHR$(32);CHR$(8);:PO$(X)=CHR$(32):BEEP 100,100
1400 GOTO 1330
1500 SCALE -215,40,-215,40
1510 INK 0:FOR I=1 TO 7: FOR J=1 TO 7:MOVE -215,I+J*J:DRAW 40,I+J*J:NEXT J,I:INK 7:CLEAR
1520 FOR I=1 TO 3:Q$=Q$+PO$(I):NEXT I:N=VAL(Q$)
1530 K=N*5+12:REM 2-MENO+POCET OT. 10-HODNOTENIE
1540 DIM O$(K):REM DIMENZIA OTAZOK###############################################################
1550 FOR I=1 TO 13:O$(1)=O$(1)+M$(I):NEXT I:REM NAPLNENIE O$-1 Z MENOM
1560 FOR I=1 TO 3:O$(2)=O$(2)+PO$(I):NEXT I:REM NAPL.O$-2 Z POCTOM OTAZOK
1570 FOR I=0 TO 32:PRINT AT 1,I;CHR$(1),AT 3,I;CHR$(1),AT 10,I;CHR$(1),AT 16,I;CHR$(1)
1580 PRINT AT 22,I;CHR$(1),AT 27,I;CHR$(1),AT 29,I;CHR$(1):NEXT I
1585 PRINT AT 0,1;"(C) B.K.S O F T W A R E 1 9 9 0"
1590 PRINT AT 2,0;"OTAZKA CISLO:",AT 11,0;"A-",AT 17,0;"B-",AT 23,0;"C-"
1600 PRINT AT 28,0;"SPRAVNA ODPOVED:"
10000 WAIT
20000 PRINT KEY:GOTO 20000

READY
POKE 80H,0C3H

READY
LIST
10 SETCHAR 1 255,129,129,153,153,129,129,255
11 GOSUB 110
20 SETCHAR 2 60,66,185,161,161,185,66,60
21 B$="SPIDER"
30 A$=CHR$(2)+" BRANISLAV KAPUSNIK 1989"
40 D$="GYMNAZIUM TOPOLCANY"
50 FOR I=3 TO 29:PRINT AT 10,I;CHR$(1),AT 18,I;CHR$(1):NEXT I
60 FOR I=11 TO 17:PRINT AT I,2;CHR$(1),AT I,30;CHR$(1):NEXT I
70 PAPER 7:INK 0:PRINT AT 12,14;B$:PAPER 0:INK 7
80 PRINT AT 14,4;A$,AT 16,7;D$
90 PAPER 0:INK 0
91 KLOAD $ 51
110 SCALE 0,31,0,31
111 CLEAR
112 INK 2
120 FOR I=3 TO 29
130 MOVE I,0:DRAW I,13
135 MOVE I,31:DRAW I,10
140 NEXT I
145 PAPER 0:INK 7
150 RETURN

READY
POKE 0C   80H,0C3H

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM PAVUK-PP 01
30 PAPER 0:INK 7:CLEAR:SETCHAR 1 255,255,255,255,255,255,255,255
31 SETCHAR 2 60,66,185,161,161,185,66,60
32 BEEP NO
40 PAPER 7:INK 0:FOR I=0 TO 9:PRINT AT I,0"                                ":BEEP 5,5:NEXT I
50 RESTORE 100
60 FOR I=1 TO 8:READ B:FOR J=1 TO B:READ C:PRINT AT I,C;CHR$(1):BEEP 10,10:NEXT J,I
62 PRINT AT 11,7"B.K.SOFTWARE'89":PAPER 7:INK 0:M$="",B$="":BEEP 100,100,100,100
64 A$="32664675658085837873754471897778659073857732847980797667657889"
65 P$=CHR$(24)+CHR$(219)+CHR$(60)+CHR$(231)+CHR$(60)+CHR$(255)+CHR$(60)+CHR$(219)
66 FOR I=1 TO LEN(A$) STEP 2:R$=MID$(A$,I,2):C=VAL(R$):B$=B$+CHR$(C):NEXT I
67 M$=CHR$(2)+B$:PAPER 2:INK 7
70 FOR I=1 TO LEN(M$):BEEP 200,1
72 PRINT AT 13,I-1;MID$(M$,I,1):NEXT I:PAPER 7:INK 0
75 FOR I=17 TO 21:PRINT AT I,3"                          ":NEXT I
76 PRINT AT 18,10"S-START",AT 20,10"K-KOPIROVANIE":PAPER 0:INK 7
78 PRINT AT 23,11"OVLADANIE:"
80 BMOVE 15,216:BPLOT P$,1
82 SETCHAR 3 0,0,24,60,90,24,24,0
84 SETCHAR 4 0,24,24,90,60,24,0,0
86 SETCHAR 5 0,16,8,124,124,8,16,0
88 SETCHAR 6 0,8,16,62,62,16,8,0
90 PRINT AT 27,14;CHR$(6),AT 26,15;CHR$(3),AT 27,16;CHR$(5),AT 28,15;CHR$(4)
91 BEEP 100,100:PAPER 0:INK 7:SETCHAR 5 255,207,191,129,129,191,207,255
92 SETCHAR 6 255,243,253,129,129,253,243,255
94 PRINT AT 27,13;CHR$(5),AT 27,17;CHR$(6):PAPER 7:INK 0:PRINT AT 25,15"Q",AT 29,15"Y"
95 PAPER 0:INK 7
100 DATA 6,1,2,3,4,22,25,4,1,5,21,25,12,1,5,8,9,10,11,13,17,19,23,25,30
101 DATA 12,1,2,3,4,7,11,13,17,19,23,25,29,9,1,7,11,13,17,19,23,25,28
102 DATA 9,1,7,11,13,17,19,23,25,27,10,1,7,11,14,16,19,23,25,26,28,12,1,8,9,10,11,12,15,20,21,22
103 DATA 25,29
110 REM START/COPY**************
120 FOR I=1 TO 30:INK 7:BMOVE I,120:BPLOT P$,1
125 BEEP I,10:WAIT 2
130 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
140 IF A=107 THEN 250
150 IF A=115 THEN 400
160 NEXT I
170 FOR I=30 TO 1 STEP -1:INK 7:BMOVE I,120:BPLOT P$,1
175 BEEP I,10:WAIT 2
180 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
190 IF A=107 THEN 250
200 IF A=115 THEN 400
210 NEXT I
220 GOTO 120
250 REM ***** COPY *****
260 PAPER 7:INK 0
261 GOSUB 280
265 WAIT 5:BEEP 100,100
270 PRINT AT 19,3"ZADAJTE CISLO ZAZNAMU!";:INPUT CZ:GOSUB 280
275 IF CZ<1 OR CZ>79 THEN 260
276 GOTO 283
280 FOR I=17 TO 21:BEEP 10,10:PRINT AT I,3"                          ":NEXT I:RETURN
283 GOSUB 280
285 PRINT AT 18,4"PRIPRAVTE MAGNETOFON",AT 20,4"A STLACTE LUB. KLAVES!"
286 A=KEY:IF A<>128 THEN 290
287 GOTO 286
290 A$="NAHRAVAM POD CISLOM"
291 GOSUB 280
300 PRINT AT 18,3"**************************",AT 20,3"**************************"
310 FOR I=1 TO LEN(A$):PRINT AT 19,I+3;MID$(A$,I,1);
320 BEEP 10,200:NEXT I:PRINT AT 19,23;CZ;"!"
330 KSAVE $ CZ
340 BEEP 255,100:GOSUB 280
360 INK 0:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":BEEP 255,100:WAIT 5
365 A=KEY
370 INK 7:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":WAIT 5
374 IF A<>128 THEN 379
375 GOTO 360
379 GOSUB 280
380 PAPER 7:INK 0:GOTO 75
400 GOSUB 31000                    :RESTORE 10000
401 A=26,B=30:DIM B(A,B):MIESTNOST=1
402 CLEAR:CAS=3
405 PAPER 7:INK 0:PRINT AT 0,8;"B.K.SOFTWARE'89":PAPER 0:INK 7
500 PAPER 0:INK 7:POCET=0:X=2,Y=16
501 SETCHAR 1 0,0,0,0,0,0,0,0
502 SETCHAR 2 0,0,24,36,36,24,0,0
503 SETCHAR 3 255,255,255,255,255,255,255,255
505 INK 3
510 FOR I=1 TO 26
515 FOR E=1 TO 30
520 READ A
540 B(I,E)=A
545 IF B(I,E)=2 THEN POCET=POCET+1
550 PRINT AT I,E;CHR$(B(I,E)):NEXT E,I
560 INK 7:BMOVE X,Y:BPLOT P$,1
570 PAPER 7:INK 0:PRINT AT 28,1"MIESTNOST:";STR$(MIESTNOST);".":PAPER 0:INK 7:BEEP 100,100
580 A=KEY:IF A=128 THEN 580
590 IF A=8 THEN 1000
600 IF A=24 THEN 900
610 IF A=113 THEN 800
620 IF A=121 THEN 700
630 GOTO 580
700 REM NNDND DOLE VVV
710 A=KEY
720 IF A=113 THEN 800
730 IF A=8 THEN 1000
740 IF A=24 THEN 900
750 IF B(Y/8,X)=3 THEN 30000
760 IF B(Y/8,X)=2 THEN POCET=POCET-1:B(Y/8,X)=1:BEEP 10,10
765 IF POCET<1 THEN 30030
770 INK 0:BMOVE X,Y:BPLOT P$,1
780 Y=Y+8:INK 7:BMOVE X,Y:BPLOT P$,1
785 WAIT CAS
790 GOTO 710
800 REM *** HORE ***
810 A=KEY
820 IF A=121 THEN 700
830 IF A=8 THEN 1000
840 IF A=24 THEN 900
850 IF B(Y/8,X)=3 THEN 30000
860 IF B(Y/8,X)=2 THEN POCET=POCET-1:B(Y/8,X)=1:BEEP 10,10
865 IF POCET<1 THEN 30030
870 INK 0:BMOVE X,Y:BPLOT P$,1
880 Y=Y-8:INK 7:BMOVE X,Y:BPLOT P$,1
885 WAIT CAS
890 GOTO 810
900 REM *** VPRAVO :::
910 A=KEY
920 IF A=113 THEN 800
930 IF A=121 THEN 700
940 IF A=8 THEN 1000
950 IF B(Y/8,X)=3 THEN 30000
960 IF B(Y/8,X)=2 THEN POCET=POCET-1:B(Y/8,X)=1:BEEP 10,10
965 IF POCET<1 THEN 30030
970 INK 0:BMOVE X,Y:BPLOT P$,1
980 X=X+1:INK 7:BMOVE X,Y:BPLOT P$,1
985 WAIT CAS
990 GOTO 900
1010 A=KEY
1020 IF A=121 THEN 700
1030 IF A=113 THEN 800
1040 IF A=24 THEN 900
1050 IF B(Y/8,X)=3 THEN 30000
1060 IF B(Y/8,X)=2 THEN POCET=POCET-1:B(Y/8,X)=1:BEEP 10,10
1065 IF POCET<1 THEN 30030
1070 INK 0:BMOVE X,Y:BPLOT P$,1
1080 X=X-1:INK 7:BMOVE X,Y:BPLOT P$,1
1085 WAIT CAS
1090 GOTO 1000
10000 REM _____ MIESTNOST 1.//__
10010 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10011 DATA 3,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10012 DATA 3,2,2,2,2,3,3,3,2,2,3,3,3,2,2,2,2,2,3,3,2,2,2,2,3,2,2,2,2,3
10013 DATA 3,2,2,2,2,3,1,1,3,2,3,1,1,3,2,2,2,3,1,1,3,2,2,3,3,2,2,2,2,3
10014 DATA 3,2,2,2,2,3,1,1,3,2,3,1,1,3,2,2,2,3,1,1,3,2,3,2,3,2,2,2,2,3
10015 DATA 3,2,2,2,2,3,3,3,2,2,3,3,3,2,2,2,2,3,1,1,3,2,2,2,3,2,2,2,2,3
10016 DATA 3,2,2,2,2,3,2,2,2,2,3,2,2,2,2,2,2,3,1,1,3,2,2,2,3,2,2,2,2,3
10017 DATA 3,2,2,2,2,3,2,2,2,2,3,2,2,2,2,2,2,3,1,1,3,2,2,2,3,2,2,2,2,3
10018 DATA 3,2,2,2,2,3,2,2,2,2,3,2,2,2,2,2,2,2,3,3,2,2,2,2,3,2,2,2,2,3
10019 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10020 DATA 3,2,2,3,3,3,2,2,2,3,3,3,2,3,2,3,3,3,2,2,2,3,3,3,3,3,3,2,2,3
10021 DATA 3,2,2,2,2,3,2,2,2,3,2,3,2,2,2,3,2,3,2,2,2,3,2,2,3,2,2,2,2,3
10022 DATA 3,2,2,2,2,3,2,2,2,3,2,3,2,2,2,3,2,3,2,2,2,3,2,2,3,2,2,2,2,3
10023 DATA 3,2,2,2,2,3,2,2,2,3,2,3,2,2,2,3,2,3,2,2,2,3,2,2,3,2,2,2,2,3
10024 DATA 3,2,2,2,2,2,3,2,3,2,2,3,2,2,2,3,2,2,3,2,3,2,2,2,3,2,2,2,2,3
10025 DATA 3,2,2,2,2,2,3,2,3,2,2,2,3,2,2,3,2,2,3,2,3,2,2,2,3,2,2,2,2,3
10026 DATA 3,2,2,2,2,2,2,3,2,2,2,2,2,3,3,2,2,2,2,3,2,2,2,2,3,2,2,2,2,3
10027 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10028 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10029 DATA 3,2,2,2,3,3,3,3,2,3,2,3,2,2,2,3,2,3,2,2,3,2,2,3,3,2,2,2,2,3
10030 DATA 3,2,2,2,2,2,2,3,2,3,2,3,2,2,2,3,2,3,3,2,3,2,3,1,1,3,2,2,2,3
10031 DATA 3,2,2,2,2,2,3,2,2,3,2,3,2,2,2,3,2,3,2,3,3,2,3,1,1,3,2,2,2,3
10032 DATA 3,2,2,2,2,3,2,2,2,3,2,3,2,2,2,3,2,3,2,2,3,2,3,3,3,3,2,2,2,3
10033 DATA 3,2,2,2,3,3,3,3,2,3,2,3,3,3,2,3,2,3,2,2,3,2,3,2,2,3,2,2,2,3
10034 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10035 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10080 REM ___MIESTNOST-ATARI___
10081 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10082 DATA 3,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10083 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,3
10084 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,3
10085 DATA 3,2,2,2,2,2,2,2,2,2,2,2,3,2,2,3,2,2,3,2,2,2,2,2,2,2,2,2,2,3
10086 DATA 3,2,2,2,2,2,2,2,2,2,2,3,2,2,2,3,2,2,2,3,2,2,2,2,2,2,2,2,2,3
10087 DATA 3,2,2,2,2,2,2,2,2,2,3,2,2,2,2,3,2,2,2,2,3,2,2,2,2,2,2,2,2,3
10088 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10089 DATA 3,2,2,2,3,2,2,2,3,3,3,3,3,2,2,2,3,2,2,2,3,3,3,3,2,2,2,3,2,3
10090 DATA 3,2,2,3,1,3,2,2,2,2,3,2,2,2,2,3,1,3,2,2,3,1,1,1,3,2,2,3,2,3
10091 DATA 3,2,3,1,1,1,3,2,2,2,3,2,2,2,3,1,1,1,3,2,3,1,1,1,3,2,2,3,2,3
10092 DATA 3,2,3,1,1,1,3,2,2,2,3,2,2,2,3,1,1,1,3,2,3,3,3,3,2,2,2,3,2,3
10093 DATA 3,2,3,3,3,3,3,2,2,2,3,2,2,2,3,3,3,3,3,2,3,3,2,2,2,2,2,3,2,3
10094 DATA 3,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,3,2,3,2,2,2,2,3,2,3
10095 DATA 3,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,3,2,2,3,2,2,2,3,2,3
10096 DATA 3,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,2,2,3,2,3,2,2,2,3,2,2,3,2,3
10097 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10098 DATA 3,2,2,3,3,2,2,2,3,3,2,2,2,3,3,2,2,2,2,3,2,2,2,3,2,3,3,3,2,3
10099 DATA 3,2,3,1,1,3,2,3,1,1,3,2,3,1,1,3,2,2,2,2,3,2,3,2,2,3,2,2,2,3
10100 DATA 3,2,3,1,1,3,2,3,1,3,3,2,3,1,3,3,2,2,2,2,3,2,3,2,2,3,2,2,2,3
10101 DATA 3,2,2,3,3,2,2,3,3,1,3,2,3,3,1,3,2,2,2,2,2,3,2,2,2,3,3,3,2,3
10102 DATA 3,2,3,1,1,3,2,3,1,1,3,2,3,1,1,3,2,2,2,2,3,2,3,2,2,3,2,2,2,3
10103 DATA 3,2,3,1,1,3,2,3,1,1,3,2,3,1,1,3,2,2,2,2,3,2,3,2,2,3,2,2,2,3
10104 DATA 3,2,2,3,3,2,2,2,3,3,2,2,2,3,3,2,2,2,2,3,2,2,2,3,2,3,3,3,2,3
10105 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10106 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10110 REM___MIESTNOST 3___
10111 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10112 DATA 3,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10113 DATA 3,2,3,3,3,3,3,3,3,3,2,2,2,3,2,2,2,2,2,3,3,2,3,2,3,3,2,2,2,3
10114 DATA 3,2,3,2,2,2,2,2,2,3,2,2,2,3,2,2,2,2,2,2,3,2,3,2,3,2,2,2,2,3
10115 DATA 3,2,3,2,3,3,3,2,2,3,2,2,2,3,3,3,3,3,3,2,3,2,3,2,3,2,2,2,2,3
10116 DATA 3,2,3,2,3,2,3,2,2,3,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3,2,2,2,2,3
10117 DATA 3,2,3,2,3,2,3,2,2,3,2,2,3,3,3,3,3,2,3,2,3,2,3,2,3,2,2,2,2,3
10118 DATA 3,2,3,2,3,2,3,2,2,3,2,2,3,2,2,2,3,2,3,2,3,2,3,2,3,2,2,2,2,3
10119 DATA 3,2,3,2,3,2,3,2,2,3,2,2,3,2,2,2,3,3,3,2,3,2,3,2,3,2,2,2,2,3
10120 DATA 3,2,3,2,2,2,3,2,2,3,2,2,3,2,2,2,2,2,2,2,3,2,2,2,3,2,2,2,2,3
10121 DATA 3,2,3,3,3,3,3,2,2,3,2,2,3,2,2,2,2,2,2,2,3,3,3,3,2,2,2,2,2,3
10122 DATA 3,2,2,2,2,2,2,2,2,3,2,2,3,3,3,3,3,2,3,2,2,2,2,2,2,2,2,2,2,3
10123 DATA 3,2,2,2,2,2,2,3,3,3,2,2,2,2,2,2,3,2,3,2,2,2,2,3,2,2,2,2,2,3
10124 DATA 3,2,2,2,2,2,2,3,2,2,2,2,2,2,2,2,3,3,3,2,2,2,3,3,3,2,2,2,2,3
10125 DATA 3,2,2,3,3,2,2,3,2,2,3,3,3,3,2,2,2,2,2,2,2,3,3,3,3,3,2,2,2,3
10126 DATA 3,2,2,2,3,2,2,3,2,2,3,2,2,3,2,2,2,2,2,2,2,2,3,3,3,2,2,2,2,3
10127 DATA 3,2,3,3,3,2,2,3,3,3,3,2,2,3,2,2,3,3,3,3,2,2,2,3,2,2,2,2,2,3
10128 DATA 3,2,3,2,2,2,2,2,2,2,2,2,2,3,2,2,3,2,2,3,2,2,2,2,2,2,2,2,2,3
10129 DATA 3,2,3,2,2,2,2,2,3,3,3,3,3,3,2,2,3,2,2,3,2,2,3,3,3,3,3,3,2,3
10130 DATA 3,2,3,3,3,3,3,2,2,2,2,2,2,3,2,2,3,2,2,3,2,2,3,2,2,2,2,3,2,3
10131 DATA 3,2,2,2,2,2,3,2,3,3,3,3,3,3,2,2,3,2,2,3,2,2,3,3,2,2,3,3,2,3
10132 DATA 3,2,2,2,3,3,3,2,3,2,2,2,2,2,2,2,3,2,2,3,2,2,2,3,2,2,3,2,2,3
10133 DATA 3,2,2,2,3,2,2,2,3,2,2,2,2,2,3,3,3,2,2,3,3,3,2,3,2,2,3,2,2,3
10134 DATA 3,2,2,2,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,2,3,2,2,3
10135 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10136 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10140 REM___MIESTNOST 4___
10141 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10142 DATA 3,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10143 DATA 3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3
10144 DATA 3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3
10145 DATA 3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3
10146 DATA 3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3
10147 DATA 3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3
10148 DATA 3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3
10149 DATA 3,2,3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3,2,3
10150 DATA 3,2,3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3,2,3
10151 DATA 3,2,3,2,3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3,2,3,2,3
10152 DATA 3,2,3,2,3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3,2,3,2,3
10153 DATA 3,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3
10154 DATA 3,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3
10155 DATA 3,2,3,2,3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3,2,3,2,3
10156 DATA 3,2,3,2,3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3,2,3,2,3
10157 DATA 3,2,3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3,2,3
10158 DATA 3,2,3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3,2,3
10159 DATA 3,2,3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3,2,3
10160 DATA 3,2,3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3,2,3
10161 DATA 3,2,3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3,2,3
10162 DATA 3,2,3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3,2,3
10163 DATA 3,2,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,2,3
10164 DATA 3,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,3
10165 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10166 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10200 REM---MIESTNOST 5.___
10210 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10211 DATA 3,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10212 DATA 3,2,2,3,3,3,3,3,3,3,3,2,2,3,3,2,2,3,3,2,2,3,3,3,3,3,3,2,2,3
10213 DATA 3,2,2,3,3,3,3,3,3,3,3,2,2,3,3,2,2,3,3,2,2,3,3,3,3,3,3,2,2,3
10214 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,2,2,2,2,2,2,3
10215 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,2,2,2,2,2,2,3
10216 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,3,3,3,3,2,2,3,3,3,3,3,2,2,2,3
10217 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,3,3,3,3,2,2,3,3,3,3,3,2,2,2,3
10218 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,2,2,2,2,2,2,3
10219 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,2,2,2,2,2,2,3
10220 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,3,3,3,3,2,2,3
10221 DATA 3,2,2,2,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,2,2,3,3,3,3,3,3,2,2,3
10222 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10223 DATA 3,2,3,3,3,3,3,3,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,3,3,2,2,2,2,3
10224 DATA 3,2,3,3,3,3,3,3,2,2,3,3,3,2,2,2,2,3,3,2,2,3,3,3,3,3,2,2,2,3
10225 DATA 3,2,3,3,2,2,2,2,2,2,3,3,3,3,2,2,2,3,3,2,2,3,3,1,1,3,3,2,2,3
10226 DATA 3,2,3,3,2,2,2,2,2,2,3,3,3,3,3,2,2,3,3,2,2,3,3,1,1,1,3,3,2,3
10227 DATA 3,2,3,3,3,3,3,2,2,2,3,3,2,2,3,3,3,3,3,2,2,3,3,1,1,1,3,3,2,3
10228 DATA 3,2,3,3,2,2,2,2,2,2,3,3,2,2,2,3,3,3,3,2,2,3,3,1,1,1,3,3,2,3
10229 DATA 3,2,3,3,2,2,2,2,2,2,3,3,2,2,2,2,3,3,3,2,2,3,3,1,1,3,3,3,2,3
10230 DATA 3,2,3,3,3,3,3,3,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,3,3,3,2,2,2,3
10231 DATA 3,2,3,3,3,3,3,3,2,2,3,3,2,2,2,2,2,3,3,2,2,3,3,3,3,2,2,2,2,3
10232 DATA 3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3
10233 DATA 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3
10234 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
10235 DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
30000 FOR W=0 TO 200:BEEP W,10:NEXT W:PAPER 7:INK 0:CLEAR:PRINT AT 15,12"NARAZ !":STOP
30010 REM___PRECHOD DO DALSEJ MI.
30020 BEEP 10,10,10,10,100,100,200,200,200,200,10,10,10,10,10,80
30030 MIESTNOST=MIESTNOST+1:POCET=0
30035 IF MIESTNOST>5 THEN 32000
30040 GOTO 402
31000 PRINT AT 14,0;CHR$(31):BEEP 100,10
31001 SETCHAR 3 255,255,255,255,255,255,255,255
31003 BEEP 200,200,100,200,200,100,200,10,255,10,156,255,255,255,12,12,12,12,36,69,58,98,45,85
31005 PAPER 0:INK 7
31010 PRINT AT 15,0"VASOU ULOHOHOU JE PREJST VSETKY",AT 16,0"SEKTORY (JE ICH 5),PRICOM"
31015 PRINT AT 17,0"NESMIETE NARAZIT DO PREKAZKY."
31020 PRINT AT 19,0;CHR$(3);"-PREKAZKA"
31025 BMOVE 0,167:BPLOT P$,1:PRINT AT 21,1"-PAVUK"
31030 PAPER 7:INK 0
31035 PRINT AT 23,0"  COPYRIGHT:B.K.SOFTWARE '89 ";CHR$(2);"  "
31040 PAPER 6:INK 0
31045 PRINT AT 25,4" ALL RIGHTS RESERVED! "
31047 PAPER 0:INK 7
31050 PRINT AT 27,4" STLACTE LUB.KLAVES ! ":BEEP 100,250
31060 R=KEY:IF R<>128 THEN RETURN
31065 GOTO 31060
32000 REM *** ZAVER ***
32001 CLEAR
32002 PAPER 0:INK 7
32003 RESTORE 32050
32005 SETCHAR 1 255,129,129,153,153,129,129,255
32006 SETCHAR 2 60,66,189,161,161,189,66,60
32010 FOR I=6 TO 25:FOR J=0 TO 31:PRINT AT I,J;CHR$(1):NEXT J,I
32015 SETCHAR 1 255,255,255,255,255,255,255,255
32016 PAPER 7:INK 0
32020 FOR I=8 TO 19:FOR J=2 TO 29:PRINT AT I,J;CHR$(1):BEEP 10,1:NEXT J,I:PAPER 0:INK 7
32025 DIM Z$(13)
32030 FOR I=1 TO 10:READ W$:Z$(I)=W$:NEXT I:GOTO 32090
32050 DATA"PRESLI STE VSETKY SEKTORY!"," "
32055 DATA"BOL TO DOBRY VYKON.RAD BY"
32060 DATA"SOM SA S VAMI ZOZNAMIL!"
32065 DATA"MOJA ADRESA JE:"," "
32070 DATA"BRANISLAV KAPUSNIK"
32075 DATA"KUZMICE 173"
32080 DATA"OKRES TOPOLCANY"
32085 DATA"         955 03"
32090 GOSUB 32091:GOTO 32105
32091 FOR I=1 TO 11
32100 PRINT AT I+8,3;Z$(I):NEXT I:RETURN
32105 FOR I=21 TO 23:FOR J=1 TO 30:BEEP 30,10:PRINT AT I,J;CHR$(1):NEXT J,I
32110 PAPER 7:INK 1:PRINT AT 22,6;"B.K.SOFTWARE '89 ";CHR$(2):BEEP 100,10
32125 PAPER 0:INK 7
32130 PRINT AT 28,6"STLACTE LUB.KLAVES !"
32140 BEEP 100,100,200,100,200,10,250,10,100,200,10,255
32145 PAPER 0
32150 FOR T=2 TO 7:INK T:GOSUB 32091
32160 FOR W=0 TO 3
32165 S=KEY:IF S<>128 THEN STOP
32170 NEXT W,T:GOTO 32150

READY
POKE 80H,0C3H

READY
LIST
10 CLEAR
20 PAPER 7:INK 0
30 PRINT AT 10,15;"LOADING"
40 KLOAD $ 10

READY
POKE 80H,0C3H
 144

READY
LIST
10 CLEAR
20 PRINT"KOTESOVSKY-BRUCE LEE"
30 SCALE 0,255,0,255
40 FOR I=1 TO 255 STEP 25
50 MOVE 0,I:DRAW 255,I
60 MOVE I,0:DRAW I,255
70 NEXT I
80 PRINT"PODARILO SA TO!!!!!!!!!!!!!!!!!"

READY
POKE 80H,0C3H
 144

READY
LIST
1 CLEAR
10 REM TURISTICKY SPRIEVODCA
20 PRINT AT 1,0;"********************************"
30 PRINT AT 2,6;"TURISTICKY SPRIEVODCA "
40 PRINT AT 3,13;"* TRIBEC *"
50 BEEP 70,100
60 SCALE 0,100,0,100
70 MOVE 0,20
80 DRAW 10,30
90 DRAW 30,20
100 DRAW 40,35
110 DRAW 45,30
120 DRAW 50,29
130 DRAW 60,28
140 DRAW 65,34
150 DRAW 70,35
160 DRAW 75,27
170 DRAW 80,21
180 DRAW 90,38
190 DRAW 100,30
200 FOR A=65 TO 70
210 BEEP A,90
220 BEEP A+2,100
230 NEXT A
240 WAIT 50
250 CLEAR
260 PRINT "  TENTO PROGRAM TA OBOZNAMI S POHORIM TRIBEC A S MOZNOSTAMI TU-"
270 PRINT "RISTICKYCH VYSTUPOV NA NAJZAUJIMAVEJSIE MIESTA TOHTO POHORIA . "
280 PRINT "OBOZNAMI TA AJ S VYSKOVOU CLENITOSTOU NAJVYSSIEHO VRCHU - VEL- "
290 PRINT "KEHO TRIBCA A NAKRESLI ORIENTACNU MAPU."
300 PRINT
310 PRINT
320 PRINT
330 PRINT
340 PRINT
350 PRINT
360 PRINT
370 PRINT
380 PRINT
390 WAIT 50
400 CLEAR
410 PRINT AT 1,0;"********************************"
420 PRINT AT 3,1;"MOZNOST VOLBY:"
430 PRINT AT 5,2;"A-MAPA POHORIA"
440 PRINT AT 6,2;"B-VYSKOVA CLENITOST"
450 PRINT AT 7,2;"C-VSEOBECNE INFORMACIE"
460 PRINT
470 PRINT
480 PRINT
490 PRINT
500 BEEP 70,100
510 PRINT "STLAC PRISLUSNU KLAVESU !"
520 INPUT X$
530 IF X$="A" THEN GOSUB 1000
540 IF X$="B" THEN GOSUB 2000
550 IF X$="C" THEN GOSUB 3000
560 PRINT "STLACIL SI ZLU KLAVESU !!!"
570 BEEP 100,100
580 BEEP 200,50
590 CLEAR
600 GOTO 410
610 STOP
1000 REM MAPA
1010 CLEAR
1020 BEEP 70,100
1029 GOTO 1040
1030 GOSUB 5000
1040 CLEAR
1050 SETCHAR 1 170,85,170,85,170,85,170,85
1060 SETCHAR 2 0,0,60,60,60,60,0,0
1070 SETCHAR 3 255,255,255,255,255,255,255,255
1080 X$=CHR$ (1)
1090 Y$=CHR$ (2)
1100 Z$=CHR$ (3)
1110 FOR I=27 TO 31
1120 PRINT AT 0,I;X$
1130 NEXT I
1140 PRINT AT 1,0;"VYSVETLIVKY :"
1150 FOR J=26 TO 31
1160 PRINT AT 1,J;X$
1170 NEXT J
1180 FOR K=25 TO 31
1190 PRINT AT 2,K;X$
1200 NEXT K
1210 PRINT AT 3,0;"A-JAVOROVY VRCH"
1220 FOR L=27 TO 31
1230 PRINT AT 3,L;X$
1240 NEXT L
1250 PRINT AT 4,0;"B-HRDOVICKA"
1260 PRINT AT 4,23;X$;Z$
1270 PRINT AT 4,28;X$;X$;X$;X$
1280 PRINT AT 5,0;"B-DEKANOVA CHATA"
1290 PRINT AT 5,22;X$;X$;X$;" ";Z$
1300 PRINT AT 5,28;X$;X$;X$;X$
1310 PRINT AT 6,0;"HRUSOVSKY HRAD"
1320 PRINT AT 6,23;X$;X$
1330 FOR M=26 TO 31
1340 PRINT AT 6,M;X$;
1345 NEXT M
1350 PRINT AT 7,0;"E-VELKY TRIBEC"
1360 PRINT AT 7,21;X$;Z$
1370 FOR N=23 TO 31
1380 PRINT AT 7,N;X$
1390 NEXT N
1400 PRINT AT 8,0;"F-CIERNY HRAD"
1410 PRINT AT 8,19;Z$
1420 FOR O=21 TO 31
1430 PRINT AT 8,O;X$
1440 NEXT O
1450 PRINT AT 9,0;"G-ZUBRIA OBORA"
1460 FOR P=20 TO 24
1470 PRINT AT 9,P;X$
1480 NEXT P
1490 PRINT AT 9,25;"A";X$;X$;X$;X$;Z$;X$
1510 PRINT AT 10,0;"H-JELENEC"
1520 PRINT AT 10,17;Z$;"B";X$;"C";X$;X$;X$;X$;Y$;X$;X$;X$;X$;X$;"D"
1530 PRINT AT 11,0;"  HRAD GYMES"
1540 PRINT AT 11,18;Y$;X$;Y$
1550 FOR R=21 TO 30
1560 PRINT AT 11,R;X$
1570 NEXT R
1580 PRINT AT 11,31;Y$
1590 PRINT AT 12,0;"I-ZIBRICA"
1600 PRINT AT 12,16;Z$
1610 PRINT AT 12,18;X$;X$;"E";X$;X$;"F"
1620 FOR S=24 TO 31
1630 PRINT AT 12,S;X$
1640 NEXT S
1650 PRINT AT 13,0;"J-ZOBOR"
1660 PRINT AT 13,18;X$;X$;Y$;X$;X$;Y$
1670 FOR T=24 TO 31
1680 PRINT AT 13,T;X$
1690 NEXT T
1700 PRINT AT 14,16;Z$
1710 FOR U=17 TO 25
1720 PRINT AT 14,U;X$
1730 NEXT U
1740 PRINT AT 15,16;Z$
1750 FOR V=17 TO 23
1760 PRINT AT 15,V;X$
1770 NEXT V
1780 PRINT AT 14,26;"G";X$;X$;" ";X$;X$
1790 PRINT AT 15,24;Z$;X$;Y$;X$
1800 PRINT AT 15,31;X$
1810 FOR Z=15 TO 23
1820 PRINT AT 16,Z;X$
1830 NEXT Z
1840 PRINT AT 16,26;X$
1850 FOR A=14 TO 23
1860 PRINT AT 17,A;X$
1870 NEXT A
1880 PRINT AT 17,25;X$;X$
1890 PRINT AT 18,10;Z$
1900 FOR B=15 TO 23
1910 PRINT AT 18,B;X$
1920 NEXT B
1930 PRINT AT 19,13;Z$
1940 FOR C=15 TO 17
1950 PRINT AT 19,C;X$
1960 FOR D=19 TO 22
1970 PRINT AT 19,D;X$
1980 NEXT D
1990 PRINT AT 20,14;X$;X$;X$;"H"
2000 PRINT AT 20,20;Z$;X$
2010 PRINT AT 21,13;X$;X$;X$;X$;Y$;X$;X$
2020 PRINT AT 22,12;X$;X$;X$;" ";X$;X$
2030 PRINT AT 23,12;Z$;" ";X$
2040 PRINT AT 23,20;"LEGENDA :"
2050 PRINT AT 24,12;X$;X$;"I";" ";Z$
2060 PRINT AT 25,11;X$;"J";X$;Y$
2070 PRINT AT 25,20;X$;" LES"
2080 PRINT AT 26,10;Z$;" ";Y$;X$
2090 PRINT AT 27,11;Z$;Z$;Z$;Z$
2100 PRINT AT 27,20;Y$;" ZAUJIMAVE"
2110 PRINT AT 28,11;Z$;Z$;Z$;Z$
2120 PRINT AT 28,22;"MIESTO"
2130 PRINT AT 29,4;"NITRA"
2140 FOR E=9 TO 15
2150 PRINT AT 29,E;Z$
2160 NEXT E
2170 PRINT AT 29,20;Z$;" OBEC,MESTO"
2180 FOR F=9 TO 16
2190 PRINT AT 30,F;Z$
2200 NEXT F
2210 PRINT AT 31,10;Z$;
2220 PRINT AT 31,13;Z$;Z$;Z$
2230 WAIT 50

READY
POKE 80H,0C3H
 144

READY
LIST
1 CLEAR
10 REM TURISTICKY SPRIEVODCA
20 PRINT AT 1,0;"********************************"
30 PRINT AT 2,6;"TURISTICKY SPRIEVODCA "
40 PRINT AT 3,13;"* TRIBEC *"
50 BEEP 70,100
60 SCALE 0,100,0,100
70 MOVE 0,20
80 DRAW 10,30
90 DRAW 30,20
100 DRAW 40,35
110 DRAW 45,30
120 DRAW 50,29
130 DRAW 60,28
140 DRAW 65,34
150 DRAW 70,35
160 DRAW 75,27
170 DRAW 80,21
180 DRAW 90,38
190 DRAW 100,30
200 FOR A=65 TO 70
210 BEEP A,90
220 BEEP A+2,100
230 NEXT A
240 WAIT 50
250 CLEAR
260 PRINT "  TENTO PROGRAM TA OBOZNAMI S POHORIM TRIBEC A S MOZNOSTAMI TU-"
270 PRINT "RISTICKYCH VYSTUPOV NA NAJZAUJIMAVEJSIE MIESTA TOHTO POHORIA . "
280 PRINT "OBOZNAMI TA AJ S VYSKOVOU CLENITOSTOU NAJVYSSIEHO VRCHU - VEL- "
290 PRINT "KEHO TRIBCA A NAKRESLI ORIENTACNU MAPU."
300 PRINT
310 PRINT
320 PRINT
330 PRINT
340 PRINT
350 PRINT
360 PRINT
370 PRINT
380 PRINT
390 WAIT 50
400 CLEAR
410 PRINT AT 1,0;"********************************"
420 PRINT AT 3,1;"MOZNOST VOLBY:"
430 PRINT AT 5,2;"A-MAPA POHORIA"
440 PRINT AT 6,2;"B-VYSKOVA CLENITOST"
450 PRINT AT 7,2;"C-VSEOBECNE INFORMACIE"
460 PRINT
470 PRINT
480 PRINT
490 PRINT
500 BEEP 70,100
510 PRINT "STLAC PRISLUSNU KLAVESU !"
520 INPUT X$
530 IF X$="A" THEN GOSUB 1000
540 IF X$="B" THEN GOSUB 3000
550 IF X$="C" THEN GOSUB 3000
560 PRINT "STLACIL SI ZLU KLAVESU !!!"
570 BEEP 100,100
580 BEEP 200,50
590 CLEAR
600 GOTO 410
610 STOP
1000 REM MAPA
1010 CLEAR
1020 BEEP 70,100
1029 GOTO 1040
1030 GOSUB 5000
1040 CLEAR
1050 SETCHAR 1 170,85,170,85,170,85,170,85
1060 SETCHAR 2 0,0,60,60,60,60,0,0
1070 SETCHAR 3 255,255,255,255,255,255,255,255
1080 X$=CHR$ (1)
1090 Y$=CHR$ (2)
1100 Z$=CHR$ (3)
1110 FOR I=27 TO 31
1120 PRINT AT 0,I;X$
1130 NEXT I
1140 PRINT AT 1,0;"VYSVETLIVKY :"
1150 FOR J=26 TO 31
1160 PRINT AT 1,J;X$
1170 NEXT J
1180 FOR K=25 TO 31
1190 PRINT AT 2,K;X$
1200 NEXT K
1210 PRINT AT 3,0;"A-JAVOROVY VRCH"
1220 FOR L=27 TO 31
1230 PRINT AT 3,L;X$
1240 NEXT L
1250 PRINT AT 4,0;"B-HRDOVICKA"
1260 PRINT AT 4,23;X$;Z$
1270 PRINT AT 4,28;X$;X$;X$;X$
1280 PRINT AT 5,0;"B-DEKANOVA CHATA"
1290 PRINT AT 5,22;X$;X$;X$;" ";Z$
1300 PRINT AT 5,28;X$;X$;X$;X$
1310 PRINT AT 6,0;"HRUSOVSKY HRAD"
1320 PRINT AT 6,23;X$;X$
1330 FOR M=26 TO 31
1340 PRINT AT 6,M;X$;
1345 NEXT M
1350 PRINT AT 7,0;"E-VELKY TRIBEC"
1360 PRINT AT 7,21;X$;Z$
1370 FOR N=23 TO 31
1380 PRINT AT 7,N;X$
1390 NEXT N
1400 PRINT AT 8,0;"F-CIERNY HRAD"
1410 PRINT AT 8,19;Z$
1420 FOR O=21 TO 31
1430 PRINT AT 8,O;X$
1440 NEXT O
1450 PRINT AT 9,0;"G-ZUBRIA OBORA"
1460 FOR P=20 TO 24
1470 PRINT AT 9,P;X$
1480 NEXT P
1490 PRINT AT 9,25;"A";X$;X$;X$;X$;Z$;X$
1510 PRINT AT 10,0;"H-JELENEC"
1520 PRINT AT 10,17;Z$;"B";X$;"C";X$;X$;X$;X$;Y$;X$;X$;X$;X$;X$;"D"
1530 PRINT AT 11,0;"  HRAD GYMES"
1540 PRINT AT 11,18;Y$;X$;Y$
1550 FOR R=21 TO 30
1560 PRINT AT 11,R;X$
1570 NEXT R
1580 PRINT AT 11,31;Y$
1590 PRINT AT 12,0;"I-ZIBRICA"
1600 PRINT AT 12,16;Z$
1610 PRINT AT 12,18;X$;X$;"E";X$;X$;"F"
1620 FOR S=24 TO 31
1630 PRINT AT 12,S;X$
1640 NEXT S
1650 PRINT AT 13,0;"J-ZOBOR"
1660 PRINT AT 13,18;X$;X$;Y$;X$;X$;Y$
1670 FOR T=24 TO 31
1680 PRINT AT 13,T;X$
1690 NEXT T
1700 PRINT AT 14,16;Z$
1710 FOR U=17 TO 25
1720 PRINT AT 14,U;X$
1730 NEXT U
1740 PRINT AT 15,16;Z$
1750 FOR V=17 TO 23
1760 PRINT AT 15,V;X$
1770 NEXT V
1780 PRINT AT 14,26;"G";X$;X$;" ";X$;X$
1790 PRINT AT 15,24;Z$;X$;Y$;X$
1800 PRINT AT 15,31;X$
1810 FOR Z=15 TO 23
1820 PRINT AT 16,Z;X$
1830 NEXT Z
1840 PRINT AT 16,26;X$
1850 FOR A=14 TO 23
1860 PRINT AT 17,A;X$
1870 NEXT A
1880 PRINT AT 17,25;X$;X$
1890 PRINT AT 18,10;Z$
1900 FOR B=15 TO 23
1910 PRINT AT 18,B;X$
1920 NEXT B
1930 PRINT AT 19,13;Z$
1940 FOR C=15 TO 17
1950 PRINT AT 19,C;X$
1960 FOR D=19 TO 22
1970 PRINT AT 19,D;X$
1980 NEXT D
1990 PRINT AT 20,14;X$;X$;X$;"H"
2000 PRINT AT 20,20;Z$;X$
2010 PRINT AT 21,13;X$;X$;X$;X$;Y$;X$;X$
2020 PRINT AT 22,12;X$;X$;X$;" ";X$;X$
2030 PRINT AT 23,12;Z$;" ";X$
2040 PRINT AT 23,20;"LEGENDA :"
2050 PRINT AT 24,12;X$;X$;"I";" ";Z$
2060 PRINT AT 25,11;X$;"J";X$;Y$
2070 PRINT AT 25,20;X$;" LES"
2080 PRINT AT 26,10;Z$;" ";Y$;X$
2090 PRINT AT 27,11;Z$;Z$;Z$;Z$
2100 PRINT AT 27,20;Y$;" ZAUJIMAVE"
2110 PRINT AT 28,11;Z$;Z$;Z$;Z$
2120 PRINT AT 28,22;"MIESTO"
2130 PRINT AT 29,4;"NITRA"
2140 FOR E=9 TO 15
2150 PRINT AT 29,E;Z$
2160 NEXT E
2170 PRINT AT 29,20;Z$;" OBEC,MESTO"
2180 FOR F=9 TO 16
2190 PRINT AT 30,F;Z$
2200 NEXT F
2210 PRINT AT 31,10;Z$;
2220 PRINT AT 31,13;Z$;Z$;Z$
2230 WAIT 50
2300 RETURN
3000 REM PRIEREZ
3001 CLEAR
3010 FOR A=50 TO 60
3020 BEEP A,100
3030 BEEP A+5,A-5
3040 NEXT A
3050 CLEAR
3060 PRINT AT 2,10;"** PRIEREZ **"
3070 PRINT AT 4,7 ;"** VELKEHO TRIBCA **"
3080 FOR B=60 TO 70
3090 BEEP B,100
3100 BEEP B+5,B-5
3110 NEXT B
3120 SETCHAR 1 5,5,5,255,255,5,5,5
3125 SETCHAR 5 170,85,170,85,170,85,170,85
3126 W$=CHR$ (5)
3130 SETCHAR 2 5,5,5,5,5,5,5,5
3140 SETCHAR 3 255,255,255,34,34,34,34,34
3150 SETCHAR 4 255,255,255,0,0,0,0,0
3160 X$=CHR$ (1)
3170 Y$=CHR$ (2)
3180 Z$=CHR$ (3)
3190 Q$=CHR$ (4)
3200 PRINT AT 11,28;"829"
3210 PRINT AT 12,0;"800";X$
3220 PRINT AT 12,30;W$
3230 PRINT AT 13,0;"700";X$
3240 FOR C=26 TO 30
3250 PRINT AT 13,C;W$
3260 NEXT C
3270 PRINT AT 14,0;"600";X$
3280 FOR D=21 TO 30
3290 PRINT AT 14,D;W$
3300 NEXT D
3310 PRINT AT 15,0;"500";X$
3320 FOR E=18 TO 30
3330 PRINT AT 15,E;W$
3340 NEXT E
3350 PRINT AT 16,0;"400";X$
3360 FOR F=12 TO 30
3370 PRINT AT 16,F;W$
3380 NEXT F
3390 PRINT AT 17,0;"300";X$
3400 FOR G=5 TO 30
3410 PRINT AT 17,G;W$
3420 NEXT G
3430 PRINT AT 18,3;Y$
3440 PRINT AT 18,13;Y$
3450 PRINT AT 18,23;Y$
3460 PRINT AT 18,30;Y$
3470 FOR H=4 TO 12
3480 PRINT AT 18,H;Q$
3490 NEXT H
3500 FOR I=14 TO 22
3510 PRINT AT 18,I;Q$
3520 NEXT I
3530 FOR J=24 TO 29
3540 PRINT AT 18,J;Q$
3550 NEXT J
3560 PRINT AT 19,3;"O"
3570 PRINT AT 19,13;"1"
3580 PRINT AT 19,23;"2"
3590 PRINT AT 19,28;"2.7"
3600 PRINT AT 10,0;"VYSKA V M"
3610 PRINT AT 21,28;"KM"
3700 RETURN

READY
KLOAD $1

READY
POKE 80H,0C3H
 144

READY


READY
LIST
5 REM VARGA BORIS
10 CLEAR
40 PRINT "ZEMEPISNY TEST"
70 WAIT 50
73 GOSUB 1000
75 CLEAR
80 DIM A(30),B(30),C$(30)
90 FOR M=1 TO 30
100 READ A(M),B(M),C$(M)
110 NEXT M
120 PRINT "KOLKO MEST ? (1-30)"
130 INPUT K
140 IF K<1 OR K>30 THEN 120
150 CLEAR
160 SCALE 0,210,0,160
162 MOVE 17,138
164 FILL 120,13;1
170 MOVE 13,66
180 FOR I=1 TO 97
190 READ X,Y
200 PLOT X,Y
210 NEXT I
280 PRINT "USA"
290 FOR I=1 TO 3
300 READ X,Y
320 PRINT "."
330 NEXT I
340 R=0:G=0
350 FOR I=1 TO K
360 X=100:Y=50:PLOT X,Y,1
380 PRINT C$(I)
390 Q=INKEY
400 IF Q=255 THEN 390
410 PLOT X,Y,1
420 IF Q=J THEN X=X-1
430 IF Q=Y THEN Y=Y-1
440 IF Q=W THEN Y=Y+1
450 IF Q=L THEN X=X+1
455 IF Q=X GOTO 502
460 IF X=>209 THEN BEEP:X=X-1
470 IF X=<1 THEN BEEP:X=X+1
480 IF Y=>159 THEN BEEP:Y=Y-1
490 IF Y=<1 THEN BEEP:Y=Y+1
500 PLOT X,Y,1
501 GOTO 390
502 PRINT "*"
504 IF X=A(I) AND Y=B(I) THEN G=G+1
505 F=A(I)-X:E=B(I)-Y
506 O=4.142*INT(SQR(F^2+E^2))
510 PRINT "ODCHILKA=";INT(O);"KM"
520 IF O>R THEN R=0:W$=C$(I)
530 WAIT 50
550 PRINT C$(I)
560 NEXT I
561 CLEAR
563 PRINT "NAJVECSIA ODCHILKA:"
565 POKE-16326,192:PRINT INT(R);"KM"
566 POKE-16326,0
567 PRINT "PRI MESTE:";W$
570 PRINT "PRESNYCH URCENI:";G
575 PRINT "ESTE RAZ? (A/N)"
576 WW$=CHR$(USR(-31583)):IF WW$<>"A" AND WW$<>"N" THEN 576
577 IF WW$="N" THEN CLEAR:NEW
578 RUN 75

READY
POKE 80H,0C3H
 144

READY
LIST
10 REM ***TEST***
15 RESTORE 280
16 CLEAR :GOSUB 200
20 FOR I=1 TO 14
21 PRINT
30 READ O$,OA$,OB$,OC$,SPO$
40 PRINT O$
41 PRINT
50 PRINT OA$
60 PRINT OB$
70 PRINT OC$
71 PRINT
80 INPUT ODM$
81 IF ODM$="A" OR ODM$="B" OR ODM$="C" THEN 90
82 PRINT"_________ NEZARTUJ!__________":GOTO 80
90 IF ODM$=SPO$ THEN PRINT "SPRAVNE":BODY=BODY+1:GOTO 110
100 PRINT "NESPRAVNE,SPRAVNA ODPOVED JE ";SPO$
110 NEXT I
120 CLEAR:PRINT "CELKOVE VYHODNOTENIE"
130 PRINT :PRINT "V TESTE SI ZISKAL ";BODY;"BODOV Z CELKOVEHO MOZNEHO POCTU 15"
140 PRINT "STLAC LUBOVOLNY KLAVES"
150 A=KEY:IF A<>128 THEN STOP
160 S=TRUNC(RND*255):BEEP S,10
170 GOTO 150
200 SCALE 0,255,0,255
210 FOR I=0 TO 255 STEP 10
215 BEEP I,100
220 MOVE I,0:DRAW  255,I
230 MOVE 255,I:DRAW 255-I,255
235 MOVE 255-I,255:DRAW  0,255-I
236 MOVE 0,255-I:DRAW  I,0
240 NEXT I
250 PAPER 7:INK 0:PRINT  AT 15,11 "N.MATAVKA":PAPER 0:INK 7
260 WAIT 40:CLEAR
270 RETURN
280 REM ***DATA OTAZOK***
290 DATA "1 NAJVACSI MEDVED JE","A-MEDVED BIELY","B-MEDVED GRIZLY","C-MEDVED HNEDY","C"
300 DATA "2 CANIS LUPUS JE","A-PES","B-VLK OBYCAJNY","C-LISKA OBYCAJNA","B"
310 "3 BOLETUS RETICULATUS SCHFF JE","A-KOZAK HRABOVY","B-MASLIAK OBYCAJNY","C-HRIB DUBOVY","C"
320 DATA"4 NAJVACSI HAD JE","A-VELHAD KRALOVSKY","B-ANAKOKONDA VELKA","C-PYTON ASSALA","B"
330 DATA"5 PERCA FLUVIATILIS JE","A-OSTRIEZ","B-ZUBAC OBYCAJNY","C-SLNECNICA PESTRA","A"
340 DATA"6 MODRY KVET MA","A-NEVADZA POLNA","B-KYSLICKA OBYCAJNA","C-JAMODA OBYCAJNA","A"
350 DATA"7 SILURUS GLANIS JE","A-SUMCEK AMERICKY","B-SUMEC OBYCAJNY","C-SUMCEK CIERNOBRUCHY","B"
360 DATA"8 DRAVA RYBA JE","A-LIEN","B-KAPOR","C-ZUBAC","C"
370 DATA"9 MORSKA RYBA JE","A-LOPATKA DUHOVA","B-PLESKAC VYSOKY","C-TRESKA OBYCAJNA","C"
380 DATA"10 UIOLA TRICOLOR JE","A-KAPUSTA OBYCAJNA","B-FIALKA TROJFAREBNA","C-KALERAB","B"
390 DATA"11 HUMULUS LUPULUS JE","A-TEKVICA OBYCAJNA","B-PUPENEC POLNY","C-CHMEL OBYCAJNY","C"
400 DATA"12 NA PUSTI RASTIE","A-MLIECNIK","B-VRBKA UZKOLISTA","C-SKALNICA VYHONKATA","A"
410 DATA"13 MAKKYS JE","A-KORYTKO RYBNICNE","B-RAK RIECNY","C-MEDUZA","A"
420 DATA"14 VIRA SU","A-SINICE","B-BAKTERIE","C-VIRUSY","C"
430 DATA"15 OKOLIK MA","A-DATELINA","B-ASTRA","C-MRKVA","C"

READY
POKE 80H,0C3H
 144

READY
LIST
1 CLEAR
5 RESTORE
10 REM DAJANA PETROVICOVA
20 REM VIETE TO?-PP O1
30 REM GYMNAZIUM TOPOLCANY
40 SETCHAR 1 255,255,255,255,255,255,255,255
50 FOR I=2 TO 8:READ K:FOR M=1 TO K:READ J:PRINT AT I,J;CHR$(1):NEXT M,I
60 PRINT  AT 15,0;"DAJANA PETROVICOVA"
70 PRINT AT 18,0;"GYMNAZIUM TOPOLCANY"
80 PRINT AT 20,0;"SKOLSKY ROK 1988/89"
90 PRINT AT 25,0;"STLAC KLAVES!"
100 A=KEY:IF A<>128 THEN 120
110 GOTO 100
120 DIM OTAZKA$(10),ODA$(10),ODB$(10),ODC$(10),SPO$(10)
130 PRINT "CHVILU STRPENIA"
140 FOR I=1 TO 10:READ OTAZKA$(I),ODA$(I),ODB$(I),ODC$(I),SPO$(I):NEXT I
150 CLEAR
151 PRINT :PRINT
160 PRINT "ODPOVDAJ LEN A,B,C!"
161 WAIT 20
162 PAPER 3:INK 6:CLEAR
170 BODY=0
180 FOR I=1 TO 10
190 PRINT OTAZKA$(I)
191 PRINT
200 PRINT ODA$(I):PRINT ODB$(I):PRINT ODC$(I)
210 INPUT K$
211 IF K$="A" OR K$="B" OR K$="C" THEN BEEP 100,200:GOTO 220
212 BEEP 255,255:GOTO 210
220 IF K$=SPO$(I) THEN PRINT "SPRAVNE":BODY=BODY+1:GOTO 250
230 PRINT "NESPRAVNE-SPRAVNA ODPOVED JE ";SPO$(I)
250 NEXT I
260 CLEAR
270 PRINT "V TESTE SI OBSTAL NA";BODY*10;"PERCENT"
280 PRINT :PRINT "KONIEC"
400 REM DATA-NADPIS
410 DATA 21,0,2,4,6,7,8,10,11,12,14,15,16,20,21,22,24,25,26,29,30,31
420 DATA 11,0,2,4,6,11,14,21,24,26,28,31
431 DATA 10,0,2,4,6,11,14,21,24,26,31
440 DATA 12,0,2,4,6,7,11,14,15,21,24,26,30
450 DATA 10,0,2,4,6,11,14,21,24,26,30
460 DATA 9,0,2,4,6,11,14,21,24,26
470 DATA 14,1,4,6,7,8,11,14,15,16,21,24,25,26,30
500 REM DATA-OTAZKY***
510 DATA"1-KOLKO JE V CSSR SRNCEJ ZVERI?"
512 DATA"A-280000 KS"
513 DATA"B-380000 KS"
514 DATA"C-100000 KS"
515 DATA"A"
516 DATA"2-KTORY NAROD NA SVETE JE NAJVYSSI?"
517 DATA"A-RUMUNI"
518 DATA"B-NOVOZELANDANIA"
519 DATA"C-SLOVACI"
520 DATA"B"
521 DATA"3-O KOLKO ZVYSIA VAHU SVOJHO TELA RYBY ZA ROK?"
522 DATA"A-20 KRAT"
523 DATA"B-30 KRAT"
524 DATA"C-10 KRAT"
525 DATA"A"
526 DATA"4-KOLKO VODY SA VYPARI Z BIELEJ BREZY ZA VEGETACNE OBDOBIE?"
527 DATA "A-100L"
528 DATA "B-12L"
529 DATA "C-68L"
530 DATA "C"
531 DATA "5-CO JE MODRINA?"
532 DATA "A-VYRON KRVI POD KOZOU"
533 DATA "B-ZRAZENINA KRVI"
534 DATA "C-PRASKNUTA ZILA"
535 DATA "A"
536 DATA "6-KEDY VYHLASILI CSR ZA SOCIALISTICKE?"
537 DATA "A-1948"
538 DATA "B-1968"
539 DATA "C-1960"
540 DATA "C"
541 DATA "7-KTORA HERECKA V HOLYWODE DOSTALA PRVA ZA FILM MILION DOLAROV?"
542 DATA "A-BRIGIT BARDOT"
543 DATA "B-CLAUDIA CARDINALE"
544 DATA "C-LIZ TAYLOR"
545 DATA "C"
546 DATA "8-KOLKO VODY JE NAHROMADENEJ VO SVETOVYCH LADOVCOCH?"
547 DATA "A-100 MILIONOV KM"
548 DATA "B-29 MILIONOV KM"
549 DATA "C-10 MILIONOV KM"
550 DATA "B"
551 DATA "9-MOZE 1CM VAZIT 200 TON?"
552 DATA "A-ANO Z HVIEZDY LUYTENOVHO TRPASLIKA"
553 DATA "B-NIE JE TO VELA"
554 DATA "C-MOZNO"
555 DATA "A"
556 DATA "10-KOLKO MOSTOV VEDIE CEZ VLTAVU V PRAHE?"
557 DATA "A-21"
558 DATA "B-3"
559 DATA "C-13"
600 DATA "C"

READY
POKE 80H,0C3H
 144

READY
LIST
1 MEMEND
2 CLEAR
10 SCALE 0,200,-20,255
15 PRINT "HENRICH NEMEC-NSR"
20 PRINT "PP-01 GYMNAZIUM TO"
30 PRINT "TRIEDA 2.B":WAIT 30
40 CLEAR :GOSUB 30000 :DIM MESTO$(17),X(17),Y(17):SUCET=0
50 RESTORE
60 MOVE 90,240
70 FOR I=1 TO 158
80 READ X,Y :DRAW X,Y :NEXT I
90 N=17
110 FOR I=1 TO 17
120 READ MESTO$(I),X(I),Y(I):NEXT I
130 FOR I=1 TO 17
140 PRINT AT 28,0;MESTO$(I) "                     "
150 GOSUB 500:INK 7
160 K=ABS (X(I)-X)
170 L=ABS (Y(I)-Y)
180 M=SQR (K*K+L*L)
190 N=M*5
200 MOVE X(I),Y(I):DRAW X,Y:WAIT 20:INK 0
210 MOVE X(I),Y(I):DRAW X,Y:INK 7:BEEP 20,20
220 SUCET=SUCET+N
230 NEXT I
240 CLEAR :PAPER 0 :INK 7 :PRIEMER=SUCET/N
250 PRINT "PRIEMERNE SI SA POMYLIL O";TRUNC(PRIEMER*10);"KM"
260 PRINT
270 PRINT "CHCES ESTE SUTAZIT?"
280 PRINT "(A)-ANO"
290 PRINT "(N)-NIE"
300 A=KEY
310 IF A=97 THEN MEMEND :GOTO 1
320 IF A=110 THEN STOP
330 GOTO 300
500 X=80,Y=150 :INK 7
510 A=KEY
515 INK 7 :MOVE X,Y :DRAW X,Y
520 IF A=8 THEN INK 0 :MOVE X,Y :DRAW X,Y :X=X-1
530 IF A=24 THEN INK 0 :MOVE X,Y:DRAW X,Y :X=X+1
540 IF A=26 THEN INK 0 :MOVE X,Y:DRAW X,Y :Y=Y+1
550 IF A=11 THEN INK 0 :MOVE X,Y:DRAW X,Y :Y=Y-1
560 IF A=13 THEN RETURN
570 GOTO 510
1000 DATA 88,234,90,230,93,232,95,230,93,228,94,226,91,225,92,223,95,223,94,213,89,213,88,207
1010 DATA 85,208,85,205,83,205,83,208,82,213,76,213,66,212,62,212,70,205,68,195,66,190,62,190
1020 DATA 62,187,66,184,61,178,61,175,57,174,53,175,50,174,50,171,51,165,47,159,46,157,46,151
1030 DATA 49,147,47,145,50,143,49,141,44,137,47,130,49,129,46,123,50,116,50,114,53,113,54,114
1040 DATA 57,112,60,112,70,107,64,100,63,95,60,90,57,76,62,77,64,75,67,77,72,75,72,78
1050 DATA 70,77,71,80,85,81,75,77,77,77,77,76,80,77,81,74,84,74,90,71,93,73,95,68,96,69
1060 DATA 97,66,99,66,100,71,106,71,108,69,109,67,113,67,115,67,116,69,118,69,120,71
1070 DATA 125,71,127,69,129,72,131,71,136,72,136,68,138,67,140,69,138,74,139,77,137,80
1080 DATA 139,83,144,85,147,90,150,89,152,90,153,94,152,95,151,99,148,100,144,104,142,105
1090 DATA 136,114,134,123,131,128,130,131,125,134,121,133,118,135,117,131,115,133,110,133
1100 DATA 111,130,108,130,107,135,101,138,102,141,99,143,101,148,99,151,99,155,97,157,113,162
1110 DATA 112,166,111,167,112,171,119,172,119,182,116,189,120,190,125,188,127,190,126,193
1120 DATA 121,195,117,199,117,203,120,205,120,210,122,214,119,215,123,217,123,222,118,221
1130 DATA 114,225,112,224,109,226,112,229,110,233,108,232,106,234,101,234,95,237,92,237,90,240
3000 REM *** DATA *** MESTA ***
3010 DATA "HANNOWER",102,179
3020 DATA "FRANKFURT",82,133
3030 DATA "MNICHOV",118,83
3040 DATA "MANNHEIM",77,117
3050 DATA "KIEL",112,227
3060 DATA "KOLIN",60,152
3070 DATA "WILHEMSHAVEN",82,205
3080 DATA "MAINZ",74,129
3090 DATA "REGENSBURG",128,101
3100 DATA "NIERNBERG",114,113
3110 DATA "DUISBURG",57,164
3120 DATA "BONN",61,147
3130 DATA "BREMEN",93,196
3140 DATA "STUTGARD",85,100
3150 DATA "HAMBURG",107,204
3160 DATA "DORTMUND",69,164
3170 DATA "AUGSBURG",109,89
3190 AUTO
30000 REM *** UVOD ***
30010 PRINT "TVOJOU ULOHOU JE NAJST BODOM ","NA OBRAZOVKE POZADOVANE MESTO"
30020 PRINT "A STLACIT (CR)!"
30030 PRINT :PRINT "PO OBRAZOVKE SA CHODI SIPKAMI"
30040 PRINT :PRINT "VELA USPECHOV !!!"
30050 WAIT 100:CLEAR:RETURN

READY
POKE 80H,0C3H   H
 144

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM ___KRESLIC___
30 SCALE 0,255,0,255
40 CLEAR:GOSUB 600
45 REM___3___
50 PRINT AT 3,5"DRUHY KRESLENYCH CIAR:":BEEP 100,255
51 Y=195,Z=1,K=7
55 FOR I=0 TO 9
56 PRINT AT K,3;I:BEEP 100,100
60 FOR X=40 TO 200 STEP Z
65 BEEP 1,1
70 MOVE X,Y:PLOT X,Y:NEXT X
80 Z=Z+1,Y=Y-16,K=K+2:NEXT I
90 PRINT AT 28,8"ZVOL DRUH CIARY!"
95 BEEP 255,10
100 A=KEY
110 IF A<>128 THEN K=A:GOTO 120
115 GOTO 100
120 A$=CHR$(K):K=VAL(A$)+1:CLEAR
135 CLEAR:REM___4___
140 PRINT AT 7,8"AKY MAS MONITOR?"
144 BEEP 10,200
145 PRINT AT 12,9"C-CIERNO-BIELY"
150 PRINT AT 14,9"F-FAREBNY"
155 PRINT AT 23,6"ZADAJ DRUH MONITORA!"
156 BEEP 230,40
160 A=KEY
161 IF A=63H THEN P=0,C=7:GOTO 210
162 IF A=66H THEN 170
165 GOTO 160
170 CLEAR:    REM___5___
171 PRINT AT 2,1"K DISPOZICII MAS TIETO FARBY:":X=6:BEEP 200,9
172 RESTORE 200
173 FOR A=1 TO 8
174 READ A$:PRINT AT X,10;A$:X=X+2:BEEP 50,200:NEXT A
175 PRINT AT 23,6"ZADAJ FARBU POZADIA!":BEEP 100,100
176 A=KEY
177 IF A<>128 THEN P=A:GOTO 179
178 GOTO 176
179 IF P>=38H THEN 176
180 PRINT AT 27,7"ZADAJ FARBU CIARY!":BEEP 100,100
181 A=KEY
182 IF A<>128 THEN C=A:GOTO 184
183 GOTO 181
184 IF C>=38H THEN 181
185 S$=CHR$(P):T$=CHR$(C):P=VAL(S$),C=VAL(T$):BEEP 100,100:CLEAR
200 DATA"0-CIERNA"
201 DATA"1-MODRA"
202 DATA"2-CERVENA"
203 DATA"3-PURPUROVA"
204 DATA"4-ZELENA"
205 DATA"5-BLEDOMODRA"
206 DATA"6-ZLTA"
207 DATA"7-BIELA"
210 CLEAR:REM___6___
221 PRINT AT 7,3"ZADAJ SURADNICE ZACIATKU!":BEEP 100,255
222 PRINT AT 11,2"X-OVA JE Z INTERVALU <0,152>"
223 PRINT AT 13,2"Y-OVA JE Z INTERVALU <0,224>"
225 PRINT AT 18,12"ZADAJ X!":BEEP 10,255:INPUT X
226 PRINT AT 22,12"ZADAJ Y!":BEEP 100,255:INPUT Y:BEEP NO
240 CLEAR:REM___7___
241 PRINT AT 5,3"NASTAV VYSKU A DLZKU TONU!"
242 PRINT AT 10,10"/VYSKA TONU/"
243 PRINT AT 12,10"V-ZVYSOVANIE"
244 PRINT AT 13,10"N-ZNIZOVANIE"
245 PRINT AT 18,10"/DLZKA TONU/"
246 PRINT AT 20,9"P-PREDLZOVANIE"
247 PRINT AT 21,9"S-SKRACOVANIE"
250 PRINT AT 26,1"PO NASTAVENI TONU STLAC /ADR/"
251 V=120,D=120
255 A=KEY
256 IF A=6EH THEN GOSUB 263
257 IF A=76H THEN GOSUB 265
258 IF A=70H THEN GOSUB 267
259 IF A=73H THEN GOSUB 269
260 IF A=1BH THEN 271
261 BEEP V,D:PRINT AT 30,5;V;D
262 GOTO 255
263 IF V>240 THEN RETURN
264 V=V+10:RETURN
265 IF V<20 THEN RETURN
266 V=V-10:RETURN
267 IF D>240 THEN RETURN
268 D=D+10:RETURN
269 IF D<20 THEN RETURN
270 D=D-10:RETURN
271 CLEAR
280 REM___8___
281 O1=0:BEEP NO
282 IF O1=C OR O1=P THEN O1=O1+1:GOTO 282
283 PAPER P:CLEAR
284 A=C,B=C
285 SCALE -18,238,-18,238
290 INK O1:FOR I=1 TO 21
291 PRINT AT 1,I;CHR$(1):PRINT AT 30,I;CHR$(1):NEXT I
292 FOR I=1 TO 30
293 PRINT AT I,1;CHR$(1):PRINT AT I,21;CHR$(1):NEXT I
300 INK C
301 PRINT AT 1,23"H-HORE"
302 PRINT AT 3,23"D-DOLE"
303 PRINT AT 5,23"P-VPRAVO"
304 PRINT AT 7,23"L-VLAVO"
305 PRINT AT 9,23"1-SEVERO-":PRINT AT 10,24"-VYCHOD"
306 PRINT AT 12,23"2-JUHO-":PRINT AT 13,24"-VYCHOD"
307 PRINT AT 15,23"3-JUHO-":PRINT AT 16,24"-ZAPAD"
308 PRINT AT 18,23"4-SEVERO-":PRINT AT 19,24"-ZAPAD"
309 PRINT AT 21,23"O-PRESUN"
310 PRINT AT 23,23"Z-ZMAZ."
311 PRINT AT 25,23"K-KONIEC"
312 PRINT AT 27,23"SURADNICE"
313 PRINT AT 29,23"X:"
314 PRINT AT 30,23"Y:"
320 MOVE X,Y:PLOT X,Y:BEEP 100,255:GOSUB 400
330 Z=KEY
335 IF Z=68H THEN GOSUB 410
340 IF Z=64H THEN GOSUB 420
345 IF Z=70H THEN GOSUB 430
350 IF Z=6CH THEN GOSUB 440
355 IF Z=31H THEN GOSUB 450
360 IF Z=32H THEN GOSUB 460
365 IF Z=33H THEN GOSUB 470
370 IF Z=34H THEN GOSUB 480
375 IF Z=6FH THEN GOSUB 490
380 IF Z=7AH THEN GOSUB 500
385 IF Z=6BH THEN GOTO 510
390 GOTO 330
400 PRINT AT 29,25"     ":PRINT AT 29,25;X
401 PRINT AT 30,25"     ":PRINT AT 30,25;Y:RETURN
410 IF Y>=220 THEN RETURN
411 INK A:MOVE X,Y:PLOT X,Y:Y=Y+K:GOTO 520
420 IF Y<=0 THEN RETURN
421 INK A:MOVE X,Y:PLOT X,Y:Y=Y-K:GOTO 520
430 IF X>=149 THEN RETURN
431 INK A:MOVE X,Y:PLOT X,Y:X=X+K:GOTO 520
440 IF X<=0 THEN RETURN
441 INK A:MOVE X,Y:PLOT X,Y:X=X-K:GOTO 520
450 IF X>=149 OR Y>=220 THEN RETURN
451 INK A:MOVE X,Y:PLOT X,Y:X=X+K:Y=Y+K:GOTO 520
460 IF X>=149 OR Y<=0 THEN RETURN
461 INK A:MOVE X,Y:PLOT X,Y:X=X+K:Y=Y-K:GOTO 520
470 IF X<=0 OR Y<=0 THEN RETURN
471 INK A:MOVE X,Y:PLOT X,Y:X=X-K:Y=Y-K:GOTO 520
480 IF X<=0 OR Y>=220 THEN RETURN
481 INK A:MOVE X,Y:PLOT X,Y:X=X-K:Y=Y+K:GOTO 520
490 REM___PRESUN___
491 BEEP 10,255:BEEP 255,1
492 IF A=C AND B=C THEN A=P:B=C:BEEP 25,255:RETURN
493 A=C:B=C:BEEP 255,255:RETURN
500 REM___ZMAZ.___
501 INK P:FOR Q=2 TO 29
502 PRINT AT Q,2"                   ":BEEP 10,10:NEXT Q:RETURN
510 REM___KONIEC___
511 GOSUB 500
512 INK C:PRINT AT 14,6"DOVIDENIA!":BEEP 100,100
513 A=KEY
514 IF A<>128 THEN GOTO 10
515 GOTO 513
520 INK B:MOVE X,Y:PLOT X,Y:BEEP V,D:GOTO 400
600 REM___UVOD___
610 SETCHAR 1 255,255,255,255,255,255,255,255
620 SETCHAR 2 120,120,120,120,60,30,15,3
630 SETCHAR 3 30,30,30,30,60,120,240,192
640 SETCHAR 4 60,66,185,161,161,185,66,60
655 RESTORE 810
660 FOR A=4 TO 8
661 READ B
665 FOR K=1 TO B
667 READ M:PRINT AT A,M;CHR$(1):NEXT K,A
670 PRINT AT 2,27;CHR$(2);CHR$(3)
675 PRINT AT 11,9"ODPM TOPOLCANY"
680 PRINT AT 13,0"BRANISLAV KAPUSNIK & KOL.1989 ";CHR$(4)
690 FOR A=3 TO 28
691 PRINT AT 15,A;CHR$(1):PRINT AT 27,A;CHR$(1):NEXT A
700 FOR A=15 TO 27
705 PRINT AT A,3;CHR$(1):PRINT AT A,28;CHR$(1):NEXT A
710 MOVE 33,99
720 FOR A=1 TO 101
725 READ X,Y:DRAW X,Y-46:NEXT A
730 PRINT AT 30,0"*** STLAC LUBOVOLNU KLAVESU! ***"
734 BEEP 255,10
735 A=KEY
736 IF A<>128 THEN 740
737 GOTO 735
740 CLEAR
750 REM___2___
760 RESTORE 910
770 FOR A=1 TO 19
774 BEEP 10,10
775 READ A$:PRINT AT A,0;A$:NEXT A
780 PRINT AT 22,2"ODPM V TOPOLCANOCH VAM PRAJE"
785 PRINT AT 23,2"VELA TVORIVYCH A UZITOCNYCH"
790 PRINT AT 24,2"USPECHOV S PROGRAMOM KRESLIC!"
795 PRINT AT 26,5"TOPOLCANY 03-01-1989 ";CHR$(4)
797 PRINT AT 28,1"BRANISLAV KAPUSNIK A KOLEKTIV."
800 PRINT AT 30,0"*** STLAC LUBOVOLNU KLAVESU! ***"
801 A=KEY
802 IF A<>128 THEN CLEAR :RETURN
803 GOTO 801
810 REM___KRESLIC___
815 DATA 18,2,5,7,8,9,10,12,13,14,16,17,18,20,24,26,27,28,29
820 DATA 10,2,4,7,10,12,16,20,24,26,29
825 DATA 14,2,3,7,8,9,10,12,13,16,17,18,20,24,26
830 DATA 10,2,4,7,9,12,18,20,24,26,29
835 DATA 18,2,5,7,10,12,13,14,16,17,18,20,21,22,24,26,27,28,29
840 ___CSSR___
845 DATA 33,145,33,144,34,143,37,139,41,137,41,134,39,131,46,122
850 DATA 49,121,54,116,56,114,59,111,62,112,69,114,71,103,75,102
855 DATA 78,104,82,103,84,108,87,109,87,115,95,115,100,114,103,114
860 DATA 107,111,111,111,115,113,122,111,123,107,122,104,128,93,131,94
865 DATA 141,88,157,90,160,94,157,95,157,97,160,101,169,104,171,107,179,107
870 DATA 182,111,184,111,186,117,190,120,198,120,201,122,206,122,209,118
875 DATA 216,121,215,126,217,130,218,136,220,141,213,142,203,146,200,145
880 DATA 194,145,189,141,180,142,172,134,169,140,166,140,162,144,160,143
885 DATA 158,138,155,138,149,145,145,149,140,150,136,151,134,149
890 DATA 128,154,130,158,124,156,115,159,114,158,117,155,111,150,103,157,106,162
895 DATA 103,165,101,164,99,162,96,164,87,166,85,169,80,170,80,167,76,165,73,169
900 DATA 68,170,70,166,61,161,54,158,48,153,46,151,41,150,37,146,36,144,33,145
910 DATA" PROGRAM UMOZNUJE KRESLIT CIARY"
911 DATA"V OSMYCH SMEROCH,DALEJ UMOZNUJE"
912 DATA"KRESLENIE S ROZNYMI DRUHMI CIAR."
913 DATA"POCAS KRESLENIA JE MOZNE ZMAZAT"
914 DATA"KEDYKOLVEK OBRAZOVKU.NA KRESLEN-"
915 DATA"IE JE K DISPOZICII PLOCHA 151X"
916 DATA"223 BODOV.PRED KRESLENIM JE TRE-"
917 DATA"BA ZADAT SURADNICE ZACIATKU."
918 DATA"PRI KRESLENI JE MOZNE PRESUVAT"
919 DATA"GRAFICKY KRIZ AJ BEZ KRESLENIA,"
920 DATA"STLACENIM PISMENA O.AK ZNOVU"
921 DATA"STLACIME PISMENO O,MOZEME OPAT"
922 DATA"PRESUVAT GRAF.KRIZ Z KRESLENIM."
923 DATA"POCAS KRESLENIA JE NA OBRAZOVKE"
924 DATA"INFORMACIA O SURADNICIACH GRAF."
925 DATA"KRIZA.PROGRAM JE MOZNE POUZIVAT"
926 DATA"PRE CIERNO-BIELY A PRE FAREBNY"
927 DATA"MONITOR.PRI KRESLENI SA OZYVA"
928 DATA"TON,KTOREHO VYSKU A DLZKU MOZNO ZVOLIT."

READY
POKE 080H,0C3H
 144

READY
LIST
5 PRINT AT 14,8"PROGRAM TEDY"
6 PRINT AT 16,5"* MATO SOFTWARE *"
7 PRINT AT 18,11"C.1986":WAIT 11
9 CLEAR:GOTO 1500
10 CLEAR:DIM A(248,32),L(32)
15 GOSUB 900:GOTO 510
20 CLEAR:FOR W1=1 TO 31:PRINT AT W1,0" ":PAPER 0:NEXT W1
30 W=0:M=1:N=0:X=1:PAPER 7
35 INK 3
40 E=M:PRINT AT 0,0"POSUN KURZORA O DALSI RIADOK..1":INK 0
50 P=KEY
51 IF P=128 THEN 50
53 IF P=241 THEN 200
55 IF P=254 THEN 500
58 IF P=251 AND U=1 THEN 1222
65 GOSUB 1000
74 IF N<=1 THEN N=1
75 IF N>=32 THEN GOSUB 1240
76 IF M<=1 THEN M=1
77 IF M=249 THEN 502
78 IF X<=1 THEN X=1
80 IF X=1 THEN 85
83 W=M/31:IF W=TRUNC(W) AND M>1 THEN GOSUB 1200
85 IF X=1 THEN M=TRUNC(W)*31+1
87 IF P=26 OR P=24 OR P=11 OR P=8 THEN GOTO 1120
90 IF P<96 THEN 95
91 IF P<123 THEN 100
95 PRINT AT X,N CHR$(P);:GOTO 105
100 P=P-32:PRINT AT X,N CHR$(P);
110 A(M,N)=P:GOTO 185
185 IF M>=E THEN M=E
190 N=N+1:GOTO 50
200 N=1:M=M+1:X=X+1:PRINT AT M,N CHR$(A(M,N));:N=O:GOTO 50
300 CLEAR:PRINT AT 19,2"CHCES VYPIS AJ NA TLACIAREN ?"
302 Q=KEY:IF Q=97 THEN 306
304 IF Q=128 THEN 302
305 GOTO 310
306 PRINT AT 15,2"ZAPNI TLACIAREN , ZA 5 SEKUND START"
308 BEEP 200,250:WAIT 50:CLEAR:LPRINTER
310 M=1:FOR Q=1 TO W+1:CLEAR
311 FOR X=1 TO 31:FOR N=1 TO 31
312 IF M/2=TRUNC(M/2) AND N=31 THEN 318
314 GOTO 325
318 PRINT " "
325 Q$=CHR$(A(M,N))
330 PRINT AT X,N Q$;:GOTO 350
350 NEXT N
355 M=M+1:NEXT X
360 NEXT Q:CONSOLE
500 CLEAR:U=0
502 PRINT AT 15,10"KONIEC ZAPISU":BEEP 255,255:CLEAR:M=R
510 PRINT AT 11,2"POUZITELNE FUNKCIE"
520 PRINT AT 17,2"POSUN KURZ.O DALSI RIADOK.1"
522 PRINT AT 19,2"NAHRAVANIE Z MAGNETOFONU...2"
525 PRINT AT 21,2"ZAZNAM NA MAGNETOFON.......3"
532 PRINT AT 23,2"VYPIS TEXTU...............6"
535 PRINT AT 25,2"PISANIE TEXTU.............9"
537 PRINT AT 27,2"OPRAVA TEXTU...............11"
540 PRINT AT 29,2"KONIEC PISANIA TEXTU.......14"
600 P=KEY:IF P=246 THEN 300
612 IF P=249 THEN 20
614 IF P=246 THEN 300
615 IF P=243 THEN 800
616 IF P=242 THEN 790
618 IF P=251 THEN 780
660 GOTO 600
780 U=1:GOTO 20
790 ZU=1
800 CLEAR:PRINT AT 15,3"MAS PRIPOJENY MAGNETOFON ?":D=KEY
810 IF D<>97 THEN 800
860 DSAVE $01,A( :GOTO 890
870 DLOAD $01:ZU=0
890 CLEAR:PRINT AT 15,10"MG STOP":BEEP 100,200:WAIT 70:GOTO 15
900 FOR T1=0 TO 7:PAPER T1:CLEAR:NEXT T1:INK 0
1000 IF P=24 THEN 1010
1001 IF P=8 THEN 1020
1002 IF P=11 THEN 1030
1003 IF P=26 THEN 1040
1006 GOTO 1050
1010 N=N+1:GOTO 1050
1020 N=N-1:GOTO 1050
1030 M=M+1:X=X+1:GOTO 1050
1040 M=M-1:X=X-1:GOTO 1050
1050 RETURN
1120 REM
1122 IF A(M,N)=32 OR A(M,N)=0 THEN 1130
1125 PRINT AT X,N CHR$(A(M,N));:GOTO 1140
1130 PRINT AT X,N CHR$(32);
1140 GOTO 50
1200 CLEAR:PRINT AT 15,10 W;".STRANKA":BEEP 99,120:WAIT 7:CLEAR
1210 X=1:N=1
1215 M=M+1:RETURN
1220 U=1:CLEAR:GOTO 58
1222 FOR F=1 TO 31:PRINT AT X,F CHR$(A(M,N));
1224 PRINT AT X+1,F CHR$(A(M+1,F));:PRINT AT X+2,F CHR$(A(M+2,F));
1226 PRINT AT X+3,F CHR$(A(M+3,F));:PRINT AT X+4,F CHR$(A(M+4,F));
1228 PRINT AT X+5,F CHR$(A(M+5,F));:PRINT AT X+6,F CHR$(A(M+6,F));
1230 PRINT AT X+7,F CHR$(A(M+7,F));:PRINT AT X+8,F CHR$(A(M+8,F));
1232 PRINT AT X+7,F CHR$(A(M+7,F));:PRINT AT X+8,F CHR$(A(M+8,F));
1234 NEXT F:N=1:U=1:GOTO 65
1240 N=1:M=M+1:X=X+1:GOTO 50
1500 PRINT AT 1,0"CHCES INSTRUKCIE ?":O=KEY:IF O=97 THEN 1520
1505 IF O=128 THEN 1500
1510 GOTO 10
1520 CLEAR
1530 PRINT "TEDY=TEXTOVY EDITOR"
1540 PRINT "POMOCOU KEY-KLAVESOV 1-14 SA VOLI FUNKCIA."
1550 PRINT "FUNKCIE 1,6,11,14 SU POUZITELNE LEN PRI PISANI TEXTU"
1560 PRINT "FUNKCIE 2,3,9 POUZIVAME LEN PRI OVLADANI >TEDY<-HO"
1570 PRINT "AK CHCEME NAHRAVAT TEXT NA MG,TREBA SI PRED SPUSTENIM"
1580 PRINT "PROGRAMU URCIT DIMENZIU POLA A(M,N) ,KDE M JE"
1590 PRINT "CELKOVY POCET RIADKOV V TEXTE"
1600 PRINT "TO NAM ZABEZPECI ,ZE AK MAME MENEJ RIADKOV AKO MAX"
1610 PRINT "BUDE NAHRAVANIE TRVAT KRATSIE,AK DIMENZIU"
1620 PRINT "NEZMENIME NAHRA SA CELE POLE ,AJ NEZAPISANE RIADKY"
1630 PRINT "PRI OPRAVE TEXTU SA STLACENIM KEY-11 VYPISE VZDY"
1640 PRINT "DESAT RIADKOV TEXTU"
1650 PRINT "AK PRI PISANI PODRZIME KLAVES STLACENY,ZNAKY SA"
1660 PRINT "AUTOMATICKY VYPISUJU DALEJ.TO MOZEME ODSTRANIT"
1670 PRINT "PRIKAZOM > 64 WAIT 1 < CO SPOMALI VYPISOVANIE"
1680 PRINT "VELA TRPEZLIVOSTI VAM ZELA TEDY,BUDETE JU POTREBOVAT"
1690 PRINT "PO DOCITANI STLAC MEDZERU."
1700 PRINT "*********** GOOD LUCK ********"
1710 R=KEY:IF R=32 THEN 10
1720 GOTO 1710

READY
POKE 80H,0C3H
 144

READY
LIST
1 REM B.K.SOFTWARE 1989 (C)
10 PAPER 0:INK 7:CLEAR
20 SETCHAR 1 255,255,255,255,255,255,255,255
21 FOR I=1 TO 14:PRINT AT 1,I;CHR$(1),AT 11,I;CHR$(1),AT 13,I;CHR$(1):NEXT I
22 FOR I=1 TO 13:PRINT AT I,1;CHR$(1),AT I,14;CHR$(1):NEXT I
23 RESTORE 40
25 FOR I=3 TO 9:READ K:FOR T=1 TO K:READ J:J=J+3:PRINT AT I,J;CHR$(1):NEXT T,I
30 REM___BK___
40 DATA 5,0,1,2,5,9,4,0,3,5,8,4,0,3,5,7,5,0,1,2,5,6,4,0,3,5,7,4,0,3,5,8,5,0,1,2,5,9
50 PRINT AT 12,4;"SOFTWARE",AT 15,1;"TOPOLCANY-1989"
58 RESTORE 32730
60 FOR I=1 TO 240:READ X:Z$=Z$+CHR$(X):NEXT I:BEEP 100,100
61 RESTORE 70
65 FOR I=17 TO 21:READ K:FOR T=1 TO K:READ J:PRINT AT I,J;CHR$(1):NEXT T,I
69 REM___PP 01___
70 DATA 10,0,1,2,4,5,6,9,10,11,15,8,0,2,4,6,9,11,14,15,10,0,1,2,4,5,6,9,11,13,15
71 DATA 5,0,4,9,11,15,6,0,4,9,10,11,15
32730 DATA 127,255,255,255,254,64,0,0,0,2,64,0,36,0,2,64,0,60,0,2,64,0,60,0,2,64,0,60,0,2
32731 DATA 64,0,60,0,2,71,255,255,255,226,67,255,255,255,194,67,255,255,255,194
32732 DATA 64,0,60,0,2,64,0,60,0,2,64,0,60,0,2
32733 DATA 64,0,60,0,2,64,16,60,0,2,64,56,60,0,2,65,255,60,0,2,64,254,60,6,2,64,124,60,31,130
32734 DATA 64,254,60,57,194,65,255,60,96,98,64,56,60,128,18,64,16,60,0,2,64,0,60,0,2
32735 DATA 64,0,60,0,2,64,0,60,0,2,71,255,255,255,226,67,255,255,255,194,35,255,255,255,196
32736 DATA 39,255,255,255,228,16,0,60,0,8,16,0,60,0,8,8,0,60,0,8,4,0,60,0,32,2,0,36,0,64
32737 DATA 1,0,0,0,128,0,128,0,1,0,0,64,0,2,0,0,32,0,4,0,0,16,0,8,0,0,8,0,16,0,0,4,0,32,0
32738 DATA 0,2,0,64,0,0,1,0,128,0,0,0,129,0,0,0,0,66,0,0,0,0,36,0,0,0,0,24,0,0

READY
POKE 80H,0C3H
 144

READY
LIST
1 REM B.K.SOFTWARE 1989 (C)
10 PAPER 0:INK 7:CLEAR
20 SETCHAR 1 255,255,255,255,255,255,255,255
21 FOR I=1 TO 14:PRINT AT 1,I;CHR$(1),AT 11,I;CHR$(1),AT 13,I;CHR$(1):NEXT I
22 FOR I=1 TO 13:PRINT AT I,1;CHR$(1),AT I,14;CHR$(1):NEXT I
23 RESTORE 40
25 FOR I=3 TO 9:READ K:FOR T=1 TO K:READ J:J=J+3:PRINT AT I,J;CHR$(1):NEXT T,I
30 REM___BK___
40 DATA 5,0,1,2,5,9,4,0,3,5,8,4,0,3,5,7,5,0,1,2,5,6,4,0,3,5,7,4,0,3,5,8,5,0,1,2,5,9
50 PRINT AT 12,4;"SOFTWARE",AT 15,1;"TOPOLCANY-1989"
58 RESTORE 81
60 FOR I=1 TO 240:READ X:Z$=Z$+CHR$(X):NEXT I:BEEP 100,100
61 RESTORE 70
65 FOR I=17 TO 21:READ K:FOR T=1 TO K:READ J:PRINT AT I,J;CHR$(1):NEXT T,I
69 REM___PP 01___
70 DATA 10,0,1,2,4,5,6,9,10,11,15,8,0,2,4,6,9,11,14,15,10,0,1,2,4,5,6,9,11,13,15
71 DATA 5,0,4,9,11,15,6,0,4,9,10,11,15
80 REM___ZNAK DATA___
81 DATA 127,255,255,255,254,64,0,0,0,2,64,0,36,0,2,64,0,60,0,2,64,0,60,0,2,64,0,60,0,2
82 DATA 64,0,60,0,2,71,255,255,255,226,67,255,255,255,194,67,255,255,255,194
83 DATA 64,0,60,0,2,64,0,60,0,2,64,0,60,0,2
84 DATA 64,0,60,0,2,64,16,60,0,2,64,56,60,0,2,65,255,60,0,2,64,254,60,6,2,64,124,60,31,130
85 DATA 64,254,60,57,194,65,255,60,96,98,64,56,60,128,18,64,16,60,0,2,64,0,60,0,2
86 DATA 64,0,60,0,2,64,0,60,0,2,71,255,255,255,226,67,255,255,255,194,35,255,255,255,196
87 DATA 39,255,255,255,228,16,0,60,0,8,16,0,60,0,8,8,0,60,0,8,4,0,60,0,32,2,0,36,0,64
88 DATA 1,0,0,0,128,0,128,0,1,0,0,64,0,2,0,0,32,0,4,0,0,16,0,8,0,0,8,0,16,0,0,4,0,32,0
89 DATA 0,2,0,64,0,0,1,0,128,0,0,0,129,0,0,0,0,66,0,0,0,0,36,0,0,0,0,24,0,0

READY
POKE 80H,0C3H
 144

READY
LIST
1 REM B.K.SOFTWARE 1989 (C)
2 Z$="":D=21,V=24:K=1
10 PAPER 0:INK 7:CLEAR
20 SETCHAR 1 255,255,255,255,255,255,255,255
21 FOR I=1 TO 14:PRINT AT 1,I;CHR$(1),AT 11,I;CHR$(1),AT 13,I;CHR$(1):NEXT I
22 FOR I=1 TO 13:PRINT AT I,1;CHR$(1),AT I,14;CHR$(1):NEXT I
23 RESTORE 40
25 FOR I=3 TO 9:READ K:FOR T=1 TO K:READ J:J=J+3:PRINT AT I,J;CHR$(1):NEXT T,I
30 REM___BK___
40 DATA 5,0,1,2,5,9,4,0,3,5,8,4,0,3,5,7,5,0,1,2,5,6,4,0,3,5,7,4,0,3,5,8,5,0,1,2,5,9
50 PRINT AT 12,4;"SOFTWARE",AT 15,1;"TOPOLCANY-1989"
58 RESTORE 81
60 FOR I=1 TO 240:READ X:Z$=Z$+CHR$(X):NEXT I:BEEP 100,100
61 RESTORE 70
65 FOR I=17 TO 21:READ K:FOR T=1 TO K:READ J:PRINT AT I,J;CHR$(1):NEXT T,I
66 PAPER 7:INK 0:PRINT AT 23,1;"S-START",AT 25,1;"K-KOPIROVANIE":PAPER 0:INK 7
67 FOR I=1 TO 25:PRINT AT I,18;CHR$(1),AT I,28;CHR$(1):NEXT I
68 FOR I=18 TO 28:PRINT AT 1,I;CHR$(1),AT 25,I;CHR$(1):NEXT I
69 REM___PP 01___
70 DATA 10,0,1,2,4,5,6,9,10,11,15,8,0,2,4,6,9,11,14,15,10,0,1,2,4,5,6,9,11,13,15
71 DATA 5,0,4,9,11,15,6,0,4,9,10,11,15
80 REM___ZNAK DATA___
81 DATA 127,255,255,255,254,64,0,0,0,2,64,0,36,0,2,64,0,60,0,2,64,0,60,0,2,64,0,60,0,2
82 DATA 64,0,60,0,2,71,255,255,255,226,67,255,255,255,194,67,255,255,255,194
83 DATA 64,0,60,0,2,64,0,60,0,2,64,0,60,0,2
84 DATA 64,0,60,0,2,64,16,60,0,2,64,56,60,0,2,65,255,60,0,2,64,254,60,6,2,64,124,60,31,130
85 DATA 64,254,60,57,194,65,255,60,96,98,64,56,60,128,18,64,16,60,0,2,64,0,60,0,2
86 DATA 64,0,60,0,2,64,0,60,0,2,71,255,255,255,226,67,255,255,255,194,35,255,255,255,196
87 DATA 39,255,255,255,228,16,0,60,0,8,16,0,60,0,8,8,0,60,0,8,4,0,60,0,32,2,0,36,0,64
88 DATA 1,0,0,0,128,0,128,0,1,0,0,64,0,2,0,0,32,0,4,0,0,16,0,8,0,0,8,0,16,0,0,4,0,32,0
89 DATA 0,2,0,64,0,0,1,0,128,0,0,0,129,0,0,0,0,66,0,0,0,0,36,0,0,0,0,24,0,0
90 GOTO 100
92 A=KEY:BEEP 1,1
93 REM*** START ****
94 REM*** KOPIROVANIE ***
95 RETURN
100 REM --- DOLE ---
105 GOSUB 92
110 INK 7:BMOVE D,V:BPLOT Z$,5
120 INK 0:BMOVE D,V:BPLOT Z$,5
125 V=V+K:IF V>148 THEN BEEP 200,5:GOTO 150
126 GOTO 105
150 REM___HORE___
152 GOSUB 92
155 INK 7:BMOVE D,V:BPLOT Z$,5
157 INK 0:BMOVE D,V:BPLOT Z$,5
159 V=V-K:IF V<24 THEN BEEP 200,5:GOTO 105
160 GOTO 152

READY
POKE 80H,0C3H
 144

READY
LIST
1 REM B.K.SOFTWARE 1989 (C)
2 Z$="":D=21,V=24:K=1
10 PAPER 0:INK 7:CLEAR
18 SETCHAR 3 255,89,98,78,99,77,91,255
19 SETCHAR 2 255,253,69,65,45,98,98,255
20 SETCHAR 1 255,255,255,255,255,255,255,255
21 FOR I=1 TO 14:PRINT AT 1,I;CHR$(2),AT 11,I;CHR$(2),AT 13,I;CHR$(2):NEXT I
22 FOR I=1 TO 13:PRINT AT I,1;CHR$(2),AT I,14;CHR$(2):NEXT I
23 RESTORE 40
25 FOR I=3 TO 9:READ K:FOR T=1 TO K:READ J:J=J+3:PRINT AT I,J;CHR$(1):NEXT T,I
30 REM___BK___
40 DATA 5,0,1,2,5,9,4,0,3,5,8,4,0,3,5,7,5,0,1,2,5,6,4,0,3,5,7,4,0,3,5,8,5,0,1,2,5,9
50 PRINT AT 12,4;"SOFTWARE",AT 15,1;"TOPOLCANY-1989"
58 RESTORE 81
60 FOR I=1 TO 240:READ X:Z$=Z$+CHR$(X):NEXT I:BEEP 100,100
61 RESTORE 70
65 FOR I=17 TO 21:READ K:FOR T=1 TO K:READ J:PRINT AT I,J;CHR$(1):NEXT T,I
66 PAPER 7:INK 0:PRINT AT 23,1;"S-START",AT 25,1;"K-KOPIROVANIE":PAPER 0:INK 7
67 FOR I=1 TO 25:PRINT AT I,18;CHR$(3),AT I,28;CHR$(3):NEXT I
68 FOR I=18 TO 28:PRINT AT 1,I;CHR$(3),AT 25,I;CHR$(3):NEXT I
69 REM___PP 01___
70 DATA 10,0,1,2,4,5,6,9,10,11,15,8,0,2,4,6,9,11,14,15,10,0,1,2,4,5,6,9,11,13,15
71 DATA 5,0,4,9,11,15,6,0,4,9,10,11,15
80 REM___ZNAK DATA___
81 DATA 127,255,255,255,254,64,0,0,0,2,64,0,36,0,2,64,0,60,0,2,64,0,60,0,2,64,0,60,0,2
82 DATA 64,0,60,0,2,71,255,255,255,226,67,255,255,255,194,67,255,255,255,194
83 DATA 64,0,60,0,2,64,0,60,0,2,64,0,60,0,2
84 DATA 64,0,60,0,2,64,16,60,0,2,64,56,60,0,2,65,255,60,0,2,64,254,60,6,2,64,124,60,31,130
85 DATA 64,254,60,57,194,65,255,60,96,98,64,56,60,128,18,64,16,60,0,2,64,0,60,0,2
86 DATA 64,0,60,0,2,64,0,60,0,2,71,255,255,255,226,67,255,255,255,194,35,255,255,255,196
87 DATA 39,255,255,255,228,16,0,60,0,8,16,0,60,0,8,8,0,60,0,8,4,0,60,0,32,2,0,36,0,64
88 DATA 1,0,0,0,128,0,128,0,1,0,0,64,0,2,0,0,32,0,4,0,0,16,0,8,0,0,8,0,16,0,0,4,0,32,0
89 DATA 0,2,0,64,0,0,1,0,128,0,0,0,129,0,0,0,0,66,0,0,0,0,36,0,0,0,0,24,0,0
90 GOTO 100
92 A=KEY:BEEP 1,1
93 REM*** START ****
94 REM*** KOPIROVANIE ***
95 RETURN
100 REM --- DOLE ---
105 GOSUB 92
110 INK 7:BMOVE D,V:BPLOT Z$,5
120 INK 0:BMOVE D,V:BPLOT Z$,5
125 V=V+K:IF V>148 THEN BEEP 200,5:GOTO 150
126 GOTO 105
150 REM___HORE___
152 GOSUB 92
155 INK 7:BMOVE D,V:BPLOT Z$,5
157 INK 0:BMOVE D,V:BPLOT Z$,5
159 V=V-K:IF V<24 THEN BEEP 200,5:GOTO 105
160 GOTO 152

READY
POKE 80H,0C3H
 144

READY
LIST
1 SETCHAR 1 255,255,255,255,255,255,255,255
2 SETCHAR 2 0,0,0,24,24,0,0,0
5 CLEAR
6 M=1:X=2:Y=16:POC=0
7 INK 2
10 N=28
20 DIM A$(N)
30 FOR I=1 TO N:READ E$:A$(I)=E$:NEXT I
40 FOR I=1 TO N:FOR J=1 TO LEN(A$(I))
45 PRINT AT I,J;CHR$(2)
50 IF MID$(A$(I),J,1)="1" THEN PRINT AT I,J;CHR$(1)
55 IF MID$(A$(I),J,1)="0" THEN POC=POC+1
60 NEXT J,I
65 INK 7
70 PRINT AT 29,1"MIESTNOST:";M
80 P$=CHR$(60)+CHR$(126)+CHR$(247)+CHR$(252)+CHR$(252)+CHR$(255)+CHR$(126)+CHR$(60)
81 L$=CHR$(60)+CHR$(126)+CHR$(239)+CHR$(63)+CHR$(63)+CHR$(255)+CHR$(126)+CHR$(60)
82 H$=CHR$(36)+CHR$(102)+CHR$(255)+CHR$(223)+CHR$(255)+CHR$(255)+CHR$(126)+CHR$(60)
83 D$=CHR$(60)+CHR$(126)+CHR$(255)+CHR$(255)+CHR$(251)+CHR$(255)+CHR$(102)+CHR$(36)
90 BMOVE X,Y:BPLOT P$,1
100 A=KEY
110 IF A<>128 THEN 600
115 GOTO 100
200 REM_____VPRAVO_____
210 IF MID$(A$(TRUNC(Y/8)),X,1)="1" THEN GOTO 500
220 IF MID$(A$(TRUNC(Y/8)),X,1)="0" THEN POC=POC-1:PRINT AT 29,15"POCET:";POC
224 IF MID$(A$(TRUNC(Y/8)),X,1)="1" THEN GOTO 500
225 BEEP 100,1
230 INK 0:BMOVE X,Y:BPLOT P$,1:X=X+1:INK 7:BMOVE X,Y:BPLOT P$,1
250 RETURN
300 REM___VLAVO___
310 IF MID$(A$(TRUNC(Y/8)),X,1)="1" THEN GOTO 500
320 IF MID$(A$(TRUNC(Y/8)),X,1)="0" THEN POC=POC-1:PRINT AT 29,15"POCET:";POC
324 IF MID$(A$(TRUNC(Y/8)),X,1)="1" THEN GOTO 500
325 BEEP 100,1
330 INK 0:BMOVE X,Y:BPLOT L$,1:X=X-1:INK 7:BMOVE X,Y:BPLOT L$,1
350 RETURN
500 REM ___ZRAZKA____
510 BEEP 255,255,255,255:PRINT"ZRAZKA"
600 REM___TESTOVANIE___
610 A=KEY
620 IF A=24 THEN GOSUB 200
630 IF A=8 THEN GOSUB 300
650 GOTO 610
1000 DATA"11111111111111111111111111111111"
1010 DATA"1000000000000000000000000000001"
1020 DATA"11010100101111111010101010101011"
1030 DATA"11010000101010101101101010101001"
1040 DATA"10000000000000000000000000000001"
1050 DATA"10000000000000000000000000000001"
1060 DATA"10010111011110010100110110101001"
1070 DATA"10000000000000000000000000000001"
1080 DATA"10000000000000000000000000000001"
1090 DATA"10000000000000000000000000000001"
2000 DATA"10101111010101010110010101010101"
2010 DATA"10100100111111111111010101010101"
2020 DATA"10101011111100101010101011000111"
2030 DATA"11101000000010110101010101010011"
2040 DATA"11111111111111111111011111110111"
2050 DATA"10101101010011111111010101111101"
2060 DATA"10100101111111010101010101010101"
2070 DATA"10001010010111110101010101010101"
2080 DATA"10000000000000000000000000000001"
2090 DATA"10000000000000000000000000000001"
3000 DATA"11110101010101010101010101010101"
3010 DATA"10000000000000000000000000000001"
3020 DATA"10000000000000000000000000000001"
3030 DATA"10000000000000000000000000000001"
3040 DATA"10000000000000000000000000000001"
3050 DATA"11111111111111111110111111111111"
3060 DATA"10000000000000000000000000000001"
3070 DATA"11111111111111111111111111111111"

READY
POKE 80H,0C3H
 144

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM PAVUK-PP 01
30 PAPER 0:INK 7:CLEAR:SETCHAR 1 255,255,255,255,255,255,255,255
31 SETCHAR 2 60,66,185,161,161,185,66,60
40 PAPER 7:INK 0:FOR I=0 TO 9:PRINT AT I,0"                                ":NEXT I
50 RESTORE 100
60 FOR I=1 TO 8:READ B:FOR J=1 TO B:READ C:PRINT AT I,C;CHR$(1):NEXT J,I
62 PRINT AT 11,7"B.K.SOFTWARE'89":PAPER 7:INK 0:M$="",B$=""
64 A$="32664675658085837873753238326746457968807732847980797667657889"
65 P$=CHR$(24)+CHR$(219)+CHR$(60)+CHR$(231)+CHR$(60)+CHR$(255)+CHR$(60)+CHR$(219)
66 FOR I=1 TO LEN(A$) STEP 2:R$=MID$(A$,I,2):C=VAL(R$):B$=B$+CHR$(C):NEXT I
67 M$=CHR$(2)+B$:PAPER 2:INK 7
70 FOR I=1 TO LEN(M$):BEEP 100,100
72 PRINT AT 13,I-1;MID$(M$,I,1):NEXT I:PAPER 7:INK 0
75 FOR I=17 TO 21:PRINT AT I,3"                          ":NEXT I
76 PRINT AT 18,10"S-START",AT 20,10"K-KOPIROVANIE":PAPER 0:INK 7
78 PRINT AT 23,11"OVLADANIE:"
80 BMOVE 15,216:BPLOT P$,1
82 SETCHAR 3 0,0,24,60,90,24,24,0
84 SETCHAR 4 0,24,24,90,60,24,0,0
86 SETCHAR 5 0,16,8,124,124,8,16,0
88 SETCHAR 6 0,8,16,62,62,16,8,0
90 PRINT AT 27,14;CHR$(6),AT 26,15;CHR$(3),AT 27,16;CHR$(5),AT 28,15;CHR$(4)
91 BEEP 100,100:PAPER 0:INK 7:SETCHAR 5 255,207,191,129,129,191,207,255
92 SETCHAR 6 255,243,253,129,129,253,243,255
94 PRINT AT 27,13;CHR$(5),AT 27,17;CHR$(6):PAPER 7:INK 0:PRINT AT 25,15"Q",AT 29,15"Y"
95 PAPER 0:INK 7
100 DATA 6,1,2,3,4,22,25,4,1,5,21,25,12,1,5,8,9,10,11,13,17,19,23,25,30
101 DATA 12,1,2,3,4,7,11,13,17,19,23,25,29,9,1,7,11,13,17,19,23,25,28
102 DATA 9,1,7,11,13,17,19,23,25,27,10,1,7,11,14,16,19,23,25,26,28,12,1,8,9,10,11,12,15,20,21,22
103 DATA 25,29
110 REM START/COPY**************

READY
POKE 80H,0C3H
 144

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM PAVUK-PP 01
30 PAPER 0:INK 7:CLEAR:SETCHAR 1 255,255,255,255,255,255,255,255
31 SETCHAR 2 60,66,185,161,161,185,66,60
32 BEEP NO
40 PAPER 7:INK 0:FOR I=0 TO 9:PRINT AT I,0"                                ":NEXT I
50 RESTORE 100
60 FOR I=1 TO 8:READ B:FOR J=1 TO B:READ C:PRINT AT I,C;CHR$(1):NEXT J,I
62 PRINT AT 11,7"B.K.SOFTWARE'89":PAPER 7:INK 0:M$="",B$=""
64 A$="32664675658085837873753238326746457968807732847980797667657889"
65 P$=CHR$(24)+CHR$(219)+CHR$(60)+CHR$(231)+CHR$(60)+CHR$(255)+CHR$(60)+CHR$(219)
66 FOR I=1 TO LEN(A$) STEP 2:R$=MID$(A$,I,2):C=VAL(R$):B$=B$+CHR$(C):NEXT I
67 M$=CHR$(2)+B$:PAPER 2:INK 7
70 FOR I=1 TO LEN(M$):BEEP 100,100
72 PRINT AT 13,I-1;MID$(M$,I,1):NEXT I:PAPER 7:INK 0
75 FOR I=17 TO 21:PRINT AT I,3"                          ":NEXT I
76 PRINT AT 18,10"S-START",AT 20,10"K-KOPIROVANIE":PAPER 0:INK 7
78 PRINT AT 23,11"OVLADANIE:"
80 BMOVE 15,216:BPLOT P$,1
82 SETCHAR 3 0,0,24,60,90,24,24,0
84 SETCHAR 4 0,24,24,90,60,24,0,0
86 SETCHAR 5 0,16,8,124,124,8,16,0
88 SETCHAR 6 0,8,16,62,62,16,8,0
90 PRINT AT 27,14;CHR$(6),AT 26,15;CHR$(3),AT 27,16;CHR$(5),AT 28,15;CHR$(4)
91 BEEP 100,100:PAPER 0:INK 7:SETCHAR 5 255,207,191,129,129,191,207,255
92 SETCHAR 6 255,243,253,129,129,253,243,255
94 PRINT AT 27,13;CHR$(5),AT 27,17;CHR$(6):PAPER 7:INK 0:PRINT AT 25,15"Q",AT 29,15"Y"
95 PAPER 0:INK 7
100 DATA 6,1,2,3,4,22,25,4,1,5,21,25,12,1,5,8,9,10,11,13,17,19,23,25,30
101 DATA 12,1,2,3,4,7,11,13,17,19,23,25,29,9,1,7,11,13,17,19,23,25,28
102 DATA 9,1,7,11,13,17,19,23,25,27,10,1,7,11,14,16,19,23,25,26,28,12,1,8,9,10,11,12,15,20,21,22
103 DATA 25,29
110 REM START/COPY**************
120 FOR I=1 TO 30:INK 7:BMOVE I,120:BPLOT P$,1
125 BEEP I,10:WAIT 2
130 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
140 IF A=107 THEN 250
160 NEXT I
170 FOR I=30 TO 1 STEP -1:INK 7:BMOVE I,120:BPLOT P$,1
175 BEEP I,10:WAIT 2
180 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
190 IF A=107 THEN 250
210 NEXT I
220 GOTO 120
250 REM ***** COPY *****
260 PAPER 7:INK 0
261 GOSUB 280
270 PRINT AT 19,3"ZADAJTE CISLO ZAZNAMU!";:INPUT CZ:GOSUB 280
275 IF CZ<1 OR CZ>79 THEN 260
276 GOTO 283
280 FOR I=17 TO 21:BEEP 10,10:PRINT AT I,3"                          ":NEXT I:RETURN
283 GOSUB 280
285 PRINT AT 18,4"PRIPRAVTE MAGNETOFON",AT 20,4"A STLACTE LUB. KLAVES!"
286 A=KEY:IF A<>128 THEN 290
287 GOTO 286
290 A$="NAHRAVAM POD CISLOM"
291 GOSUB 280
300 PRINT AT 18,3"**************************",AT 20,3"**************************"
310 FOR I=1 TO LEN(A$):PRINT AT 19,I+3;MID$(A$,I,1);
320 BEEP 10,200:NEXT I:PRINT AT 19,23;CZ
330 KSAVE $ CZ
340 BEEP 200,100:GOSUB 280
350 FOR I=1 TO 10
360 INK 0:PRINT AT 19,12"MG.STOP!":BEEP 200,100
370 INK 7:PRINT AT 19,12"MG.STOP!":NEXT I:INK 7
371 GOSUB 280:BEEP 200,200,100,255
380 GOTO 120
400 REM ***** START *****

READY
POKE 80H,0C3H
 144

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM PAVUK-PP 01
30 PAPER 0:INK 7:CLEAR:SETCHAR 1 255,255,255,255,255,255,255,255
31 SETCHAR 2 60,66,185,161,161,185,66,60
32 BEEP NO
40 PAPER 7:INK 0:FOR I=0 TO 9:PRINT AT I,0"                                ":NEXT I
50 RESTORE 100
60 FOR I=1 TO 8:READ B:FOR J=1 TO B:READ C:PRINT AT I,C;CHR$(1):NEXT J,I
62 PRINT AT 11,7"B.K.SOFTWARE'89":PAPER 7:INK 0:M$="",B$=""
64 A$="32664675658085837873753238326746457968807732847980797667657889"
65 P$=CHR$(24)+CHR$(219)+CHR$(60)+CHR$(231)+CHR$(60)+CHR$(255)+CHR$(60)+CHR$(219)
66 FOR I=1 TO LEN(A$) STEP 2:R$=MID$(A$,I,2):C=VAL(R$):B$=B$+CHR$(C):NEXT I
67 M$=CHR$(2)+B$:PAPER 2:INK 7
70 FOR I=1 TO LEN(M$):BEEP 100,100
72 PRINT AT 13,I-1;MID$(M$,I,1):NEXT I:PAPER 7:INK 0
75 FOR I=17 TO 21:PRINT AT I,3"                          ":NEXT I
76 PRINT AT 18,10"S-START",AT 20,10"K-KOPIROVANIE":PAPER 0:INK 7
78 PRINT AT 23,11"OVLADANIE:"
80 BMOVE 15,216:BPLOT P$,1
82 SETCHAR 3 0,0,24,60,90,24,24,0
84 SETCHAR 4 0,24,24,90,60,24,0,0
86 SETCHAR 5 0,16,8,124,124,8,16,0
88 SETCHAR 6 0,8,16,62,62,16,8,0
90 PRINT AT 27,14;CHR$(6),AT 26,15;CHR$(3),AT 27,16;CHR$(5),AT 28,15;CHR$(4)
91 BEEP 100,100:PAPER 0:INK 7:SETCHAR 5 255,207,191,129,129,191,207,255
92 SETCHAR 6 255,243,253,129,129,253,243,255
94 PRINT AT 27,13;CHR$(5),AT 27,17;CHR$(6):PAPER 7:INK 0:PRINT AT 25,15"Q",AT 29,15"Y"
95 PAPER 0:INK 7
100 DATA 6,1,2,3,4,22,25,4,1,5,21,25,12,1,5,8,9,10,11,13,17,19,23,25,30
101 DATA 12,1,2,3,4,7,11,13,17,19,23,25,29,9,1,7,11,13,17,19,23,25,28
102 DATA 9,1,7,11,13,17,19,23,25,27,10,1,7,11,14,16,19,23,25,26,28,12,1,8,9,10,11,12,15,20,21,22
103 DATA 25,29
110 REM START/COPY**************
120 FOR I=1 TO 30:INK 7:BMOVE I,120:BPLOT P$,1
125 BEEP I,10:WAIT 2
130 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
140 IF A=107 THEN 250
160 NEXT I
170 FOR I=30 TO 1 STEP -1:INK 7:BMOVE I,120:BPLOT P$,1
175 BEEP I,10:WAIT 2
180 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
190 IF A=107 THEN 250
210 NEXT I
220 GOTO 120
250 REM ***** COPY *****
260 PAPER 7:INK 0
261 GOSUB 280
270 PRINT AT 19,3"ZADAJTE CISLO ZAZNAMU!";:INPUT CZ:GOSUB 280
275 IF CZ<1 OR CZ>79 THEN 260
276 GOTO 283
280 FOR I=17 TO 21:BEEP 10,10:PRINT AT I,3"                          ":NEXT I:RETURN
283 GOSUB 280
285 PRINT AT 18,4"PRIPRAVTE MAGNETOFON",AT 20,4"A STLACTE LUB. KLAVES!"
286 A=KEY:IF A<>128 THEN 290
287 GOTO 286
290 A$="NAHRAVAM POD CISLOM"
291 GOSUB 280
300 PRINT AT 18,3"**************************",AT 20,3"**************************"
310 FOR I=1 TO LEN(A$):PRINT AT 19,I+3;MID$(A$,I,1);
320 BEEP 10,200:NEXT I:PRINT AT 19,23;CZ
330 KSAVE $ CZ
340 BEEP 200,100:GOSUB 280
350 FOR I=1 TO 10
360 INK 0:PRINT AT 19,12"MG.STOP!":BEEP 200,100:WAIT 5
370 INK 7:PRINT AT 19,12"MG.STOP!":NEXT I:INK 7
371 GOSUB 280:BEEP 200,200,100,255
380 GOTO 110
400 REM ***** START *****

READY
POKE 80H,0C3H
 144

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM PAVUK-PP 01
30 PAPER 0:INK 7:CLEAR:SETCHAR 1 255,255,255,255,255,255,255,255
31 SETCHAR 2 60,66,185,161,161,185,66,60
32 BEEP NO
40 PAPER 7:INK 0:FOR I=0 TO 9:PRINT AT I,0"                                ":NEXT I
50 RESTORE 100
60 FOR I=1 TO 8:READ B:FOR J=1 TO B:READ C:PRINT AT I,C;CHR$(1):NEXT J,I
62 PRINT AT 11,7"B.K.SOFTWARE'89":PAPER 7:INK 0:M$="",B$=""
64 A$="32664675658085837873753238326746457968807732847980797667657889"
65 P$=CHR$(24)+CHR$(219)+CHR$(60)+CHR$(231)+CHR$(60)+CHR$(255)+CHR$(60)+CHR$(219)
66 FOR I=1 TO LEN(A$) STEP 2:R$=MID$(A$,I,2):C=VAL(R$):B$=B$+CHR$(C):NEXT I
67 M$=CHR$(2)+B$:PAPER 2:INK 7
70 FOR I=1 TO LEN(M$):BEEP 100,100
72 PRINT AT 13,I-1;MID$(M$,I,1):NEXT I:PAPER 7:INK 0
75 FOR I=17 TO 21:PRINT AT I,3"                          ":NEXT I
76 PRINT AT 18,10"S-START",AT 20,10"K-KOPIROVANIE":PAPER 0:INK 7
78 PRINT AT 23,11"OVLADANIE:"
80 BMOVE 15,216:BPLOT P$,1
82 SETCHAR 3 0,0,24,60,90,24,24,0
84 SETCHAR 4 0,24,24,90,60,24,0,0
86 SETCHAR 5 0,16,8,124,124,8,16,0
88 SETCHAR 6 0,8,16,62,62,16,8,0
90 PRINT AT 27,14;CHR$(6),AT 26,15;CHR$(3),AT 27,16;CHR$(5),AT 28,15;CHR$(4)
91 BEEP 100,100:PAPER 0:INK 7:SETCHAR 5 255,207,191,129,129,191,207,255
92 SETCHAR 6 255,243,253,129,129,253,243,255
94 PRINT AT 27,13;CHR$(5),AT 27,17;CHR$(6):PAPER 7:INK 0:PRINT AT 25,15"Q",AT 29,15"Y"
95 PAPER 0:INK 7
100 DATA 6,1,2,3,4,22,25,4,1,5,21,25,12,1,5,8,9,10,11,13,17,19,23,25,30
101 DATA 12,1,2,3,4,7,11,13,17,19,23,25,29,9,1,7,11,13,17,19,23,25,28
102 DATA 9,1,7,11,13,17,19,23,25,27,10,1,7,11,14,16,19,23,25,26,28,12,1,8,9,10,11,12,15,20,21,22
103 DATA 25,29
110 REM START/COPY**************
120 FOR I=1 TO 30:INK 7:BMOVE I,120:BPLOT P$,1
125 BEEP I,10:WAIT 2
130 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
140 IF A=107 THEN 250
150 IF A=115 THEN 400
160 NEXT I
170 FOR I=30 TO 1 STEP -1:INK 7:BMOVE I,120:BPLOT P$,1
175 BEEP I,10:WAIT 2
180 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
190 IF A=107 THEN 250
200 IF A=115 THEN 400
210 NEXT I
220 GOTO 120
250 REM ***** COPY *****
260 PAPER 7:INK 0
261 GOSUB 280
270 PRINT AT 19,3"ZADAJTE CISLO ZAZNAMU!";:INPUT CZ:GOSUB 280
275 IF CZ<1 OR CZ>79 THEN 260
276 GOTO 283
280 FOR I=17 TO 21:BEEP 10,10:PRINT AT I,3"                          ":NEXT I:RETURN
283 GOSUB 280
285 PRINT AT 18,4"PRIPRAVTE MAGNETOFON",AT 20,4"A STLACTE LUB. KLAVES!"
286 A=KEY:IF A<>128 THEN 290
287 GOTO 286
290 A$="NAHRAVAM POD CISLOM"
291 GOSUB 280
300 PRINT AT 18,3"**************************",AT 20,3"**************************"
310 FOR I=1 TO LEN(A$):PRINT AT 19,I+3;MID$(A$,I,1);
320 BEEP 10,200:NEXT I:PRINT AT 19,23;CZ;"!"
330 KSAVE $ CZ
340 BEEP 255,100:GOSUB 280
350 FOR I=1 TO 10
360 INK 0:PRINT AT 19,12"MG.STOP!":BEEP 255,100:WAIT 5
370 INK 7:PRINT AT 19,12"MG.STOP!":NEXT I:WAIT 5:INK 7
371 GOSUB 280:BEEP 200,200,100,255
380 PAPER 7:INK 0:GOTO 75
400 REM ***** START *****

READY
POKE 80H,0C3H
 144

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM PAVUK-PP 01
30 PAPER 0:INK 7:CLEAR:SETCHAR 1 255,255,255,255,255,255,255,255
31 SETCHAR 2 60,66,185,161,161,185,66,60
32 BEEP NO
40 PAPER 7:INK 0:FOR I=0 TO 9:PRINT AT I,0"                                ":NEXT I
50 RESTORE 100
60 FOR I=1 TO 8:READ B:FOR J=1 TO B:READ C:PRINT AT I,C;CHR$(1):NEXT J,I
62 PRINT AT 11,7"B.K.SOFTWARE'89":PAPER 7:INK 0:M$="",B$=""
64 A$="32664675658085837873753238326746457968807732847980797667657889"
65 P$=CHR$(24)+CHR$(219)+CHR$(60)+CHR$(231)+CHR$(60)+CHR$(255)+CHR$(60)+CHR$(219)
66 FOR I=1 TO LEN(A$) STEP 2:R$=MID$(A$,I,2):C=VAL(R$):B$=B$+CHR$(C):NEXT I
67 M$=CHR$(2)+B$:PAPER 2:INK 7
70 FOR I=1 TO LEN(M$):BEEP 100,100
72 PRINT AT 13,I-1;MID$(M$,I,1):NEXT I:PAPER 7:INK 0
75 FOR I=17 TO 21:PRINT AT I,3"                          ":NEXT I
76 PRINT AT 18,10"S-START",AT 20,10"K-KOPIROVANIE":PAPER 0:INK 7
78 PRINT AT 23,11"OVLADANIE:"
80 BMOVE 15,216:BPLOT P$,1
82 SETCHAR 3 0,0,24,60,90,24,24,0
84 SETCHAR 4 0,24,24,90,60,24,0,0
86 SETCHAR 5 0,16,8,124,124,8,16,0
88 SETCHAR 6 0,8,16,62,62,16,8,0
90 PRINT AT 27,14;CHR$(6),AT 26,15;CHR$(3),AT 27,16;CHR$(5),AT 28,15;CHR$(4)
91 BEEP 100,100:PAPER 0:INK 7:SETCHAR 5 255,207,191,129,129,191,207,255
92 SETCHAR 6 255,243,253,129,129,253,243,255
94 PRINT AT 27,13;CHR$(5),AT 27,17;CHR$(6):PAPER 7:INK 0:PRINT AT 25,15"Q",AT 29,15"Y"
95 PAPER 0:INK 7
100 DATA 6,1,2,3,4,22,25,4,1,5,21,25,12,1,5,8,9,10,11,13,17,19,23,25,30
101 DATA 12,1,2,3,4,7,11,13,17,19,23,25,29,9,1,7,11,13,17,19,23,25,28
102 DATA 9,1,7,11,13,17,19,23,25,27,10,1,7,11,14,16,19,23,25,26,28,12,1,8,9,10,11,12,15,20,21,22
103 DATA 25,29
110 REM START/COPY**************
120 FOR I=1 TO 30:INK 7:BMOVE I,120:BPLOT P$,1
125 BEEP I,10:WAIT 2
130 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
140 IF A=107 THEN 250
150 IF A=115 THEN 400
160 NEXT I
170 FOR I=30 TO 1 STEP -1:INK 7:BMOVE I,120:BPLOT P$,1
175 BEEP I,10:WAIT 2
180 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
190 IF A=107 THEN 250
200 IF A=115 THEN 400
210 NEXT I
220 GOTO 120
250 REM ***** COPY *****
260 PAPER 7:INK 0
261 GOSUB 280
270 PRINT AT 19,3"ZADAJTE CISLO ZAZNAMU!";:INPUT CZ:GOSUB 280
275 IF CZ<1 OR CZ>79 THEN 260
276 GOTO 283
280 FOR I=17 TO 21:BEEP 10,10:PRINT AT I,3"                          ":NEXT I:RETURN
283 GOSUB 280
285 PRINT AT 18,4"PRIPRAVTE MAGNETOFON",AT 20,4"A STLACTE LUB. KLAVES!"
286 A=KEY:IF A<>128 THEN 290
287 GOTO 286
290 A$="NAHRAVAM POD CISLOM"
291 GOSUB 280
300 PRINT AT 18,3"**************************",AT 20,3"**************************"
310 FOR I=1 TO LEN(A$):PRINT AT 19,I+3;MID$(A$,I,1);
320 BEEP 10,200:NEXT I:PRINT AT 19,23;CZ;"!"
330 KSAVE $ CZ
340 BEEP 255,100:GOSUB 280
360 INK 0:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":BEEP 255,100:WAIT 5
365 A=KEY
370 INK 7:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":WAIT 5
374 IF A<>128 THEN 379
375 GOTO 360
379 GOSUB 280
380 PAPER 7:INK 0:GOTO 75
400 REM ***** START *****

READY
POKE 80H,0C3H
 144

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM PAVUK-PP 01
30 PAPER 0:INK 7:CLEAR:SETCHAR 1 255,255,255,255,255,255,255,255
31 SETCHAR 2 60,66,185,161,161,185,66,60
32 BEEP NO
40 PAPER 7:INK 0:FOR I=0 TO 9:PRINT AT I,0"                                ":BEEP 5,5:NEXT I
50 RESTORE 100
60 FOR I=1 TO 8:READ B:FOR J=1 TO B:READ C:PRINT AT I,C;CHR$(1):BEEP 10,10:NEXT J,I
62 PRINT AT 11,7"B.K.SOFTWARE'89":PAPER 7:INK 0:M$="",B$="":BEEP 100,100,100,100
64 A$="32664675658085837873753238326746457968807732847980797667657889"
65 P$=CHR$(24)+CHR$(219)+CHR$(60)+CHR$(231)+CHR$(60)+CHR$(255)+CHR$(60)+CHR$(219)
66 FOR I=1 TO LEN(A$) STEP 2:R$=MID$(A$,I,2):C=VAL(R$):B$=B$+CHR$(C):NEXT I
67 M$=CHR$(2)+B$:PAPER 2:INK 7
70 FOR I=1 TO LEN(M$):BEEP 200,1
72 PRINT AT 13,I-1;MID$(M$,I,1):NEXT I:PAPER 7:INK 0
75 FOR I=17 TO 21:PRINT AT I,3"                          ":NEXT I
76 PRINT AT 18,10"S-START",AT 20,10"K-KOPIROVANIE":PAPER 0:INK 7
78 PRINT AT 23,11"OVLADANIE:"
80 BMOVE 15,216:BPLOT P$,1
82 SETCHAR 3 0,0,24,60,90,24,24,0
84 SETCHAR 4 0,24,24,90,60,24,0,0
86 SETCHAR 5 0,16,8,124,124,8,16,0
88 SETCHAR 6 0,8,16,62,62,16,8,0
90 PRINT AT 27,14;CHR$(6),AT 26,15;CHR$(3),AT 27,16;CHR$(5),AT 28,15;CHR$(4)
91 BEEP 100,100:PAPER 0:INK 7:SETCHAR 5 255,207,191,129,129,191,207,255
92 SETCHAR 6 255,243,253,129,129,253,243,255
94 PRINT AT 27,13;CHR$(5),AT 27,17;CHR$(6):PAPER 7:INK 0:PRINT AT 25,15"Q",AT 29,15"Y"
95 PAPER 0:INK 7
100 DATA 6,1,2,3,4,22,25,4,1,5,21,25,12,1,5,8,9,10,11,13,17,19,23,25,30
101 DATA 12,1,2,3,4,7,11,13,17,19,23,25,29,9,1,7,11,13,17,19,23,25,28
102 DATA 9,1,7,11,13,17,19,23,25,27,10,1,7,11,14,16,19,23,25,26,28,12,1,8,9,10,11,12,15,20,21,22
103 DATA 25,29
110 REM START/COPY**************
120 FOR I=1 TO 30:INK 7:BMOVE I,120:BPLOT P$,1
125 BEEP I,10:WAIT 2
130 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
140 IF A=107 THEN 250
150 IF A=115 THEN 400
160 NEXT I
170 FOR I=30 TO 1 STEP -1:INK 7:BMOVE I,120:BPLOT P$,1
175 BEEP I,10:WAIT 2
180 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
190 IF A=107 THEN 250
200 IF A=115 THEN 400
210 NEXT I
220 GOTO 120
250 REM ***** COPY *****
260 PAPER 7:INK 0
261 GOSUB 280
270 PRINT AT 19,3"ZADAJTE CISLO ZAZNAMU!";:INPUT CZ:GOSUB 280
275 IF CZ<1 OR CZ>79 THEN 260
276 GOTO 283
280 FOR I=17 TO 21:BEEP 10,10:PRINT AT I,3"                          ":NEXT I:RETURN
283 GOSUB 280
285 PRINT AT 18,4"PRIPRAVTE MAGNETOFON",AT 20,4"A STLACTE LUB. KLAVES!"
286 A=KEY:IF A<>128 THEN 290
287 GOTO 286
290 A$="NAHRAVAM POD CISLOM"
291 GOSUB 280
300 PRINT AT 18,3"**************************",AT 20,3"**************************"
310 FOR I=1 TO LEN(A$):PRINT AT 19,I+3;MID$(A$,I,1);
320 BEEP 10,200:NEXT I:PRINT AT 19,23;CZ;"!"
330 KSAVE $ CZ
340 BEEP 255,100:GOSUB 280
360 INK 0:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":BEEP 255,100:WAIT 5
365 A=KEY
370 INK 7:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":WAIT 5
374 IF A<>128 THEN 379
375 GOTO 360
379 GOSUB 280
380 PAPER 7:INK 0:GOTO 75
400 REM ***** START *****

READY
POKE 80H,0C3H
 144

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM PAVUK-PP 01
30 PAPER 0:INK 7:CLEAR:SETCHAR 1 255,255,255,255,255,255,255,255
31 SETCHAR 2 60,66,185,161,161,185,66,60
32 BEEP NO
40 PAPER 7:INK 0:FOR I=0 TO 9:PRINT AT I,0"                                ":BEEP 5,5:NEXT I
50 RESTORE 100
60 FOR I=1 TO 8:READ B:FOR J=1 TO B:READ C:PRINT AT I,C;CHR$(1):BEEP 10,10:NEXT J,I
62 PRINT AT 11,7"B.K.SOFTWARE'89":PAPER 7:INK 0:M$="",B$="":BEEP 100,100,100,100
64 A$="32664675658085837873753238326746457968807732847980797667657889"
65 P$=CHR$(24)+CHR$(219)+CHR$(60)+CHR$(231)+CHR$(60)+CHR$(255)+CHR$(60)+CHR$(219)
66 FOR I=1 TO LEN(A$) STEP 2:R$=MID$(A$,I,2):C=VAL(R$):B$=B$+CHR$(C):NEXT I
67 M$=CHR$(2)+B$:PAPER 2:INK 7
70 FOR I=1 TO LEN(M$):BEEP 200,1
72 PRINT AT 13,I-1;MID$(M$,I,1):NEXT I:PAPER 7:INK 0
75 FOR I=17 TO 21:PRINT AT I,3"                          ":NEXT I
76 PRINT AT 18,10"S-START",AT 20,10"K-KOPIROVANIE":PAPER 0:INK 7
78 PRINT AT 23,11"OVLADANIE:"
80 BMOVE 15,216:BPLOT P$,1
82 SETCHAR 3 0,0,24,60,90,24,24,0
84 SETCHAR 4 0,24,24,90,60,24,0,0
86 SETCHAR 5 0,16,8,124,124,8,16,0
88 SETCHAR 6 0,8,16,62,62,16,8,0
90 PRINT AT 27,14;CHR$(6),AT 26,15;CHR$(3),AT 27,16;CHR$(5),AT 28,15;CHR$(4)
91 BEEP 100,100:PAPER 0:INK 7:SETCHAR 5 255,207,191,129,129,191,207,255
92 SETCHAR 6 255,243,253,129,129,253,243,255
94 PRINT AT 27,13;CHR$(5),AT 27,17;CHR$(6):PAPER 7:INK 0:PRINT AT 25,15"Q",AT 29,15"Y"
95 PAPER 0:INK 7
100 DATA 6,1,2,3,4,22,25,4,1,5,21,25,12,1,5,8,9,10,11,13,17,19,23,25,30
101 DATA 12,1,2,3,4,7,11,13,17,19,23,25,29,9,1,7,11,13,17,19,23,25,28
102 DATA 9,1,7,11,13,17,19,23,25,27,10,1,7,11,14,16,19,23,25,26,28,12,1,8,9,10,11,12,15,20,21,22
103 DATA 25,29
110 REM START/COPY**************
120 FOR I=1 TO 30:INK 7:BMOVE I,120:BPLOT P$,1
125 BEEP I,10:WAIT 2
130 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
140 IF A=107 THEN 250
150 IF A=115 THEN 400
160 NEXT I
170 FOR I=30 TO 1 STEP -1:INK 7:BMOVE I,120:BPLOT P$,1
175 BEEP I,10:WAIT 2
180 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
190 IF A=107 THEN 250
200 IF A=115 THEN 400
210 NEXT I
220 GOTO 120
250 REM ***** COPY *****
260 PAPER 7:INK 0
261 GOSUB 280
270 PRINT AT 19,3"ZADAJTE CISLO ZAZNAMU!";:INPUT CZ:GOSUB 280
275 IF CZ<1 OR CZ>79 THEN 260
276 GOTO 283
280 FOR I=17 TO 21:BEEP 10,10:PRINT AT I,3"                          ":NEXT I:RETURN
283 GOSUB 280
285 PRINT AT 18,4"PRIPRAVTE MAGNETOFON",AT 20,4"A STLACTE LUB. KLAVES!"
286 A=KEY:IF A<>128 THEN 290
287 GOTO 286
290 A$="NAHRAVAM POD CISLOM"
291 GOSUB 280
300 PRINT AT 18,3"**************************",AT 20,3"**************************"
310 FOR I=1 TO LEN(A$):PRINT AT 19,I+3;MID$(A$,I,1);
320 BEEP 10,200:NEXT I:PRINT AT 19,23;CZ;"!"
330 KSAVE $ CZ
340 BEEP 255,100:GOSUB 280
360 INK 0:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":BEEP 255,100:WAIT 5
365 A=KEY
370 INK 7:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":WAIT 5
374 IF A<>128 THEN 379
375 GOTO 360
379 GOSUB 280
380 PAPER 7:INK 0:GOTO 75
400 REM ***** START *****
500 PAPER 0:INK 7:CLEAR:N=26
501 SETCHAR 1 0,0,0,0,0,0,0,0
502 SETCHAR 2 0,0,0,12,12,0,0,0
503 SETCHAR 3 255,255,255,255,255,255,255,255
510 DIM A$(N),B$(N)
520 FOR I=1 TO N:READ S$:A$(I)=S$:NEXT I
530 FOR I=1 TO N:FOR J=1 TO LEN(A$(I)):Q$=MID$(A$(I),J,1):D=VAL(Q$):B$(I)=B$(I)+CHR$(D):NEXT J,I
540 FOR I=1 TO N:PRINT AT I,1;B$(I):NEXT I
10000 REM _____ MIESTNOST 1.//__
10010 DATA"333333333333333333333333333333"
10011 DATA"322222222222222222222222222223"
10012 DATA"322223332233322222332222322223"
10013 DATA"322223113231132223113223322223"
10014 DATA"322223113231132223113232322223"
10015 DATA"322223332233322223113222322223"
10016 DATA"322223222232222223113222322223"
10017 DATA"322223222232222223113222322223"
10018 DATA"322223222232222222332222322223"
10019 DATA"322222222222222222222222222223"
10020 DATA"322333222333232333222333333223"
10021 DATA"322223222323222323222322322223"
10022 DATA"322223222323222323222322322223"
10023 DATA"322223222323222323222322322223"
10024 DATA"322222323223222322323222322223"
10025 DATA"322222323222322322323222322223"
10026 DATA"322222232222233222232222322223"
10027 DATA"322222222222222222222222222223"
10028 DATA"322222222222222222222222222223"
10029 DATA"322233332323222323223223322223"
10030 DATA"322222232323222323323231132223"
10031 DATA"322222322323222323233231132223"
10032 DATA"322223222323222323223233332223"
10033 DATA"322233332323332323223232232223"
10034 DATA"322222222222222222222222222223"
10035 DATA"333333333333333333333333333333"

READY
POKE 80H,0C3H
 144

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM PAVUK-PP 01
30 PAPER 0:INK 7:CLEAR:SETCHAR 1 255,255,255,255,255,255,255,255
31 SETCHAR 2 60,66,185,161,161,185,66,60
32 BEEP NO
40 PAPER 7:INK 0:FOR I=0 TO 9:PRINT AT I,0"                                ":BEEP 5,5:NEXT I
50 RESTORE 100
60 FOR I=1 TO 8:READ B:FOR J=1 TO B:READ C:PRINT AT I,C;CHR$(1):BEEP 10,10:NEXT J,I
62 PRINT AT 11,7"B.K.SOFTWARE'89":PAPER 7:INK 0:M$="",B$="":BEEP 100,100,100,100
64 A$="32664675658085837873753238326746457968807732847980797667657889"
65 P$=CHR$(24)+CHR$(219)+CHR$(60)+CHR$(231)+CHR$(60)+CHR$(255)+CHR$(60)+CHR$(219)
66 FOR I=1 TO LEN(A$) STEP 2:R$=MID$(A$,I,2):C=VAL(R$):B$=B$+CHR$(C):NEXT I
67 M$=CHR$(2)+B$:PAPER 2:INK 7
70 FOR I=1 TO LEN(M$):BEEP 200,1
72 PRINT AT 13,I-1;MID$(M$,I,1):NEXT I:PAPER 7:INK 0
75 FOR I=17 TO 21:PRINT AT I,3"                          ":NEXT I
76 PRINT AT 18,10"S-START",AT 20,10"K-KOPIROVANIE":PAPER 0:INK 7
78 PRINT AT 23,11"OVLADANIE:"
80 BMOVE 15,216:BPLOT P$,1
82 SETCHAR 3 0,0,24,60,90,24,24,0
84 SETCHAR 4 0,24,24,90,60,24,0,0
86 SETCHAR 5 0,16,8,124,124,8,16,0
88 SETCHAR 6 0,8,16,62,62,16,8,0
90 PRINT AT 27,14;CHR$(6),AT 26,15;CHR$(3),AT 27,16;CHR$(5),AT 28,15;CHR$(4)
91 BEEP 100,100:PAPER 0:INK 7:SETCHAR 5 255,207,191,129,129,191,207,255
92 SETCHAR 6 255,243,253,129,129,253,243,255
94 PRINT AT 27,13;CHR$(5),AT 27,17;CHR$(6):PAPER 7:INK 0:PRINT AT 25,15"Q",AT 29,15"Y"
95 PAPER 0:INK 7
100 DATA 6,1,2,3,4,22,25,4,1,5,21,25,12,1,5,8,9,10,11,13,17,19,23,25,30
101 DATA 12,1,2,3,4,7,11,13,17,19,23,25,29,9,1,7,11,13,17,19,23,25,28
102 DATA 9,1,7,11,13,17,19,23,25,27,10,1,7,11,14,16,19,23,25,26,28,12,1,8,9,10,11,12,15,20,21,22
103 DATA 25,29
110 REM START/COPY**************
120 FOR I=1 TO 30:INK 7:BMOVE I,120:BPLOT P$,1
125 BEEP I,10:WAIT 2
130 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
140 IF A=107 THEN 250
150 IF A=115 THEN 400
160 NEXT I
170 FOR I=30 TO 1 STEP -1:INK 7:BMOVE I,120:BPLOT P$,1
175 BEEP I,10:WAIT 2
180 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
190 IF A=107 THEN 250
200 IF A=115 THEN 400
210 NEXT I
220 GOTO 120
250 REM ***** COPY *****
260 PAPER 7:INK 0
261 GOSUB 280
270 PRINT AT 19,3"ZADAJTE CISLO ZAZNAMU!";:INPUT CZ:GOSUB 280
275 IF CZ<1 OR CZ>79 THEN 260
276 GOTO 283
280 FOR I=17 TO 21:BEEP 10,10:PRINT AT I,3"                          ":NEXT I:RETURN
283 GOSUB 280
285 PRINT AT 18,4"PRIPRAVTE MAGNETOFON",AT 20,4"A STLACTE LUB. KLAVES!"
286 A=KEY:IF A<>128 THEN 290
287 GOTO 286
290 A$="NAHRAVAM POD CISLOM"
291 GOSUB 280
300 PRINT AT 18,3"**************************",AT 20,3"**************************"
310 FOR I=1 TO LEN(A$):PRINT AT 19,I+3;MID$(A$,I,1);
320 BEEP 10,200:NEXT I:PRINT AT 19,23;CZ;"!"
330 KSAVE $ CZ
340 BEEP 255,100:GOSUB 280
360 INK 0:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":BEEP 255,100:WAIT 5
365 A=KEY
370 INK 7:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":WAIT 5
374 IF A<>128 THEN 379
375 GOTO 360
379 GOSUB 280
380 PAPER 7:INK 0:GOTO 75
400 REM ***** START *****
500 PAPER 0:INK 7:CLEAR:N=26:POCET=0:MIESTNOST=1
501 SETCHAR 1 0,0,0,0,0,0,0,0
502 SETCHAR 2 0,0,24,36,36,24,0,0
503 SETCHAR 3 255,255,255,255,255,255,255,255
510 DIM A$(N),B$(N)
520 FOR I=1 TO N:READ S$:A$(I)=S$:NEXT I
530 FOR I=1 TO N:FOR J=1 TO LEN(A$(I)):Q$=MID$(A$(I),J,1):D=VAL(Q$):B$(I)=B$(I)+CHR$(D)
531 IF D=2 THEN POCET=POCET+1
532 NEXT J,I
535 INK 2
540 FOR I=1 TO N:PRINT AT I,1;B$(I):NEXT I
550 X=2:Y=16:INK 7:BMOVE X,Y:BPLOT P$,1:BEEP 100,100
555 GOTO 620
560 A=KEY
570 IF A=113 THEN 700
580 IF A=121 THEN 800
590 IF A=8 THEN 1000
600 IF A=24 THEN 900
610 RETURN
620 A=KEY:IF A=113 OR A=121 OR A=8 OR A=24 THEN 650
630 GOTO 620
650 GOSUB 560
700 REM*** HORE ***
701 BEEP 200,20
710 A=Y/8:B=X
711 IF MID$(B$(A),B,1)=CHR$(3) THEN 30000
720 INK 0:BMOVE X,Y:BPLOT P$,1
730 Y=Y-8:INK 7:BMOVE X,Y:BPLOT P$,1
740 GOSUB 560
741 GOTO 700
800 REM___DOLE___
801 BEEP 200,20
810 IF MID$(B$(TRUNC(Y/8)),X,1)=CHR$(3) THEN 30000
820 INK 0:BMOVE X,Y:BPLOT P$,1
830 Y=Y+8:INK 7:BMOVE X,Y:BPLOT P$,1
840 GOSUB 560
841 GOTO 800
900 REM ___VPRAVO ___
901 BEEP 200,20
910 IF MID$(B$(TRUNC(Y/8)),X,1)=CHR$(3) THEN 30000
920 INK 0:BMOVE X,Y:BPLOT P$,1
930 X=X+1:INK 7:BMOVE X,Y:BPLOT P$,1
940 GOSUB 560
950 GOTO 900
1000 REM ___ VLAVO ___
1001 BEEP 200,20
1010 IF MID$(B$(Y/8),X,1)=CHR$(3) THEN 30000
1020 INK 0:BMOVE X,Y:BPLOT P$,1
1030 X=X-1:INK 7:BMOVE X,Y:BPLOT P$,1
1040 GOSUB 560
1050 GOTO 1000
10000 REM _____ MIESTNOST 1.//__
10010 DATA"333333333333333333333333333333"
10011 DATA"312222222222222222222222222223"
10012 DATA"322223332233322222332222322223"
10013 DATA"322223113231132223113223322223"
10014 DATA"322223113231132223113232322223"
10015 DATA"322223332233322223113222322223"
10016 DATA"322223222232222223113222322223"
10017 DATA"322223222232222223113222322223"
10018 DATA"322223222232222222332222322223"
10019 DATA"322222222222222222222222222223"
10020 DATA"322333222333232333222333333223"
10021 DATA"322223222323222323222322322223"
10022 DATA"322223222323222323222322322223"
10023 DATA"322223222323222323222322322223"
10024 DATA"322222323223222322323222322223"
10025 DATA"322222323222322322323222322223"
10026 DATA"322222232222233222232222322223"
10027 DATA"322222222222222222222222222223"
10028 DATA"322222222222222222222222222223"
10029 DATA"322233332323222323223223322223"
10030 DATA"322222232323222323323231132223"
10031 DATA"322222322323222323233231132223"
10032 DATA"322223222323222323223233332223"
10033 DATA"322233332323332323223232232223"
10034 DATA"322222222222222222222222222223"
10035 DATA"333333333333333333333333333333"
30000 FOR W=0 TO 200:BEEP W,10:NEXT W

READY
POKE 80H,0C3H
 144

READY
LIST
10 REM B.K.SOFTWARE 1989 (C)
20 REM PAVUK-PP 01
30 PAPER 0:INK 7:CLEAR:SETCHAR 1 255,255,255,255,255,255,255,255
31 SETCHAR 2 60,66,185,161,161,185,66,60
32 BEEP NO
40 PAPER 7:INK 0:FOR I=0 TO 9:PRINT AT I,0"                                ":BEEP 5,5:NEXT I
50 RESTORE 100
60 FOR I=1 TO 8:READ B:FOR J=1 TO B:READ C:PRINT AT I,C;CHR$(1):BEEP 10,10:NEXT J,I
62 PRINT AT 11,7"B.K.SOFTWARE'89":PAPER 7:INK 0:M$="",B$="":BEEP 100,100,100,100
64 A$="32664675658085837873753238326746457968807732847980797667657889"
65 P$=CHR$(24)+CHR$(219)+CHR$(60)+CHR$(231)+CHR$(60)+CHR$(255)+CHR$(60)+CHR$(219)
66 FOR I=1 TO LEN(A$) STEP 2:R$=MID$(A$,I,2):C=VAL(R$):B$=B$+CHR$(C):NEXT I
67 M$=CHR$(2)+B$:PAPER 2:INK 7
70 FOR I=1 TO LEN(M$):BEEP 200,1
72 PRINT AT 13,I-1;MID$(M$,I,1):NEXT I:PAPER 7:INK 0
75 FOR I=17 TO 21:PRINT AT I,3"                          ":NEXT I
76 PRINT AT 18,10"S-START",AT 20,10"K-KOPIROVANIE":PAPER 0:INK 7
78 PRINT AT 23,11"OVLADANIE:"
80 BMOVE 15,216:BPLOT P$,1
82 SETCHAR 3 0,0,24,60,90,24,24,0
84 SETCHAR 4 0,24,24,90,60,24,0,0
86 SETCHAR 5 0,16,8,124,124,8,16,0
88 SETCHAR 6 0,8,16,62,62,16,8,0
90 PRINT AT 27,14;CHR$(6),AT 26,15;CHR$(3),AT 27,16;CHR$(5),AT 28,15;CHR$(4)
91 BEEP 100,100:PAPER 0:INK 7:SETCHAR 5 255,207,191,129,129,191,207,255
92 SETCHAR 6 255,243,253,129,129,253,243,255
94 PRINT AT 27,13;CHR$(5),AT 27,17;CHR$(6):PAPER 7:INK 0:PRINT AT 25,15"Q",AT 29,15"Y"
95 PAPER 0:INK 7
100 DATA 6,1,2,3,4,22,25,4,1,5,21,25,12,1,5,8,9,10,11,13,17,19,23,25,30
101 DATA 12,1,2,3,4,7,11,13,17,19,23,25,29,9,1,7,11,13,17,19,23,25,28
102 DATA 9,1,7,11,13,17,19,23,25,27,10,1,7,11,14,16,19,23,25,26,28,12,1,8,9,10,11,12,15,20,21,22
103 DATA 25,29
110 REM START/COPY**************
120 FOR I=1 TO 30:INK 7:BMOVE I,120:BPLOT P$,1
125 BEEP I,10:WAIT 2
130 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
140 IF A=107 THEN 250
150 IF A=115 THEN 400
160 NEXT I
170 FOR I=30 TO 1 STEP -1:INK 7:BMOVE I,120:BPLOT P$,1
175 BEEP I,10:WAIT 2
180 INK 0:BMOVE I,120:BPLOT P$,1:A=KEY
190 IF A=107 THEN 250
200 IF A=115 THEN 400
210 NEXT I
220 GOTO 120
250 REM ***** COPY *****
260 PAPER 7:INK 0
261 GOSUB 280
270 PRINT AT 19,3"ZADAJTE CISLO ZAZNAMU!";:INPUT CZ:GOSUB 280
275 IF CZ<1 OR CZ>79 THEN 260
276 GOTO 283
280 FOR I=17 TO 21:BEEP 10,10:PRINT AT I,3"                          ":NEXT I:RETURN
283 GOSUB 280
285 PRINT AT 18,4"PRIPRAVTE MAGNETOFON",AT 20,4"A STLACTE LUB. KLAVES!"
286 A=KEY:IF A<>128 THEN 290
287 GOTO 286
290 A$="NAHRAVAM POD CISLOM"
291 GOSUB 280
300 PRINT AT 18,3"**************************",AT 20,3"**************************"
310 FOR I=1 TO LEN(A$):PRINT AT 19,I+3;MID$(A$,I,1);
320 BEEP 10,200:NEXT I:PRINT AT 19,23;CZ;"!"
330 KSAVE $ CZ
340 BEEP 255,100:GOSUB 280
360 INK 0:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":BEEP 255,100:WAIT 5
365 A=KEY
370 INK 7:PRINT AT 19,3"MG.STOP & STLAC LUB.KLAV.!":WAIT 5
374 IF A<>128 THEN 379
375 GOTO 360
379 GOSUB 280
380 PAPER 7:INK 0:GOTO 75
400 REM ***** START *****
500 PAPER 0:INK 7:CLEAR:N=26:POCET=0:MIESTNOST=1
501 SETCHAR 1 0,0,0,0,0,0,0,0
502 SETCHAR 2 0,0,24,36,36,24,0,0
503 SETCHAR 3 255,255,255,255,255,255,255,255
510 DIM A$(N),B$(N)
520 FOR I=1 TO N:READ S$:A$(I)=S$:NEXT I
530 FOR I=1 TO N:FOR J=1 TO LEN(A$(I)):Q$=MID$(A$(I),J,1):D=VAL(Q$):B$(I)=B$(I)+CHR$(D)
531 IF D=2 THEN POCET=POCET+1
532 NEXT J,I
535 INK 2
540 FOR I=1 TO N:PRINT AT I,1;B$(I):NEXT I
550 X=2:Y=16:INK 7:BMOVE X,Y:BPLOT P$,1:BEEP 100,100
555 GOTO 620
560 A=KEY
570 IF A=113 THEN 700
580 IF A=121 THEN 800
590 IF A=8 THEN 1000
600 IF A=24 THEN 900
610 RETURN
620 A=KEY:IF A=113 OR A=121 OR A=8 OR A=24 THEN 650
630 GOTO 620
650 GOSUB 560
700 REM*** HORE ***
701 BEEP 200,20
710 A=Y/8:B=X
711 IF MID$(B$(A),B,1)=CHR$(3) THEN 30000
720 INK 0:BMOVE X,Y:BPLOT P$,1
730 Y=Y-8:INK 7:BMOVE X,Y:BPLOT P$,1
740 GOSUB 560
741 GOTO 700
800 REM___DOLE___
801 BEEP 200,20
810 IF MID$(B$(TRUNC(Y/8)),X,1)=CHR$(3) THEN 30000
820 INK 0:BMOVE X,Y:BPLOT P$,1
830 Y=Y+8:INK 7:BMOVE X,Y:BPLOT P$,1
840 GOSUB 560
841 GOTO 800
900 REM ___VPRAVO ___
901 BEEP 200,20
910 IF MID$(B$(TRUNC(Y/8)),X,1)=CHR$(3) THEN 30000
920 INK 0:BMOVE X,Y:BPLOT P$,1
930 X=X+1:INK 7:BMOVE X,Y:BPLOT P$,1
940 GOSUB 560
950 GOTO 900
1000 REM ___ VLAVO ___
1001 BEEP 200,20
1010 IF MID$(B$(Y/8),X,1)=CHR$(3) THEN 30000
1020 INK 0:BMOVE X,Y:BPLOT P$,1
1030 X=X-1:INK 7:BMOVE X,Y:BPLOT P$,1
1040 GOSUB 560
1050 GOTO 1000
10000 REM _____ MIESTNOST 1.//__
10010 DATA"333333333333333333333333333333"
10011 DATA"312222222222222222222222222223"
10012 DATA"322223332233322222332222322223"
10013 DATA"322223113231132223113223322223"
10014 DATA"322223113231132223113232322223"
10015 DATA"322223332233322223113222322223"
10016 DATA"322223222232222223113222322223"
10017 DATA"322223222232222223113222322223"
10018 DATA"322223222232222222332222322223"
10019 DATA"322222222222222222222222222223"
10020 DATA"322333222333232333222333333223"
10021 DATA"322223222323222323222322322223"
10022 DATA"322223222323222323222322322223"
10023 DATA"322223222323222323222322322223"
10024 DATA"322222323223222322323222322223"
10025 DATA"322222323222322322323222322223"
10026 DATA"322222232222233222232222322223"
10027 DATA"322222222222222222222222222223"
10028 DATA"322222222222222222222222222223"
10029 DATA"322233332323222323223223322223"
10030 DATA"322222232323222323323231132223"
10031 DATA"322222322323222323233231132223"
10032 DATA"322223222323222323223233332223"
10033 DATA"322233332323332323223232232223"
10034 DATA"322222222222222222222222222223"
10035 DATA"333333333333333333333333333333"
30000 FOR W=0 TO 200:BEEP W,10:NEXT W

READY
POKE 80H,0C3H

Comments