10 DIM POL$(250),HASLO$(61),WYDRUK$(160),KOLO$(300),KATEG$(15),LITERA$(1),SAMO$(9),J$(20),POZ(16),KWOTA(3),LOS(30)
11 DIM R$(16),L$(64),S$(64),MU$(1088)
20 KOLO$(1)="^ 1ooo^  5OO^ ±·µÏ^ âaîk^ ´µïï^  25ï^ ±µOO^ 2ooo^  75O^ ±²µÏ^ µïïï^ SÔRÁ^ 275ï^ ³µOO^ 225o^ 475O"
21 KOLO$(97)="^ 1ooo^  5OO^ ±·µÏ^ âaîk^ ´µïï^  25ï^ ±µOO^ 2ooo^  75O^ ±²µÏ^ µïïï^ óÔòÁ^ 275ï^ ³µOO^ 225o^ 475O"
30 POKE 82,0:ZAW=1:RESTORE 198:READ ILHAS:SAMO$="AEIOUY#$@"
40 RESTORE 90:FOR QQ=1 TO 16:READ POZ:POZ(QQ)=POZ:NEXT QQ:GOTO 32500
80 SETCOLOR 0,12,10:SETCOLOR 1,7,6:SETCOLOR 2,3,8:SETCOLOR 3,15,10:GOTO 500
90 DATA 750,1250,5000,0,2750,3500,2250,4750,1000,500,1750,-1,4500,250,1500,2000
100 REM       ÚÂÉÀÒ ÈÁÓÅܺ                                                  
101 DATA PROGRAMOWANIE.NA KOMPUTERZE.*,CZYNNO_&
102 DATA STARO_WIECKI STR@J.*,RZECZ
198 DATA 2
199 REM  ×ÐÉÓÚ × ±¹¸ ÉÌÅ ÍÁÓÚ ÈÁÓÅÜ 
200 SOUND 0,40,10,12:FOR T=1 TO 100:NEXT T:SOUND 0,0,0,0:RETURN 
210 FOR T=1 TO 5:SOUND 0,225+T*T,10,12
211 FOR I=1 TO 5*T*T:NEXT I:SOUND 0,0,0,0:NEXT T:RETURN 
250 POSITION (ZAW-1)*7,8:? #6;",":IF ZAW=1 THEN POSITION 14,8:? #6;" ":RETURN 
255 POSITION (ZAW-2)*7,8:? #6;" ":RETURN 
300 ? "}":TRAP 330:POSITION 0,0:FOR I=1 TO 121:IF WYDRUK$(I,I)=" " THEN 320
310 SOUND 0,130-I,10,12:FOR T=1 TO 40:NEXT T:SOUND 0,0,0,0
320 ? #6;WYDRUK$(I,I);:NEXT I
330 PF=0:STAWKA=0:? "}PODAJ KWOT$ ZAKUP@W :";:TRAP 330:INPUT I:KWOTA(ZAW)=KWOTA(ZAW)-I:GOSUB 1000:GOTO 500
350 FOR Q=1 TO 300:NEXT Q:RETURN 
400 WYDRUK$="":A=0:B=1:TRAP 500:FOR I=1 TO 121
410 IF HASLO$(I,I)="." THEN 415
412 GOTO 420
415 WYDRUK$(A+1,A+40)="                                        ":WYDRUK$(A+1,A+I-1)=HASLO$(B,I-1):B=I+1:A=A+40
420 IF HASLO$(I,I)="*" THEN RETURN 
430 NEXT I
450 PF=1:? "HAS\O PRZED FINA\EM! -ZAKR$& RAZ KO\EM! WCI_NIJ  Óåìåãô ý"
460 IF PEEK(53279)=5 THEN 700
470 GOTO 460
500 ? "} START-haso SELECT-koo OPTION-litera?  ãôò Z-kasa=0 ãôò F-fina ãôò P-pfina ESC-haso? *-zegar SPACJA-?"
505 GOSUB 250
510 IF PEEK(53279)=6 THEN ? "}":LO=LO+1:GOTO 600
520 IF PEEK(53279)=5 THEN 700
530 IF PEEK(53279)=3 THEN 800
540 IF PEEK(764)=151 THEN POKE 764,255:? "KASOWANIE KWOT!ý":GOTO 680
550 IF PEEK(764)=28 THEN POKE 764,255:GOTO 300
560 IF PEEK(764)=33 THEN POKE 764,255:? HASLO$;"ý":GOTO 500
570 IF PEEK(764)=184 THEN POKE 764,255:? "FINA\ý":FIN=1:GOTO 900
580 IF PEEK(764)=138 THEN POKE 764,255:GOTO 450
585 IF PF=1 THEN 1500
586 IF PEEK(764)=7 THEN POKE 764,255:GOTO 1500
590 GOTO 510
600 LOS=INT(RND(0)*ILHAS)+1:IF LO=1 THEN 608
604 FOR I=1 TO LO-1:IF LOS(I)=LOS THEN 600
605 NEXT I
608 LOS(LO)=LOS:IF LO=ILHAS THEN LO=0:? "ýWYCZERPANY ZBI@R R@[NYCH HASE\!":GOSUB 350
610 FIN=0:? #6;"}":RESTORE 100+LOS:READ HASLO$,KATEG$:GOSUB 400
620 TRAP 650:POSITION 0,0:FOR I=1 TO 121
630 IF WYDRUK$(I,I)=" " THEN ? #6;" ";:GOTO 645
640 ? #6;"¥";
645 NEXT I
650 POSITION 9,6:? #6;KATEG$
660 FOR I=1 TO 3:POSITION (I-1)*7,9:? #6;KWOTA(I):NEXT I
670 J$="":J=1:GOTO 500
680 POSITION (ZAW-1)*7,8:? #6;" ":STAWKA=0:FOR ZAW=1 TO 3:GOSUB 350:KWOTA(ZAW)=0:GOSUB 1000:NEXT ZAW:ZAW=1:GOTO 500
700 POSITION 0,6:? #6;"  ":? "LOSOWANIE STAWKI":KR=INT(RND(0)*96)+43:Q=1:GOSUB 2000
710 POSITION 7,6:? #6;"¬"
720 FOR I=1 TO KR:SOUND 0,121,10,12:FOR W=1 TO 5:NEXT W:SOUND 0,0,0,0
730 POSITION 0,7:? #6;KOLO$(I,I+19)
750 IF I>KR-43 THEN FOR T=1 TO Q*T:NEXT T:Q=Q+1
770 NEXT I:IF PF=1 THEN 1500
775 IF STAWKA=0 THEN 865
780 IF STAWKA=-1 THEN GOSUB 210:KWOTA(ZAW)=KWOTA(ZAW)*0:STAWKA=0:GOSUB 1000:GOTO 865
790 GOTO 1500
800 REM  ÏÐÔÉÏέóúõëáîéå ìéôåò®®®  
810 NEG=0:NR=0:? "PODAJ LITER$: ";:POKE 752,0:INPUT LITERA$:POKE 752,1:GOSUB 3000:GOSUB 2500:GOSUB 3500
820 TRAP 859:FOR I=1 TO 121
829 IF I<21 THEN X=I-1:Y=0:GOTO 850
830 IF I<41 THEN X=I-21:Y=1:GOTO 850
831 IF I<61 THEN X=I-41:Y=2:GOTO 850
832 IF I<81 THEN X=I-61:Y=3:GOTO 850
833 IF I<101 THEN X=I-81:Y=4:GOTO 850
834 X=I-101:Y=5
850 IF WYDRUK$(I,I)=LITERA$ THEN POSITION X,Y:? #6;LITERA$:GOSUB 200:NEG=1:NR=NR+1
855 NEXT I
859 J$(J,J)=LITERA$:J=J+1:IF STAWKA=-1000 THEN GOSUB 1000:IF NEG=0 THEN 865
860 IF STAWKA=-1000 THEN 500
861 IF NEG=1 THEN STAWKA=STAWKA*NR:GOSUB 1000:GOTO 500
865 GOSUB 210:ZAW=ZAW+1:IF ZAW=4 THEN ZAW=1
870 GOTO 500
900 ? "LOSOWANIE LITER FINA\OWYCH":QQ=6
905 KATEG$="":HASLO$="":KATEG$="A#E$IOU@YAEIOY":HASLO$="BC&DFGHJKL\MNPRSTWZ[]'_KWPRSTZMNBCDFGHJKLMNPRSTWZ"
907 POSITION 0,7:? #6;"                    "
910 POSITION 0,6:? #6;"¬ ":GOSUB 350:FOR I=1 TO 5
920 L=INT(RND(0)*49)+1:LITERA$=HASLO$(L,L):IF I=1 THEN 940
930 FOR T=1 TO I-1:IF LITERA$=J$(T,T) THEN 920
935 NEXT T
940 J$(I,I)=LITERA$:POSITION I-1,7:? #6;J$(I,I):GOSUB 350:NEXT I
945 L=INT(RND(0)*14)+1:J$(6,6)=KATEG$(L,L):POSITION 6,7:? #6;J$(6,6):GOSUB 350
950 TRAP 970:FOR I=1 TO 121
951 IF I<21 THEN X=I-1:Y=0:GOTO 960
952 IF I<41 THEN X=I-21:Y=1:GOTO 960
953 IF I<61 THEN X=I-41:Y=2:GOTO 960
954 IF I<81 THEN X=I-61:Y=3:GOTO 960
955 IF I<101 THEN X=I-81:Y=4:GOTO 960
956 X=I-101:Y=5
960 IF WYDRUK$(I,I)=" " THEN 965
961 FOR Q=1 TO QQ
962 IF WYDRUK$(I,I)=J$(Q,Q) THEN POSITION X,Y:? #6;J$(Q,Q):GOSUB 200:GOTO 965
963 NEXT Q
965 NEXT I
970 IF QQ=6 THEN QQ=4:GOTO 980
975 GOSUB 350:GOTO 1500
980 POSITION 7,6:? #6;" ¬":J$=""
982 FOR I=1 TO 4:? "PODAJ LITER$: ";:INPUT LITERA$:J$(I,I)=LITERA$:POSITION 7+I,7:? #6;J$(I,I):NEXT I:GOTO 950
1000 KWOTA(ZAW)=KWOTA(ZAW)+STAWKA:GOSUB 1010:POSITION (ZAW-1)*7,9:? #6;KWOTA(ZAW):IF PF=0 THEN STAWKA=0:RETURN 
1005 STAWKA=STAWKA/NR:RETURN 
1010 FOR I=1 TO 20:POSITION (ZAW-1)*7,9:? #6;KOLO$(I,I+5):NEXT I
1020 POSITION (ZAW-1)*7,9:? #6;"      ":RETURN 
1030 POSITION 6,9:? #6;" ":POSITION 13,9:? #6;" ":RETURN 
1500 ? "} START-haso SELECT-koo OPTION-litera?  Esc-haso? SPACJA-czas=stop  *-strzaka ãôò C-czowka"
1505 POSITION 0,6:? #6;"15":POKE 19,0:POKE 20,0
1510 IF PEEK(20)>250 THEN FOR T=1 TO 20:NEXT T
1515 IF PEEK(764)=146 THEN POKE 764,255:GRAPHICS 0:POKE 756,156:SETCOLOR 2,12,0:SETCOLOR 4,1,4:GOTO 32599
1520 IF PEEK(53279)=3 THEN 800
1525 IF PEEK(53279)=6 THEN 600
1526 IF PEEK(53279)=5 THEN 700
1527 IF PEEK(764)=33 THEN POKE 764,255:GOTO 500
1528 IF PEEK(764)=28 THEN POKE 764,255:GOTO 300
1529 IF PEEK(764)=7 THEN POKE 764,255:GOTO 1560
1530 I=15-INT(PEEK(19)*5+PEEK(20)/50):IF I<0 AND FIN=1 THEN GOSUB 210:GOTO 300
1535 IF I<0 THEN 865
1540 POSITION 0,6:IF I<10 THEN ? #6;"0";I:GOTO 1510
1550 ? #6;I:GOTO 1510
1560 ZAW=ZAW+1:IF ZAW=4 THEN ZAW=1
1570 GOSUB 250:GOTO 1505
2000 PR=KR-43:QQ=1
2010 FOR I=6 TO 104 STEP 6
2020 IF PR<I THEN STAWKA=POZ(QQ):RETURN 
2030 QQ=QQ+1
2040 NEXT I
2050 END 
2500 TRAP 2520:FOR I=1 TO 20:IF LITERA$=J$(I,I) THEN ? "ýJU[ JEST TA LITERA":GOTO 2530
2510 NEXT I
2520 RETURN 
2530 IF STAWKA=-1000 THEN GOSUB 1000
2540 GOTO 865
3000 FOR SAMO=1 TO 9:IF LITERA$=SAMO$(SAMO,SAMO) THEN 3020
3010 NEXT SAMO:RETURN 
3020 IF PF=0 THEN STAWKA=-1000:RETURN 
3030 ? "SP@\G\OSK$!ý":GOTO 800
3500 TRAP 3520:FOR I=1 TO 61:IF HASLO$(I,I)=LITERA$ THEN RETURN 
3510 NEXT I
3520 IF STAWKA=-1000 THEN GOSUB 1000
3530 GOTO 865
30010 LI=1:CL=8
30020 CL=CL+1:IF CL>8 THEN CL=1:BD=ASC(MU$(LI,LI)):RD=ASC(MU$(LI+1,LI+1)):SD=ASC(MU$(LI+2,LI+2)):LI=LI+3
30025 ST=ASC(S$(CL+SD,CL+SD))
30030 BT=ASC(L$(CL+BD,CL+BD)):SOUND 3,BT,12,8
30035 IF PEEK(53279)=6 THEN 30500
30040 RDIS=1:AL=ASC(R$(CL+RD,CL+RD)):IF AL<>0 THEN RT=AL:RL=12
30045 T=ASC(MU$(LI,LI)):E=ASC(MU$(LI+1,LI+1)):LI=LI+2:IF T=255 THEN 30075
30050 SOUND 0,T,10,12
30055 FOR I=11 TO 4 STEP -1.6:SOUND 1,ST,12,I:SOUND 2,RT,8,RL:RL=RL-0.9*(RL>=0.6):NEXT I
30060 SOUND 2,0,3,10
30065 IF E=0 THEN SOUND 0,0,0,0
30070 GOTO 30020
30075 SOUND 3,0,0,0:FOR I=15 TO 4 STEP -1:SOUND 0,91,10,I:SOUND 1,121,10,I:SOUND 2,72,10,I:NEXT I
30080 FOR I=15 TO 4 STEP -1:SOUND 0,91,10,I:SOUND 1,121,10,I:SOUND 2,72,10,I:NEXT I
30085 FOR I=15 TO 4 STEP -1:SOUND 0,96,10,I:SOUND 1,121,10,I:SOUND 2,81,10,I:NEXT I
30090 FOR I=15 TO 0 STEP -0.8:SOUND 0,91,10,I:SOUND 1,121,10,I:SOUND 2,72,10,I:NEXT I
30095 FOR F=1 TO 200:NEXT F:GOTO 30010
30099 STOP 
30500 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I:POKE 764,255
30505 GRAPHICS 0:POKE 756,156:POKE 752,1:GOSUB 32000:POSITION 1,21:? "Ïðôéïîˆ-KO\O FORTUNY Óôáòôˆ-CZO\@WKA"
30510 IF PEEK(53279)=6 THEN SETCOLOR 2,12,0:SETCOLOR 4,1,4:GOTO 32599
30511 IF PEEK(53279)=3 THEN GRAPHICS 2:POKE 756,156:POKE 752,1:GOTO 80
30520 GOTO 30510
31100 DATA 112,114,111,103,114,97,109,121,0,36,57,36,33,43,52,57,35,58,46,37
31102 DATA 100,111,0,119,121,107,111,114,122,121,115,116,97,110,105,97,0,119,0,115,122
31104 DATA 107,111,108,101,0,112,111,100,115,116,97,119,111,119,101,106,14
31106 DATA 122,97,98,97,119,97
31108 DATA 0,0,43,47,60,47,0,38,47,50,52,53,46,57,0,0,0
31110 DATA 128,178,239,237,225,238,128,171,225,240,244,245,242,227,250,225,235,128
31112 DATA 128,128,145,153,141,148,145,146,128,183,178,175,174,171,169,128,128,128
31114 DATA 10,33,52,33,50,41,10,0,0,0,51,58,43,47,60,33,0,48,47,36,51,52,33,55,47,55,33
31116 DATA 119,101,0,55,114,111,110,107,97,99,104,0,0,116,14,23,18,18,19,0,0,0,0,0,0,0,17,25,25,17,15,25,18
31118 DATA 72,179,244,225,242,244,200,0,13,48,50,47,39,50,33,45
31200 DATA 112,148,7,2,2,2,2,7,2,6,2,2,2,2,2,2,2,2,6,2,2,2,2
32000 POKE 752,1:? "     Úáðòáóúáí Ãé… äï äïâòåê úáâá÷ù¡    ":? "GRA WIERNIE PODOBNA JEST DO ZNANEGO CI  "
32002 ? "TELEWIZYJNEGO  ËÏÜÁ ÆÏÒÔÕÎÙ .":? :? "UWAGI DO KORZYSTANIA Z PROGRAMU:"
32004 ? :? "  1.INFORMACJE O STEROWANIU PROGRAMEM       ZNAJDZIESZ W OKIENKU TEKSTOWYM"
32006 ? "  2.POLSKIE LITERY UZYSKASZ Z KLAWISZEM:     óèéæô   3-# 4-$ 6-& 7-' 8-@"
32007 ? "    minus-_ plus-\ przecinek-[ kropka-]   3.HAS\A WPISUJ DO LINII 101-197 DATA"
32008 ? "    _CI_LE W/G WZORU!.":? :? " ÛÙÃÚ¤ ÐÒÚÙÊÅÍÎÅÊ É ÐÏÕÃÚÁÊ£ÃÅÊ ÚÁÂÁ×Ù¡ "
32010 POSITION 31,18:? CHR$(23):POSITION 30,19:? CHR$(25);CHR$(2);CHR$(13);" ATARI"
32020 ? :? "  PROSZ$ CZEKA&...":RETURN 
32500 GRAPHICS 0:GOSUB 32700:GOSUB 32600
32510 RESTORE 31100:FOR I=38040 TO 38787
32511 IF I=38060 THEN I=38101
32512 IF I=38139 THEN I=38227
32513 IF I=38233 THEN I=38282
32514 IF I=38299 THEN I=38461
32515 IF I=38479 THEN I=38541
32516 IF I=38559 THEN I=38632
32517 IF I=38659 THEN I=38681
32518 IF I=38714 THEN I=38772
32520 READ ZN:POKE I,ZN:NEXT I
32521 FOR I=38421 TO 38598:IF I=38439 THEN I=38501
32522 IF I=38519 THEN I=38581
32523 POKE I,128:NEXT I:POKE 38569,89:POKE 38570,66:POKE 38571,77:POKE 38530,87
32598 SETCOLOR 2,12,0:SETCOLOR 4,1,4
32599 POKE 559,0:RESTORE 31200:FOR I=38948 TO 38970:READ ZN:POKE I,ZN:NEXT I:POKE 559,34:GOTO 30010
32600 REM 
32610 MU$(1)="88







88HHQH



88







8HHQH



8







8H"
32611 MU$(101)="HHQ
QH
H<8!!#-
-(
(
8<<<<
<[
[-8

8<<<H
HQ[Q
8Q
Q
Q
Q"
32612 MU$(201)="D
D
D
D8<<<H
HQ[<
8 <
<
<
<
<-/<
8(<
<
<
<
<
<HD<
<<H5
55HDHD<
<
<"
32613 MU$(301)="HD<<<<<[
[5
  5
5
5
5
5
5
5
55555/
//
/-<
<<
<
<
<H00DHD
D
D5
55
("
32614 MU$(401)="(5
5<
<
<
<HD<
<<H5
55HDHD<
<
<HD<<<<<[
[5
  5
5
5
5
5
5
5
555"
32615 MU$(501)="55/
//
/-<
<<
<
<
<H00DHD
D
D5
55
((5
5<
<
<-/<
((<
<
<
<
<
<
<
<8HHHQ
"
32616 MU$(601)="QH
H<8!!#-
-(
(
8<<<<
<[
[-8

8<<<H
HQ[Q
8Q
Q
Q
QD
D
D"
32617 MU$(701)="
D8<<<H
HQ[<
8 <
<
<
<
<-/<
8(<
<
<
<
<
<HD<
<<H5
55HDHD<
<
<HD"
32618 MU$(801)="<<<<<[
[5
  5
5
5
5
5
5
5
55555/
//
/-<
<<
<
<
<H00DHD
D
D5
55
((5
5"
32619 MU$(901)="<
<
<
<HD<
<<H5
55HDHD<
<
<HD<<<<<[
[5
  5
5
5
5
5
5
5
55555/"
32620 MU$(1001)="
//
/-<
<<
<
<
<H00DHD
D
D5
55
((5
5<
<
<-/<
((<
<
<
<
<
<
<
<ÿ"
32621 R$="((!!(("
32622 L$="’’’’’’’’nnnn????’’’’°°°°€€€€????nnnnnnnn????????€€€€€€€€"
32623 S$="a0a0a0a0H$H$‚?‚?a0a0s:s:W+W+‚?‚?H$H$H$H$‚?‚?‚?‚?W+W+W+W+":RETURN 
32700 POL$(1)="<>f>
<``<<f~`<*88<b|fffr<ff<z<`<<š|0|Ò|0|Â<ff~f<f`f<"
32701 POL$(99)="0~`|`~ `lx``~áfv~nf8<fff<
>`<|ù~0~Ù~0~éh „Ë„Í©à…Ì©œ…αˑÍÈÐùæÌæÎ¥Ì)ðïh"
32702 POL$(196)="ª…Ìh…Ë Ý‘Ë ï‘ËÈŠ‘Ë Þ‘Ë"
32703 POL$(218)=CHR$(162):POL$(219)=CHR$(162):POL$(220)="ʽ€¨)ü…͘)	œ…Πʽ€ˆ‘ÍÐ÷ŠÐâ`"
32704 POKE 106,156:GRAPHICS 0:POL=ADR(POL$):POL=USR(POL+162,POL):POKE 756,156
32720 GOSUB 32000:RESTORE 32749:FOR T=1 TO 8:READ AD:FOR I=0 TO 7:READ DA:POKE AD+I,DA:NEXT I:NEXT T:RETURN 
32749 DATA 39976,255,129,129,129,129,129,129,255,40264,0,60,24,24,24,24,60,0,40432,3,3,3,3,3,3,3,3,40032
32750 DATA 60,60,60,60,255,126,60,24,40632,219,219,219,219,219,219,219,219,40648,0,1,1,3,3,15,60,56,40464
32751 DATA 219,219,153,153,24,24,24,24,40552,0,128,128,192,192,240,60,28