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