Nyitrai László

Csupajáték Videoton TV-Computerre

2004

A mű elektronikus változatára a Creative Commons - Attribution-NonCommercial (Jelöld meg!-Ne add el!) licenc feltételei érvényesek: a művet a felhasználó másolhatja, többszörözheti, átdolgozhatja, amennyiben feltünteti a szerzõ nevét és a mű címét, de kereskedelmi célra nem használhatja fel.
A műre vonatkozó felhasználási feltételek részletes szövege az alábbi címen tekinthető meg: http://creativecommons.org/licenses/by-nc/2.5/hu/

TARTALOM

Awari játék
Awari2-kerek tálkás
Süni –kapd el az almákat
Bioritmus játék
Barkochba kitalálós játék
Chip ügyességi játék
Clementina a boszorkány
Dáma logikai táblás játék
Faltörő játék
Számfordítós memória játék
Lóverseny fogadós játék
Kardhalak és kincsek, szöveges kalandjáték
Memória kártyás – párkereső – játék
Ramazuri szöveges kalandjáték
Reversi-othelló játék
Színre-színt kártyajáték
Szoliter játék
Tili-toli játék
Torpedó tengeri csata játék
A Világ nagyvárosai kitalálós játék
Awari játék
Leírás:
A játékot ketten játszhatják. A két egymással szemközt ülő játékosnak 6-6 tálkája van, amelyek mindegyikében 6 golyó foglal helyet. Mindkét játékosnak van egy gyűjtőtálkája is, ezek a játék kezdetén üresek.
A játékosok felváltva lépnek, a következő módon: a játékos kiválasztja az egyik tálkáját, kiveszi a tartalmát, és az óramutató járásával ellenkező irányban szétosztja a golyókat.
Ha a saját tálkáinak a végére ért, a műveletet az ellenfél tálkáiban folytatja.
Két fontos szabály:
- ha a szétosztás saját gyűjtőtálkában ért véget, akkor a játékos újra léphet;
- ha az utolsó golyó olyan tálkába került, amely üres volt, és a szemben levő tálkában van golyó, akkor a játékos mindkét tálka tartalmát elnyeri, és a saját gyűjtőtálkájába teszi.
A játéknak vége van, ha az egyik játékos összegyűjtött legalább 37 golyót, vagy ha az egyik játékos térfele kiürült. (A győztes ebben az esetben is az, akinek több golyó van a gyűjtőtálkájában ! )

   5 REM ***********************       
  10 REM *     awari-játék     *
  15 REM ***********************
  20 DIM DI$(9)*40,BO$(9)*40,SU$(9)*40,VE$(3)*40,X$*40,G(13)
  25 DIM TL(13),IN(13,2)
  30 RANDOMIZE
  45 DI$(1)="   Gondolkodom !                        "
  50 DI$(2)="     Ez igen !                          "
  55 DI$(3)=" Tűrhető lépés ...                      "
  60 DI$(4)=" Igyekeznem kell !                      "
  65 DI$(5)="Magam sem léphettem   volna különbet !  "
  70 DI$(6)="    Ez nagyon jó        lépés volt !    "
  75 DI$(7)="   Úgy látom, ön    gyakorlott jatékos. "
  80 DI$(8)="  Gratulálok, ön      kiváló játékos !  "
  85 DI$(9)="  Öntől talán még    én is tanulhatok ! "
  90 BO$(1)="   Nincs valami      nagy formában ...  "
  95 BO$(2)="  Ez bizony elég      gyatra lépés ...  "
 100 BO$(3)="   Jobb lenne,         ha feladná ...   "
 105 BO$(4)="Hát, nincs sok érzéke ehhez a játékhoz.  "
 110 BO$(5)="   Nem túlzottan        erős lépés.     "
 115 BO$(6)="Fáradtnak látszik...                    "
 120 BO$(7)="     Egy kicsit     szedje össze magát !"
 125 BO$(8)="    Van még mit          tanulnia !     "
 130 BO$(9)="   Úgysem jár túl       az eszemen !    "
 135 SU$(1)="   Ne piszmogjon       már annyit ...   "
 140 SU$(2)="   Unatkozom ...                        "
 145 SU$(3)="   Ha nincs kedve    játszani, szóljon. "
 150 SU$(4)="     Ha fáradt,         hagyjuk abba.   "
 155 SU$(5)=" Jól gondolja meg !                     "
 160 SU$(6)="      Ön lép !                          "
 165 SU$(7)="   Itt van még ?                        "
 170 SU$(8)="Hiába húzza az időt, nincs sok esélye..."
 175 SU$(9)="    Igyekezzen          egy kicsit !    "     
 235 FOR I=0 TO 12  
 240 IF I=6 THEN 260    
 245 TL(I)=6
 250 IN(I,1)=2
 255 IN(I,2)=3
 260 NEXT I
 261 TL(6)=0:TL(13)=0
 265 IN(6,1)=1
 270 IN(6,2)=1
 275 IN(13,1)=1
 280 IN(13,2)=1
 282 IF UJ=1 THEN 284
 283 GOSUB 315  :REM jatekos koszontese
 284 GOSUB 940  :REM a tabla kirajzolasa
 285 GOSUB 1250 :REM a golyok kiosztasa
 286 GOSUB 1220 :REM sorszamozas
 287 X$="Öné az első lépés !                     ":GOSUB 1335
 288 GOSUB 600 :REM a jatekos lepese      
 289 IF E=0 THEN GOTO 294
 290 IF TL(13)<TL(6)+3 THEN GOSUB 1730:GOTO 292 :REM elismeres
 291 GOSUB 1765 :REM jatekos bosszantasa
 292 GOSUB 1785 :REM a gep lepese       
 293 IF E<>0 THEN GOTO 288
 294 GOSUB 790 :REM a jatszma vege
 295 IF UJ=1 THEN 235                      
 296 X$="Köszönöm a játékot !      Viszlát !     "
 297 GOSUB 1335
 298 FOR I=1 TO 1300:NEXT I
 299 GRAPHICS 4
 300 END
 312 REM ************************
 313 REM * a jatekos köszöntese *
 314 REM ***********************
 315 GRAPHICS 2
 316 PRINT AT 2,30:"A W A R I"
 317 PRINT AT 7,10:"Szeretettel meghívom egy érdekes társasjátékra !"
 318 PRINT AT 9,10:"Kívánja, hogy elmondjam a játék szabályait ? (i/n)"
 319 A$=INKEY$
 320 IF A$<>"i" AND A$<>"n" THEN 319
 321 IF A$="n" THEN 344
 322 CLS:PRINT "   A játékot  ketten játszhatják.  A két  egymással  szemközt"
 323 PRINT "ülő játékosnak 6-6 tálkája van, amelyek mindegyikében 6 golyó"
 324 PRINT "foglal helyet.  Mindkét játékosnak  van egy gyűjtőtálkája is,"
 325 PRINT "ezek a játék kezdetén üresek."
 326 PRINT "   A játékosok felváltva lépnek, a következő módon: a játékos"
 327 PRINT "kiválasztja  az egyik tálkáját,  kiveszi  a tartalmát,  és az"
 328 PRINT "óramutató járásával ellenkező irányban szétosztja a golyókat."
 329 PRINT "Ha a saját tálkáinak  a végére ért,  a műveletet  az ellenfél"
 330 PRINT "tálkáiban folytatja.
 331 PRINT "   Két fontos szabály :
 332 PRINT "     - ha a szétosztás  saját gyűjtőtálkában ért véget, akkor"
 333 PRINT "       a játékos újra léphet;"
 334 PRINT "     - ha az utolsó golyó  olyan tálkába  került,  amely üres"
 335 PRINT "       volt,  és a szemben levő  tálkában  van  golyó,  akkor"
 336 PRINT "       a játékos mindkét tálka tartalmát elnyeri,  és a saját"                                                                       
 337 PRINT "       gyűjtőtálkájába teszi."
 338 PRINT "   A játéknak  vége van,  ha az  egyik játékos  összegyűjtött"
 339 PRINT "legalább 37 golyót, vagy ha az egyik játékos térfele kiürült."
 340 PRINT "( A győztes  ebben  az esetben is az,  akinek  több golyó van"
 341 PRINT "a gyűjtőtálkájában ! )
 342 PRINT:PRINT "   Ha kezdhetjük, nyomjon le egy tetszőleges billentyűt !"
 343 IF INKEY$="" THEN 343
 344 RETURN
 597 REM ************************
 598 REM *   a jatekos lepese   *
 599 REM ************************
 600 S=0
 605 FOR I=1 TO 100:NEXT I
 610 PRINT AT 23,23:"?"
 615 FOR I=1 TO 100:NEXT I
 620 PRINT AT 23,23:" "
 625 S=S+1:IF S=35 THEN GOSUB 1680
 630 A$=INKEY$
 632 IF A$="" THEN 605 
 635 IF A$<"1" OR A$>"6" THEN GOSUB 1385:GOTO 600
 640 L=VAL(A$):LX=L  
 645 IF TL(L-1)=0 THEN GOSUB 1385:GOTO 600
 646 SET INK1:PRINT AT 23,9+L*2:A$:SET INK 3
 650 X$=STRING$(40," "):GOSUB 1335
 655 GOSUB 1415 :REM talkaurites
 675 L=L-1:IN(L,1)=1:IN(L,2)=1:H=6                 
 677 GOSUB 1465 :REM a lepes megtetele
 685 GOSUB 2015 :REM pontszamkiiras
 690 H=13:GOSUB 2015
 691 PRINT AT 23,9+LX*2:A$
 692 GOSUB 860 :REM vege ?
 695 IF E=0 THEN JELZO=0:RETURN
 700 JELZO=JELZO+1
 705 IF L<>6 OR JELZO<>1 THEN 725
 715 X$="  Újra léphet ...                       ":GOSUB 1335
 720 GOTO 600 :REM ujra lephet
 725 JELZO=0
 726 RETURN
 787 REM ***********************
 788 REM *   a jatszma vege    *
 789 REM ***********************
 790 IF TL(6)=TL(13) THEN X$="    Döntetlen !     Játszunk még ? (i/n)"
 795 IF TL(6)<TL(13) THEN X$="  Én győztem !   Még egy partit ? (i/n) "
 800 IF TL(6)>TL(13) THEN X$="  Ön győzött...  Egy visszavágó ? (i/n) "
 801 GOSUB 1335
 802 JELZO=0
 805 A$=INKEY$
 810 IF A$<>"i" AND A$<>"n" THEN 805
 815 IF A$="i" THEN UJ=1:ELSE UJ=0
 820 RETURN
 857 REM ***********************
 858 REM *       vege ?        *
 859 REM ***********************
 860 E=0
 865 IF TL(6)>36 OR TL(13)>36 THEN RETURN 
 870 I=0
 875 IF TL(I)<>0 THEN 890
 880 IF I=5 THEN 885:ELSE I=I+1:GOTO 875
 885 RETURN
 890 I=7
 895 IF TL(I)<>0 THEN E=1:GOTO 905
 900 IF I=12 THEN 905:ELSE I=I+1:GOTO 895   
 905 RETURN
 925 REM ***********************
 930 REM *  tabla kirajzolasa  *
 935 REM ***********************
 940 GRAPHICS 4:SET PALETTE 65,68,84,85 
 945 X=0:Y=0:V=1023:F=959:K=2:A=0:GOSUB 1085
 950 K=3:A=1
 955 V=143:F=560 
 960 X=16:Y=200:GOSUB 1085
 965 X=864:Y=200:GOSUB 1085
 970 V=98:F=280
 975 FOR I=0 TO 5
 980 X=182+I*112:Y=120:GOSUB 1085
 985 X=742-I*112:Y=560:GOSUB 1085
 990 NEXT I
1000 RETURN
1082 REM ***********************
1083 REM * keret (talka) rajz. *
1084 REM ***********************
1085 SET INK K
1090 PLOT X,Y;X+V,Y;X+V,Y+F;X,Y+F;X,Y
1095 SET INK A
1100 PLOT X+4,Y+4,PAINT
1105 RETURN
1217 REM ***********************
1218 REM *    sorszamozas      *
1219 REM ***********************
1220 SET INK 3
1225 PRINT AT 23,11:"1 2 3 4 5 6"
1230 PRINT AT 2,12:"6 5 4 3 2 1"
1235 PRINT AT 4,2:"P:0"
1240 PRINT AT 21,28:"P:0"
1245 RETURN
1247 REM ***********************
1248 REM * a golyok kiosztasa  *
1249 REM ***********************
1250 XX=188:Y=376:S=2
1260 FOR I=1 TO 2
1265 FOR K=0 TO 3
1270 FOR J=0 TO 5
1275 X=XX+J*112+K*24:GOSUB 2044     
1280 NEXT J
1285 NEXT K
1286 Y=Y-36
1290 FOR K=0 TO 1
1295 FOR J=0 TO 5
1300 X=XX+J*112+K*24:GOSUB 2044
1305 NEXT  
1310 NEXT  
1315 Y=816
1320 NEXT  
1325 RETURN
1332 REM ************************
1333 REM *     szovegkiiras     *
1334 REM ************************
1335 PRINT AT 12,7:X$(:20)    
1340 PRINT AT 13,7:X$(21:)      
1345 RETURN
1382 REM ***********************
1383 REM *    hibas lepes !    *
1384 REM ***********************
1385 X$="  Legyen egy kissé     figyelmesebb !  "      
1390 GOSUB 1335
1395 SOUND PITCH 4000,VOLUME 9 
1400 RETURN
1410 REM ***********************
1411 REM *    talkaurites      *
1412 REM ***********************
1415 IF L<7 THEN YY=376:XX=78+L*112:GOTO 1425
1420 YY=816:XX=78+(14-L)*112
1425 YJ=0:XJ=0
1430 FOR I=1 TO TL(L-1)
1435 IF XJ=4 THEN XJ=0:YJ=YJ+1
1440 X=XX+XJ*24:Y=YY-YJ*36:S=1:GOSUB 2044
1441 SOUND PITCH 2500,VOLUME 6,DURATION 2
1442 FOR J=1 TO 100:NEXT J
1445 XJ=XJ+1
1450 NEXT I
1455 RETURN
1462 REM ************************
1463 REM *  a lepes megtetele   *
1464 REM ************************
1465 P=TL(L):TL(L)=0
1470 FOR PP=P TO 1 STEP -1
1475 L=L+1
1480 IF L<=13 THEN 1490
1485 L=L-14
1490 TL(L)=TL(L)+1
1495 IF L<6 THEN L1=L:GOSUB 1620
1500 IF L>=7 AND L<>13 THEN L1=12-L:GOSUB 1620
1505 IF L=13 OR L=6 THEN GOSUB 1650
1515 NEXT PP               
1520 IF TL(L)<>1 THEN 1535
1525 IF (L-6)*(L-13)=0 THEN 1535    
1530 IF TL(12-L)<>0 THEN 1540
1535 RETURN
1540 TL(H)=TL(H)+TL(12-L)+1:R=TL(L)+TL(12-L)-1
1555 L=L+1:GOSUB 1415
1560 L=14-L:GOSUB 1415
1565 TL(L-1)=0:TL(13-L)=0
1580 IN(13-L,1)=1:IN(13-L,2)=1:IN(L-1,1)=1:IN(L-1,2)=1
1585 LL=L-1    
1590 L=H
1595 FOR I=0 TO R
1600 GOSUB 1650
1605 NEXT I
1608 L=LL
1615 RETURN
1617 REM *********************** 
1618 REM *    golyo talkaba    *
1619 REM ***********************
1620 S=2 
1621 X=164+L1*112+IN(L,2)*24
1622 IF L<6 THEN Y=412-IN(L,1)*36:GOTO 1624
1623 Y=852-IN(L,1)*36
1624 GOSUB 2044     
1625 SOUND PITCH 3958,VOLUME 7,DURATION 2
1626 FOR J=1 TO 200:NEXT J
1635 IF IN(L,2)<4 THEN IN(L,2)=IN(L,2)+1:GOTO 1645
1640 IN(L,1)=IN(L,1)+1:IN(L,2)=1
1645 RETURN
1647 REM ***********************
1648 REM *   golyo gyujtobe    *
1649 REM************************
1650 S=2
1651 Y=772-IN(L,1)*36
1652 IF L=6 THEN X=852+IN(L,2)*24:GOTO 1654
1653 X=4+IN(L,2)*24
1654 GOSUB 2044
1655 SOUND PITCH 3950,VOLUME 10,DURATION 2
1656 FOR J=1 TO 200:NEXT J
1665 IF IN(L,2)<5 THEN IN(L,2)=IN(L,2)+1:GOTO 1675
1670 IN(L,1)=IN(L,1)+1:IN(L,2)=1
1675 RETURN
1677 REM ***********************  
1678 REM *     surgetes        *
1679 REM ***********************
1680 J=RND(9)+1
1685 X$=SU$(J):GOSUB 1335
1690 S=0:RETURN
1727 REM ************************
1728 REM *      elismeres       *
1729 REM ************************
1730 J=RND(12)+1
1735 IF J>9 THEN 1745
1740 X$=DI$(J):GOSUB 1335
1745 RETURN
1762 REM ************************
1763 REM *     bosszantas       *
1764 REM ************************
1765 J=RND(12)+1
1770 IF J>9 THEN 1780
1775 X$=BO$(J):GOSUB 1335
1780 RETURN
1782 REM ************************
1783 REM *    a gep lepese      *
1784 REM ************************
1785 D=-99:H=13
1805 FOR I=0 TO 13:G(I)=TL(I):NEXT I
1810 FOR J=7 TO 12
1815 IF TL(J)=0 THEN 1930
1820 B1=TL(13)
1825 Q=0:M=J:GOSUB 1957      
1830 FOR I=0 TO 5
1835 IF TL(I)=0 THEN 1895
1840 L=TL(I)+I
1845 R=0
1850 IF L<=13 THEN 1870
1855 L=L-14
1860 R=1
1865 GOTO 1850
1870 IF TL(L)<>0 THEN 1885
1875 IF (L-6)*(L-13)=0 THEN 1885
1880 R=TL(12-L)+R
1885 IF R<=Q THEN 1895
1890 Q=R
1895 NEXT I
1900 Q=TL(13)-TL(6)-Q
1905 FOR I=0 TO 13
1910 TL(I)=G(I)
1915 NEXT I
1920 IF Q<D THEN 1930
1925 A=J:D=Q
1930 NEXT J
1935 IN(A,1)=1:IN(A,2)=1
1936 FOR J=1 TO 500:NEXT J
1937 X$=STRING$(40," "):GOSUB 1335
1940 SET INK 1:PRINT AT 2,38-(A+1)*2:STR$(A-6):SET INK 3
1945 L=A+1:GOSUB 1415 :REM talkaurites
1947 L=A:GOSUB 1465 :REM a lepes megtetele
1948 GOSUB 2015:H=6:GOSUB 2015:H=13 :REM pontszamkiiras
1949 PRINT AT 2,38-(A+1)*2:STR$(A-6)
1950 GOSUB 860 :REM vege ?
1951 IF E=0 THEN JELZO=0:RETURN
1952 JELZO=JELZO+1
1953 IF L<>13 OR JELZO<>1 THEN 1956
1954 X$="  Újra léphetek !                       ":GOSUB 1335
1955 GOSUB 1785 :REM ujra lep    
1956 JELZO=0:RETURN
1957 P=TL(M):TL(M)=0
1960 FOR PP=P TO 1 STEP -1
1965 M=M+1
1970 IF M<=13 THEN 1980
1975 M=M-14
1980 TL(M)=TL(M)+1
1985 NEXT PP
1990 IF TL(M)<>1 THEN 2005
1995 IF (M-6)*(M-13)=0 THEN 2005 
2000 IF TL(12-M)<>0 THEN 2010
2005 RETURN
2010 TL(H)=TL(H)+TL(12-M)+1:TL(M)=0:TL(12-M)=0
2011 RETURN
2012 REM ***********************
2013 REM *   pontszamkiiras    *
2014 REM ***********************
2015 IF H=6 THEN PRINT AT 21,30:STR$(TL(6)):RETURN
2020 PRINT AT 4,4:STR$(TL(13)):RETURN
2041 REM ***********************
2042 REM *  golyo rajz./torl.  *
2043 REM ***********************
2044 SET INK S
2045 PLOT X,Y;X+16,Y
2050 PLOT X,Y-4;X+16,Y-4
2055 PLOT X,Y+4;X+16,Y+4
2060 PLOT X,Y-8;X+16,Y-8
2065 PLOT X,Y+8;X+16,Y+8
2070 PLOT X+4,Y-12;X+12,Y-12
2075 PLOT X+4,Y+12;X+12,Y+12
2090 SET INK 3
2095 RETURN

Awari2-kerek tálkás
Leírás:
Egyszerre egy játékos játszik a gép ellen. A táblán található 14 db tányérból a játékosé:
- 6 alsó [A1-A6 jelűek]
- jobboldali gyűjtőtál [A jelű]
a gép tányérjai pedig:
- 6 felső [B1-B6 jelűek]
- baloldali gyűjtőtál [B jelű]
A játék kezdetén minden tálba 1-9 db golyót teszünk, azonban a gyűjtőtálak üresen maradnak. A kezdést a játékos dönti el.
A játék célja, hogy a saját gyűjtőtányérunkba minél több golyót gyűjtsünk. Bárki következik lépésre csak a saját tányéraiból indulhat. Ilyenkor a választott tálból az összes golyót ki kell venni, és az óramutató járásával ellentétes irányba haladva, egyenként elhelyezni a soron következő tálakba.
Mindenki csak a saját gyűjtő-táljába tehet, az ellenfélét ki kell hagyni! Gyűjtőtálból indulni Tilos.(Értelmetlen is lenne.)
Ha a lépés során az utolsó mag épp a saját gyűjtőtálkába kerül, akkor a játékos jutalomból újra léphet. Így lépéssorozatok alakíthatók ki.
A játék akkor ér véget ha bármely oldalon az összes tálka kiürült függetlenül attól, hogy az ellenfél oldalán maradt-e még golyó!
A győztes az akinek több golyó gyűlt össze a gyűjtőtálkájában, még akkor is ha a játékot az ellenfél fejezte be!
A játékot feladni a '0' gomb megnyomásával lehet.

   3 !ÖÓ^ÉÜYÉÁĄ:aÁÜYÉÁ,:aÁ*ÉÁÁMODEÁÁÁÉÖÁIFATANDÚÖSTYLEÜ>=í#óáCLSANDÚÁ~ü0ÉŐ++éÜÜSOUNDNEXTINKEY$!ĆÜGET2ŐÜOUTPUT+~üOUTPUT!ú#!ú#!ú#!úANDÉÁÁ~ü0Éő+NEXTINKEY$éőÜ!ĆÜOFFIFCŹÜOUTPUT+NEXT~ü!őÜ!ú#!ú#!úOUTPUT+éÜÜSOUND!ĆÜEXT!őÜ!őÜANDDEFëDATA+ˇ"ˇÖÝS§ÖÝC:Ö!ÁÁ"űÖ"¸Ö"¨Ö!'Óňß+éÁÁĚÝZ(Íň*§ÖÝ[:ÖÖLET*CLSÖDM!(!Ö!(!Ö!(!ÖSTYLEIFBIFKENDÖëDMDEFÚSTYLE(ÖDEFëűÍDEFŰ!CLOSEÖ!GÜ!ÜÜé
j837 űŐ
   4 !-ĆÜ!_Ö- ÜßĐÚÖĚÜÄí#óá¨!_Ö-GÜ!ÜÜéÓÜŇň-ĆÜ!·Ö- ÜßĐ-őÜÉŰÁ!
o249 ÖIFATMODE>=Ü
   5 POKE 33,130:POKE 34,26
  90 !program awari
  94 GRAPHICS16
  95 
 100 FOR I=1 TO 22
 101 COL1=RND(15)+1 :IF COL1=8 THEN101
 102 SET INK COL1: PRINT AT I,1:"   A W A R I    "
 103 NEXTI
 106 COL1=RND(15)+1:IF COL1=8 THEN 106
 107 SET INK COL1
 108 PRINT AT RND(22)+1,1:"   A W A R I   ":IF INKEY$=""THEN 106
 110 SET CHARACTER 169,0,0,0,0,0,0,0,0,0,31
 111 SET CHARACTER 170,0,0,0,0,0,0,0,0,0,248
 112 SET CHARACTER 176,0,1,2,12,8,24,44,34,67,66
 113 SET CHARACTER 177,96,128,0,0,15,48,64,128,0,0
 114 SET CHARACTER 178,6,1,0,0,240,12,2,1,0,0
 115 SET CHARACTER 179,0,128,64,48,16,8,4,4,130,66
 116 SET CHARACTER 184,130,132,132,132,132,132,132,132,132,130
 117 SET CHARACTER 187,65,33,33,33,33,33,33,33,33,65
 118 SET CHARACTER 192,66,65,32,32,16,8,12,2,1,0
 119 SET CHARACTER 193,0,0,128,64,48,15,0,0,128,96
 120 SET CHARACTER 194,0,0,1,2,12,240,0,0,1,6
 121 SET CHARACTER 195,66,130,68,36,24,16,48,64,128,0
 122 SET CHARACTER 201,31,0,0,0,0,0,0,0,0,0
 123 SET CHARACTER 202,248,0,0,0,0,0,0,0,0,0
 150 SET CHARACTER ORD("#")+128,255,255,255,255,255,255,255,255,255,255
 160 DIM J(13),P(13)
 170 DIM X(14),Y(14)
 180 DIM M(14),R(14)
 190 DIM Z$(14)*5
 200 DIM S$(9)*40
 201 DIM KILLER$*30,J$*128
 202 DIM FOKOZAT$(4):FOKOZAT$(1)="  I.":FOKOZAT$(2)=" II.":FOKOZAT$(3)="III.":FOKOZAT$(4)=" IV."
 210 CIM=0:US=2:W=0:E=0:XKOR=32:YKOR=790:LENGHT=38:KAR=32:CHN=2:TVC=0:JATEKOS=0
 220 O$="":L$="":X$="":F$=""
 230 GRAPHICS4
 240 KILLER$=STRING$(30,ORD("#")+128)
 245 GOTO 320
 250 !DEF GETCHAR (REF X$)
 260 X$=INKEY$
 270 X$=INKEY$
 280 IF X$="" THEN 270
 290 RETURN
 300 !
 310 !END DEF!GETCHAR
 320 FOR N=1 TO 13
 330 READ J(N)
 340 NEXT N
 350 FOR N=1 TO 14
 360 READ Z$(N)
 370 NEXT N
 380 X(7)=370:Y(7)=882
 390 X(14)=370:Y(14)=96
 400 FOR N=1 TO 6
 410 Y(N)=82+((N-1)*160):X(N)=170
 420 NEXT N
 430 FOR N=8 TO 13
 440 Y(N)=882-((N-8)*160):X(N)=570
 450 NEXT N
 460 FOR N=1 TO 9
 470 READ S$(N)
 480 NEXT N
 490 DATA 6,5,4,3,2,1,0,6,5,4,3,2,1
 500 DATA A6,A5,A4,A3,A2,A1,A,B6,B5,B4,B3,B2,B1,B
 510 DATA "A harácsolás nem szép dolog!"
 520 DATA "Nekem semmit sem hagysz?"
 530 DATA "Nem egyedül játszol!"
 540 DATA "Azt hiszem erősítenem kell!"
 550 DATA "Vajon mikor jöhetek?"
 560 DATA "Én is jóval kezdtem ki!"
 570 DATA "Na én alszom egyet!"
 580 DATA "Nem vagy Te egy kicsit kapzsi?"
 590 DATA "Neked ez nagyon megy."
 620 GOTO 3260
 630 SET BORDER 0
 640 GOSUB 4300
 650 SET INK 1
 660 SET PAPER 3:SET MODE 0
 670 GOSUB 5200
 671 PLOT XKOR,920,:  PRINT #0:"TVC:";TVC
 672 PLOT 512+KAR,920,:  PRINT#0:"JÁTÉKOS:";JATEKOS
 680 PLOT XKOR,YKOR
 690 PRINT #0:"Hány figurával játszunk? [1-9]"
 691 SOUND DURATION 1
 700 GOSUB 260
 710 WW=VAL(X$)
 720 IF WW<1 OR WW>9 THEN 650
 730 FOR N=1 TO 14
 740 M(N)=WW
 750 NEXT N
 760 M(7)=0:M(14)=0
 770 SET PAPER0:FOR N=1 TO 14
 780 PLOT Y(N),X(N),:PRINT #0:"  "
 790 PLOT Y(N),X(N),
 800 PRINT #0,USING ">#":M(N)
 810 NEXT N :SET PAPER3
 820 J$="Milyen erősen játsszak [1-4]?"
 830 GOSUB 5200
 840 PLOT XKOR,YKOR,
 850 PRINT #0:J$
 851 SOUND DURATION 5
 860 GOSUB 260:F$=X$
 870 IF F$>"4" OR F$<"1" THEN 860
 871 PLOT 330,270,:PRINT #0:FOKOZAT$(VAL(F$))&" fokozat"
 872 SET MODE2:SET INK 0:PLOT 338,275,:PRINT #0:FOKOZAT$(VAL(F$))&" fokozat":SET INK1:SET MODE0
 880 UJRA=0:KEZD=1
 890 J$="Te kezdesz? [I\N]"
 900 GOSUB 5200
 910 PLOT XKOR,YKOR,
 920 PRINT #0:J$
 921 SOUND DURATION 1
 930 GOSUB 260
 940 !IF X$="" THEN 930
 950 IF X$="N" OR X$="n" THEN 1120
 960 IF X$<>"I" AND X$<>"i" THEN 900
 970 KEZD=0
 980 GOSUB 1260
 990 GOSUB 1650
1000 UJRA=UJRA+1
1010 IF UJRA<4 THEN 1110
1020 UJRA=0:J$=S$(INT(RND(8)+1))
1030 FOR U=1 TO 6
1040 GOSUB 5200
1050 PLOT XKOR,YKOR,
1060 PRINT #0:J$
1070 FOR Z=1 TO 80
1080 NEXT Z
1090 NEXT U
1100 GOSUB 5200
1110 IF (I=7) THEN 980
1120 UJRA=0
1130 GOSUB 5200
1140 PLOT XKOR,YKOR,
1150 J$="A gép lépése:"&KILLER$(1:2)
1160 PRINT #0:J$
1170 GOSUB 2880
1180 J$=Z$(K)
1200 PLOT XKOR+(13*KAR),YKOR
1210 PRINT #0:J$
1211 SOUND DURATION 10
1220 GOSUB 1650
1230 GOSUB 5200
1240 IF (I=14) THEN 1130
1250 GOTO 980
1260 J$="Te jössz! Honnan? A "
1280 GOSUB 5200
1290 PLOT XKOR,YKOR,
1300 PRINT #0:J$
1301 SOUND DURATION 10
1310 GOSUB 260:L$=X$
1320 L$="A"&L$
1330 PLOT XKOR+(18*KAR),YKOR,
1340 PRINT #0:L$
1350 IF (L$<>"A0") THEN 1440
1360 J$="Feladtad ? [I\N]"
1370 GOSUB 5200
1380 PLOT XKOR,YKOR,
1390 PRINT #0:J$
1391 SOUND DURATION 10
1400 GOSUB 260
1410 IF X$="I" OR X$="i" THEN M(7)=-1:GOTO 4060
1420 IF X$<>"N" AND X$<>"n" THEN GOTO 1370
1440 K=1
1450 IF Z$(K)=L$ THEN 1600
1460 K=K+1
1470 IF K<=6 THEN 1450
1480 J$="Az A1-A6 tálakból vehetsz!"
1481 SOUND DURATION 40
1490 FOR U=1 TO 3
1500 GOSUB 5200
1510 PLOT XKOR,YKOR,
1520 PRINT #0:J$
1540 NEXT U
1550 GOSUB 5200
1590 GOTO 1260
1600 IF M(K)<>0 THEN 1620
1610 GOTO 1630
1620 RETURN
1630 J$="Üres tálból nem indulhatsz!"
1631 SOUND DURATION 40
1640 GOTO 1490
1650 MM=1:TAR=M(K)
1700 SET PAPER0
1701 PLOT Y(K),X(K),:PRINT #0:"  "
1710 PLOT Y(K),X(K),
1720 PRINT #0,USING ">#":M(K)
1740 PLOT Y(K),X(K),:PRINT #0:"  "
1760 M(K)=0:D=K+1
1770 FOR I=D TO 14
1780 IF K<7 AND I=14 THEN D=1:GOTO 1770
1790 TAR=TAR-1:MM=MM+1
1800 IF K>7 AND I=7 THEN I=8
1860 SET PAPER0
1861 PLOT Y(I),X(I),:PRINT #0:"  "
1870 PLOT Y(I),X(I),
1880 PRINT #0,USING ">#":M(I)
1950 PLOT Y(I),X(I),:PRINT #0:"  "
1960 PLOT Y(I),X(I),
1970 M(I)=M(I)+1
1980 PRINT #0, USING ">#":M(I)
1981 SET PAPER3
1990 IF (TAR=0) THEN 2020
2000 NEXT I
2010 D=1:GOTO 1770
2020 IF M(1)+M(2)+M(3)+M(4)+M(5)+M(6)=0 OR M(8)+M(9)+M(10)+M(11)+M(12)+M(13)=0 THEN 4060
2030 RETURN
2040 POZ=0
2050 IF M(K)>=J(K) THEN POZ=INT(((M(K)-J(K))/13)+1)
2060 TAV=0
2070 FOR Z=8 TO 13
2080 IF R(Z)=0 THEN 2220
2090 IF R(Z)<>J(Z) THEN 2120
2100 POZ=POZ+1
2110 IF(TAV=0) THEN TAV=7-J(Z)
2120 IF R(Z)<>J(Z)+13 THEN 2150
2130 POZ=POZ+2
2140 IF (TAV=0) THEN TAV=7-J(Z)
2150 IF Z=13 THEN 2230
2160 IF ((R(Z)=J(Z)) AND (R(Z+1)=J(Z)-2)) OR ((R(Z)=J(Z)-1) AND (R(Z+1)=J(Z)-1)) THEN POZ=POZ+1
2170 IF ((R(Z)=J(Z)-1) AND (R(Z+2)=J(Z)-2)) OR ((R(Z)=J(Z)-1) AND (R(Z+2)=J(Z)+12)) THEN POZ=POZ+1
2180 IF ((R(Z)=J(Z)) AND (R(Z+1)=J(Z)+11)) OR ((R(Z)=J(Z)-1) AND (R(Z+1)=J(Z)+12)) THEN POZ=POZ+1
2190 IF Z=12 THEN 2220
2200 IF ((R(Z)=J(Z)) AND (R(Z+1)=J(Z)-2) AND (R(Z+2)=J(Z)-4)) OR ((R(Z)=J(Z)) AND (R(Z+1)=J(Z)+11) AND (R(Z+2)=J(Z)-5)) OR ((R(Z)=J(Z)) AND (R(Z+1)=J(Z)-2) AND (R(Z+2)=J(Z)+9)) THEN POZ=POZ+2
2210 IF (R(Z)=J(Z)) AND (R(13)<2) THEN POZ=POZ+2.5
2220 NEXT Z
2230 P(K)=P(K)+POZ
2240 RETURN
2250 MAV=TAV:TAV=0
2260 FOR Z=1 TO 6
2270 IF R(Z)=0 THEN 2410
2280 IF R(Z)<>J(Z) THEN 2310
2290 P(K)=P(K)-1
2300 IF (TAV=0) THEN TAV=7-J(7)
2310 IF R(Z)<>J(Z)+13 THEN 2340
2320 P(K)=P(K)-3
2330 IF (TAV=0) THEN TAV=7-J(Z)
2340 IF Z<>6 THEN 2360
2350 RETURN
2360 IF (R(Z)=J(Z)) AND (R(Z+1)=J(Z)-1 OR R(Z+1)=J(Z)-2) THEN P(K)=P(K)-1
2370 IF (R(Z)=J(Z)) AND (R(Z+1)=J(Z)+11) THEN P(K)=P(K)-2
2380 IF Z=5 THEN 2410
2390 IF (R(Z)=J(Z)) AND (R(Z+1)=J(Z)-2) AND ((R(Z+2)=J(Z)-4) OR (R(Z+2)=J(Z)+9) OR (R(Z+2)=J(Z)+10) OR (R(Z+2)=J(Z)-3)) THEN P(K)=P(K)-2
2400 IF (R(Z)=J(Z)) AND (R(6)<=2) THEN P(K)=P(K)-2.5
2410 NEXT Z
2420 RETURN
2430 TAR=M(K)
2440 FOR I=1 TO 14
2450 R(I)=M(I)
2460 NEXT I
2470 R(K)=0:D=K+1
2480 FOR I=D TO 14
2490 TAR=TAR-1
2500 IF I=7 THEN I=8
2510 R(I)=R(I)+1
2520 IF (TAR=0) THEN 2550
2530 NEXT I
2540 D=1:GOTO 2480
2550 P(K)=0
2560 GOSUB 2040
2570 IF (F$<>"2") THEN 2590
2580 RETURN
2590 GOSUB 2250
2600 IF (F$<>"3") THEN 2620
2610 RETURN
2620 HN=8:F=-1:TL=1:IG=6
2630 GOSUB 2670
2640 TAV=MAV:HN=1:W=F:F=1:TL=8:IG=13
2650 GOSUB 2670
2660 RETURN
2670 G=0:Q=0:S=0:E=0
2680 FOR JJ=HN TO HN+5
2690 IF (R(JJ)>=J(JJ)+TAV) AND (TAV>0) AND (HN=1) THEN P(K)=P(K)-POZ+1:TAV=0
2700 IF (R(JJ)=0) OR (R(JJ)>=J(JJ)) THEN 2720
2710 GOTO 2740
2720 G=G+1
2730 IF ((S>R(JJ)-J(JJ)) OR (S=0)) AND (R(JJ)>0) THEN S=R(JJ)-J(JJ)
2740 IF (R(JJ)>=J(JJ)) THEN E=E+1
2750 NEXT JJ
2760 IF (G<6) THEN 2780
2770 GOTO 2790
2780 RETURN
2790 FOR JJ= TL TO IG
2800 IF (S>=7-J(JJ)) AND ((R(JJ)=J(JJ)-1) OR (R(JJ)=J(JJ)+12)) THEN 2820
2810 GOTO 2840
2820 Q=Q+1
2830 IF (R(IG)<2) THEN P(K)=P(K)+F
2840 IF (R(JJ)=J(JJ)-Q) AND (Q>1) THEN Q=Q+1
2850 NEXT JJ
2860 P(K)=P(K)+(Q*F)
2870 RETURN
2880 IF M(13)<>1 THEN 2910
2890 K=13
2900 RETURN
2910 PRI=0
2920 FOR B=8 TO 12
2930 IF M(B)=J(B) AND M(B+1)=J(B)+11 THEN PRI=PRI+1
2940 IF M(B)=J(B) THEN PRI=PRI+1
2950 IF M(B)=J(B) AND M(B+1)=J(B)-2 THEN PRI=PRI+1
2960 NEXT B
2970 FOR K=13 TO 8 STEP -1
2980 IF (M(K)=J(K)+26) OR ((M(K)=J(K)+13) AND (PRI<2)) THEN 3000
2990 GOTO 3010
3000 RETURN
3010 NEXT K
3020 FOR K=12 TO 8 STEP -1
3030 IF M(K)<>J(K) THEN 3050
3040 RETURN
3050 NEXT K
3060 IF (F$="1") OR (KEZD=1) THEN KEZD=0:GOTO 3190
3070 FOR K=8 TO 13
3080 P(K)=-99
3090 IF M(K)<>0 THEN 3110
3100 GOTO 3120
3110 GOSUB 2430
3120 NEXT K
3130 V=P(8):K=8
3140 IF (W=6) AND (E=6) AND (F$="4") THEN 3220
3150 FOR L=9 TO 13
3160 IF P(L)>=V THEN V=P(L):K=L
3170 NEXT L
3180 RETURN
3190 K=INT(RND(6)+8)
3200 IF M(K)=0 THEN 3190
3210 RETURN
3220 FOR L=9 TO 13
3230 IF P(L)>V THEN V=P(L):K=L
3240 NEXT L
3250 RETURN
3259 
3260 !    ITT INDUL A PROGRAM  !
3261 
3262 CLS:SET INK0:SET PAPER1:PRINT AT 12,4:"Kéred a szabályokat? [I/N]":SET PAPER 0:SET INK1
3270 GOSUB 260:O$=X$
3280 !
3290 !
3300 !
3310 IF O$="n" OR O$="N" THEN 630
3320 IF O$<>"I" AND   O$<>"i" THEN 3270
3330 GOSUB 3360
3340 IF CIM=2 THEN CLS
3350 GOTO 4040
3360 ! IDE JÖNNEK A SZABÁLYOK
3370 CLS
3390 PRINT "          Szabályok"
3391 PRINT "  Egyszerre egy játékos játszik"
3392 PRINT "a gép ellen. A táblán található"
3393 PRINT "14 db tányérból a játékosé:"
3394 PRINT " - 6 alsó [A1-A6 jelűek]"
3395 PRINT " - jobboldali gyűjtőtál [A jelű]";
3396 PRINT "     a gép tányérjai pedig:"
3397 PRINT " - 6 felső [B1-B6 jelűek]"
3398 PRINT " - baloldali gyűjtőtál [B jelű]"
3399 PRINT "  A játék kezdetén minden tálba"
3400 PRINT "1-9 db golyót teszünk, azonban a";
3401 PRINT "gyűjtőtálak üresen maradnak."
3402 PRINT "  A kezdést a játékos dönti el."
3403 PRINT "  A játék célja, hogy a saját"
3404 PRINT "gyűjtőtányérunkba minél több"
3405 PRINT "golyót gyűjtsünk. Bárki követke-";
3406 PRINT "zik lépésre csak a saját tányé-"
3407 PRINT "raiból indulhat. Ilyenkor a vá-"
3408 PRINT "lasztott tálból az összes golyót";
3409 PRINT "ki kell venni, és az óramutató"
3410 PRINT "járásával ellentétes irányba ha-";
3411 PRINT "ladva, egyenként elhelyezni a"
3412 PRINT "soron következő tálakba."
3419 A$=INKEY$
3420 A$=INKEY$:IF A$="" THEN 3420
3425 CLS
3430 PRINT "  Mindenki csak a saját gyűjtő-"
3440 PRINT "táljába tehet, az ellenfélét ki"
3441 PRINT "kell hagyni! Gyűjtőtálból indul-";
3442 PRINT "ni Tilos.(Értelmetlen is lenne.)"
3443 PRINT "  Ha a lépés során az utolsó mag";
3444 PRINT "épp a saját gyűjtőtálkába kerül,";
3445 PRINT "akkor a játékos jutalomból újra"
3446 PRINT "léphet. Így lépéssorozatok ala-"
3447 PRINT "kíthatók ki."
3448 PRINT "  A játék akkor ér véget ha bár-";
3449 PRINT "mely oldalon az összes tálka ki"
3450 PRINT "ürült függetlenül attól, hogy az";
3451 PRINT "ellenfél oldalán maradt-e még go";
3452 PRINT "lyó!"
3453 PRINT "  A győztes az akinek több golyó";
3454 PRINT "gyűlt össze a gyűjtőtálkájában,"
3455 PRINT "még akkor is ha a játékot az el-";
3456 PRINT "lenfél fejezte be!"
3457 PRINT "  A játékot feladni a '0' gomb"
3458 PRINT "megnyomásával lehet."
3459 PRINT
3460 PRINT "  Bármely gombra indul a játék!"
3461 A$=INKEY$
3462 A$=INKEY$:IF A$=""THEN 3462
3470 !
3480 !
3490 !
3500 !
4020 !
4030 !
4040 IF CIM=2 THEN 1270
4050 GOTO 630
4060 GOSUB 5200
4070 IF M(7)>M(14) THEN PLOT XKOR,YKOR,:PRINT #0:"Gratulálok! Nyertél!":JATEKOS=JATEKOS+1
4110 IF M(7)=M(14) THEN PLOT XKOR,YKOR,:PRINT #0:"Gratulálok! Döntetlen!":JATEKOS=JATEKOS+.5:TVC=TVC+.5
4150 IF M(7)<M(14) THEN PLOT XKOR,YKOR,:PRINT #0:"Sajnálom! Vesztettél!":TVC=TVC+1
4190 FOR VARJAL=0 TO 1000:NEXT VARJAL
4200 GOSUB 5200
4210 PLOT XKOR,YKOR,
4220 PRINT #0: "Visszavágó? [I/N]"
4230 GOSUB 260
4240 IF X$="i" OR X$="I" THEN 670
4250 IF X$<>"N" AND X$<>"n" THEN 4230
4260 END
4270 ! DEF CIMLAP
4300 !DEF SCREEN
4320 GRAPHICS4
4321 GRAY1=56:GRAY2=199
4330 SET PALETTE 85,64,16,21
4331 EXT0,125,350,70:EXT0,125,350,98
4332 EXT0,900,350,70:EXT0,900,350,98
4340 SET BORDER 0
4350 A=17:B=650:GOSUB 4354:A=17:B=250:GOSUB 4354:GOTO 4370
4354 PLOT A,B,
4355 PRINT #0:"  ę    ę    ę    ę    ę    ę ":B=B-40:PLOT A,B,
4356 PRINT #0:" ___¦ ___¦ ___¦ ___¦ ___¦ ___¦":B=B-40:PLOTA,B,
4357 PRINT #0:" Ş  + Ş  + Ş  + Ş  + Ş  + Ş  +":B=B-40:PLOTA,B,
4358 PRINT #0:" +--+ +--+ +--+ +--+ +--+ +--+":B=B-40:PLOTA,B
4359 PRINT #0:"  +-   +-   +-   +-   +-   +-"
4360 RETURN
4370 !box par --> x,y,h,m,q
4392 SET INK2
4395 FORI=87 TO 900 STEP 160:PLOT I,500,PAINT:PLOT I,110,PAINT:NEXT
4396 !PLOT 60,350,PAINT,835,350,PAINT
4397 SET INK2: PLOT 50,350,PAINT,825,350,PAINT
4400 SET PAPER 3
4405 XZ=240:YZ=285:HZ=550:MZ=130:QZ=20:GOSUB4740
4410 XZ=0:YZ=0:HZ=1023:MZ=699:QZ=20:GOSUB4740
4420 SET INK 3
4450 PLOT 30,30,PAINT
4460 XZ=0:YZ=699:HZ=1023:MZ=150:QZ=20:GOSUB4740
4461 XZ=0:YZ=851:HZ=511:MZ=108:QZ=20:GOSUB4740
4462 XZ=512:YZ=851:HZ=511:MZ=108:QZ=20:GOSUB4740
4465 SET INK 1: PLOT 0,948,PAINT
4470 GOSUB 5000
4480 PLOT 62+17,76,
4490 SET INK 1
4491 SET MODE 2
4500 PRINT #0:"A6   A5   A4   A3   A2   A1"
4510 PLOT 68+17,81,
4520 SET INK 0
4530 PRINT #0:"A6   A5   A4   A3   A2   A1"
4540 PLOT 62+17,653,
4550 SET INK1
4560 PRINT #0:"B1   B2   B3   B4   B5   B6"
4570 PLOT 68+17,658,
4580 SET INK0
4590 PRINT #0:"B1   B2   B3   B4   B5   B6"
4600 PLOT 202,450,
4610 SET INK 1
4620 PRINT #0:"B"
4630 PLOT 208,456,
4640 SET INK 0
4650 PRINT #0:"B"
4660 PLOT 790,450,
4670 SET INK 1
4680 PRINT #0:"A"
4690 PLOT 798,456,
4700 SET INK 0
4710 PRINT #0:"A"
4720 RETURN !SCREEN
4730 !
4740 !DEF BOX
4750 PLOT,
4760 SET INK1
4770 PLOT XZ,YZ;
4780 PLOT XZ+HZ,YZ;
4790 PLOT XZ+HZ,YZ+MZ;
4800 PLOT XZ,YZ+MZ;
4810 PLOT XZ,YZ
4820 PLOT XZ+QZ,YZ+QZ;
4830 PLOT XZ+HZ-QZ,YZ+QZ;XZ+HZ,YZ;XZ+HZ-QZ,YZ+QZ;
4840 PLOT XZ+HZ-QZ,YZ+MZ-QZ,XZ+HZ,YZ+MZ;XZ+HZ-QZ,YZ+MZ-QZ;
4850 PLOT XZ+QZ,YZ+MZ-QZ;XZ,YZ+MZ;;XZ+QZ,YZ+MZ-QZ;
4860 PLOT XZ+QZ,YZ+QZ
4870 SET INK 2
4880 PLOT XZ+5,YZ+5,PAINT
4890 SET INK 3
4900 PLOT XZ+(HZ/2),YZ+(MZ/2),PAINT
4910 RETURN
5000 SET INK 1:A=.815:PLOT,
5010 PLOT 345*A,315;345*A,380;415*A,380;475*A,335;575*A,335;
5020 PLOT 635*A,380;705*A,380;705*A,335;725*A,335;725*A,380;
5030 PLOT 815*A,380;855*A,360;815*A,350;845*A,335;885*A,335;
5040 PLOT 885*A,360;925*A,360;925*A,315;795*A,315;795*A,335;
5050 PLOT 755*A,335;755*A,315;675*A,315;675*A,335;635*A,335;
5060 PLOT 635*A,315;425*A,315;425*A,335;385*A,335;385*A,315;
5070 PLOT 345*A,315,355*A,325,PAINT
5080 PLOT 925*A,380;925*A,375;885*A,375;885*A,380;925*A,380,
5090 PLOT 895*A,379,PAINT
5100 PLOT 435*A,380;480*A,340;510*A,340;525*A,355;540*A,340;
5110 PLOT 570*A,340;620*A,380;580*A,380;560*A,365;540*A,380;
5120 PLOT 510*A,380;495*A,365;475*A,380;435*A,380,455*A,370,PAINT
5130 RETURN
5200 !def töröl (x,y,long)
5210 PLOT XKOR,YKOR,
5211 SET INK 3
5220 PRINT #0:KILLER$(1:LENGHT)
5221 SET INK 1
5230 RETURN

Süni –kapd el az almákat
A Sünikéd éhes, kapd el az almákat!
Leírás: a fentről potyogó almákat kell elkapni pontok járnak érte, mozgatás a botkormánnyal.

   1 SET CHARACTER 160,12,16,118,255,255,255,126,60,52,0
   2 SET CHARACTER 161,0,0,128,192,121,63,6,0,0,0
   3 SET CHARACTER 162,10,14,17,17,159,238,96,0,0,0
   4 SET CHARACTER 163,0,0,0,153,255,126,102,0,0,0
   5 SET CHARACTER 164,10,14,17,31,145,238,96,0,0,0
  10 SET CHARACTER 165,0,37,21,15,31,63,191,127,8,14
  11 SET CHARACTER 166,0,72,80,248,228,234,225,255,32,56
  12 SET CHARACTER 167,8,5,53,15,31,191,191,127,16,28
  13 SET CHARACTER 168,0,144,80,248,228,234,225,255,16,8
  14 SET CHARACTER 169,1,17,11,4,8,10,16,31,5,4
  15 SET CHARACTER 170,64,72,208,32,16,72,8,248,160,32
  16 SET CHARACTER 171,1,9,11,4,8,9,16,31,5,12
  17 SET CHARACTER 172,64,80,208,32,16,136,8,248,160,48
  18 SET CHARACTER 173,0,18,10,31,39,87,135,255,4,28
  19 SET CHARACTER 174,0,72,80,224,240,248,253,254,16,112
  20 SET CHARACTER 175,0,10,10,31,39,87,135,255,2,6
  21 SET CHARACTER 176,0,144,80,224,240,248,252,255,16,48
  30 GRAPHICS16
  31 PRINT"A Sünikéd éhes"
  32 PRINT"   kapd el az       almákat!"
  33 PRINT"                   "
  34 PRINT"Irányítás:         "
  35 PRINT"   o<- ąŽ ->p "
  36 GET:GRAPHICS4
 100 GRAPHICS4
 110 PLOT0,100;1023,100
 120 SETINK2:PLOT10,10,PAINT
 130 X=0:Y=800:PLOTX,Y;
 140 X=X+RND(50):Y=Y+RND(20)-10
 150 IF X<1023 THEN PLOTX,Y;:GOTO140
 160 PLOT1023,800
 170 SETINK3: PLOT4,950,PAINT:SETMODE3
 180 DIMXA(40):DIMYA(40):FORI=2TO40:XA(I)=XA(I-1)+RND(50):YA(I)=800+RND(150):SETINK0:PLOTXA(I),YA(I):SETINK1:PRINT#0:"á":NEXT
 200 DIMK$(2):K$(1)=" íó":K$(2)=" úĄ":ALMA=39:PONT=0
 210 XS=15
 220 DIMS$(5,5)
 225 FORI=1TO5:FORK=1TO5:S$(I,K)="    ":NEXT:NEXT
 230 S$(3,1)=" ąŽ "
 231 S$(3,2)=" žĘ "
 232 S$(2,1)=" ę  "
 233 S$(2,2)=" źČ "
 234 S$(1,1)=" ş« "
 235 S$(1,2)=" »_ "
 500 IA=RND(41):IF YA(IA)<200 THEN GOTO500
 510 SETINK0:PLOTXA(IA),YA(IA):SETINK1:PRINT#0:"á"
 520 YA(IA)=YA(IA)-40:SOUNDPITCH2000+YA(IA)
 530 SETINK0:PLOTXA(IA),YA(IA):SETINK1:PRINT#0:"á"
 540 !printat21,xs:"   ";
 550 XI=-(PEEK(2900)=64)+(PEEK(2900)= 4)
 555 XS=XS+XI:XM=(XM=0)
 557 XS=XS-(XS<1)+(XS>29)
 560 PRINTAT21,XS:S$(XI+2,XM+2)
 570 IF YA(IA)>150 THEN GOTO 510
 575 ALMA=ALMA-1:IF ALMA=0 THEN GOTO1000
 576 
 580 IF ABS((XS+1)*32-XA(IA))>35 THEN GOTO 500
 590 IF RND(20)>10 THEN SETMODE0: PRINTAT5,10:"Kukacos!":  FORI=XA(IA)+32 TO 900  STEP(900- XA(IA))/50 :SETINK0:PLOTI,150:SETINK1:PRINT#0:K$(KA+2):KA=(KA=0):SOUNDPITCH3000+I:NEXT:PRINTAT5,10:"        ":PRINTAT21,30:"  ";:SETMODE3:GOTO500
 600 PONT=PONT+1:SETINK1:SOUNDPITCH4000:PRINTAT1,1:"alma:";PONT:GOTO500
1000 PRINTAT10,5:"Itt a vége,fuss el véle"
2000 FORI=1TO2000:NEXT:PRINT"Új játék ? (i/n)"
2010 GETA$:IF A$="i" ORA$="I" THEN RUN
2020 IF A$="n" OR A$="N" THEN PRINT"Hát akkor elmegyek aludni...":ELSEGOTO2010

Bioritmus játék
Leírás:
BIORITMUS
Minden emberben három, a születése napján kezdődő ritmus működik.
Egy 23 napos fizikai, egy 28 napos érzelmi és egy 33 napos értelmi.
Ezek befolyásolják a megbetegedések, a szerencsés, vagy szerencsétlen napok, a jó-, vagy rossz döntések valószínűségét.
A ciklusok két részre oszthatók:
Az első a pozitív, a második a negatív szakasz.
A kedvezők a pozitív, a kedvezőtlenek a negatív szakaszban vannak, illetve mindig kedvezőek az egyén részére a felszálló ágak. Ezeknél azonban jelentősebbek a kritikus napok. Ezeken a napokon váltanak előjelet az egyes ciklusok. Ekkor a funkciók labilis értéken vannak, különösen veszélyesek a két, vagy három görbe egyidejű találkozásai. A ritmusok szabályossága lehetővé teszi, hogy a születési dátum ismeretében a kritikus napjait előre megtudhassa!
EBBEN SEGIT ÖNNEK EZ A PROGRAM!

  10 DIMQ(3):D$="":D1$="":D2$="":D3$="kedd":D4$="kedd":DIMT$(20):DIMHT(5):DIMET(5):DIMX1(5):DIMY3(5):DIMK1(5):DIMC(40):DIMB(40)
  15 C(1)=3652:C(2)=3652:C(3)=3677:C(4)=3723:C(5)=3723:C(6)=3677:C(7)=3652:C(8)=3598:C(9)=3537:C(10)=3537:C(11)=3598:C(12)=3652:C(13)=3652:C(14)=3598:C(15)=3598
  16 B(1)=30:B(2)=30:B(3)=30:B(4)=30:B(5)=30:B(6)=30:B(7)=30:B(8)=30:B(9)=30:B(10)=30:B(11)=30:B(12)=30:B(13)=40:B(14)=20:B(15)=50
  17 C(16)=3652:C(17)=3652:C(18)=3677:C(19)=3723:C(20)=3723:C(21)=3677:C(22)=3652:C(23)=3598:C(24)=3537:C(25)=3537:C(26)=3598:C(27)=3652:C(28)=3598:C(29)=3537:C(30)=3537
  18 B(16)=30:B(17)=30:B(18)=30:B(19)=30:B(20)=30:B(21)=30:B(22)=30:B(23)=30:B(24)=30:B(25)=30:B(26)=30:B(27)=30:B(28)=40:B(29)=20:B(30)=60
  20 GOSUB5000:REM--kezdőképernyő
  25 GOTO6000   
  32 GRAPHICS4:PRINTAT1,11,"BIORITMUS"
  33 IFD1$=""THEND1$="1901.01.01.":PRINTAT2,1,"           ":PRINTAT3,16,"            "
  34 PRINTAT2,1,"Születés ideje:":PRINTAT2,17,D1$:PRINTAT3,16,D3$
  35 PRINTAT4,4,"Jó a születési idő?(I/N)"
  40 V$=INKEY$:IFV$="n"THENPRINTAT4,30,V$:D$=D1$:LP=1:GOSUB460:D1$=D$:Y1=Y:GOTO32
  45 IFV$<>"i"THEN40
  50 PRINTAT4,30,V$:D$=D1$:GOSUB465:D1$=D$:Y1=Y
  55 IFD2$=""THEND2$="1901.01.01."
  60 PRINTAT1,11,"BIORITMUS" 
  62 PRINTAT2,1,"Születés ideje:":PRINTAT2,17,D1$:PRINTAT3,16,D3$
  65 PRINTAT6,1,"A mai dátum:":PRINTAT6,17,D2$:PRINTAT7,16,D4$
  70 PRINTAT8,1,"Jó ez a dátum ? (I/N)"
  75 V$=INKEY$:IFV$="n"THENPRINTAT8,23,V$:D$=D2$:LP=2:GOSUB460:PRINTAT8,23,"   ":PRINTAT6,17,"            ":PRINTAT7,16,"          ":D2$=D$:Y2=Y:GOTO55
  80 IFV$<>"i"THEN75
  85 PRINTAT8,23,"   ":PRINTAT8,23,V$:D$=D2$:GOSUB465:D2$=D$:Y2=Y
  90 CLS:PRINTAT1,11,"BIORITMUS"
  92 PRINTAT4,1,"Születés ideje:":PRINTAT4,17,D1$:PRINTAT5,16,D3$:PRINTAT6,1,"A mai dátum   :":PRINTAT6,17,D2$:PRINTAT7,16,D4$
  95 PRINTAT9,15,"                ";:NEV$="":PRINTAT9,1,"Az Ön neve:":GOSUB2000
 100 GOSUB615:A=0:FORI=1TO3:A=A+ET(I):NEXTI:A=A/3:A=A*100:A=INT(A)/100:FORI=1TO500:NEXTI:CLS
 105 PRINTAT1,10,"BIORITMUS"
 106 REM-----
 110 PRINTAT3,1,"NEVE      :":PRINTAT3,13,NEV$
 115 PRINTAT5,1,"SZÜLETETT :":PRINTAT5,13,D1$
 120 PRINTAT7,1,"MAI DÁTUM :":PRINTAT7,13,D2$
 125 PRINTAT9,1,"ŤŤŤŤŤŤŤŹŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤ"
 130 PRINTAT10,1,"ÁLLAPOTő        CIKLUS"
 135 PRINTAT11,1,"NEVE:  őÉRTÉKE %  HOSSZA  NAPJA"
 140 PRINTAT12,1,"ŤŤŤŤŤŤŤŁŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤ"
 145 PRINTAT13,1,"FIZIKAI :":PRINTAT13,11,ET(1):PRINTAT13,20,"23 nap":PRINTAT13,29,HT(1)
 150 PRINTAT15,1,"ÉRZELMI :":PRINTAT15,11,ET(2):PRINTAT15,20,"28 nap":PRINTAT15,29,HT(2)
 155 PRINTAT17,1,"SZELLEMI:":PRINTAT17,11,ET(3):PRINTAT17,20,"33 nap":PRINTAT17,29,HT(3)
 160 PRINTAT19,1,"ŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤ"
 165 PRINTAT20,1,"Az átlagérték :":PRINTAT20,17,A:PRINTAT20,23," %"
 170 PRINTAT21,1,"ŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤ"
 175 REM---------
 180 PRINTAT22,6,"Kér grafikont ? (i/N)"
 185 V$=INKEY$:IFV$="i"THEN310
 186 IFV$="n"THEN32
 187 GOTO185
 310 FORI=1TO3:A=I*5+18:HT(I)=HT(I)-NAP+1:HT(I)=INT(HT(I)+0.5):NEXTI                      
 312 GOSUB3000:REM---grafika rajzolása----------
 459 REM input bekérés
 460 GOSUB1000:D$=B$
 465 REM
 470 P=1:FORI=1TOLEN(D$)
 472 IFD$(I)=" "THEN480
 475 IF(D$(I)<"0")OR(D$(I)>"9")THENQ(P)=I:P=P+1:IFP>2THEN495
 480 NEXTI
 485 IFQ(1)=0THENHO=0:GOTO515
 490 IFQ(2)=0THENNAP=0:GOTO515
 495 EV=INT(VAL(D$)):E=EV
 500 Z$="":I=0:FORJ=Q(1)+1TOQ(2):I=I+1:Z$(I)=D$(J):NEXTJ:HO=INT(VAL(Z$)):H=HO:GOSUB700
 504 I=0:L$=""
 505 I=I+1:IF(D$(I+Q(2))<"0")OR(D$(I+Q(2))>"9")THEN507                                       
 506 L$(I)=D$(Q(2)+I):GOTO505
 507 NAP=INT(VAL(L$)):N=NAP
 510 D$=STR$(EV):X=LEN(D$)+1:D$(X)=".":X=LEN(D$)+1:D$(X)=STR$(HO):X=LEN(D$)+1:D$(X)=".":X=LEN(D$)+1:D$(X)=STR$(NAP):X=LEN(D$)+1:D$(X)="."
 515 IFEV>2010OREV<1901THENPRINTAT20,2,"Az évszám csak 1901-2010 között":PRINTAT21,15," lehet !":GOTO460
 520 IFHO<1ORHO>12THENPRINTAT20,2,"A hónap száma 1-12 között lehet":GOTO460
 525 IFNAP<1THENPRINTAT20,2,"Ilyen rövid hónap nincs !!!"
 530 IFNAP>31THENPRINTAT20,2,"Ilyen hosszu hónap nincs !!!"
 535 IFINT(EV/4)-EV/4<>0THEN550
 540 IFHO=2ANDNAP>29THENPRINTAT20,2,"A február szökőévben is csak 29":PRINTAT21,13,"napos lehet !!!":GOTO460
 545 GOTO555
 550 IFHO=2ANDNAP>28THENPRINTAT20,2,"A február 28 napos hónap !!!":GOTO460
 555 IFHO<3THENEV=EV-1:HO=HO+12
 560 HO=HO+1
 565 Y=INT(365.25*EV)+INT(30.6*HO)+NAP-694066
 570 N=Y-INT(Y/7)*7
 576 IF(N=0)AND(LP=1)THEND3$=" (vasárnap) "
 577 IF(N=0)AND(LP=2)THEND4$=" (vasárnap) "
 581 IF(N=1)AND(LP=1)THEND3$=" (hétfő)    "
 582 IF(N=1)AND(LP=2)THEND4$=" (hétfő)    "
 586 IF(N=2)AND(LP=1)THEND3$=" (kedd)     "
 587 IF(N=2)AND(LP=2)THEND4$=" (kedd)     "
 591 IF(N=3)AND(LP=1)THEND3$=" (szerda)   "
 592 IF(N=3)AND(LP=2)THEND4$=" (szerda)   "
 596 IF(N=4)AND(LP=1)THEND3$=" (csütörtök)"
 597 IF(N=4)AND(LP=2)THEND4$=" (csütörtök)"
 601 IF(N=5)AND(LP=1)THEND3$=" (péntek)   "
 602 IF(N=5)AND(LP=2)THEND4$=" (péntek)   "
 606 IF(N=6)AND(LP=1)THEND3$=" (szombat)  "
 607 IF(N=6)AND(LP=2)THEND4$=" (szombat)  "
 610 RETURN
 615 FORI=1TO3:A=I*5+18:HT(I)=(Y2-Y1-INT((Y2-Y1)/A)*A)
 620 ET(I)=INT(100*SIN(HT(I)/A*2*PI)):NEXTI
 625 RETURN
 700 IFH=1THENHO$="Január"
 705 IFH=2THENHO$="Február"
 710 IFH=3THENHO$="Március"
 715 IFH=4THENHO$="Április"
 720 IFH=5THENHO$="Május"
 725 IFH=6THENHO$="Június"
 730 IFH=7THENHO$="Július"
 735 IFH=8THENHO$="Augusztus"
 740 IFH=9THENHO$="Szeptember"
 745 IFH=10THENHO$="Október"
 750 IFH=11THENHO$="November"
 755 IFH=12THENHO$="December"
 760 RETURN
1000 PRINTAT19,1,"                               ":REM---get input--
1001 IFLP=1THENPRINTAT19,1,"születés ideje:"
1002 IFLP=2THENPRINTAT19,1,"mai dátum     :"
1005 I=0:B$="":BH$="":BN$=""
1010 A$=INKEY$:IFA$=""THEN1010
1020 I=I+1
1025 IF(A$>"9")OR(A$<"0")THENI=I-1:GOTO1010
1030 B$(I)=A$:A$=""
1040 PRINTAT19,16,B$
1045 IFI<4THEN1010
1046 A=VAL(B$):IF(A<1901)OR(A>2010)THENPRINTAT20,1,"Évszám csak 1901-2010 között":PRINTAT21,14,"lehet!!":FORN=1TO500:NEXTN:PRINTAT20,1,"                            ":PRINTAT21,14,"       ":PRINTAT10,10,"    ":GOTO1000
1050 A$=INKEY$:IFA$=""THEN1050
1055 I=I+1
1060 IF(A$<>".")THENI=I-1:GOTO1050              
1065 B$(I)=A$:A$=""
1070 PRINTAT19,16,B$:K=0
1080 A$=INKEY$:IFA$=""THEN1080
1085 I=I+1:K=K+1
1090 IF(A$<"0")OR(A$>"9")THENI=I-1:K=K-1:GOTO1080              
1095 B$(I)=A$:BH$(K)=A$:A$=""       
1097 PRINTAT19,16,B$
1100 IFI<7THEN1080
1105 A=VAL(BH$):IF(A<1)OR(A>12)THENPRINTAT20,1,"A hónap csak 1-12 között":PRINTAT21,14,"lehet!!":FORN=1TO800:NEXTN:PRINTAT20,1,"                            ":PRINTAT21,14,"       ":PRINTAT10,10,"           ":GOTO1000
1110 A$=INKEY$:IFA$=""THEN1110
1120 I=I+1
1130 IF(A$<>".")THENI=I-1:GOTO1110              
1140 B$(I)=A$:A$=""
1150 PRINTAT19,16,B$:K=0
1160 A$=INKEY$:IFA$=""THEN1160
1170 I=I+1:K=K+1
1180 IF(A$<"0")OR(A$>"9")THENI=I-1:K=K-1:GOTO1160              
1185 B$(I)=A$:BN$(K)=A$:A$=""
1187 PRINTAT19,16,B$
1190 IFI<10THEN1160
1200 A=VAL(BN$):IF(A<1)OR(A>31)THENPRINTAT20,1,"Ennyi nap egyetlen hónapban":PRINTAT21,14,"sem létezik!":FORN=1TO800:NEXTN:PRINTAT20,1,"                            ":PRINTAT21,14,"             ":PRINTAT19,16,"           ":GOTO1000
1210 PRINTAT19,16,"            "
1230 PRINTAT19,1,"                               "
1300 RETURN
2000 REM--nev bekérése---
2010 A$="":NEV$=""             
2020 I=0:PRINTAT21,1,"A név max.15 karakter lehet!":PRINTAT22,1,"   Ha ennél kevesebbet ir,a":PRINTAT23,1,"RETURN billentyűt nyomja meg!"
2030 A$=INKEY$:IFA$=""THEN2030
2035 I=I+1
2040 IFORD(A$)=13THENPRINTAT21,1,"                               ":PRINTAT22,1,"                               ":PRINTAT23,1,"                              ":RETURN
2050 NEV$(I)=A$:A$="":PRINTAT9,15,NEV$
2060 IFI=15THENPRINTAT21,1,"                               ":PRINTAT22,1,"                               ":PRINTAT23,1,"                              ":RETURN
2070 GOTO2030
3000 REM---grafika----
3010 CLS:GRAPHICS16:SETBORDER84:SETPAPER14           
3015 FORI=1TO24:PRINTATI,1,"                ";:NEXTI
3020 SETINK10:PRINTAT1,4,"BIORITMUS";
3025 PRINTAT2,4,"ŤŤŤŤŤŤŤŤŤ";
3026 Z=(16-LEN(HO$))/2:PRINTAT4,Z,HO$;
3030 SETINK1:PRINTAT5,12,"100%";:PRINTAT22,12,"-100%";
3040 PRINTAT13,3,"0";
3050 PRINTAT5,2,"100%";:PRINTAT22,1,"-100%"; 
3060 PRINTAT3,1,"F=   É=   S ";
3070 SETSTYLE1:SETINK11:PLOT160,860;220,860
3080 SETSTYLE2:SETINK0:PLOT460,860;520,860
3090 SETSTYLE13:SETINK12:PLOT800,860;860,860:SETSTYLE1:SETINK4
3100 PLOT195,450;895,450
3110 PLOT195,150;195,750
3120 PLOT895,150;895,750
3130 FORP=195TO895STEP25:PLOTP,440;P,460:NEXTP
3140 FORP=150TO750STEP60:PLOT185,P;205,P:NEXTP
3150 FORP=150TO750STEP60:PLOT885,P;905,P:NEXTP
3200 R=1:S=0
3210 FORP=195TO895STEP25:S=S+1
3215 SOUND,PITCHC(S),DURATIONB(S)
3220 FORI=1TO3:A=I*5+18:K1(I)=450-INT(300*SIN((HT(I)/A)*2*PI+PI))
3221 IFI=1THENSETINK11
3222 IFI=2THENSETINK0
3223 IFI=3THENSETINK12
3230 IFR=1THENPLOTP,K1(I):X1(I)=P:Y3(I)=K1(I):GOTO3245
3240 IFI=1THENSETSTYLE1:PLOTX1(I),Y3(I);P,K1(I):X1(I)=P:Y3(I)=K1(I)
3241 IFI=2THENSETSTYLE5:PLOTX1(I),Y3(I);P,K1(I):X1(I)=P:Y3(I)=K1(I)
3242 IFI=3THENSETSTYLE2:PLOTX1(I),Y3(I);P,K1(I):X1(I)=P:Y3(I)=K1(I)
3245 NEXTI
3250 FORI=1TO3:HT(I)=HT(I)+1:NEXTI:R=R+1:NEXTP
3255 SOUND;PITCHC(29),DURATIONB(29)                       
3260 SETSTYLE1:SETINK9:PLOT170+NAP*25,150;170+NAP*25,750 
3270 REM-----következő havi----
3300 SETINK10:PRINTAT22,1,"ÚJ FELDOLGOZÁS ?";
3310 PRINTAT23,7,"(I/N)";
3320 A$=INKEY$:IFA$=""THEN3320
3330 IFA$="i"THENCLS:GRAPHICS4:GOTO20
3340 IFA$="n"THENCLS:GRAPHICS4:PRINTAT12,8,"VISZONTLÁTÁSRA!":FORI=1TO1500:NEXTI:CLS:NEW
3350 GOTO3320
5000 GRAPHICS16:SETBORDER0:SETPAPER0 
5005 PRINTAT3,4,"UNISOFT gmk."
5006 PRINTAT23,7,"1986"
5010 PLOT290,550;290,750;370,750;450,710;450,670;430,650;450,630;450,590;410,550;290,550:REM-b-
5020 PLOT330,590;330,630;370,630;370,590;330,590
5030 PLOT330,670;330,710;370,710;370,670;330,670
5040 PLOT490,550;490,750;530,750;530,550;490,550:REM---------i-
5050 PLOT570,590;570,710;610,750;650,750;690,710;690,590;650,550;610,550;570,590:REM---------o-
5060 PLOT610,590;610,710;650,710;650,590;610,590
5070 PLOT730,630;730,670;810,670;810,630;730,630:REM         -
5080 PLOT50,300;50,500;130,500;170,460;170,420;130,380;170,300;130,300;90,380;90,300;50,300:REM-r
5090 PLOT90,420;90,460;130,460;130,420;90,420
5100 PLOT210,300;210,500;250,500;250,300;210,300:REM---------I-
5110 PLOT290,460;290,500;450,500;450,460;390,460;390,300;350,300;350,460;290,460:REM---------T-
5120 PLOT490,300;490,500;530,500;570,460;610,500;650,500;650,300;610,300;610,460;570,380;530,460;530,300;490,300:REM---------M-
5130 PLOT690,340;690,500;730,500;730,340;770,340;770,500;810,500;810,340;770,300;730,300;690,340:REM-------------------------U-
5140 PLOT850,340;930,340;930,380;890,380;850,420;850,460;890,500;930,500;970,460;890,460;890,420;930,420;970,380;970,340;930,300;890,300;850,340:REM---------S-
5200 RETURN
6000 I=0
6010 I=I+1:IFI>15THENI=1
6020 SETINKI:PLOT300,740,PAINT
6030 PLOT500,740,PAINT
6040 PLOT610,740,PAINT
6050 PLOT740,650,PAINT
6060 PLOT60,440,PAINT
6070 PLOT220,440,PAINT
6080 PLOT310,480,PAINT
6090 PLOT500,440,PAINT
6100 PLOT700,440,PAINT
6110 PLOT900,480,PAINT
6200 PRINTAT19,3,"Start    :S"
6210 PRINTAT21,3,"Ismertető:H"
6220 A$=INKEY$:IFA$="s"THEN32        
6230 IFA$="h"THEN7000
6240 GOTO6010
7000 GRAPHICS4
7010 PRINTAT1,11,"BIORITMUS"
7020 PRINTAT2,11,"ŤŤŤŤŤŤŤŤŤ"
7030 PRINTAT4,1,"Minden emberben három, a szüle- "
7040 PRINTAT5,1,"tése napján kezdődő ritmus mű- "
7050 PRINTAT6,1,"ködik.
7060 PRINTAT7,1,"Egy 23 napos fizikai, egy 28 na-"
7070 PRINTAT8,1,"pos érzelmi és egy 33 napos ér-"
7080 PRINTAT9,1,"telmi."
7090 PRINTAT10,1,"Ezek befolyásolják a megbete-"
7100 PRINTAT11,1,"gedések,a szerencsés, vagy sze-"
7110 PRINTAT12,1,"rencsétlen napok, a jó-, vagy"
7120 PRINTAT13,1,"rossz döntések valószinűségét."
7130 PRINTAT14,1,"A ciklusok két részre osztha-"  
7140 PRINTAT15,1,"tók:"
7150 PRINTAT16,3,"Az első a pozitív, a második a "
7160 PRINTAT17,3,"negatív szakasz."
7170 SETPAPER3:SETINK2:PRINTAT21,1,"Lapozás:SPACE-billentyűvel!":SETPAPER0:SETINK1
7180 A$=INKEY$:IFA$=""THEN7180
7190 IFA$=" "THEN7200
7195 GOTO7180
7200 CLS:PRINTAT1,11,"BIORITMUS"
7205 PRINTAT2,11,"ŤŤŤŤŤŤŤŤŤŤŤŤŤ"
7210 PRINTAT3,1,"A kedvezők a pozitív, a kedve-" 
7220 PRINTAT4,1,"zőtlenek a negatív szakaszban"
7230 PRINTAT5,1,"vannak,illetve mindig kedvezőek"
7240 PRINTAT6,1,"az egyén részére a felszálló á-"
7250 PRINTAT7,1,"gak.Ezeknél azonban jelentőseb-"
7260 PRINTAT8,1,"bek a kritikus napok. Ezeken a"
7270 PRINTAT9,1,"napokon váltanak előjelet az e-"
7280 PRINTAT10,1,"gyes ciklusok. Ekkor a funkciók"
7290 PRINTAT11,1,"labilis értéken vannak, különö-"
7300 PRINTAT12,1,"sen veszélyesek a két, vagy há-"
7310 PRINTAT13,1,"rom görbe egyidejű találkozá-"
7320 PRINTAT14,1,"sai.A ritmusok szabályossága "
7330 PRINTAT15,1,"lehetővé teszi, hogy a születési"
7340 PRINTAT16,1,"dátum ismeretében a kritikus "
7350 PRINTAT17,1,"napjait előre megtudhassa!"
7360 PRINTAT18,1,"EBBEN SEGIT ÖNNEK EZ A PROGRAM!"
7370 SETPAPER3:SETINK2:PRINTAT21,1,"Lapozás:SPACE-billentyűvel"
7380 PRINTAT22,1,"Start  :S    -billentyűvel":SETPAPER0:SETINK1
7385 A$=INKEY$:IFA$=""THEN7385
7390 IFA$=" "THENCLS:GOTO7000
7395 IFA$="s"THEN32
7400 GOTO7385
8000 REM---következő hónap--
8010 FORI=1TO4:E2$(I)=D2$(I):NEXTI:E2=VAL(E2$)
8020 H2$(1)=D2$(6):H2$(2)=D2$(7):H2=VAL(H2$)
8030 N2$(1)=D2$(9):N2$(2)=D2$(10):N2=VAL(N2$)
8040 H2=H2+1:N2=1:IFH2>12THENH2=1:E2=E2+1   
8050 IFE2=2010THENGOTO32
8060 $=STR$(E2)
Barkochba kitalálós játék

Leírás:
A TVC hat kérdésből próbálja kitalálni, hogy melyik országra gondoltunk ( a memóriában 33 európai ország van ), mely általában sikerül is.

   1 CLS
   2 GRAPHICS4:SETINK2
   3 PRINT"        barkochba"
  10 DATAalbánia,san marino,ausztria,belgium,bulgária,ciprus,csehszlovákia,dánia,finnország,franciaország,görögország,hollandia
  20 DATAírország,izland,jugoszlávia,lengyelország,liechtenstein,luxemburg,magyarország,málta,monaco,nagy-britannia,ndk,nszk,norvégia,olaszország 
  30 DATAportugália,románia,spanyolország,svájc,svédország,vatikán,andorra
  80 DIMS$(33)
  90 PRINT:PRINT"hat kérdésből kitalálom,hogy    melyik európai országra gondolt"
 100 PRINT:PRINT"gondoljon egy európai országra!"
 110 INPUTPROMPT"megvan?":KL
 170 FORI=1 TO33:READS$(I):NEXTI
 200 PRINT"kisebb magyarországnál(i/n)";:INPUTA1$
 220 IF A1$="n"THEN 1000
 230 PRINT"törpeállam";:INPUTA2$
 250 IF A2$="n"THEN 530 
 260 PRINT"csak egy országgal határos"  ;:INPUTA3$
 270 IF A3$="n"THEN 410 
 290 PRINT"olaszországgal határos"  ;:INPUTA4$
 300 IF A4$="i"THEN 340 
 320 PRINTS$(21):GOTO 1810
 340 PRINT"pápai állam"  ;:INPUTA5$
 350 IF A5$="i"THEN 390 
 370 PRINTS$(2 ):GOTO 1810
 390 PRINTS$(32):GOTO 1810
 410 PRINT"ausztriával és svájccalhatáros"  ;:INPUTA5$
 420 IF A5$="n"THEN 460 
 440 PRINTS$(17):GOTO 1810
 460 PRINT"benelux állam"  ;:INPUTA5$
 470 IF A5$="i"THEN 510 
 490 PRINTS$(33):GOTO 1810
 510 PRINTS$(18):GOTO 1810
 530 PRINT"szigetország"  ;:INPUTA5$
 540 IF A5$="n"THEN 730 
 560 PRINT"dél-európai állam"  ;:INPUTA5$
 580 IF A5$="n"THEN 660 
 590 PRINT"közel fekszik szicíliához"  ;:INPUTA5$
 600 IF A5$="n"THEN 660 
 620 PRINTS$(20):GOTO 1810
 640 PRINTS$(6 ):GOTO 1810
 660 PRINT"fővárosa Reykjavik"  ;:INPUTA5$
 680 IF A5$="n"THEN 710 
 690 PRINTS$(14):GOTO 1810
 710 PRINTS$(13):GOTO 1810
 730 PRINT"van tengerpartja"  ;:INPUTA5$
 750 IF A5$="i"THEN 830 
 760 PRINT"hazánkkal határos"  ;:INPUTA5$
 780 IF A5$="n"THEN 810 
 790 PRINTS$( 3):GOTO 1810
 810 PRINTS$(30):GOTO 1810
 830 PRINT"benelux állam"  ;:INPUTA5$
 850 IF A5$="n"THEN 930 
 860 PRINT"területének egy része mélyföld"  ;:INPUTA5$
 880 IF A5$="n"THEN 910 
 890 PRINTS$(12):GOTO 1810
 910 PRINTS$(4 ):GOTO 1810
 930 PRINT"szocialista ország"  ;:INPUTA5$
 950 IF A5$="n"THEN 980 
 960 PRINTS$(1 ):GOTO 1810
 980 PRINTS$(8 ):GOTO 1810
1000 PRINT"szocialista ország"  ;:INPUTA5$
1020 IF A5$="n"THEN 1350
1030 PRINT"szomszédos hazánkkal"  ;:INPUTA5$
1050 IF A5$="n"THEN 1180
1060 PRINT"északi szomszédunk"  ;:INPUTA5$
1080 IF A5$="n"THEN 1110
1090 PRINTS$(7 ):GOTO 1810
1110 PRINT"tagja a valutaalapnak"  ;:INPUTA5$
1130 IF A5$="n"THEN 1160
1140 PRINTS$(15):GOTO 1810
1160 PRINTS$(28):GOTO 1810
1180 PRINT"szomszédos a szu-val"  ;:INPUTA5$
1200 IF A5$="i"THEN 1280
1210 PRINT"elfoglalták a középkorban a     törökök"  ;:INPUTA5$
1230 IF A5$="n"THEN 1260
1240 PRINTS$(5 ):GOTO 1810
1260 PRINTS$(23):GOTO 1810
1280 PRINT"van tengerpartja"  ;:INPUTA5$
1300 IF A5$="n"THEN 1330
1310 PRINTS$(16):GOTO 1810
1330 PRINTS$(19):GOTO 1810
1350 PRINT"határos szocialista országgal"  ;:INPUTA5$
1370 IF A5$="n"THEN 1600
1380 PRINT"skandináv ország"  ;:INPUTA5$
1400 IF A5$="n"THEN 1480 
1410 PRINT"tagja a nato-nak"  ;:INPUTA5$
1430 IF A5$="n"THEN 1460 
1440 PRINTS$(25):GOTO 1810
1460 PRINTS$(9 ):GOTO 1810
1480 PRINT"dél-európai ország"  ;:INPUTA5$
1500 IF A5$="i"THEN 1530 
1510 PRINTS$(24):GOTO 1810
1530 PRINT"pénzneme a líra"  ;:INPUTA5$
1550 IF A5$="n"THEN 1580 
1560 PRINTS$(26):GOTO 1810
1580 PRINTS$(11):GOTO 1810
1600 PRINT"határos andorrával"  ;:INPUTA5$
1620 IF A5$="n"THEN 1700 
1630 PRINT"dél-európai ország"  ;:INPUTA5$
1650 IF A5$="n"THEN 1680 
1660 PRINTS$(29):GOTO 1810
1680 PRINTS$(10):GOTO 1810
1700 PRINT"egy országgal határos"  ;:INPUTA5$
1720 IF A5$="n"THEN 1750 
1730 PRINTS$(27):GOTO 1810
1750 PRINT"hivatalos nyelve az angol"  ;:INPUTA5$
1770 IF A5$="n"THEN 1800 
1780 PRINTS$(22):GOTO 1810
1800 PRINTS$(31):GOTO 1810
1810 PRINT"eltaláltam"  ;:INPUTA5$
1820 IF A5$="n"THEN PRINT"akkor valahol hibázott a válasz-adásban":GOTO1850
1850 PRINT"uj játék";:INPUTP$
1860 IFP$="i"THEN RESTORE:CLS:GOTO110

Chip ügyességi játék

Leírás:
Egy CHIP lábain akarnak beszivárogni a kártevő adatok - ellenségek, ezeket kell lelőnöd, és a bajt elhárítani. Irányítás a borkormánnyal, lövés a Space-val.

   4 CSUCS=0
   5 GOSUB 9000:SET BORDER 5
   6 CLS:GOSUB 4000
  10 SET PAPER 0:CLS
  15 REM ***alapábra***
  20 PRINT AT 10,8:"_ _ _ _ _ _ _ _"
  25 SET INK 1:
  30 PRINT AT 11,7:"áááááááááááááááá"
  40 PRINT AT 12,7:"áááááááááááááááá"
  50 PRINT AT 13,7:"áááááááááááááááá"
  60 PRINT AT 14,8:"_ _ _ _ _ _ _ _"
  70 FOR A=0 TO 9:FOR B=8 TO 22 STEP 2
  80 PRINT AT A,B:"¦"
  90 NEXT B,A
 100 REM *** értékadás ***
 105 PONT=0:IMPULZ=3
 110 FOR A=15 TO 21:FOR B=8 TO 22STEP 2
 120 PRINT AT A,B:"¦"
 130 NEXT B,A
 140 A=9:B=16
 150 X=1:Y=INT(RND*8)+1
 155 SET PAPER 2:SET INK 0:PRINT AT 23,1:"PONT=";:PRINT AT 23,20:"IMPULZUS=";IMPULZ
 160 SET PAPER 0:SET INK 3:PRINT AT A,B:"Á"
 165 IF Y=1 THEN Y=8
 166 IF Y=2 THEN Y=10
 167 IF Y=3 THEN Y=12
 168 IF Y=4 THEN Y=14
 169 IF Y=5 THEN Y=16
 170 IF Y=6 THEN Y=18
 171 IF Y=7 THEN Y=20
 172 IF Y=8 THEN Y=22
 179 SET INK 1:PRINT AT X,Y:"¦"
 180 PRINT AT X-1,Y:"¦":FOR F=1 TO 50:NEXT F
 190 X=X+1
 200 IF X=10 THEN GOSUB 1000
 205 REM ***irányitás***
 210 Z$=INKEY$
 212 SET RATE 1
 215 IF Z$=CHR$(19) OR Z$=CHR$(4)OR Z$=CHR$(6) THEN GOSUB  2000
 220 GOTO 160
1000 SOUND,PITCH 4000,DURATION 5:IMPULZ=IMPULZ-1
1010 IF IMPULZ=0 THEN GOTO 8000
1020 PRINT AT X-1,Y:"¦"
1030 GOTO 150
2000 IF Z$=CHR$(19) AND B>8 THEN B=B-2:PRINT AT A,B+2:"¦"
2010 IF Z$=CHR$(4) AND B<22 THEN B=B+2:PRINT AT A,B-2:"¦"
2020 IF Z$=CHR$(6) THEN GOSUB 3000
2030 RETURN
3000 REM ***pontozás***
3010 SOUND PITCH 3000,DURATION 7:IF B=Y THEN SOUND;DURATION 6;PITCH 3800;PITCH 3500;PITCH 3300
3015 IF B=Y THEN PRINT AT X-1,Y:"¦":PONT=PONT +10:X=1:Y=INT(RND*5)+1
3020 PRINT AT 23,7:PONT
3025 RETURN
4000 REM***tájékoztató***
4010 PRINT AT 1,10:"INFORMÁCIÓ"
4020 PRINT AT 4,2:"Egy integrált áramkör lábain    akarnak beszivárogni az adatok. Ezeket kell megakadályoznod.."
4030 PRINT AT 9,2:"IRÁNYITÁS:"
4040 PRINT AT 11,4:"-  ¦  -ezt kell lelőnöd"
4045 PRINT AT 13,4:"-  Á  -ez vagy most TE "
4050 PRINT AT 15,4:"-jobbra-botkorm.jobbra "
4060 PRINT AT 17,4:"-balra -botkorm.balra  "
4070 PRINT AT 19,4:"-lövés -szóköz bill.   "
4080 PRINT AT 21,4:"-START -'s' billentyű"
4090 PRINT AT 23,10:"JÓ SZÓRAKOZÁST !"
5000 IF INKEY$="s" THEN RETURN
5010 GOTO 5000
8000 REM ***ujrakezdés***
8010 CLS:PRINT AT 1,10:"PONTSZÁMOD :";PONT
8030 FOR A=0 TO 20:SOUND PITCH (RND*1000):NEXT A
8040 PRINT AT 5,2:"Nyomd meg az  's'gombot és a    program máris indul !Ha be      akarod fejezni nyomd meg a      'v' gombot."
8045 IF PONT>=CSUCS THEN CSUCS=PONT:PRINT AT 16,5:"CSÚCS :";CSUCS
8050 IF  INKEY$="s" THEN RUN 10
8060 IF INKEY$="v" THEN END
8070 GOTO 8050
9000 REM *** definiált karakterek ***
9010 SET CHARACTER 177, 0,24,24,24,24,255,129,129,129,0
9020 SET CHARACTER 178, 0,129,129,129,255,24 ,24 ,24 ,24 ,0
9030 SET CHARACTER 179,0,24 ,24 ,24 ,24 ,24 ,24 ,24 ,24 ,0
9040 SET CHARACTER 180,0,90 ,153,90 ,153,90 ,153,90 ,153,0
9050 SET CHARACTER 181,0,90 ,90 ,219,219,219,219,126, 60,0
9060 SET CHARACTER 160,255,255,255,255,255,255,255,255,255,255
9100 RETURN

Clementina a boszorkány

Leírás:
Az elvarázsolt labirintusban kell a seprűvel eltakarítani a halakat, de nagyon fogy az idő, ami egy élet elvesztését jelenti.

2 CLS:LOMEM6800
  10 RESTORE9007:FORA=0TO56:READB:POKE6640+A,B:NEXT
3000 DIMA$*250:SETPALETTE0,20,4,17:SETBORDER4:GOSUB5000
3001 A$="        ëŤŤŤŤŤŤŤŤŤŤŤŤŤŤÖő              őő              őő  CLEMENTINA  őő              őő a boszorkány őő              őő     áí       őő     óúĄ      őŐŤŤŤŤŤŤŤŤŤŤŤŤŤŤÜ"
3002 DIMB$*250:B$="        ëŤŤŤŤŤŤŤŤŤŤŤŤŤŤÖő NAGY ZOLTÁN  őő     &        őőMAGYAR ZSOLT  őő              őőáí   áí    áí őőóúĄ  óúĄ   óúĄőŐŤŤŤŤŤŤŤŤŤŤŤŤŤŤÜ"
3010 GRAPHICS4:BOSZI=3:IDO=255:HAL=0:S1=8:S2=5:DIMK(22,29):SETDELAY10;RATE01;PALETTE0,20,4,17:GOSUB3040 
3011 IDO=IDO-1:GOSUB3054:ON IDO GOTO3060 : ELSE 3012
3012 IFK(S1,S2)<>1THEN PRINTATS1,S2:" ":ELSEPRINTATS1,S2:" ":GOTO3013
3013 U$=INKEY$:ON -(U$="") GOTO3019:ELSE POKE6639,ORD(U$):ON USR(6640,0) GOTO3014,3015,3016,3017:ELSE3019
3014 S1=S1-1:GOTO3018
3015 S2=S2+1:GOTO3018
3016 S1=S1+1:GOTO3018
3017 S2=S2-1            
3018 SOUNDPITCH4000,DURATION2:ON K(S1,S2) GOTO3020,3022:ELSEGOTO3019
3019 PRINTATS1,S2:"ą":GOTO3011
3020 PRINTATS1,S2:"*":BOSZI=BOSZI-1:GOTO3055
3021 GOSUB3053:GOTO3011
3022 PRINTATS1,S2:"Ž":HAL=HAL+1:GOTO3052
3040 SETINK3;PAPER2: PRINTAT1,5:"CLEMENTINA A BOSZORKÁNY":PRINTAT2,13:"PRÓBA 1":SETPAPER3;INK2:PRINT"áí áí áí ":PRINT"óúĄóúĄóúĄ":SETPAPER4;INK1:PRINTAT4,24:"000000":PRINTAT7,4:"ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘ"                                               
3041 FORA=8TO21:PRINTATA,4:"Ę                        Ę":K(A,4)=1:K(A,29)=1:NEXT:PRINTAT5,11:"ęęęęęęęęęę"
3042 FORA=4TO29:K(7,A)=1:K(22,A)=1:NEXT:PRINTAT22,4:"ĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘĘ":RANDOMIZE:FORA=1TO100:B=INT(RND(23)+6):C=INT(RND(13)+8):PRINTATC,B:"Ę":SOUNDPITCH4000,DURATION1:K(C,B)=1:NEXT 
3044 RANDOMIZE:FORA=1TO15:B=INT(RND(23)+6):C=INT(RND(13)+8):PRINTATC,B:"ž":SOUNDPITCH3000,DURATION2:K(C,B)=2:NEXT:RETURN
3052 IF HAL=10 THEN PRINTAT5,10+HAL:"ž":FORA=4094TO1000STEP-100:SOUNDPITCHA,DURATION1:NEXT:GOTO3061:ELSEPRINTAT5,10+HAL:"ž":K(S1,S2)=0:FORA=4094TO1000STEP-100:SOUNDPITCHA,DURATION1:NEXT:GOTO3011
3053 FORA=4095TO00STEP-060:SETPALETTE15,35,32,46:SOUND;PITCHA,DURATION1:NEXT:SOUND;PITCH4095:SETPALETTE0,20,4,17:RETURN
3054 PRINTAT4,24:"      ":PRINTAT4,24:IDO:RETURN
3055 IF BOSZI=0 THEN3057:ELSE GOSUB3058 
3056 S1=8:S2=5:GOTO3021
3057 GOSUB3053:SETPAPER3:PRINTAT3,1:"         ":PRINTAT4,1:"         ":GOTO3062
3058 SETPAPER3;INK2:PRINTAT3,1:"         ":PRINTAT4,1:"         ":FORA= 1TO BOSZI:PRINTAT3,(A*3-2):"áí":PRINTAT4,(A*3-2):"óúĄ":NEXT:SETPAPER4;INK1:RETURN
3060 PRINTAT4,15:"Elfogyott az idő!":GOSUB5030:GET:GET:GOTO3063
3061 PRINTAT6,1:"GRATULÁLOK! Elfogtál 10 halat!":GOSUB5010:GET:GET:GOTO3063
3062 GOSUB5030:GET:GET        
3063 SETDELAY30;RATE3:GETA$:IFA$="@" THEN RUN3010:ELSE SETPAPER0:CLS:END
4000 GRAPHICS16:SETINK4:SETBORDER3:PRINTAT03,9:A$:SETINK7:PRINTAT17,9:B$:SETINK6:SETPAPER2:PRINTAT12,1:"áí áí áí áí áí  ":PRINTAT13,1:"óúĄóúĄóúĄóúĄóúĄ ":SET PAPER 0:SET INK 7:PRINTAT02,3:" ":GOSUB5010
4001 FOR CIKL=0TO1500:NEXTCIKL:SETBORDER4:FORSX=0TO15:PRINTAT1,1:CHR$(25):NEXTSX:GRAPHICS4:SETPALETTE0,20,4,17:GOTO5020
5000 SETCHARACTER160,0,0,0,1,3,1,0,1,3,7:SETCHARACTER161,0,0,0,192,224,240,192,224,240,248:SETCHARACTER162,14,12,24,127,1,1,1,0,1,0:SETCHARACTER163,248,120,252,255,252,240,64,192,0:SETCHARACTER164,0,0,124,252,252,252,124,0,0,0        
5001 SETCHARACTER165,62,62,62,28,8,8,8,8,8,8:SETCHARACTER166,16,16,16,16,16,16,56,124,124,124:SETCHARACTER167,24,60,118,126,126,126,60,24,60,102:SETCHARACTER168,255,255,255,255,255,255,255,255,255,255:SETCHARACTER169,24,36,66,66,66,195,36,24,36,126
5002 RETURN
5010 DIMO(2):RESTORE9000:FORA=1TO15:READ O(0),O(1),O(2):SOUND;PITCH O(0),DURATION O(1):SOUND;PITCH4095,DURATIONO(2):NEXTA:RETURN
5020 DIMFUR(2):FORFI=1TO2:RESTORE9004:FORF=1TO15:READFUR(0),FUR(1),FUR(2):SOUND;PITCH FUR(0),DURATION FUR(1):SOUND;PITCH4095,DURATION FUR(2):NEXT
5021 RESTORE9004:FORF=1TO9:READFUR(0),FUR(1),FUR(2):SOUND;PITCHFUR(0),DURATIONFUR(1):SOUND;PITCH4095,DURATIONFUR(2):NEXT:RESTORE9005:FORF=1TO19:READFUR(0),FUR(1),FUR(2):SOUND;PITCHFUR(0),DURATIONFUR(1):SOUND;PITCH4095,DURATIONFUR(2):NEXT:NEXTFI
5030 DIMGY(2):RESTORE9006:FORG=1TO11:READGY(0),GY(1),GY(2):SOUND;PITCHGY(0),DURATIONGY(1):SOUND;PITCH4095,DURATIONGY(2):NEXT:RETURN
9000 DATA3723,20,10,3701,12,10,3723,30,10,3598,20,30,3800,15,10,3763,12,10,3800,30,10,3723,20,30,3723,15,10,3800,20,10,3847,30,10,3847,15,30
9001 DATA3816,12,10,3800,12,10,3763,40,10
9004 DATA3503,11,10,3468,11,10,3503,11,10,3468,11,12,3503,11,10,3305,10,12,3431,10,10,3349,10,12,3208,90,15,3503,10,10,3208,10,15,3305,90,15,3503,10,10,3305,10,15,3349,90,15,
9005 DATA3349,10,10,3305,10,15,3208,90,15,3305,10,10,3349,10,10,3431,10,10,3503,90,15,3598,10,10,3537,10,10,3503,10,10,3431,90,15,3503,10,10,3503,10,10,3431,10,10,3349,90,15,3503,10,10,3431,10,10,3349,10,10,3305,90,15
9006 DATA3208,30,10,3208,30,10,3208,10,10,3208,30,10,3349,30,10,3305,10,10,3305,30,10,3208,10,10,3205,30,10,3155,10,10,3208,30,15
9007 DATA58,239,25,6,0,14,5,22,97,4,205,30,26,14,4,22,45,4,205,30,26,14,24,22,121,04,205,30,26,14,19,22,44,4,205,30,26,14,32,22,32,4,205,30,26,201,185,204,39,26,186,204,39,26,201,104,201

Dáma logikai táblás játék

leírás:
D á m a
A TVC-vel a dáma-játék általánosan ismert szabályai szerint játszhat.
A lépéseket honnan-hova formátumban várja a gép. Pld."A3-B4 [RETURN]"
Láncolt ugrás esetén csak az új célmezőt kell megadni
Pld.
C6 [RETURN]
A játékot feladni a `*`-gal lehet. Pld. * [RETURN]"
A TVC a saját láncolt ugrását külön közli.

  10 GRAPHICS 4
 100 GOSUB3000
 120 POKE 2918,1 ! CAPS LOCK
 130 ALAP=3
 140 DIM R(4),S(7,7),W(7,7)
 150 DIM EE$(7,7)*12,FIGURAK$(7)*12
 155 DIM E$*100
 160 GOSUB 2100
 170 UP$=CHR$(5):DOWN$=CHR$(24)&CHR$(13):LEFT$=CHR$(19)&CHR$(13):RIGHT$=CHR$(4):CLR$=CHR$(11)
 180 PRINT AT 22,1:CLR$
 190 RESTORE 240
 200 Q=0
 210 ELSO=1
 220 R(1)=0:R(2)=0:R(3)=0:R(4)=0
 230 G=-1:R(0)=-99
 240 DATA 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15
 250 FOR X=0 TO 7
 260 FOR Y=0 TO 7
 270 READ J
 280 IF J=15 THEN GOTO 300
 290 S(X,Y)=J:GOTO 320
 300 RESTORE 240
 310 READ S(X,Y)
 320 W(X,Y)=255
 330 NEXT Y
 340 NEXT X
 350 FOR I=0 TO 6 STEP 2
 360 FOR J=1 TO 7 STEP 2
 370 S(I,J)=-3
 380 NEXT J
 390 NEXT I
 400 FOR I=1 TO 7 STEP 2
 410 FOR J=0 TO 6 STEP 2
 420 S(I,J)=-3
 430 NEXT J
 440 NEXT I
 450 !
 460 !
 470 PRINT AT 23,1:"Bármely gombra indul a játék!"
 471 A$=INKEY$:IF A$="" THEN 471
 472 CLS
 480 GOSUB 1250
 490 GOTO 1470
 500 FOR X=0 TO 7
 510 FOR Y=0 TO 7
 520 IF S(X,Y)>-1 THEN GOTO 640
 530 IF S(X,Y)<>-1 THEN GOTO 580
 540 FOR A=-1 TO 1 STEP 2
 550 B=G
 560 GOSUB 670
 570 NEXT A
 580 IF S(X,Y)<>-2 THEN GOTO 640
 590 FOR A=-1 TO 1 STEP 2
 600 FOR B=-1 TO 1 STEP 2
 610 GOSUB 670
 620 NEXT B
 630 NEXT A
 640 NEXT Y
 650 NEXT X
 660 GOTO 900
 670 U=X+A:V=Y+B
 680 IF U<0 OR U>7 OR V<0 OR V>7 THEN GOTO 760
 690 IF S(U,V)<>0 THEN GOTO 720
 700 GOSUB 770
 710 GOTO 760
 720 IF S(U,V)<0 THEN GOTO 760
 730 U=U+A:V=V+B
 740 IF U<0 OR U>7 OR V<0 OR V>7 THEN GOTO 760
 750 IF S(U,V)=0 THEN GOSUB 770
 760 RETURN
 770 IF V=0 AND S(X,Y)=-1 THEN Q=Q+2
 780 IF ABS(Y-V)=2 THEN Q=Q+5
 790 IF Y=7 THEN Q=Q-2
 800 IF Y=0 OR Y=7 THEN Q=Q+1
 810 FOR C=-1 TO 1 STEP 2
 820 IF U+C<0 OR U+C>7 OR V+G<0 THEN GOTO 860
 830 IF S(U+C,V+G)<0 THEN Q=Q+1:GOTO 860
 840 IF U-C<0 OR U-C>7 OR V-G>7 THEN GOTO 860
 850 IF S(U+C,V+G)>0 AND (S(U-C,V-G)=0 OR (U-C=X AND V-G=Y)) THEN Q=Q-2
 860 NEXT C
 870 IF Q>R(0) THEN R(0)=Q:R(1)=X:R(2)=Y:R(3)=U:R(4)=V
 880 Q=0
 890 RETURN
 900 !PRINT R(0)
 910 IF R(0)=-99 THEN GOTO 2030
 920 R(0)=-99
 930 IF R(4)=0 THEN S(R(3),R(4))=-2:GOTO 950
 940 S(R(3),R(4))=S(R(1),R(2))
 950 S(R(1),R(2))=0
 960 IF ABS(R(1)-R(3))<>2 THEN GOTO 1230
 970 S((R(1)+R(3))/2,(R(2)+R(4))/2)=0
 980 X=R(3):Y=R(4)
 990 CY=1
1000 IF S(X,Y)<>-1 THEN GOTO 1050
1010 B=-2
1020 FOR A=-2 TO 2 STEP 4
1030 GOSUB 1170
1040 NEXT A
1050 IF S(X,Y)<>-2 THEN GOTO 1110
1060 FOR A=-2 TO 2 STEP 4
1070 FOR B=-2 TO 2 STEP 4
1080 GOSUB 1170
1090 NEXT B
1100 NEXT A
1110 IF R(0)=-99 THEN GOTO 1160
1120 PRINT AT 1,1:CLR$;"Figyelem láncolt ugrás!"
1130 !PING
1140 !PING
1150 R(0)=-99:GOTO 930
1160 GOTO 1230
1170 U=X+A:V=Y+B
1180 IF U<0 OR U>7 OR V<0 OR V>7 THEN GOTO 1220
1190 IF S(U,V)=0 AND S(X+A/2,Y+B/2)>0 THEN GOTO 1210
1200 GOTO 1220
1210 GOSUB 770
1220 RETURN
1230 GOSUB 1250
1240 GOTO 1470
1250 Z1=R(1):Z2=R(2):Z3=R(3):Z4=R(4):GOTO 1270
1260 Z1=L1:Z2=L2:Z3=L3:Z4=L4
1270 IF ELSO<>1 THEN PRINT AT 1,1:CLR$;"A legutóbbi lépés --> ";CHR$(Z1+65);CHR$(Z2+49);"-";CHR$(Z3+65);CHR$(Z4+49);
1280 IF ELSO <>1 THEN GOTO 1320
1290 FOR Y1=7 TO 0 STEP -1
1300 PRINT AT ABS(19-Y1*2),2:Y1+1;TAB(21);Y1+1
1310 NEXT Y1
1320 FOR Y1=7 TO 0 STEP -1
1330 FOR X1= 0 TO 7
1340 IF S(X1,Y1)=W(X1,Y1) THEN GOTO 1370
1350 PRINT AT ABS(17-Y1*2)+1,(5+(2*X1)): FIGURAK$(ALAP+ S(X1,Y1))
1360 W(X1,Y1)=S(X1,Y1)
1370 NEXT X1
1380 NEXT Y1
1390 IF ELSO <>1 THEN GOTO 1460
1400 FOR X=0 TO 7
1410 PRINT AT 20,6+(2*X):CHR$(65+X);
1420 PRINT AT 3,6+(2*X):CHR$(65+X);
1430 NEXT X
1440 PRINT AT 24,1:CLR$;"Kilépéshez '*'";
1450 ELSO=0
1460 RETURN
1470 PRINT AT 22,1:CLR$;
1480 CY=0
1490 FOR O=0 TO 7
1500 FOR P=0 TO 7
1510 IF S(O,P)>0 THEN CY=1:P=7
1520 NEXT P
1530 IF CY=1 THEN O=7
1540 NEXT O
1550 IF CY=0 THEN GOTO 2040
1560 PRINT AT 22,1:CLR$&"Honnan-Hová:";
1561 POKE2918,1:INPUT E$
1570 IF E$(1:1)="*" THEN RUN
1580 !
1590 IF LEN(E$)<>5 THEN GOTO 1560
1600 E=ORD(E$(1:1))-65:H=ORD(E$(2:2))-49
1601 IF E<0 OR E>7 OR H<0 OR H>7 THEN GOTO 1560
1610 X=E:Y=H:L1=E:L2=H
1620 IF S(X,Y)<=0 THEN GOTO1470
1630 A=ORD(E$(4:4))-65:B=ORD(E$(5:5))-49
1631 IF A<0 OR A>7 OR B<0 OR B>7 THEN GOTO 1560
1640 PRINT AT 22,1:CLR$;
1650 UGROTTE=0
1660 X=A:Y=B:L3=A:L4=B
1670 IF S(X,Y)<>0 THEN GOTO 1760
1680 IF (A-E=1 OR A-E=-1) AND B-H=1 THEN GOTO 1770
1690 IF (A-E=2 OR A-E=-2) AND B-H=2 AND (S((E+A)/2,(H+B)/2)=-1 OR S((E+A)/2,(H+B)/2)=-2) THEN GOTO 1770
1700 !
1710 IF (A-E=1 OR A-E=-1) AND B-H=-1 AND S(E,H)=2 THEN GOTO 1770
1720 IF (A-E=2 OR A-E=-2) AND B-H=2 AND S(E,H)=2 THEN GOTO 1770
1730 IF (A-E=2 OR A-E=-2) AND B-H=-2 AND S(E,H)=2 THEN GOTO 1770
1740 !ping
1750 IF UGROTTE=1 THEN GOTO 1810
1760 GOTO 1560
1770 I=46
1780 S(A,B)=S(E,H):S(E,H)=0
1790 IF ABS(E-A)<>2 THEN GOTO 2000
1800 S((E+A)/2,(H+B)/2)=0:GOTO 1850
1810 UGROTTE=0
1820 PRINT AT 22,1:CLR$;"Oda nem tud ugrani!"
1830 !ping
1840 FOR VARJAL=0 TO 1000:NEXT
1850 PRINT AT 22,1:CLR$;"Akar tovább ugrani? [I\N]"
1860 AM$=INKEY$
1870 IF AM$="" THEN GOTO 1860
1880 !
1890 PRINT AT 22,1:CLR$;
1900 !
1910 IF AM$<>"I" AND AM$<>"i" THEN GOTO 2000
1920 PRINT AT 22,1:CLR$;
1930 INPUT PROMPT "Hova akar ugrani? ":AM$
1940 !
1950 IF LEN(AM$)<>2 THEN GOTO 1930
1960 A1=ORD(AM$(1:1))-65:B1=ORD(AM$(2:2))-49
1961 IF A1<0 OR A1>7 OR B1 <0 OR B1>7 THEN GOTO 1920
1970 IF S(A1,B1)<>0 OR ABS(A1-A)<>2 OR ABS(B1-B)<>2 THEN GOTO 1810
1980 E=A:H=B:A=A1:B=B1:I=I+15:UGROTTE=1
1990 GOTO 1690
2000 IF B=7 THEN S(A,B)=2
2010 GOSUB 1260
2020 GOTO 500
2030 PRINT AT 22,1:CLR$;"Gratulálok, ön nyert!":GOTO 2050
2040 PRINT AT 22,1:CLR$;"Sajnálom, ön vesztett!":GOTO 2050
2050 PRINT AT 23,1:CLR$;"Jöhet egy ujabb menet? [i\n]"
2055 AM$=INKEY$
2060 IF AM$="" THEN 2055
2070 IF AM$="I" OR AM$="i" THEN RUN
2080 IF AM$="N"ORAM$="n" THEN POKE2850,255:OUT 2,3
2090 GOTO 2055
2100 !def kargen
2110 SET CHARACTER 128,255,135,132,132,132,135,129,129,131,131
2120 SET CHARACTER 129,255,225,33,33,33,225,129,129,193,193
2130 SET CHARACTER 130,255,128,135,135,135,135,129,129,131,131
2140 SET CHARACTER 131,255,1,225,225,225,225,129,129,193,193
2150 SET CHARACTER 132,143,143,136,136,142,130,188,255-64,128,255
2160 SET CHARACTER 133,241,241,17,17,113,65,61,253,1,255
2170 SET CHARACTER 134,255,128,128,128,128,128,128,128,128,128
2180 SET CHARACTER 135,255,1,1,1,1,1,1,1,1,1
2190 SET CHARACTER 136,135,135,143,143,143,131,191,255-64,128,255
2200 SET CHARACTER 137,225,225,241,241,241,193,253,253,1,255
2210 SET CHARACTER 138,1,1,1,1,1,1,1,1,1,255
2220 SET CHARACTER 139,128,128,128,128,128,128,128,128,128,255
2230 SET CHARACTER 140,255,128,191,191,191,191,191,191,191,191
2240 SET CHARACTER 141,255,1,253,253,253,253,253,253,253,253
2250 SET CHARACTER 142,191,191,191,191,191,191,191,191,128,255
2260 UGROTTE=0
2270 SET CHARACTER 143,253,253,253,253,253,253,253,253,1,255
2280 FIGURAK$(ALAP-2)=CHR$(128)&CHR$(129)&CHR$(24)&CHR$(19)&CHR$(19)&CHR$(132)&CHR$(133)
2290 FIGURAK$(ALAP+2)=CHR$(130)&CHR$(131)&CHR$(24)&CHR$(19)&CHR$(19)&CHR$(136)&CHR$(137)
2300 FIGURAK$(ALAP-1)=CHR$(134)&CHR$(135)&CHR$(24)&CHR$(19)&CHR$(19)&CHR$(132)&CHR$(133)
2310 FIGURAK$(ALAP+1)=CHR$(134)&CHR$(135)&CHR$(24)&CHR$(19)&CHR$(19)&CHR$(136)&CHR$(137)
2320 FIGURAK$(ALAP+0)=CHR$(134)&CHR$(135)&CHR$(24)&CHR$(19)&CHR$(19)&CHR$(139)&CHR$(138)
2330 FIGURAK$(ALAP-3)=CHR$(140)&CHR$(141)&CHR$(24)&CHR$(19)&CHR$(19)&CHR$(142)&CHR$(143)
2340 RETURN
3000 !DEF SZABÁLYOK
3010 CLS
3020 PRINT "          D á m a":PRINT
3022 PRINT "  A TVC-vel a dáma-játék általá-";
3030 PRINT "nosan ismert szabályai szerint"
3040 PRINT "játszhat.":PRINT
3050 PRINT "  A lépéseket honnan-hova for-" 
3060 PRINT "mátumban várja a gép. Pld.":PRINT
3070 PRINT "        A3-B4 [RETURN]":PRINT
3080 PRINT "  Láncolt ugrás esetén csak az"
3090 PRINT "új célmezőt kell megadni Pld.":PRINT
3100 PRINT "        C6 [RETURN]":PRINT
3110 PRINT "  A játékot feladni a `*`-gal le";
3120 PRINT "het. Pld.  * [RETURN]":PRINT
3130 PRINT "  A TVC a saját láncolt ugrását"
3140 PRINT "külön közli."
3170 RETURN
Faltörő játék

Leírás:
A pattogó labdát a botkormánnyal mozgatott ütővel tudjuk visszaütni, és törjük a téglafalat addig, míg az utolsó téglát is eltaláltuk. Az ütő gyorsítása a SHIFT-tel. Összesen ötször hibázhatunk, akkor új játékot kezdhetünk.

   1 rem spectrumról átírta:a játékgyáros
   5 ! faltörő játék
   6 DIM Z$(24,32)*1
  10 GOSUB 500:T=0:TT=480
  20 P=1:CLS:SET PAPER 2:        SET INK 3
  21 GOSUB 22:GOTO 29
  22 M=5:GOSUB 700:M=6:GOSUB 750
  23 M=7:GOSUB 700:M=8:GOSUB 750:M=9:GOSUB 700
  24 FOR Y=5 TO 9:FOR X=1 TO 32
  25 Z$(Y,X)="*":NEXT X:NEXT Y
  26 RETURN
  29 SET PAPER 1:SET INK 3
  30 FOR Y=22 TO 24
  31 FOR X=1 TO 32
  32 PRINT #0,AT Y,X:CHR$(167);
  33 NEXT X:NEXT Y
  34 FOR X=1 TO 5
  35 PRINT AT 24,X:CHR$(165);
  36 NEXT X
  46 U=1:V=1:SET INK 0:SET PAPER 1:I=5
  48 W=0:RANDOMIZE
  50 FOR R=1 TO 6
  52 M=9:N=3+INT(RND*27):A=15
  54 G=6:P=0
  56 PRINT#0,AT 21,1:STRING$(14,32);CHR$(162);CHR$(163);CHR$(164);STRING$(15,32);
  65 ON G GOSUB 100,120,140,160,180,200
  67 PRINT#0,ATU,V:" ":Z$(U,V)=" "
  71 PRINT#0,ATM,N:CHR$(165):U=M:V=N
  74 IF M=20 THEN PRINT#0,ATM,N:CHR$(166)
  80 A$=INKEY$
  81 IF A$=CHR$(19)THEN GOSUB 224
  86 IF A$=CHR$(4)THEN GOSUB 234
  90 GOTO 65
 100 IF M>20 THEN GOTO 240
 101 IF M<20 THEN GOTO 106
 102 IF T>=TT THEN TT=TT+480:GOSUB 22:W=0:GOTO 52
 103 P=0:W=0:IF N=A+1 OR N=A+2  THEN G=2:GOTO 120
 104 IF N=A THEN G=5:GOTO 190
 105 IF N=A-1 THEN G=3:GOTO 140
 106 IF N>31 THEN G=4:GOTO 160
 110 M=M+1:N=N+1
 112 IF Z$(M,N)="*" THEN GOSUB 250:IF P=0 OR W=1 THEN G=2
 114 RETURN
 120 IF N>31 THEN G=3:GOTO 140
 125 IF M<2 THEN W=1:G=1:GOTO 100
 130 M=M-1:N=N+1
 132 IF Z$(M,N)="*" THEN GOSUB 250:P=1:G=1+(2*W)
 134 RETURN
 140 IF M<2 THEN W=1:G=4:GOTO 160
 145 IF N<2 THEN G=2:GOTO 120
 150 M=M-1:N=N-1
 152 IF Z$(M,N)="*" THEN GOSUB 250:P=1:G=4-(2*W)
 154 RETURN
 160 IF M>20 THEN GOTO 240
 161 IF M<20 THEN GOTO 166
 162 IF T>=TT THEN TT=TT+480:GOSUB 22:W=0:GOTO 52
 163 P=0:W=0:IF N=A+3 THEN G=2:GOTO 120
 164 IF N=A+2 THEN G=5:GOTO 180
 165 IF N=A OR N=A+1 THEN G=3:GOTO 140
 166 IF N<2 THEN G=1:GOTO 100
 170 M=M+1:N=N-1
 172 IF Z$(M,N)="*" THEN GOSUB 250:IF P=0 OR W=1 THEN G=3
 174 RETURN
 180 IF M<2 THEN G=6:GOTO 212
 190 M=M-1:IF Z$(M,N)="*" THEN GOSUB 250:G=6
 195 RETURN
 200 IF M>20 THEN 240
 202 IF M<20 THEN 212
 203 IF T>=TT THEN TT=TT+480:GOSUB 22:W=0:GOTO 52
 204 P=0:W=0:IF N=A+2 THEN G=2:GOTO 120
 206 IF N=A+1 THEN G=2:GOTO 120
 210 IF N=A THEN G=3:GOTO 140
 212 M=M+1:RETURN
 220 IF A<2 THEN RETURN
 223 A=A-1:PRINT#0,AT21,A:U$&" ":RETURN
 224 IF A<3 THEN 220
 227 A=A-2:PRINT#0,AT21,A:U$&"  ":RETURN
 230 IF A>29 THEN RETURN
 232 A=A+1:PRINT#0,AT21,A-1:" "&U$:RETURN
 234 IF A>28 THEN 230
 236 A=A+2:PRINT#0,AT21,A-2:"  "&U$:RETURN
 240 RESTORE 241:FOR X=1 TO 6:READ K:SOUND; PITCH K,DURATION 8,VOLUME 3+2*X:NEXT X
 241 DATA 3985,3874,3652,3208,2320,545
 242 SET INK 3:PRINT AT 24,I:CHR$(167);:SET INK 0:I=I-1:NEXT R
 243 GRAPHICS 16:PRINT AT 5,5:"Eredmény:":PRINT AT 10,4:T;"  pont":FOR X=0 TO 3000:NEXT X:GRAPHICS 4
 244 PRINT AT 22,1:"Akar újra játszani? (i/n)"
 245 A$=INKEY$:IF A$="" THEN 245
 246 IF A$="i" OR A$="I" THEN 10
 247 IF A$="n" OR A$="N" THEN POKE2917,30:POKE2919,3:END
 248 GOTO 245
 250 T=T+(10-M)
 252 B=ABS(M-N)
 254 Y=(INT(B/2))*2
 256 IF B=Y AND N<32 THEN PRINT #0,AT M,N+1:" ";:Z$(M,N+1)=" ":T=T+(10-M):GOTO 260
 258 IF B<>Y AND N>1 THEN PRINT #0,AT M,N-1:" ";:Z$(M,N-1)=" ":T=T+(10-M)
 260 RETURN
 500 REM
 502 GRAPHICS 4
 505 POKE 2917,1:POKE 2919,1
 510 SET CHARACTER 160,255,128,128,128,128,128,128,128,128     ,255
 520 SET CHARACTER 161,255,1,1,1,1,1,1,1,1,255
 530 SET CHARACTER 162,255,255,255,255,128,128,128,128,128     ,128
 540 SET CHARACTER 163,255,255,255,255,0,0,0,0,0,0
 550 SET CHARACTER 164,255,255,255,255,1,1,1,1,1,1
 560 SET CHARACTER 165,0,24,60,126,255,255,126,60,24,0
 570 SET CHARACTER 166,0,0,0,0,0,60,126,255,126,60
 575 SET CHARACTER 167,255,0,0,255,0,0,255,0,0,255
 580 SET PALETTE 65,85,68,0:SET PAPER 1:SET BORDER 21
 590 SET INK 2:CLS
 595 U$=CHR$(162)&CHR$(163)&CHR$(164)
 600 PRINT AT 2,4:"Tv-computer faltörő játék":PRINT AT 5,5:"Kezelése:"
 620 PRINT AT 7,5:"<-- ütő balra"
 630 PRINT AT 9,5:"->- ütő jobbra"
 640 PRINT AT 11,5:"SHIFT - ütő gyorsítása"
 650 PRINT AT 20,2:"Ha elolvasta,nyomjon meg egy    gombot"
 660 GET:RETURN
 700 FOR N=1 TO 31 STEP 2
 710 PRINT AT M,N:CHR$(160);         CHR$(161);
 720 NEXT N
 730 RETURN
 750 FOR N=1 TO 31 STEP 2
 760 PRINT AT M,N:CHR$(161);         CHR$(160);
 770 NEXT N
 780 RETURN
   
Számfordítós memória játék

Leírás:
***SZABÁLYOK***
A feladatod:
a kilenc darab számot átrendezni, hogy balról jobbra nagyság szerinti sorrendben kövessék egymást!
A módosítást úgy végezheted hogy-balról kezdve megadott 'számú' szám sorrendjét megfordítod.

   1 SETBORDER56:SETPAPER3:CLS
   7 DIMQ(8)
   8 FORI=1TO7:READ Q(I)
   9 NEXT
  10 PRINT AT1,1:"***********fordíts**************"
  30 FOR I=2TO22
  40 PRINT AT I,1:"**                            **";
  50 NEXT I
  60 PRINT AT23,1:"*******************************";
 130 DIM A(20):GOSUB1200
 140 REM***SZÁMOK SZÁMA***
 150 N=9 
 160 PRINT AT8,3:"kéred a szabályokat?";
 170 GET V$
 180 IF V$="n" THEN210
 190 GOSUB710
 195 PRINT AT8,3:"                          ";:PRINT AT9,3:"                      ";:PRINT AT10,3:"                          ";:PRINT AT11,3:"                         ";:PRINT AT12,3:"        ";
 196 PRINT AT13,3:"                         ";:PRINT AT14,3:"                      ";:PRINT AT15,3:"                      ";:PRINT AT16,3:"                      ";
 200 REM***VÉLETLEN LISTA***
 210 A(1)=RND(N-1)+2
 220 FOR K=2TO N
 230 A(K)=RND(N)+1
 240 FOR J=1TO K-1
 250 IF A(K)=A(J) THEN230
 260 NEXT J:NEXT K
 280 REM***KEZDÉS***
 290 PRINT AT8,3:"    A lista a következő:";
 310 T=0
 320 GOSUB610
 330 PRINT AT12,3:"    Hányat fordítsak meg?";
 340 GET W$:R=VAL(W$):SETINK1:PRINT AT 13,12:">>>";R;"<<<";:SETPAPER3:SOUND PITCH900,DURATION1,VOLUME13
 350 IF R=0 THEN GOSUB1300:GOTO 520
 390 T=T+1
 400 REM***FORDÍT***
 410 FOR K=1TO INT(R/2)
 420 Z=A(K)
 430 A(K)=A(R-K+1)
 440 A(R-K+1)=Z
 450 NEXT K
 460 GOSUB610
 470 REM***ELLENŐRZÉS***
 480 FOR K=1TO N
 490 IF A(K)<>K THEN 330
 500 NEXT K
 510 PRINT AT15,3:"nyertél";T;"LÉPÉSBEN";:GOSUB1300
 520 
 530 PRINT AT16,3:"megpróbálod újra?";
 540 GET V$
 550 IF V$="i" THEN:PRINT AT13,12:"         ";:PRINT AT 15,3:"                     ";:PRINT AT16,3:"                      ":GOTO210
 560 PRINT AT17,3:"Remélem,hogy tetszett!";:GOTO999
 600 REM***LISTANYOMTATÓ***
 610 PRINT AT10,3:" ";:SETINK0
 620 FOR K=1TO N:PRINT A(K);:NEXT K:SETINK2
 650 RETURN
 700 REM***SZABÁLYOK***
 710 REM                     
 720 PRINT AT8,3:"A feladatod:a kilenc darab";:PRINT AT9,3:"számot átrendezni, hogy";:PRINT AT10,3:"balról jobbra nagyság sze-";:PRINT AT11,3:"rinti sorrendben kövessék";:PRINT AT12,3:"egymást!";
 730 PRINT AT13,3:"A módosítást úgy végezhe-";:PRINT AT14,3:"ted hogy-balról kezdve";:PRINT AT15,3:"megadott 'számú' szám ";:PRINT AT16,3:"sorrendjét megfordítod";
 810 GET
 820 RETURN
 999 END
1000 REM***zene***
1200 SOUND;PITCH Q(1),DURATION40:SOUND;PITCH 4095,DURATION 4 
1210 SOUND;PITCH Q(1),DURATION40:SOUND;PITCH 4095,DURATION 4 
1220 SOUND;PITCH Q(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1230 SOUND;PITCH Q(1),DURATION40:SOUND;PITCH 4095,DURATION 4 
1240 SOUND;PITCH Q(3),DURATION40:SOUND;PITCH 4095,DURATION 4 
1250 SOUND;PITCH Q(2),DURATION10:SOUND;PITCH 4095,DURATION 4 
1260 SOUND;PITCH Q(2),DURATION40:SOUND;PITCH 4095,DURATION 4 
1270 SOUND;PITCH Q(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1280 SOUND;PITCH Q(1),DURATION40:SOUND;PITCH 4095,DURATION 4 
1290 RETURN
1300 SOUND;PITCH Q(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1310 SOUND;PITCH Q(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1315 SOUND;PITCH Q(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1320 SOUND;PITCH Q(3),DURATION10:SOUND;PITCH 4095,DURATION 4 
1330 SOUND;PITCH Q(5),DURATION10:SOUND;PITCH 4095,DURATION 4 
1340 SOUND;PITCH Q(5),DURATION10:SOUND;PITCH 4095,DURATION 4 
1350 SOUND;PITCH Q(5),DURATION25:SOUND;PITCH 4095,DURATION 4 
1360 SOUND;PITCH Q(6),DURATION10:SOUND;PITCH 4095,DURATION 4 
1370 SOUND;PITCH Q(6),DURATION10:SOUND;PITCH 4095,DURATION 4 
1380 SOUND;PITCH Q(4),DURATION10:SOUND;PITCH 4095,DURATION 4 
1390 SOUND;PITCH Q(6),DURATION10:SOUND;PITCH 4095,DURATION 4 
1400 SOUND;PITCH Q(5),DURATION25:SOUND;PITCH 4095,DURATION 10
1410 SOUND;PITCH Q(4),DURATION10:SOUND;PITCH 4095,DURATION 4 
1420 SOUND;PITCH Q(4),DURATION10:SOUND;PITCH 4095,DURATION 4 
1430 SOUND;PITCH Q(4),DURATION25:SOUND;PITCH 4095,DURATION 4 
1440 SOUND;PITCH Q(3),DURATION10:SOUND;PITCH 4095,DURATION 4 
1450 SOUND;PITCH Q(3),DURATION10:SOUND;PITCH 4095,DURATION 4 
1460 SOUND;PITCH Q(3),DURATION25:SOUND;PITCH 4095,DURATION 4 
1470 SOUND;PITCH Q(2),DURATION10:SOUND;PITCH 4095,DURATION 4 
1480 SOUND;PITCH Q(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1490 SOUND;PITCH Q(2),DURATION10:SOUND;PITCH 4095,DURATION 4 
1500 SOUND;PITCH Q(3),DURATION10:SOUND;PITCH 4095,DURATION 4 
1510 SOUND;PITCH Q(1),DURATION30:SOUND;PITCH 4095,DURATION 4 
1600 RETURN
2500 DATA 3349,3431,3503,3537,3598,3652,3701,3723

Lóverseny fogadós játék

Leírás:
Klasszikus játék: fogadunk, hogy a három paciból melyik fog győzni, és némi zsetont teszünk rá, addig folytathatjuk, míg az igazi – valóságos dolog történik, mindent elvesztünk.

   1 GRAPHICS 16:SET INK 14:PRINT AT 10,4:"Lóverseny":GET:GET:GRAPHICS 4:SET PALETTE 0,16,21,85
   2 SET PAPER 1;INK 0;BORDER 65:CLS
   3 SET CHARACTER 160,2,6,7,14,63,127,191,156,169,21
   4 SET CHARACTER 161,0,48,124,240,224,192,192,192,64,64
   5 SET CHARACTER 162,1,3,3,7,63,127,191,156,148,40
   6 SET CHARACTER 163,0,24,190,120,240,224,224,160,80,40
   7 PLOT 96,320;160,520;160,600;128,680;96,600;32,400;32,320;96,320:SET INK 2:PLOT 96,480,PAINT:PLOT 64,440,PAINT
   8 SET INK0:PLOT 32,400;96,400:PLOT 64,480;128,680:PLOT 96,400;160,600:PLOT 64,480;96,400;96,320:SET INK3:PLOT 128,460,PAINT:PLOT 64,360,PAINT
   9 SET PAPER0;INK 2:PRINT AT 1,1:" FUTAM    TÉT       ZS: 999    ":PRINT AT 2,1:"                               ":PRINT AT 3,1:"   MEGTETT LÓ:     BEFUTÓ:     "
  10 SET PAPER 1;INK0:PRINT AT 6,1:"###############################"
  11 FOR C=1 TO 30 
  12 S=INT(RND*4):SET INK S
  13 IF S=1 THEN 12
  14 X=INT(RND*1000):Y=760+INT(RND*80):SOUND PITCH X*4,DURATION 1
  15 PLOT X,Y:NEXT C
  16 SET PAPER 1;INK 3:PRINT AT 11,7:"ŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤ":PRINT AT 13,6:"ŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤ":PRINT AT 15,5:"ŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤŤ"
  17 SET PAPER 0;INK3:PRINT AT 11,31:"1":PRINT AT 13,30:"2":PRINT AT 15,29:"3"
  18 SET PAPER 1             
  20 P=999:F=0
  40 X1=7:X2=8:X3=9:CÉ=0:T=0:TÉ=0
  42 SET PAPER0;INK3:PRINT AT 2,7:"Hányas lóra teszel?":GET:GET T$:PRINT AT 2,7:"                    "
  43 IF T$<>"1" AND T$<>"2" AND T$<>"3" THEN 42
  44 T=ORD(T$)-48:PRINT AT 3,15:T
  45 PRINT AT 2,8:"Hány zsetont?";
  46 INPUT ZS:PRINT AT 2,8:"                    ":IF ZS>P OR ZS<1 THEN 45
  47 PRINT AT 1,14:ZS:SET PAPER 1
  49 RANDOMIZE
  50 M=1+INT(RND*3)
  55 IF M=1 THEN X1=X1+1
  60 IF M=2 THEN X2=X2+1
  65 IF M=3 THEN X3=X3+1
  70 IF A$=" áí" THEN A$=" óú":ELSE A$=" áí"
  75 SET INK 0:PRINT AT 10,X1:A$
  80 SET INK 2:PRINT AT 12,X2:A$
  85 SET INK 3:PRINT AT 14,X3:A$
  90 IF X1=28 OR X2=27 OR X3=26 THEN 100
  95 FOR C=1 TO 20:SOUND PITCH C,DURATION 1;PITCH 4095:NEXT C
  99 GOTO 50
 100 FOR C=4000 TO 1 STEP -20:SOUND PITCH C,DURATION 1:NEXT C
 104 IF X1=28 THEN CÉ=1
 105 IF X2=27 THEN CÉ=2
 110 IF X3=26 THEN CÉ=3
 115 SET PAPER0;INK3:PRINT AT 3,27:CÉ
 120 IF T=CÉ THEN P=P+ZS:PRINT AT 1,25:P
 125 IF T<>CÉ THEN P=P-ZS:PRINT AT 1,25:P
 130 F=F+1:PRINT AT 1,7:F
 135 IF P<1 THEN 500
 140 GET:GET:SET PAPER 1:PRINT AT 10,X1:"   ":PRINT AT 12,X2:"   ":PRINT AT 14,X3:"   ":SET PAPER 4:PRINT AT 3,27:"  ":PRINT AT 3,15:"  ":PRINT AT 1,14:"       "
 190 GOTO 40
 500 CLS:PRINT AT 5,11:M-1;:PRINT "futamból":PRINT AT 10,7:"Elfogyott a pénzed!"
 550 PRINT AT 20,13:"ESC=load"
 560 GET:GET V$:IF ORD(V$)=27 THEN LOAD
 599 RUN
9999 GOTO 9999

Kardhalak és kincsek, szöveges kalandjáték

Leírás:
Bolyongunk egy rémes, hideg labirintusban, és ha szerencsénk van, akkor megtaláljuk az elrejtett kincset, de mindenféle szörny állja utunkat.

   1 GRAPHICS16:SETINK6:PRINTAT10,4:"Köszöntjük":PRINTAT11,8:"a":SETINK3:PRINTAT13,4:"Kardhalak":PRINTAT14,8:"és":PRINTAT15,5:"Kincsek":SETINK6:PRINTAT17,4:"játékban!":GET:GRAPHICS4
   2 SOUND
   5 DIM DA(5),CT(12),TX$(4)*250,RM(20),OB(16,1),BK(10):DIM A$*254,K$*254
   6 DA(1)=5000:DA(2)=6000:DA(3)=7000:DA(4)=8000:DA(5)=9000:RESTORE 3000
   7 FOR I=1 TO20:RM(I)=0:NEXTI:FOR Z=1 TO 16:READ OB(Z,1),OB(Z,0):NEXTZ:FOR T=1TO 10:READ BK(T):NEXTT
  10 CT(0)=1:CT(12)=RND(10)+10:CLS
 100 CT(5)=RM(CT(0)):GOSUB1000:C=CT(6):GOSUB1160:GOSUB1180:IFB=0ANDC=0THEN:CT(6)=1:GOSUB1020:RM(CT(0))=CT(5):ELSE:IFB=1THEN N=RND(100):IFN<20THENB=5:GOSUB1100:GOTO580
 102 GOSUB 1140
 104 GOTO 112
 105 INPUT A$
 106 GOSUB 1060:A$=TX$(2):GOSUB 1080
 108 CT(5)=N:GOSUB 1000:IF CT(10)=0 OR N=0 THENB=7:GOSUB1100:GOTO 104
 110 ON CT(6)+(CT(7)*10)GOTO 200,220,240,260,280,300,320,340,360,380,400,420,460,480,500,520,540,560,580,600,620,640,660,680,700
 112 IF OB(0,0)=0 AND CT(0)>2 THEN CT(12)=CT(12)-1:IF CT(12)<=0 THEN:CT(12)=RND(10)+10:OB(0,1)=CT(0):OB(0,0)=1:GOTO116:ELSE 105
 114 IF CT(0)<3 THEN OB(0,0)=0:GOTO105:ELSE OB(0,1)=CT(0)
 116 B=42:GOSUB1100:B=RND(100):IF B>75 THEN105:ELSE:B=43:GOSUB1100:B=RND(100):IF B>60 THEN:B=44:GOSUB1100:GOTO 580:ELSE 105
 200 D=(CT(8)+(CT(9)*10)):D=D-1:FOR K=1 TO10:CT(5)=BK(K):GOSUB 1000:IF D<>CT(8)THEN:NEXT K:ELSE IF CT(0)<>(CT(6)+CT(7)*10) THEN:NEXT K:GOTO 202:ELSE IF BK(K)<0 THEN 202:ELSE:B=CT(9):GOTO206
 202 D=D+1:GOSUB1120:IF T=22 THENB=4:GOTO 204:ELSE:IF T=23 THENB=5:GOTO 204:ELSE IFT=0 THENB=6:GOTO 206:ELSE CT(0)=T:CT(1)=CT(1)+1:GOTO 100
 204 GOSUB 1100:GOTO580
 206 GOSUB 1100:GOTO104
 220 IF TX$(3)=""THEND=11:GOSUB1120:N=A*100+10101:GOTO 108:ELSEA$=TX$(3):GOTO 106
 240 IF CT(2)>=5THENB=36:GOSUB1100:GOTO 104:ELSEA$=TX$(3):GOSUB1080:IF N>9999THEN:B=7:GOTO 242:ELSE IF N>17THEN:B=8:GOTO 242:ELSE IF OB(N,1)=21THENB=9:GOTO 242:ELSE IF OB(N,1)<>CT(0)ORN=0THENB=12:GOTO 242:ELSE OB(N,1)=21:B=11:CT(2)=CT(2)+1
 242 GOSUB 1100:GOTO 104
 260 A$=TX$(3):GOSUB1080:IF N>9999THENB=7:GOSUB262:ELSE IF OB(N,1)<>21THENB=10:GOTO 262:ELSE:IF N=12THEN540:ELSE:OB(N,1)=CT(0):B=11:CT(2)=CT(2)-1
 262 GOSUB 1100:GOTO104
 280 IF TX$(3)="" THENB=7:GOTO284:ELSE:A$=TX$(3):GOSUB1080:CT(5)=N:GOSUB1000:A=CT(8):GOSUB1200:IF A=0THEN:B=12:GOTO284:ELSE:IF BK(A)<0THEN:B=13:GOTO284:ELSE:IF OB(11,1)<>21 THENB=16:GOTO 284:ELSE:GOSUB1220:B=12+CT(9)
 284 GOSUB 1100:GOTO 104
 300 IF TX$(3)="" THENB=7:GOTO 304:ELSEA$=TX$(3):GOSUB1080:CT(5)=N:GOSUB1000:A=CT(8):GOSUB1200:IF A=0 THENB=12:GOTO 304:ELSE:IF BK(A)>0 THENB=13:GOTO 304:ELSE:GOSUB1220:B=17
 304 GOSUB 1100:GOTO 104
 320 IF OB(0,0)=1THEN322:ELSE FORK=13 TO16:IF OB(K,1)<>CT(0)THEN:NEXT K:B=41:GOSUB1100:GOTO 104
 322 IF OB(10,1)<>21THENB=23:GOTO 326:ELSE:IF K=15 OR K=16THENB=24:GOTO 324:ELSE:X=RND(100):IFOB(0,0)=1THEN 328:ELSE:IFX>70THENB=26:GOTO 324:ELSE:OB(K,1)=0:A=1:GOSUB1200:GOSUB1220:B=25:GOTO 326
 324 GOSUB 1100:B=27:GOSUB1100:X=RND(100):IF X<40THENB=29:GOSUB1100:GOTO 580:ELSE:B=28
 326 GOSUB1100:GOTO 105
 328 IFX>70THEN:B=26:GOSUB1100:GOTO112:ELSE OB(0,0)=0:OB(0,1)=0:B=25:CT(4)=CT(4)+25:GOTO 326
 340 B=18:GOSUB1100:FORJ=1TO16:IFOB(J,1)<>21THENNEXTJ:GOTO 104:ELSEA=4:B=J:GOSUB1040:READK$,K$:PRINTK$:NEXTJ:GOTO104
 360 CT(5)=N:GOSUB1000:B=CT(9)*10+CT(8):GOSUB1100:GOTO104
 380 C=0:GOSUB1160:GOSUB1140:GOTO104
 400 IF CT(0)<>6 THENB=32:GOTO 402:ELSEB=33
 402 GOSUB 1100:GOTO 104
 420 GOSUB1240:GOTO104
 460 IF TX$(3)(:5)<>"AARDV"THENB=34:GOSUB1100:GOTO 104:ELSE 560
 480 B=31:GOSUB1100:GOSUB1240:END
 500 B=19:GOSUB1100:INPUTA:FOR I=0 TO8:PRINT#5,OB(I,0),OB(I,1),OB(I+8,0),OB(I+8,1),RM(I+8),RM(I+12,BK(I),BK(I+2),CT(I):NEXT:GOTO 104
 520 B=19:GOSUB1100:INPUT A:FORI=0 TO 8:INPUT#5,OB(I,0),OB(I,1),OB(I+8,0),OBI+8,1,RM(I),RM(I+12),BK(I),BK(I+2),CT(I):NEXT:GOTO104
 540 IF OB(12,1)<>21THENB=20:GOTO 544:ELSEOB(12,1)=CT(0):CT(2)=CT(2)-1:FOR K=15TO 16:IF OB(K,1)<>CT(0)THEN:NEXTK:B=21:GOTO544:ELSE:OB(K,1)=0:A=1:GOSUB1200:GOSUB1220:B=22
 544 GOSUB1100:GOTO104
 560 IF CT(0)=6THENCT(0)=1:ELSE:IF CT(0)=1 THEN:CT(0)=6:ELSEB=34:GOSUB1100
 580 CT(3)=(CT(3)+1):B=35:GOSUB1100:OB(9,1)=2:FOR I=1 TO 12:IF OB(I,1)=21THEN:OB(I,1)=CT(0):NEXTI:ELSE:NEXTI
 582 CT(0)=1:CT(2)=0:GOTO100
 999 REM*****ANALYZ RUTIN*****
1000 FOR Z=6 TO 10:CT(Z)=0:NEXT Z:B$=STR$(CT(5)):B$=B$(1:):FOR Z=1 TO LEN(B$):CT(6+(LEN(B$)-Z))=VAL(B$(Z)):NEXT Z:IF CT(5)<0THEN:CT(11)=-1:ELSE:CT(11)=1
1001 RETURN
1019 REM******SYNTHE RUTIN****
1020 CT(5)=CT(10)*10000+CT(9)*1000+CT(8)*100+CT(7)*10+CT(6):CT(5)=CT(5)*CT(11):RETURN
1039 REM****AZ ACCESS RUTIN****
1040 ON A GOSUB 1300,1400,1500,1600,1700
1041 RETURN
1059 REM******GETCOM RUTIN****
1060 FOR I=1 TO LEN(A$):IF A$(I)<>" "THEN:NEXT I:TX$(3)="":TX$(2)=A$:RETURN:ELSE:TX$(2)=A$(:(I-1)):FOR I=LEN(A$) TO 1 STEP-1:IF A$(I)<>" "THEN:NEXT I:ELSE:TX$(3)=A$((I+1):):RETURN
1079 REM******IDWORD RUTIN****
1080 IF LEN(A$)>5THENA$=A$(:5)
1082 A=2:B=1:GOSUB1040
1084 READ B$,N:IFB$="."OR B$=A$THEN:RETURN:ELSE 1084
1099 REM****MESPRT RUTIN*****
1100 A=3:GOSUB 1040:READA$:PRINT A$:RETURN
1119 REM******TRAVEC RUTIN****
1120 B=CT(0):A=1:GOSUB 1040:FOR Y=1 TO D:READ T:NEXT Y:RETURN
1139 REM*****LISTOB RUTIN*****
1140 GOSUB1180:IF B=1THEN:RETURN:ELSE A=4:FORB=1TO16:IF CT(0)<>OB(B,1) THEN:NEXT B:RETURN:ELSE:GOSUB 1040:READTX$(4):PRINTTX$(4):NEXT B:RETURN
1159 REM*****WIEWRM RUTIN*****
1160 A=3:GOSUB1180:IF B=1 THENB=39:GOSUB1100:RETURN:ELSE:A=5:B=CT(0):GOSUB1040:READ TX$(0),TX$(1):IFC=0THEN:PRINT TX$(0):RETURN:ELSE PRINTTX$(1):RETURN
1172 REN*******DARCK RUTIN****
1180 IF OB(9,1)<>21 THEN:IF CT(0)>2 THENB=1:ELSEB=0
1182 RETURN
1199 REM*******CKOBS RUTIN****
1200 FOR Q=1 TO 10:CT(5)=BK(Q):GOSUB1000:IF CT(6)+CT(7)*10<>CT(0) OR CT(9)<>A THEN:NEXT Q:A=0:ELSE A=Q
1202 RETURN
1219 REM******REVOBS RUTIN****
1220 BK(A)=-BK(A):CT(5)=BK(A):GOSUB 1000:IF CT(10)=1 THEN:RETURN:ELSE:BK(A-1+CT(10))=-BK(A-1+CT(10)):RETURN
1239 REM******POINTS RUTIN****
1240 B=30:GOSUB1100:A=CT(4):FORI=1TO20:P$=STR$(RM(I)):P$=P$(LEN(P$)):IF F$="1"THENA=A+5
1242 NEXTI:FOR I=1 TO 8:IF OB(I,1)=1THENA=A+10
1244 NEXT I:FOR I=13 TO 16:IF OB(I,1)=0THENA=A+20
1246 NEXT I:A=A-CT(3)*20:PRINTA:PRINTCT(1);"LÉPÉS":RETURN
1299 REM**********első data blokk beállító*******
1300 ON B GOTO 1301,1302,1304,1306,1308,1310,1312,1314,1316,1318,1320,1322,1324,1326,1328,1330,1332,1334,1336,1338
1301 RESTORE 5000:RETURN
1302 RESTORE 5002:RETURN
1304 RESTORE 5004:RETURN
1306 RESTORE 5006:RETURN
1308 RESTORE 5008:RETURN
1310 RESTORE 5010:RETURN
1312 RESTORE 5012:RETURN
1314 RESTORE 5014:RETURN
1316 RESTORE 5016:RETURN
1318 RESTORE 5018:RETURN
1320 RESTORE 5020:RETURN
1322 RESTORE 5022:RETURN
1324 RESTORE 5024:RETURN
1326 RESTORE 5026:RETURN
1328 RESTORE 5028:RETURN
1330 RESTORE 5030:RETURN
1332 RESTORE 5032:RETURN
1334 RESTORE 5034:RETURN
1336 RESTORE 5036:RETURN
1338 RESTORE 5038:RETURN
1399 REM********második data blokk beállító*********
1400 ON B GOTO 1401,1402,1403,1404,1405,1406
1401 RESTORE 6000:RETURN
1402 RESTORE 6001:RETURN
1403 RESTORE 6002:RETURN
1404 RESTORE 6003:RETURN
1405 RESTORE 6004:RETURN
1406 RESTORE 6005:RETURN
1499 REM*******harmadik data blok beállító*********
1500 ON B GOTO 1501,1502,1503,1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,1515,1516,1517,1518,1519,1521,1521,1522,1523,1524,1525,1526,1527,1528,1529,1530,1531,1532,1533,1534,1535,1536,1537,1538,1539,1540,1541,1542,1543,1544
1501 RESTORE 7000:RETURN
1502 RESTORE 7001:RETURN
1503 RESTORE 7002:RETURN
1504 RESTORE 7003:RETURN
1505 RESTORE 7004:RETURN
1506 RESTORE 7005:RETURN
1507 RESTORE 7006:RETURN
1508 RESTORE 7007:RETURN
1509 RESTORE 7008:RETURN
1510 RESTORE 7009:RETURN
1511 RESTORE 7010:RETURN
1512 RESTORE 7011:RETURN
1513 RESTORE 7012:RETURN
1514 RESTORE 7013:RETURN
1515 RESTORE 7014:RETURN
1516 RESTORE 7015:RETURN
1517 RESTORE 7016:RETURN
1518 RESTORE 7017:RETURN
1519 RESTORE 7018:RETURN
1520 RESTORE 7019:RETURN
1521 RESTORE 7020:RETURN
1522 RESTORE 7021:RETURN
1523 RESTORE 7022:RETURN
1524 RESTORE 7023:RETURN
1525 RESTORE 7024:RETURN
1526 RESTORE 7025:RETURN
1527 RESTORE 7026:RETURN
1528 RESTORE 7027:RETURN
1529 RESTORE 7028:RETURN
1530 RESTORE 7029:RETURN
1531 RESTORE 7030:RETURN
1532 RESTORE 7031:RETURN
1533 RESTORE 7032:RETURN
1534 RESTORE 7033:RETURN
1535 RESTORE 7034:RETURN
1536 RESTORE 7035:RETURN
1537 RESTORE 7036:RETURN
1538 RESTORE 7037:RETURN
1539 RESTORE 7038:RETURN
1540 RESTORE 7039:RETURN
1541 RESTORE 7040:RETURN
1542 RESTORE 7041:RETURN
1543 RESTORE 7042:RETURN
1544 RESTORE 7043:RETURN
1599 REM******negyedik data blokk beállító*******
1600 ON B GOTO 1601,1602,1603,1604,1605,1606,1607,1608,1609,1610,1611,1612,1613,1614,1615,1616
1601 RESTORE 8000:RETURN
1602 RESTORE 8001:RETURN
1603 RESTORE 8002:RETURN
1604 RESTORE 8003:RETURN
1605 RESTORE 8004:RETURN
1606 RESTORE 8005:RETURN
1607 RESTORE 8006:RETURN
1608 RESTORE 8007:RETURN
1609 RESTORE 8008:RETURN
1610 RESTORE 8009:RETURN
1611 RESTORE 8010:RETURN
1612 RESTORE 8011:RETURN
1613 RESTORE 8012:RETURN
1614 RESTORE 8013:RETURN
1615 RESTORE 8014:RETURN
1616 RESTORE 8015:RETURN
1699 REM *********ötödik data blok beállító*******
1700 ON B GOTO 1701,1702,1703,1704,1705,1706,1707,1708,1709,1710,1711,1712,1713,1714,1715,1716,1717,1718,1719,1720
1701 RESTORE 9000:RETURN
1702 RESTORE 9001:RETURN
1703 RESTORE 9002:RETURN
1704 RESTORE 9003:RETURN
1705 RESTORE 9004:RETURN
1706 RESTORE 9005:RETURN
1707 RESTORE 9006:RETURN
1708 RESTORE 9007:RETURN
1709 RESTORE 9008:RETURN
1710 RESTORE 9009:RETURN
1711 RESTORE 9010:RETURN
1712 RESTORE 9011:RETURN
1713 RESTORE 9012:RETURN
1714 RESTORE 9013:RETURN
1715 RESTORE 9014:RETURN
1716 RESTORE 9015:RETURN
1717 RESTORE 9016:RETURN
1718 RESTORE 9017:RETURN
1719 RESTORE 9018:RETURN
1720 RESTORE 9019:RETURN
2000 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
3000 DATA 4,0,7,0,20,0,11,0,5,0,19,0,7,0,6,0,2,0,3,0,10,0,12,0,4,0,18,0,14,0,6,0
4000 DATA22902,2808,23306,3712,23404,3011,11104,11118,11714,11306,0
5000 DATA 1,2,2,1,1,1,1,1,0,3,9
5002 DATA 2,2,2,2,2,1,1,2,0,8,9
5004 DATA 0,0,4,10,0,0,0,0,1,0,8
5006 DATA 0,5,0,0,11,0,3,0,0,0,4
5008 DATA 0,0,0,0,0,4,0,0,0,0,5
5010 DATA 0,0,0,12,0,0,0,0,0,23,3
5012 DATA 0,0,0,14,0,0,0,0,0,0,3
5014 DATA 0,0,0,0,14,0,0,0,2,0,8
5016 DATA 9,0,16,15,9,0,0,9,0,0,7 
5018 DATA 23,23,23,16,17,16,17,3,0,17,4
5020 DATA 4,0,0,0,0,0,0,0,0,0,0 
5022 DATA 0,0,13,0,18,0,0,6,0,0,7
5024 DATA 0,0,0,0,0,0,12,0,0,0,6
5026 DATA 8,0,0,0,19,0,0,7,0,19,4
5028 DATA 15,0,15,0,15,15,9,0,0,0,0 
5030 DATA 15,16,16,0,16,0,10,9,0,0,1
5032 DATA 18,18,18,18,18,18,18,18,18,18,0
5034 DATA 12,19,0,0,0,0,0,0,0,0,0
5036 DATA 14,0,0,0,0,18,0,0,14,20,9
5038 DATA 22,22,22,22,22,22,22,22,19,22,8
6000 DATA"ékköv",1,"koron",1,"arany",2,"kocka",2,"gyémá",3,"bogár",3,"ezüst",4,"övet",4,"plati",5,"gyűrű",5,"onixo",6,"érmet",7,"homok",8 
6001 DATA "fákly",9,"szeke",10,"kulcs",11,"gráná",12,"manót",13,"manóv",13,"gyiko",14,"gyikk",14,"pókot",15,"pókka",15,"neven",1,"borza",16,"kardh",18
6002 DATA"sarat",17,"iroas",17,"szekr",17,"holtt",17,"colát",17,"autom",17,"pókhá",17,"álvá",17,"kopor",17,"kaput",317,"rácso",217,"f",10901,"l",11001,"é",10101,"ék",10201,"k",10301,"dk",10401,"d",10501,"dny",10601,"ny",10701,"ény",10801
6003 DATA"észak",10101,"dél",10501,"kelet",10301,"nyuga",10701,"fel",10901,"le",11001,"ponto",10012,"befej",10014,"öld",10007,"küzdj",10007,"puszt",10007,"robba",10017,"bombá",10017,"délne",10501,"délre",10501
6004 DATA"várj",13809,"segít",13709,"olvas",10011,"mondd",10013,zárd",10006,"nyisd",10005,"tárd",10005,"csukd",10006,"zárd",10006,"mutas",10010,"leltá",10008
6005 DATA"vedd",10003,"ejtsd",10004,"dobd",10004,"lobd",10003,"be",10002,"ki",10002,"menj",10002,"lépj",10002,"ments",10015,"tölts",10016,"aardv",10018,".",0
7000 DATA"A LÉNY ELZÁRJA AZ UTAT ÉS MÉRGESEN VICSOROG!"
7001 DATA"A RÁCS BE VAN CSUKVA ÉS LE VAN LAKATOLVA EZÉRT NEM MEHET TOVÁBB!"
7002 DATA"NEM MEHET ERRE MERT A KAPU SZOROSAN BE VAN ZÁRVA ÉS LE VAN LAKATOLVA!"  
7003 DATA"HIÁBA RÁZZA A FOGANTYÚT A KAPU SZOROSAN BE VAN ZÁRVA"
7004 DATA"ORDÍTVA ZUHANT LE ÉS HALÁLRA ZÚZTA MAGÁT!!"
7005 DATA"ARRA NEM MEHET"
7006 DATA"MIT MOND??? NEM ÉRTEM..."
7007 DATA"SIKERTELENÜL PRÓBÁLKOZIK"
7008 DATA"MÁR ÖNNÉL VAN"
7009 DATA"NINCS ÖNNÉL"
7010 DATA"RENDBEN"
7011 DATA"NEM LÁTOK ITT SEMMI HASONLÓT"
7012 DATA" NEM  SZÜKSÉGES"
7013 DATA"A RÁCS CSIKOROGVA KIESIK A HELYÉBŐL"
7014 DATA"A KAPU SZÉLESRE TÁRUL"
7015 DATA"NINCS KULCSA"
7016 DATA"BECSAPÓDIK ÉS A ZÁR BEKATTAN"
7017 DATA"A KÖVETKEZÖ TÁRGYAK VANNAK ÖNNÉL:"
7018 DATA"INDÍTSA EL A MAGNÓT ÉS NYOMJA LE A RETURN GOMBOT"
7019 DATA"NINCS BOMBÁJA"
7020 DATA"A GRÁNÁT A FÖLDRE HULL NEM TÖRTÉNIK SEMMI"
7021 DATA"A GRÁNÁT DARABOKRA SZAGGATJA A SZÖRNYET"
7022 DATA"MILYEN FEGYVERREL??"
7023 DATA"SZEKERCE CSAPÁSAI HATÁSTALANOK"
7024 DATA"A BŰVÖS SZEKERCE CSAPÁSA ALATT A SZÖRNY HÖRÖGVE ROGY ÖSSZE ÉS KIADJA A LELKÉT"
7025 DATA"ELHIBÁZTA PFUJ!!"
7026 DATA"A SZÖRNY A TORKÁNAK UGROTT"
7027 DATA"VALAHOGY SIKERÜLT ELHÁRÍTANI"
7028 DATA"VÉGZETT ÖNNEL..A SZÖRNY SZÁJÁT NYALOGATVA FEKSZIK VISSZA VACKÁBA!"
7029 DATA"PONTSZÁMA A KÖVETKEZŐ:"
7030 DATA"VISZLÁT!!!"
7031 DATA"NINCS ITT SEMMI OLVASNIVALÓ"
7032 DATA"A VESZÉLY       ITT NEM CSEKÉLY     MOND AARDVARK     EZ A SEGÉLY"
7033 DATA"SEMMI SEM TÖRTÉNIK"
7034 DATA"NOS NAGY BAJBAN VAN DICSŐ KALANDOZÓ...MEGHALT DE UJRA ÉLESZTHETJÜK....PPUFF!!"
7035 DATA"KARJAI TELE VANNAK!!"
7036 DATA"RIMÁNKODÁSA SÜKET FALAKRA TALÁL.SZÁNALMAS ALAK."
7037 DATA"MÚLIK AZ IDŐ..."
7038 DATA"TÚL SÖTÉT VAN!"
7039 DATA"ÖNGYILKOS AKAR LENNI?!?!"
7040 DATA"NYUGI...CSAK SEMMI PÁNIK...NINCS ITT SEMMI VESZÉLY"
7041 DATA"EGY DÜHÖS KARDHAL VAN A KÖZELBEN"
7042 DATA"ELŐ RONT EGY DÜHÖS KARDHAL"
7043 DATA"A KARDHAL MISZLIKBE APRÍTJA"
8000 DATA"ITT EGY ÉKKÖVES KORONA","ÉKKÖVES KORONA"
8001 DATA"ITT EGY ARANY KOCKA","ARANY KOCKA"
8002 DATA"ITT EGY BOGÁR FORMÁJÚ GYÉMANT","GYÉMÁNT BOGÁR"
8003 DATA"ITT EGY POMPÁS EZÜST ÖV","EZÜST ÖV"
8004 DATA"ITT EGY TISZTA PLATINA GYŰRŰ","PLATINA GYŰRŰ"
8005 DATA"ITT EGY DARAB TISZTA CSISZOLT ONIX","ONIX"
8006 DATA"ITT EGY MILLIÓKAT ÉRŐ ÉRME","ÉRME"
8007 DATA"ITT EGY ANTIK HOMOKÓRA","HOMOKÓRA"
8008 DATA"ITT EGY ÉGŐ FÁKLYA","FÁKLYA"
8009 DATA"ITT EGY HATALMAS BŰVÖS SZEKERCE","SZEKERCE"
8010 DATA"ITT EGY ÓRIÁS KULCS","KULCS"
8011 DATA"ITT EGY BŰVÖS GRÁNÁT","GRÁNÁT"
8012 DATA"EGY ÓRIÁSI ÁJTATOS MANÓ LAPUL A KÖZELBEN,UGRÁSRA KÉSZEN"
8013 DATA"EGY HATALMAS GYÍK TOPORZÉKOL ÉS ÖNT FIGYELI"
8014 DATA"EGY HATALMAS FEHÉR PÓK TORNYOSUL ÖN FÖLÉ,SZÁJA RÁNGATÓZIK"
8015 DATA"A NEVENINCS BORZAVOM CSÁPJAI LÁBA FELÉ TEKERGŐZNEK EGY BŰZÖS HASADÉKBÓL"
9000 DATA"EGY NAGY GÖDÖR ALJÁN ÁLL LÁBAINÁL EGY SZŰK LYUK","GÖDÖR ALJA"
9001 DATA"A TÖRPÉK ÓDON KASTÉLYÁNAK ROMJAI LÁTHATÓK.A KÖZELBEN RÁCS..... AZON TÚL SÖTÉTSÉG","ROMOK"
9002 DATA"VALAHA ITT EGY FEGYVERTÁR LEHETETT DE MÁR RÉG CSAK POR VAN BENNE..A PLAFONON LYUK,KELETFELÉ BOLTÍV,D.KELETI FALON LYUK","FEGYVERTÁR"
9003 DATA"MINDEN FELÉ VESZTETS CSATA NYOMAI,MINDENÜTT HOLTTESTEKEGYMÁS HEGYÉN HÁTÁN..NY-RA EGY LYUK,ÉK-RE CSARNOK,D-FELÉ KAPU","VESZTES CSATA"
9004 DATA"A FALAKAT KOPORSÓK SZEGÉLYEZIK VALAHA KRIPTA LEHETETT.DNY-FELÉ KAPU VEZET","KRIPTA"
9005 DATA"EZ A KIS TEREM A VRÁZSLAT LEVEGŐÉT ÁRASZTJA.A JÓS ÜZENETE LÁTSZIK A FALON.DK-FELÉ KAPU,A KILYÁRATOT EGY VESZEDELMES  LYUK VESZI KÖRÜL","JOSDA"
9006 DATA"EZ A KINCSTÁR.SZÉGYEN HOGY MENNYI KINCSET SZÉT HORDTAK.DK-FELÉ KAPU LÁTSZIK","KINCSTÁR"
9007 DATA"VALAHA EZ VOLT A TÖRPE KIRÁLYSÁG ŐRHELYE.A MENNYEZETEN A BEJÁRATI RÁCS,DK-RE RAPU KÖRVONALAI BONTAKOZNAK KI","ŐRHELY"
9008 DATA"ELTÉVEDT EGY ÚTVESZ TŐBEN","ISMÉT ELKEVEREDETT"
9009 DATA"EGY ÉK,DNY-I IRÁNYÚ SZIKLAPÁRKÁNYON HALAD.NY-RA FOLYÓ KELETRE FENEKETLEN SZAKADÉK","SZIKLAPÁRKÁNY"
9010 DATA"Egy szűk börtöncellában van.A rácson túl egy szép iroda látszik..elérhetetlen....é-ra egy kapu van","CELLA"
9011 DATA"EZ ITT EGY IRODA AZ ASZTALOK ÉS AZ IRATOK ÜRESEK.A FALBAVÁGOTT RÁCSOS ABLAKON EGY CELLA LÁTSZIK.EGY KAPU TALÁLHATÓ NY-RA ÉS K-RE","IRODA"
9012 DATA"EZ AZ EBÉDLŐ.MÉG COLA-AUTOMATA  IS VAN...SAJNOS ÜRES.NY-RA EGY KAPU DERENG","EBÉDLŐ"
9013 DATA"ROTHADT BŰZ,MINDENÜTT PÓKHÁLÓ.EGY KAPU É-RA,ÉNY-RA EGY KÖDÖS CSARNOK,ÉS A PADLÓN LYUK","PÓKHÁLÓS HELYSÉG"
9014 DATA"ELKEVEREDETT EGY ÚTVESZTŐBEN","ALAPOSAN ELTÉVEDT"
9015 DATA"BELETÉVEDT EGY ÚTVESZTŐBE","ISMÉT ELTÉVEDT EGY RIDEG LABIRINTUSBAN"
9016 DATA"EGY ROHANÓ HIDEG FOLYÓBAN KAPÁLÓDZIK ÉS MEGÁLLÍTHATALANUL EGY BARLANG FELÉ SODRÓDIK","ROHANÓ FOLYÓ"
9017 DATA"EGY SÖTÉT NYÁLKÁS BARLANGBAN VAN,A FOLYÓ MELLETT.MINDEN CSUPA SÁR.É-RE EGY LYUK,ÉK-RE EGY ÖSVÉNY DERENG","NYÁLKÁS BARLANG"
9018 DATA"IZZADTSÁG PATAKZIK HOMLOKÁN MERT EGY GŐZÖLGŐ BARLANGBAN VAN,A   PADLÓN PÁRA SZÁL FEL EGY LYUKBÓL.A MENNYEZETEN IS EGY LYUK VAN.DNY-RA EGY CSAPÁS","GŐZÖLGŐ BARLANG"
9019 DATA"EGY TÜZES CSÚCSON LAPUL,A CSÚCSOT LÁNGOK VESZIK KÖRÜL.FEJEFÖLÖTT FÉLMÉTERRE EGY LYUK.......KIBÍRHATATLAN A HŐSÉG!","TÜZES CSÚCS"

Memória kártyás – párkereső – játék

Leírás:
J Á T É K S Z A B Á L Y O K:
Van két 56 lapos kártyacsomagom. Mind a kettőn a nagy és kisbetűk és négy féle jel szerepel. Össze keverem a két csomagot és leteszem a lapokat lefordítva egymás mellé; 8 sorba, soronként 14 lapot. Az a feladatod, hogy megkeresd az azonos betűt (jelet) tartalmazó lap-párokat.
Egyszerre megfordíthatsz két kártyát úgy, hogy beírod a koordinátáikat (pl.: A1, G4). Egy újabb billentyű lenyomására a két lap visszafordul.
Ha a két jel egyforma volt, kapsz egy pontot, és a kártyák felfordítva maradnak.

1!_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«                               __        _ Vámos György                                        __        Kecskemét 1986        
   2 !                         __ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«_ źČş«                                                                         
   3 REM                             program: 6796 byte              változók: kb.3800 byte                                           
   4 !                          ********************************
  50 RANDOMIZE:GOSUB3000
  55 SETINK2:PRINTAT24,1:"Kéred a játékszabályokat ?";:A$=INKEY$
  56 GETA$:IFA$="i"ORA$="I"THEN60:ELSEIFA$="n"ORA$="N"THEN100:ELSE56
  60 CLS:SETINK2:PRINT"  J Á T É K S Z A B Á L Y O K":SETINK3:PRINTAT2,3:"¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦"
  70 SETINK1:PRINTAT4,1:" Van két  56  lapos kártyacsoma-gom. Mind a kettőn a nagy és kisbetűk és négy féle jel szerepel. Összekeverem a két csomagot  és leteszem  a  lapokat lefordítva egymás mellé; 8 sorba, soronként14 lapot. Az  a  feladatod, hogy";
  80 PRINT"megkeresd  az azonos betűt (je-let) tartalmazó lappárokat.":PRINT:PRINT" Egyszerre  megfordíthatsz  két kártyát úgy, hogy beírod a koordinátáikat (pl.: A1,G4). Egy  újabb billentyű lenyomására a két lap visszafordul. Ha  a  két jel";
  90 PRINT"egyforma volt, kapsz egy pontot, és  a kártyák felfordítva marad-nak.":GOSUB999:CLS
  92 SETINK2:PRINT"  J Á T É K S Z A B Á L Y O K":SETINK3:PRINTAT2,3:"¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦":SETINK1
  93 PRINTAT4,1:" Ha egyedül játszol, az  a  cél, hogy  minél  kevesebb fordulóból találj meg minden párt; ha  ketten játszotok, akkor az nyer, akitöbb párt talál meg."
  94 SETINK2:PRINT:PRINT" A <DEL>-el javíthatsz a rosszul beírt tippen, az <ESC>-vel befejezhető  a  játék az összes  pármegtalálása előtt is."
  95 SETINK3:PRINTAT18,9:"SOK SZERENCSÉT !":GOSUB999
 100 DIMT$(8,14),PO(2),PH(2),N$(2)*254
 110 CLS:SETINK3:INPUTPROMPT"Hányan játszotok ? (1 v. 2) ":JÁT:IFJÁT<>1ANDJÁT<>2THENSETINK1:PRINT"Nem érted, hogy 1 vagy 2 ?!":FORI=1TO1500:NEXT:GOTO110:ELSESETINK1:PRINT:PRINT
 115 IFJÁT=1THEN120:ELSE130
 120 SETINK2:PRINTAT0,21:"12345678":SETINK1:INPUTPROMPT"Neved (max. 8 betű):":N$(1):IFLEN(N$(1))>8THENSETINK2:PRINT"Túl hosszú !":SETINK1:GOTO120:ELSEIFN$(1)=""THENSETINK2:PRINT"Nincs ?":PRINT:SETINK1:GOTO120
 121 MY$=N$(1)(1:1):IFMY$>"a"ANDMY$<="z"THENN$(1)=CHR$(ORD(MY$)-32)&N$(1)(2:)
 125 GOTO160
 130 FORI=1TO2
 140 SETINK2:PRINTAT0,25:"12345678";:SETINK1:PRINTSTR$(I);:INPUTPROMPT". ját. neve (max.8 b.):":N$(I):IFLEN(N$(I))>8THENSETINK2:PRINT"Túl hosszú !":SETINK1:GOTO140:ELSEIFN$(I)=""THENSETINK2:PRINT"Nincs ?":PRINT:SETINK1:GOTO140
 145 MY$=N$(I)(1:1):IFMY$>"a"ANDMY$<="z"THENN$(I)=CHR$(ORD(MY$)-32)&N$(I)(2:)
 150 NEXTI
 160 JÁ=JÁT:CLS:SETINK2:PRINTAT10,1:"    Kis türelmet, keverek !":GOSUB1210:SOUNDPITCH4000,VOLUME15,DURATION80:GOSUB1010:PH(1)=LEN(N$(1))+2:PH(2)=LEN(N$(2))+15:SETINK1:PRINTAT24,PH(1):" 0";:IFJÁT=2THENPRINTAT24,PH(2):" 0";
 170 KÖR=0:JÁ=1:SETINK2:PRINTAT24,1:N$(1);":";:IFJÁT=2THENPRINTAT24,14:N$(2);":";
 180 IFPO(1)+PO(2)=56THEN900:ELSEKÖR=KÖR+1:SETINK1:PRINTAT19,21:"Forduló:";STR$(KÖR)
 189 IFJÁT=1THEN192
 190 SETINK1:PRINTAT21,1:N$(JÁ);" tippjei:";:P=LEN(N$(JÁ))+11:GOSUB1510:IFSZV1=1THEN900
 191 GOTO195
 192 PRINTAT21,1:"Tippjeid:";:P=11:GOSUB1510:IFSZV1=1THEN900
 195 IFSZV2=1THEN190
 200 IFJÁT=1THENJÁ=1:GOTO180
 210 IFJÁ=1THENJÁ=2:KÖR=KÖR-1:ELSEJÁ=1
 220 GOTO180
 900 CLS:SETINK2:PRINTAT3,1:">>>> V é g e r e d m é n y <<<<":SETINK3:PRINTAT4,6:"¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦¦":SOUNDPITCH4000:SETINK1:IFJÁT=1THEN940
 905 PRINTAT6,1:N$(1);" pontja:";:SETINK3:PRINTPO(1):SETINK1
 906 PRINTAT8,1:N$(2);" pontja:";:SETINK3:PRINTPO(2):SETINK1
 910 IFPO(1)=PO(2)THENPRINTAT15,12:"DÖNTETLEN":SETINK2:PRINTAT16,12:"¦¦¦¦¦¦¦¦¦":GOTO960
 920 IFPO(1)>PO(2)THENNY=1:ELSENY=2
 930 PRINTAT16,13:"NYERT:":SETINK2:PRINTAT17,13:"¦¦¦¦¦":SETINK3:A$="":FORI=1TOLEN(N$(NY)):A$=A$&N$(NY)(I:I)&" ":NEXTI:PRINTAT18,(32-LEN(A$)+1)/2:A$:GOTO960
 940 PRINTAT10,(32-(11+LEN(STR$(KÖR))))/2:STR$(KÖR);" fordulóból"
 950 PRINTAT12,(32-(16+LEN(STR$(PO(1)))))/2:STR$(PO(1));" pontot értél el."
 960 SETINK3:PRINTAT22,6:"Még egy parti ? (i/n)":A$=INKEY$
 970 GETA$:IFA$="i"ORA$="I"THENCLS:RUN55:ELSEIFA$="n"ORA$="N"THEN980:ELSE970
 980 CLS:SETINK2:PRINTAT10,1:"Save,Load vagy Vége ?":SETINK1:PRINTAT11,1:"¦    ¦         ¦":A$=INKEY$:SETINK1
 990 GETA$:IFA$="s"ORA$="S"THENPOKE5895,255:PRINT:PRINT"Save ";CHR$(34);"Memory";CHR$(34):POKE5895,255:SAVE"MEMORY (C)VGY'87":PRINT:PRINT:PRINT"Verify":VERIFY:CLS:GOTO980
 991 IFA$="l"ORA$="L"THENPRINT:PRINT"Load":LOAD
 992 IFA$="v"ORA$="V"THENCLS:END:ELSE990
 999 SETINK3:PRINTAT23,1:"   Nyomj le egy billentyűt !":A$=INKEY$:GET:RETURN
1010 CLS:PRINT:SETINK2:PRINT"  ÄŤŹŤŹŤŹŤŹŤŹŤŹŤŹŤŹŤŹŤŹŤŹŤŹŤŹŤÖ"
1020 FORI=1TO7:PRINT"  ő ő ő ő ő ő ő ő ő ő ő ő ő ő ő":PRINT"  îŤÄŤÄŤÄŤÄŤÄŤÄŤÄŤÄŤÄŤÄŤÄŤÄŤÄŤť":NEXT
1030 PRINT"  ő ő ő ő ő ő ő ő ő ő ő ő ő ő ő":PRINT"  ŐŤŁŤŁŤŁŤŁŤŁŤŁŤŁŤŁŤŁŤŁŤŁŤŁŤŁŤÜ"
1040 SETINK1:FORI=1TO8:PRINTATI*2+1,2:STR$(I);:NEXT
1050 FORI=1TO14:PRINTAT1,I*2+2:CHR$(64+I):NEXT
1060 SETINK2:PRINTAT1,3:"ő":PRINTAT2,2:"Ť"
1070 SETINK3:FORJ=14TO1STEP-1:FORI=8TO1STEP-1:PRINTATI*2+1,J*2+2:"_";:NEXTI,J
1080 SETINK3:PRINTAT24,28:"_VGy";:PRINTAT1,2:"_":RETURN
1210 FORI=65TO90
1220 X=RND(14)+1:Y=RND(8)+1:IFT$(Y,X)<>""THEN1220:ELSET$(Y,X)=CHR$(I)
1230 X=RND(14)+1:Y=RND(8)+1:IFT$(Y,X)<>""THEN1230:ELSET$(Y,X)=CHR$(I)
1240 NEXTI
1250 FORI=97TO126
1260 X=RND(14)+1:Y=RND(8)+1:IFT$(Y,X)<>""THEN1260:ELSET$(Y,X)=CHR$(I)
1270 X=RND(14)+1:Y=RND(8)+1:IFT$(Y,X)<>""THEN1270:ELSET$(Y,X)=CHR$(I)
1280 NEXTI:RETURN
1510 GOSUB1800:SZV2=0:SETINK2:GETA$:IFA$=CHR$(8)THEN1700:ELSEA$=CHR$(ORD(A$)+(32*(ORD(A$)>90))):IFA$<"A"ORA$>"N"THEN1510:ELSEPRINTAT21,P:A$:X=ORD(A$)-64
1520 A$=INKEY$:GETA$:IFA$=CHR$(8)THEN1700:ELSEIFA$<"1"ORA$>"8"THEN1520:ELSEPRINTAT21,P+1:A$;",";:Y=VAL(A$)
1530 A$=INKEY$:GETA$:IFA$=CHR$(8)THEN1700:ELSEA$=CHR$(ORD(A$)+(32*(ORD(A$)>90))):IFA$<"A"ORA$>"N"THEN1530:ELSEPRINTAT21,P+3:A$:X1=ORD(A$)-64
1540 A$=INKEY$:GETA$:IFA$=CHR$(8)THEN1700:ELSEIFA$<"1"ORA$>"8"THEN1540:ELSEPRINTAT21,P+4:A$;:Y1=VAL(A$)
1545 IF X=X1 AND Y=Y1 THEN 1700
1546 IF T$(Y,X)=" " OR T$(Y1,X1)=" " THEN 1700
1550 GOSUB1810:GOSUB1820:SETINK 1:IFT$(Y,X)<>" "THENPRINTATY*2+1,X*2+2:T$(Y,X);:A$=T$(Y,X):ELSEA$=T$(Y,X)
1560 IFT$(Y1,X1)<>" "THENPRINTATY1*2+1,X1*2+2:T$(Y1,X1);:B$=T$(Y1,X1):ELSEB$=T$(Y1,X1)
1570 IFB$=A$ANDA$<>" "THENPO(JÁ)=PO(JÁ)+1:GOSUB2000:GOSUB2500:SZV2=1:SETINK1:PRINTAT24,PH(JÁ):PO(JÁ);:T$(Y,X)=" ":T$(Y1,X1)=" ":GOTO1600:ELSEIFA$=" "ANDA$=B$THEN1600
1580 A$=INKEY$:GETA$:IFA$=CHR$(27)THENSZV1=1:RETURN:ELSESETINK3:IFT$(Y,X)<>" "THENPRINTATY*2+1,X*2+2:"_"
1590 GOSUB1810:IFT$(Y1,X1)<>" "THENPRINTATY1*2+1,X1*2+2:"_"
1600 PRINTAT21,1:"                              ":SZV1=0:RETURN
1700 PRINTAT21,P:"      ":GOTO1510
1800 SETINK3:PRINTAT19,3:"DEL: javítás":RETURN
1810 PRINTAT19,3:"            ":RETURN
1820 SETINK3:PRINTAT19,3:"ESC: vége":RETURN
2000 FORI=4000TO1300STEP-21:SOUNDPITCHI:NEXT:SOUNDPITCH4095,DURATION1,VOLUME15
2010 IF PO(1)+PO(2)=56 THEN A$=INKEY$:ELSERETURN
2020 SETINK2:PRINTAT1,1:"            V É G E            "
2030 SETINK0:PRINTAT1,1:"            V É G E            "
2040 IFINKEY$=""THEN2020
2050 GOTO900
2500 SETINK2:PRINTATY*2+1,X*2+2:T$(Y,X);
2510 PRINTATY1*2+1,X1*2+2:T$(Y1,X1);
2520 G$=DI$(RND(5))&" !":IN=1
2530 FORI=1TO44:SETINKIN:PRINTAT22,17:"Ismételhetsz !"
2540 IN=IN+1:IFIN=4THENIN=0
2550 NEXTI:RETURN
3000 GRAPHICS16:SETCHARACTER170,34,54,42,34,34,0,48,72,132,3;CHARACTER171,244,134,229,132,244,0,48,72,132,3;CHARACTER172,78,209,81,81,78,0,48,72,132,3;CHARACTER173,121,69,120,80,76,0,48,72,132,3;CHARACTER174,32,32,192,192,192,0,48,72,128,0
3001 SETCHARACTER177,255,255,255,255,255,255,255,255,255,255;CHARACTER178,60,66,153,161,161,153,66,60;CHARACTER180,255;CHARACTER175,0,0,0,0,0,0,0,1;CHARACTER176,0,0,0,0,0,0,0,209,155,149;CHARACTER181,145
3010 SETPAPER7;BORDER68:CLS:DATA10,2,3,M,12,3,5,E,3,2,7,M,0,3,9,O,15,2,11,R,9,3,13,Y
3020 FORI=1TO6:READSZ,Y,X,B$:SETINKSZ:PRINTATY,X:B$:NEXTI
3021 SETINK10:PRINTAT5,1:"ÄŤÄŤÄŤÄŤÄŤÄŤÄŤÄŤő ő ő ő ő ő ő ő ÄŤÄŤÄŤÄŤÄŤÄŤÄŤÄŤő ő ő ő ő ő ő ő ÄŤÄŤÄŤÄŤÄŤÄŤÄŤÄŤ"
3022 SETINK9:FORI=6TO8STEP2:FORJ=2TO16STEP2:PRINTATI,J:"_";:NEXTJ,I
3030 RESTORE3010:M=1:M1=15:FORI=12TO23STEP2:READSZ,A,A,B$:SETINKSZ:PRINTATI,M:B$:PRINTATI,M1:B$:M=M+1:M1=M1-1:NEXTI
3040 SETINK0:PRINTAT11,6:" źČş«Á";:PRINTAT10,10:"»_";
3044 PRINTAT6,1:;
3050 SETINK15:PRINTAT15,6:"_ VGy";:PRINTAT17,7:"'86"
3060 RESTORE3010:FORI=1TO6:READSZ,Y,X,B$:SETINKRND(16):PRINTATY,X:B$:SOUNDPITCH4003,VOLUME7,DURATION1:NEXTI:SETINKRND(16):PRINTAT15,6:"_ VGy":PRINTAT17,7:"'86";:IFINKEY$=""THEN3060
3070 GRAPHICS 4:SETBORDER 0:RETURN
3080 !________E n d_________!       __________________________
Ramazuri szöveges kalandjáték

Leírás:
Ramazuri, avagy a nagy karácsonyi bevásárlás:
Karácsonyra a famíliának kell ajándékokat venni, de még pénzünk sincs rá, először dolgozunk, pénzt kell keresünk, majd jön a bevásárlás.

  10 GOSUB 3000
 100 RANDOMIZE
 110 DEF FNA(X)=INT(RND*X)+1
 120 GOSUB 240
 130 GOSUB 1510:GOSUB 470
 140 CLS:PRINT:PRINT:PRINT"               RAMAZURI"
 150 PRINT:PRINT"        AVAGY A NAGY BEVÁSÁRLÁS"
 160 PRINT:PRINT:PRINTUZ$
 170 IF JE=0 THEN PRINT:PRINT" A ";V$(PS);" ELŐTT ÁCSOROGSZ."
 180 IF JE=1 THEN PRINT:PRINT" A ";V$(PS);"BAN ÁLLDOGÁLSZ."
 190 PRINT:PRINT:INPUTPROMPT" HOGYAN TOVÁBB? ":CO$
 200 IF O+.01*P>19 THEN 1400
 210 MO=MO+1:PL=FNA(3):GOSUB 760
 220 FOR I=1 TO 13:IF P$(I)=CO$ THEN 620
 230 NEXT:UZ$="NEM ÉRTELEK.":GOTO 140
 240 DIM P$(13)*64,UZ$*64
 250 FOR I=1 TO 13:READ P$(I):NEXT
 260 DIM V$(16)*64,K$(16)*64,K(16)
 270 FOR I=1 TO 16:READ V$(I):NEXT
 280 PS=6:PE=0:JE=0:MO=0:SE=0:VA=0
 290 FOR I=1 TO 16:IF RND>.6 THEN K(I)=K(I)+1
 300 IF RND>.6 THEN K(I)=K(I)+2
 310 IF RND>.6 THEN K(I)=K(I)+4
 320 NEXT
 330 K(8)=0:K(6)=0:K(15)=0:K(4)=0
 340 FOR I=1 TO 16:IF K(I)=7 THEN K(I)=4
 350 NEXT
 360 FOR I=1 TO 16:IF K(I)=1 THEN K$(I)="NYAKKENDŐ."
 370 IF K(I)=2 THEN K$(I)="HAJLAKK."
 380 IF K(I)=4 THEN K$(I)="KISVASÚT."
 390 IF K(I)=3 THEN K$(I)="NYAKKENDŐ, HAJLAKK."
 400 IF K(I)=5 THEN K$(I)="NYAKKENDŐ, KISVASÚT."
 410 IF K(I)=6 THEN K$(I)="HAJLAKK, KISVASÚT."
 420 IF K(I)=0 THEN K$(I)="EGY CSOKIMIKULÁS."
 430 NEXT
 440 K$(15)="ILLATOZÓ BABFŐZELÉK.":K$(8)="NAGY SZÓDÁSHORDÓ."
 450 K$(4)="KIRGIZ NÉPVISELET."
 460 RETURN
 470 PRINT:PRINT:PRINT"      HÁNY ÓRAKOR AKARSZ FELKELNI"
 480 INPUT PROMPT"      A NAGY NAP REGGELÉN? (6-9) ":T$
 490 T=VAL(T$):IF T<6 OR T>9 OR T<>INT(T) THEN 130
 500 PRINT:PRINT"   AZ ÉBRESZTŐÓRA ";T;"-KOR FOG CSÖRÖGNI."
 510 PRINT"            JÓ ÉJSZAKÁT...":FOR I=1 TO 4000:NEXT::CLS
 520 FOR I=0 TO 3000:NEXT
 530 CLS:PRINT:PRINT:PRINT:PRINT:PRINT"   CSIRR-CSÖRR-CSIRR-CSÖRR...!!!
 540 PRINT:PRINT"  ÁLMOSAN KIKÁSZÁLÓDSZ AZ ÁGYBÓL,"
 550 PRINT"  FÉLÁLOMBAN REGGELIZEL, MEGMOSAKSZOL,"
 560 PRINT"  FELÖLTÖZÖL, KISETTENKEDSZ  AZ AJTÓN,"
 570 PRINT"  HOGY A TÖBBIEK ÉSZRE NE VEGYENEK."
 580 PRINT"  CSAK A CSÍPŐS REGGELI LEVEGŐ TÉRÍT "
 590 PRINT"  KISSÉ MAGADHOZ. MUNKÁRA FEL!"
 600 PRINT:PRINT"  NYOMD LE <RETURN>-T!"
 601 GET A$:IF A$<>CHR$(13) THEN 601
 610 O=VAL(T$):P=25:RETURN
 620 UZ$=""
 630 ON I GOTO 640,640,640,640,790,900,1130,810,700,740,1280,1260,1340
 640 IF JE=1 THEN UZ$="ELŐBB JUSS KI A NÉGY FAL KÖZÜL!":GOTO 140
 650 IF I=1 AND PS>4 THEN PS=PS-4:PL=10+FNA(10):GOSUB 760:GOTO 140
 660 IF I=2 AND PS<13 THEN PS=PS+4:PL=10+FNA(10):GOSUB 760:GOTO 140 
 670 IF I=3 AND PS/4<>INT(PS/4) THEN PS=PS+1:PL=10+FNA(10):GOSUB 760:GOTO 140
 680 IF I=4 AND (PS-1)/4<>INT((PS-1)/4) THEN PS=PS-1:PL=10+FNA(10):GOSUB 760:GOTO 140
 690 UZ$="AZ OTT MÁR A VÁROS PEREME...!":PL=5:GOSUB 760:GOTO 140
 700 IF I=9 THEN IF JE=0 THEN JE=1
 710 IF VA=7 AND PS=6 THEN 1440
 720 GOTO 140
 730 UZ$="HISZEN MÁR BENT VAGY!":GOTO 140
 740 IF I=10 THEN IF JE=1 THEN JE=0:GOTO 140
 750 UZ$="HOVÁ AKARSZ KIMENNI AZ UTCÁRÓL?":GOTO 140
 760 P=P+PL
 770 IF P>59 THEN P=P-60:O=O+1:GOTO 770
 780 RETURN
 790 PRINT:INPUTPROMPT" HÁNY PERCIG? ":PL
 800 GOSUB 760:PRINT:PRINT"VÁRAKOZOL.":FOR I=1 TO PL*20:NEXT:GOTO 860
 810 PRINT:INPUTPROMPT" MIT AKARSZ MEGVIZSGÁLNI? ":W$
 820 IF W$="KIRAKAT" THEN 870
 830 IF W$="PÉNZTÁRCA" THEN 890
 840 IF W$="ZSEBÓRA" OR W$="ÓRA" THEN 860
 850 UZ$="SEMMI ÉRDEKES NINCS RAJTA.":GOTO 140
 860 UZ$="A PONTOS IDŐ: "&STR$(O)&"."&STR$(P):GOTO 140
 870 IF PS=6 THEN UZ$="AZ ABLAKBAN EGY KARÁCSONYFA ÁLL.":GOTO 140
 880 UZ$="A KIRAKATBAN VAN "&K$(PS):GOTO 140
 890 UZ$="PÉNZED: "&STR$(PE)&". FITYING.":GOTO 140
 900 IF JE=0 OR PS=6 THEN UZ$="AHHOZ ELŐBB BE KELL MENNI A BOLTBA !"::GOTO 140
 910 PRINT:INPUTPROMPT"MIT AKARSZ VÁSÁROLNI? ":A$
 920 IF A$="NYAKKENDŐ" OR A$="HAJLAKK" OR A$="KISVASÚT" THEN 940
 930 UZ$="INKÁBB AZ AJÁNDÉKOKKAL TÖRŐDJ!":GOTO 140
 940 IF A$="NYAKKENDŐ" THEN A=1
 950 IF A$="HAJLAKK" THEN A=2
 960 IF A$="KISVASÚT" THEN A=4
 970 IF (K(PS) AND A)=A THEN 990
 980 UZ$="SAJNOS AZT NEM TARTUNK...!":GOTO 140
 990 PL=10+FNA(10)
1000 IF PL<15 THEN PRINT:PRINT" A PULT ELŐTT HOSSZÚ SOR KÍGYÓZIK.":GOTO 1020
1010 PRINT:PRINT" A BOLT DUGIG VAN VEVŐKKEL..."
1020 PRINT" ÚGY";INT(PL/5)*5;"PERCET KELLENE SORBAN ÁLLNOD."
1030 INPUT PROMPT" KIVÁROD A SOROD (I/N)? ":KA$
1040 IF KA$="N" THEN 140 :ELSE IF KA$<>"I" THEN 1030
1050 GOSUB 760:FOR I=0 TO 6000:NEXT
1060 AR=22+FNA(17)
1070 PRINT:PRINT" SORRA KERÜLTÉL."
1080 PRINT:PRINT" A ";A$;AR;"FITYINGBE KERÜL."
1090 INPUTPROMPT" MEGVESZED (I/N)? ":KA$
1100 IF KA$="N" THEN UZ$="HA NEM, HÁT NEM.":GOTO 140
1110 IF PE<AR THEN UZ$="NINCS IS RÁ ELÉG PÉNZED !":GOTO 140
1120 PE=PE-AR:VA=VA+A:UZ$="A "&A$&" A TIED.":GOTO 140
1130 IF JE=1 AND PS=2 OR PS=4 OR PS=8 OR PS=11 OR PS=14 OR PS=15THEN 1150
1140 UZ$="HA DOLGOZNI AKARSZ, MENJ EGY KISBOLTBA! ":GOTO 140
1150 IF RND<.7 THEN UZ$="A TULAJNAK NINCS SZÜKSÉGE MUNKAERŐRE !":GOTO 140
1170 PRINT:PRINT" RENDBEN VAN A TULAJ FELVESZ ELADÓNAK."
1180 PRINT" TELJESÍTMÉNYED SZERINT FOGNAK FIZETNI."
1190 INPUTPROMPT" HÁNY ÓRÁRA ÁLLSZ BE (1-10)? ":OA
1200 OA=INT(OA):IF OA<1 OR OA>10 THEN UZ$="ENNYI IDŐRE NEM ALKALMAZLAK.":GOTO 140
1210 PRINT:PRINT"DOLGOZOL...":FOR I=0 TO 6000:NEXT
1220 PRINT:PRINT"MUNKAIDŐ LEJÁRT, ÁTVESZED A PÉNZEDET." 
1230 FI=(15+T-FNA(8))*OA
1240 PRINT"  FIZETÉSED:";FI;". FIFTYING.":PE=PE+FI:O=O+OA
1250 PRINT:PRINT" NYOMD LE A <RETURN>-T!"
1251 GET A$:IF A$<>CHR$(13) THEN 1251
1252 GOTO 140
1260 PRINT:PRINT" FELADTAD A NAGY BEVÁSÁRLÁST..."
1270 PRINT" AKKOR NYOMÁS HAGYMÁT PUCOLNI!":GOTO 2000
1280 IF SE=1 THEN UZ$="SEGÍTS MAGADON, AZ ISTEN IS MEGSEGÍT! ":GOTO 140
1290 FI=FNA(15):SE=1:PE=PE+FI
1300 PRINT:PRINT" LÁSD KIVEL VAN DOLGOD:"
1310 PRINT:PRINT"EZEGYSZER KISEGÍTELEK ";FI;". FITYINGGEL."
1320 PRINT:PRINT"  NYOMD LE <RETURN>-T!"
1321 GET A$:IF A$<>CHR$(13) THEN 1321
1330 GOTO 140
1340 PRINT:PRINT" ZSEBEIDBEN LAPUL: EGY EZÜST ZSEBÓRA"
1350 PRINT"                   EGY RÉGI PÉNZTÁRCA"
1360 IF (VA AND 1)=1 THEN PRINT "                   EGY KOCKÁS NYAKKENDŐ"
1370 IF (VA AND 2)=2 THEN PRINT"                   EGY FRANCIA HAJLAKK"
1380 IF (VA AND 4)=4 THEN PRINT"                   EGY ELEMES KISVASÚT"
1390 PRINT:PRINT"  NYOMD LE A <RETURN>-T!"
1391 GET A$:IF A$<>CHR$(13) THEN 1391
1400 PRINT:PRINT" 19 ÓRA IS ELMÚLT!"
1410 PRINT:PRINT" NEM ÉRTÉL HAZA AZ AJÁNDÉKOKKAL..."
1420 PRINT" EZ NEM VOLT SZÉP TŐLED...!"
1430 PRINT:PRINT" A HELYEDBEN ÚJRA PRÓBÁLKOZNÉK !":GOTO 2000
1440 PRINT:PRINT" A FELADATOT TELJESÍTETTED!"
1450 PRINT" AZ AJÁNDÉKOK OTT SORAKOZNAK A FA ALATT."
1460 PRINT" GRATULÁLOK !"
1470 PRINT" EREDMÉNYED SZÁMSZERŰEN:"
1480 PRINTMO;"LÉPÉS; MARADT ";PE;". FITYINGED."
1490 PRINT" A PONTOS IDŐ: ";STR$(O);":";STR$(P)
1500 GOTO 2000
1510 GRAPHICS2
1520 PRINT:PRINT:PRINT"       R A M A Z U R I "
1530 PRINT:PRINT" AVAGY A NAGY BEVÁSÁRLÁS"
1540 PRINT:PRINT" TERVEZTE ÉS PROGRAMOZTA: POROSZ PÉTER"
1550 PRINT" 1988. OKTÓBER"
1560 PRINT" TVC-RE ÁTÍRTA: CSATLÓS BÉLA"
1570 PRINT" 1988. DECEMBER"
1580 RETURN
1790 DATAÉ,D,K,NY,VÁRJ,VÁSÁROLJ,DOLGOZZ,VIZSGÁLD
1800 DATABE,KI,SEGÍTSÉG,FELADOM,LELTÁR
1810 DATAFLORIENT NAGYÁRUHÁZ,KUPECZI TRAFIK,VODIÁKUS ÁRUHÁZ
1820 DATABORSSZEM BUTIK,LEÓ ÜZLETHÁZ,KEDVES OTTHONOD
1830 DATASKORPIÓ NAGYÁRUHÁZ,KRIGLI SÖRBÁR,RELIZA ÜZLETKÖZPONT
1840 DATAMORÓZUS ÜZLETHÁZ,KICSÓRI VEGYESBOLT,FIRMA ÜZLETKÖZPONT
1850 DATAKŐABLAK ÁRUDA,FINTOR KISBOLT,FALAT VENDÉGLŐ,PIKOZAÉDER ÁRUHÁZ
2000 PRINT:PRINT"AKARSZ MÉG JÁTSZANI (I/N)? ";
2010 INPUTPROMPT"":RT$
2020 IF RT$="I" THEN RUN:ELSE IF RT$="N" THEN CLS:END:ELSE 2000
3000 GRAPHICS2:POKE 2918,1
3010 PRINT"              R A M A Z U R I":PRINT
3020 PRINT"     AVAGY A KARÁCSONYI NAGY BEVÁSÁRLÁS ":PRINT
3030 PRINT"  EGY TÉLI ESTÉN A KANDALLÓ ELŐTT ÜLVE A NAPTÁRRA PILLANTUNK
3040 PRINT"ÉS MEGRÖKÖNYÖDVE LÁTJUK, HOGY DECEMBER 23-A VAN. A
3050 PRINT"A HOLNAPI NAP AZ UTOLSÓ LEHETŐSÉG ARRA, HOGY BESZEREZZÜK A
3060 PRINT"KARÁCSONYI AJÁNDÉKOKAT. EGY NYAKKENDŐT APUNAK, EGY
3070 PRINT"HAJLAKKOT ANYUNAK, ÉS EGY KISVASUTAT ÖCSINEK.
3080 PRINT"  SAJNOS EGY VASUNK SINCS, EZÉRT MÁSNAP MÉG KOMOLY 
3090 PRINT"MUNKÁVAL AZ AJÁNDÉKOK ÁRÁT IS ELŐ KELL TEREMTENÜNK.
3100 PRINT"GYORSAN ALUDNI MEGYÜNK ÉS BEÁLLÍTJUK AZ ÉBRESZTŐÓRÁT,
3110 PRINT"6, 7, 8 VAGY 9 ÓRAKOR KELHETÜNK FEL. REGGELI MOSAKODÁS,
3120 PRINT"ÖLTÖZKÖDÉS ÉS KEZDŐDHET A NAGY BEVÁSÁRLÁS!
3130 PRINT:PRINT"NYOMJ MEG EGY BILLENTYŰT!
3140 GET
3150 CLS:PRINT"  A GÉP A KÖVETKEZŐ SZAVAKAT ÉRTI MEG:":PRINT
3160 PRINT" É, D, K, NY BEÍRÁSÁVAL MOZOGHATUNK A VÁROSBAN
3170 PRINT" VÁRJ Ť LEHET VÁRAKOZNI IS, AZ IDŐ PERSZE SZORÍT, DE HA "
3180 PRINT"VALAKINEK EZ TETSZIK...
3190 PRINT" VIZSGÁLD Ť TULAJDONKÉPPEN BÁRMIT, DE CÉLSZERŰ 3
3200 PRINT"DOLGOT: AZ ÜZLETEK KIRAKATÁT, SAJÁT ZSEBÓRÁNKAT 
3210 PRINT"ÉS PÉNZTÁRCÁNKAT.
3220 PRINT" DOLGOZZ Ť ERRE IS SZÜKSÉG VAN, HOGY AZ AJÁNDÉKOKAT
3230 PRINT"MEG TUDJUK VENNI. KIS ÜZLETBEN PRÓBÁLKOZZUNK, HA
3240 PRINT"NEM SIKERÜL ELSŐRE, NE ADJUK FEL, ADDIG MAKACSKODJUNK,
3250 PRINT"MÍG A TULAJ FEL NEM VESZ!
3260 PRINT" VÁSÁROLJ Ť HA MEGVAN A PÉNZ, BÁRMIT LEHET VÁSÁROLNI. 
3270 PRINT"VIGYÁZAT! AZ ÁRAK BOLTRÓL BOLTRA ÉS ALKALOMRÓL ALKA-
3280 PRINT"LOMRA VÁLTOZNAK. (AHHOZ HOGY MEGTUDJUK ŐKET, VÉGIG 
3290 PRINT"KELL ÁLLNI A SORT.)
3300 PRINT" LELTÁR Ť MEGMUTATJA A NÁLUNK LÉVŐ HOLMIK LISTÁJÁT.
3310 PRINT" SEGÍTSÉG Ť NÉHA ELKEL...
3320 PRINT" FELADOM Ť HA TELJESEN REMÉNYTELENNEK LÁTJUK A
3330 PRINT"HELYZETET, BEFEJEZHETJÜK A JÁTÉKOT.
3340 PRINT:PRINT"NYOMJ MEG EGY BILLENTYŰT!
3350 GET:CLS
4000 RETURN
  10 GOSUB 3000
 100 RANDOMIZE
 110 DEF FNA(X)=INT(RND*X)+1
 120 GOSUB 240
 130 GOSUB 1510:GOSUB 470
 140 CLS:PRINT:PRINT:PRINT"               RAMAZURI"
 150 PRINT:PRINT"        AVAGY A NAGY BEVÁSÁRLÁS"
 160 PRINT:PRINT:PRINTUZ$
 170 IF JE=0 THEN PRINT:PRINT" A ";V$(PS);" ELŐTT ÁCSOROGSZ."
 180 IF JE=1 THEN PRINT:PRINT" A ";V$(PS);"BAN ÁLLDOGÁLSZ."
 190 PRINT:PRINT:INPUTPROMPT" HOGYAN TOVÁBB? ":CO$
 200 IF O+.01*P>19 THEN 1400
 210 MO=MO+1:PL=FNA(3):GOSUB 760
 220 FOR I=1 TO 13:IF P$(I)=CO$ THEN 620
 230 NEXT:UZ$="NEM ÉRTELEK.":GOTO 140
 240 DIM P$(13)*64,UZ$*64
 250 FOR I=1 TO 13:READ P$(I):NEXT
 260 DIM V$(16)*64,K$(16)*64,K(16)
 270 FOR I=1 TO 16:READ V$(I):NEXT
 280 PS=6:PE=0:JE=0:MO=0:SE=0:VA=0
 290 FOR I=1 TO 16:IF RND>.6 THEN K(I)=K(I)+1
 300 IF RND>.6 THEN K(I)=K(I)+2
 310 IF RND>.6 THEN K(I)=K(I)+4
 320 NEXT
 330 K(8)=0:K(6)=0:K(15)=0:K(4)=0
 340 FOR I=1 TO 16:IF K(I)=7 THEN K(I)=4
 350 NEXT
 360 FOR I=1 TO 16:IF K(I)=1 THEN K$(I)="NYAKKENDŐ."
 370 IF K(I)=2 THEN K$(I)="HAJLAKK."
 380 IF K(I)=4 THEN K$(I)="KISVASÚT."
 390 IF K(I)=3 THEN K$(I)="NYAKKENDŐ, HAJLAKK."
 400 IF K(I)=5 THEN K$(I)="NYAKKENDŐ, KISVASÚT."
 410 IF K(I)=6 THEN K$(I)="HAJLAKK, KISVASÚT."
 420 IF K(I)=0 THEN K$(I)="EGY CSOKIMIKULÁS."
 430 NEXT
 440 K$(15)="ILLATOZÓ BABFŐZELÉK.":K$(8)="NAGY SZÓDÁSHORDÓ."
 450 K$(4)="KIRGIZ NÉPVISELET."
 460 RETURN
 470 PRINT:PRINT:PRINT"      HÁNY ÓRAKOR AKARSZ FELKELNI"
 480 INPUT PROMPT"      A NAGY NAP REGGELÉN? (6-9) ":T$
 490 T=VAL(T$):IF T<6 OR T>9 OR T<>INT(T) THEN 130
 500 PRINT:PRINT"   AZ ÉBRESZTŐÓRA ";T;"-KOR FOG CSÖRÖGNI."
 510 PRINT"            JÓ ÉJSZAKÁT...":FOR I=1 TO 4000:NEXT::CLS
 520 FOR I=0 TO 3000:NEXT
 530 CLS:PRINT:PRINT:PRINT:PRINT:PRINT"   CSIRR-CSÖRR-CSIRR-CSÖRR...!!!
 540 PRINT:PRINT"  ÁLMOSAN KIKÁSZÁLÓDSZ AZ ÁGYBÓL,"
 550 PRINT"  FÉLÁLOMBAN REGGELIZEL, MEGMOSAKSZOL,"
 560 PRINT"  FELÖLTÖZÖL, KISETTENKEDSZ  AZ AJTÓN,"
 570 PRINT"  HOGY A TÖBBIEK ÉSZRE NE VEGYENEK."
 580 PRINT"  CSAK A CSÍPŐS REGGELI LEVEGŐ TÉRÍT "
 590 PRINT"  KISSÉ MAGADHOZ. MUNKÁRA FEL!"
 600 PRINT:PRINT"  NYOMD LE <RETURN>-T!"
 601 GET A$:IF A$<>CHR$(13) THEN 601
 610 O=VAL(T$):P=25:RETURN
 620 UZ$=""
 630 ON I GOTO 640,640,640,640,790,900,1130,810,700,740,1280,1260,1340
 640 IF JE=1 THEN UZ$="ELŐBB JUSS KI A NÉGY FAL KÖZÜL!":GOTO 140
 650 IF I=1 AND PS>4 THEN PS=PS-4:PL=10+FNA(10):GOSUB 760:GOTO 140
 660 IF I=2 AND PS<13 THEN PS=PS+4:PL=10+FNA(10):GOSUB 760:GOTO 140 
 670 IF I=3 AND PS/4<>INT(PS/4) THEN PS=PS+1:PL=10+FNA(10):GOSUB 760:GOTO 140
 680 IF I=4 AND (PS-1)/4<>INT((PS-1)/4) THEN PS=PS-1:PL=10+FNA(10):GOSUB 760:GOTO 140
 690 UZ$="AZ OTT MÁR A VÁROS PEREME...!":PL=5:GOSUB 760:GOTO 140
 700 IF I=9 THEN IF JE=0 THEN JE=1
 710 IF VA=7 AND PS=6 THEN 1440
 720 GOTO 140
 730 UZ$="HISZEN MÁR BENT VAGY!":GOTO 140
 740 IF I=10 THEN IF JE=1 THEN JE=0:GOTO 140
 750 UZ$="HOVÁ AKARSZ KIMENNI AZ UTCÁRÓL?":GOTO 140
 760 P=P+PL
 770 IF P>59 THEN P=P-60:O=O+1:GOTO 770
 780 RETURN
 790 PRINT:INPUTPROMPT" HÁNY PERCIG? ":PL
 800 GOSUB 760:PRINT:PRINT"VÁRAKOZOL.":FOR I=1 TO PL*20:NEXT:GOTO 860
 810 PRINT:INPUTPROMPT" MIT AKARSZ MEGVIZSGÁLNI? ":W$
 820 IF W$="KIRAKAT" THEN 870
 830 IF W$="PÉNZTÁRCA" THEN 890
 840 IF W$="ZSEBÓRA" OR W$="ÓRA" THEN 860
 850 UZ$="SEMMI ÉRDEKES NINCS RAJTA.":GOTO 140
 860 UZ$="A PONTOS IDŐ: "&STR$(O)&"."&STR$(P):GOTO 140
 870 IF PS=6 THEN UZ$="AZ ABLAKBAN EGY KARÁCSONYFA ÁLL.":GOTO 140
 880 UZ$="A KIRAKATBAN VAN "&K$(PS):GOTO 140
 890 UZ$="PÉNZED: "&STR$(PE)&". FITYING.":GOTO 140
 900 IF JE=0 OR PS=6 THEN UZ$="AHHOZ ELŐBB BE KELL MENNI A BOLTBA !"::GOTO 140
 910 PRINT:INPUTPROMPT"MIT AKARSZ VÁSÁROLNI? ":A$
 920 IF A$="NYAKKENDŐ" OR A$="HAJLAKK" OR A$="KISVASÚT" THEN 940
 930 UZ$="INKÁBB AZ AJÁNDÉKOKKAL TÖRŐDJ!":GOTO 140
 940 IF A$="NYAKKENDŐ" THEN A=1
 950 IF A$="HAJLAKK" THEN A=2
 960 IF A$="KISVASÚT" THEN A=4
 970 IF (K(PS) AND A)=A THEN 990
 980 UZ$="SAJNOS AZT NEM TARTUNK...!":GOTO 140
 990 PL=10+FNA(10)
1000 IF PL<15 THEN PRINT:PRINT" A PULT ELŐTT HOSSZÚ SOR KÍGYÓZIK.":GOTO 1020
1010 PRINT:PRINT" A BOLT DUGIG VAN VEVŐKKEL..."
1020 PRINT" ÚGY";INT(PL/5)*5;"PERCET KELLENE SORBAN ÁLLNOD."
1030 INPUT PROMPT" KIVÁROD A SOROD (I/N)? ":KA$
1040 IF KA$="N" THEN 140 :ELSE IF KA$<>"I" THEN 1030
1050 GOSUB 760:FOR I=0 TO 6000:NEXT
1060 AR=22+FNA(17)
1070 PRINT:PRINT" SORRA KERÜLTÉL."
1080 PRINT:PRINT" A ";A$;AR;"FITYINGBE KERÜL."
1090 INPUTPROMPT" MEGVESZED (I/N)? ":KA$
1100 IF KA$="N" THEN UZ$="HA NEM, HÁT NEM.":GOTO 140
1110 IF PE<AR THEN UZ$="NINCS IS RÁ ELÉG PÉNZED !":GOTO 140
1120 PE=PE-AR:VA=VA+A:UZ$="A "&A$&" A TIED.":GOTO 140
1130 IF JE=1 AND PS=2 OR PS=4 OR PS=8 OR PS=11 OR PS=14 OR PS=15THEN 1150
1140 UZ$="HA DOLGOZNI AKARSZ, MENJ EGY KISBOLTBA! ":GOTO 140
1150 IF RND<.7 THEN UZ$="A TULAJNAK NINCS SZÜKSÉGE MUNKAERŐRE !":GOTO 140
1170 PRINT:PRINT" RENDBEN VAN A TULAJ FELVESZ ELADÓNAK."
1180 PRINT" TELJESÍTMÉNYED SZERINT FOGNAK FIZETNI."
1190 INPUTPROMPT" HÁNY ÓRÁRA ÁLLSZ BE (1-10)? ":OA
1200 OA=INT(OA):IF OA<1 OR OA>10 THEN UZ$="ENNYI IDŐRE NEM ALKALMAZLAK.":GOTO 140
1210 PRINT:PRINT"DOLGOZOL...":FOR I=0 TO 6000:NEXT
1220 PRINT:PRINT"MUNKAIDŐ LEJÁRT, ÁTVESZED A PÉNZEDET." 
1230 FI=(15+T-FNA(8))*OA
1240 PRINT"  FIZETÉSED:";FI;". FIFTYING.":PE=PE+FI:O=O+OA
1250 PRINT:PRINT" NYOMD LE A <RETURN>-T!"
1251 GET A$:IF A$<>CHR$(13) THEN 1251
1252 GOTO 140
1260 PRINT:PRINT" FELADTAD A NAGY BEVÁSÁRLÁST..."
1270 PRINT" AKKOR NYOMÁS HAGYMÁT PUCOLNI!":GOTO 2000
1280 IF SE=1 THEN UZ$="SEGÍTS MAGADON, AZ ISTEN IS MEGSEGÍT! ":GOTO 140
1290 FI=FNA(15):SE=1:PE=PE+FI
1300 PRINT:PRINT" LÁSD KIVEL VAN DOLGOD:"
1310 PRINT:PRINT"EZEGYSZER KISEGÍTELEK ";FI;". FITYINGGEL."
1320 PRINT:PRINT"  NYOMD LE <RETURN>-T!"
1321 GET A$:IF A$<>CHR$(13) THEN 1321
1330 GOTO 140
1340 PRINT:PRINT" ZSEBEIDBEN LAPUL: EGY EZÜST ZSEBÓRA"
1350 PRINT"                   EGY RÉGI PÉNZTÁRCA"
1360 IF (VA AND 1)=1 THEN PRINT "                   EGY KOCKÁS NYAKKENDŐ"
1370 IF (VA AND 2)=2 THEN PRINT"                   EGY FRANCIA HAJLAKK"
1380 IF (VA AND 4)=4 THEN PRINT"                   EGY ELEMES KISVASÚT"
1390 PRINT:PRINT"  NYOMD LE A <RETURN>-T!"
1391 GET A$:IF A$<>CHR$(13) THEN 1391
1400 PRINT:PRINT" 19 ÓRA IS ELMÚLT!"
1410 PRINT:PRINT" NEM ÉRTÉL HAZA AZ AJÁNDÉKOKKAL..."
1420 PRINT" EZ NEM VOLT SZÉP TŐLED...!"
1430 PRINT:PRINT" A HELYEDBEN ÚJRA PRÓBÁLKOZNÉK !":GOTO 2000
1440 PRINT:PRINT" A FELADATOT TELJESÍTETTED!"
1450 PRINT" AZ AJÁNDÉKOK OTT SORAKOZNAK A FA ALATT."
1460 PRINT" GRATULÁLOK !"
1470 PRINT" EREDMÉNYED SZÁMSZERŰEN:"
1480 PRINTMO;"LÉPÉS; MARADT ";PE;". FITYINGED."
1490 PRINT" A PONTOS IDŐ: ";STR$(O);":";STR$(P)
1500 GOTO 2000
1510 GRAPHICS2
1520 PRINT:PRINT:PRINT"       R A M A Z U R I "
1530 PRINT:PRINT" AVAGY A NAGY BEVÁSÁRLÁS"
1540 PRINT:PRINT" TERVEZTE ÉS PROGRAMOZTA: POROSZ PÉTER"
1550 PRINT" 1988. OKTÓBER"
1560 PRINT" TVC-RE ÁTÍRTA: CSATLÓS BÉLA"
1570 PRINT" 1988. DECEMBER"
1580 RETURN
1790 DATAÉ,D,K,NY,VÁRJ,VÁSÁROLJ,DOLGOZZ,VIZSGÁLD
1800 DATABE,KI,SEGÍTSÉG,FELADOM,LELTÁR
1810 DATAFLORIENT NAGYÁRUHÁZ,KUPECZI TRAFIK,VODIÁKUS ÁRUHÁZ
1820 DATABORSSZEM BUTIK,LEÓ ÜZLETHÁZ,KEDVES OTTHONOD
1830 DATASKORPIÓ NAGYÁRUHÁZ,KRIGLI SÖRBÁR,RELIZA ÜZLETKÖZPONT
1840 DATAMORÓZUS ÜZLETHÁZ,KICSÓRI VEGYESBOLT,FIRMA ÜZLETKÖZPONT
1850 DATAKŐABLAK ÁRUDA,FINTOR KISBOLT,FALAT VENDÉGLŐ,PIKOZAÉDER ÁRUHÁZ
2000 PRINT:PRINT"AKARSZ MÉG JÁTSZANI (I/N)? ";
2010 INPUTPROMPT"":RT$
2020 IF RT$="I" THEN RUN:ELSE IF RT$="N" THEN CLS:END:ELSE 2000
3000 GRAPHICS2:POKE 2918,1
3010 PRINT"              R A M A Z U R I":PRINT
3020 PRINT"     AVAGY A KARÁCSONYI NAGY BEVÁSÁRLÁS ":PRINT
3030 PRINT"  EGY TÉLI ESTÉN A KANDALLÓ ELŐTT ÜLVE A NAPTÁRRA PILLANTUNK
3040 PRINT"ÉS MEGRÖKÖNYÖDVE LÁTJUK, HOGY DECEMBER 23-A VAN. A
3050 PRINT"A HOLNAPI NAP AZ UTOLSÓ LEHETŐSÉG ARRA, HOGY BESZEREZZÜK A
3060 PRINT"KARÁCSONYI AJÁNDÉKOKAT. EGY NYAKKENDŐT APUNAK, EGY
3070 PRINT"HAJLAKKOT ANYUNAK, ÉS EGY KISVASUTAT ÖCSINEK.
3080 PRINT"  SAJNOS EGY VASUNK SINCS, EZÉRT MÁSNAP MÉG KOMOLY 
3090 PRINT"MUNKÁVAL AZ AJÁNDÉKOK ÁRÁT IS ELŐ KELL TEREMTENÜNK.
3100 PRINT"GYORSAN ALUDNI MEGYÜNK ÉS BEÁLLÍTJUK AZ ÉBRESZTŐÓRÁT,
3110 PRINT"6, 7, 8 VAGY 9 ÓRAKOR KELHETÜNK FEL. REGGELI MOSAKODÁS,
3120 PRINT"ÖLTÖZKÖDÉS ÉS KEZDŐDHET A NAGY BEVÁSÁRLÁS!
3130 PRINT:PRINT"NYOMJ MEG EGY BILLENTYŰT!
3140 GET
3150 CLS:PRINT"  A GÉP A KÖVETKEZŐ SZAVAKAT ÉRTI MEG:":PRINT
3160 PRINT" É, D, K, NY BEÍRÁSÁVAL MOZOGHATUNK A VÁROSBAN
3170 PRINT" VÁRJ Ť LEHET VÁRAKOZNI IS, AZ IDŐ PERSZE SZORÍT, DE HA "
3180 PRINT"VALAKINEK EZ TETSZIK...
3190 PRINT" VIZSGÁLD Ť TULAJDONKÉPPEN BÁRMIT, DE CÉLSZERŰ 3
3200 PRINT"DOLGOT: AZ ÜZLETEK KIRAKATÁT, SAJÁT ZSEBÓRÁNKAT 
3210 PRINT"ÉS PÉNZTÁRCÁNKAT.
3220 PRINT" DOLGOZZ Ť ERRE IS SZÜKSÉG VAN, HOGY AZ AJÁNDÉKOKAT
3230 PRINT"MEG TUDJUK VENNI. KIS ÜZLETBEN PRÓBÁLKOZZUNK, HA
3240 PRINT"NEM SIKERÜL ELSŐRE, NE ADJUK FEL, ADDIG MAKACSKODJUNK,
3250 PRINT"MÍG A TULAJ FEL NEM VESZ!
3260 PRINT" VÁSÁROLJ Ť HA MEGVAN A PÉNZ, BÁRMIT LEHET VÁSÁROLNI. 
3270 PRINT"VIGYÁZAT! AZ ÁRAK BOLTRÓL BOLTRA ÉS ALKALOMRÓL ALKA-
3280 PRINT"LOMRA VÁLTOZNAK. (AHHOZ HOGY MEGTUDJUK ŐKET, VÉGIG 
3290 PRINT"KELL ÁLLNI A SORT.)
3300 PRINT" LELTÁR Ť MEGMUTATJA A NÁLUNK LÉVŐ HOLMIK LISTÁJÁT.
3310 PRINT" SEGÍTSÉG Ť NÉHA ELKEL...
3320 PRINT" FELADOM Ť HA TELJESEN REMÉNYTELENNEK LÁTJUK A
3330 PRINT"HELYZETET, BEFEJEZHETJÜK A JÁTÉKOT.
3340 PRINT:PRINT"NYOMJ MEG EGY BILLENTYŰT!
3350 GET:CLS
4000 RETURN

Reversi-Othelló játék

Leírás:
Az ellenfél korongjait kell közrefogni, és mind levenni. Az győz, aki több saját korongot tud megszerezni.

100 !program othelló-reversi
 110 GRAPHICS16
 115 PRINT AT 12,2:"R E V E R S I"
 116 FOR VARJAL=0 TO 1000:NEXT:GRAPHICS4
 118 PRINT "Kíváncsi a szabályokra? [I/N]":GOSUB 190:IF  F$="I" OR F$="i" THEN GOSUB 3240
 119 CLS
 120 CLR$=CHR$(11)
 130 ETAB=1:UTAB=24
 140 T0=0:P=0:N=0
 150 DIM FIGURAK$(4)*12
 155 DIM N$*100,I$*100
 160 GOSUB 2780
 170 POKE 2918,1 !CAPS LOCK
 180 PRINT AT 23,1:CLR$;"Velem akar játszani? [I/N]":GOSUB 190:GOTO 210
 190 F$=INKEY$:IF F$<>"I" AND F$<>"i" AND F$<>"N" AND F$<>"n" THEN GOTO 190
 200 RETURN
 210 IF F$="n" OR F$="N" THEN F$="":GOTO 280
 220 PRINT AT 23,1:CLR$;CHR$(158);" legyek? [I/N]"
 230 GOSUB 190
 240 !
 250 !
 260 IF F$="I" OR F$="i" THEN F$="x":GOTO 280
 270 F$="o"
 280 PRINT AT 23,1:CLR$;
 281 IF F$="x" THEN SET CHARACTER 158,255,129,189,189,189,189,129,255,0
 282 IF F$="o" THEN SET CHARACTER 158,255,129,189,165,165,189,129,255,0
 283 IF F$="" THEN SET CHARACTER 158,255,255,255,255,255,255,255,255,255,255
 290 DIM FT(10,10)
 300 DIM T$(10,10)*2
 310 FOR I=0 TO N
 320 FOR J=0 TO N
 330 T$(I,J)="":FT(I,J)=0
 340 NEXT J
 350 NEXT I
 360 G$="x":I=N/2:J=N/2:GOSUB 2690
 370 I=N/2+1:J=N/2+1:GOSUB 2690
 380 G$="o":I=N/2:J=N/2+1:GOSUB 2690
 390 I=N/2+1:J=N/2:GOSUB 2690
 400 G$="x":S$="o":X=2:O=2
 410 IF X+O=N*N THEN 710
 420 IF X=0 OR O=0 THEN 710
 430 IF F$=G$ THEN 820
 440 PRINT AT 10,UTAB:FIGURAK$(3+(G$="o"));CLR$;" lép"
 450 !
 460 I$="":IT$=CLR$&"Lépése: "
 461 IF G$="x" THEN SET CHARACTER 158,255,129,189,189,189,189,129,255,0
 462 IF G$="o" THEN SET CHARACTER 158,255,129,189,165,165,189,129,255,0
 470 PRINT AT 23,1:CLR$;:INPUT PROMPT "Lépése: ": I$
 480 !
 490 IF I$(1:1)="0" THEN 510
 495 IF I$="*" THEN RUN
 500 GOTO 540
 510 IF P=0 THEN P=1:GOTO 640
 511 IF P=2 THEN STOP
 520 GOTO 710
 540 P=0
 541 IF LEN(I$)<>2 THEN 460
 560 J$=I$(2:2)
 570 J0=ORD(I$)-64:I0=N-VAL(J$)
 580 !
 590 IF I0<1 OR I0>N OR J0<1 OR J0>N THEN 680
 600 FL=1:GOSUB 2010
 610 IF K=0 THEN 680
 620 GS$=G$:G$=S$:S$=GS$
 630 GOTO 410
 640 T0=1:TP$=F$:F$=G$:PRINT AT 23,1:CLR$;"CONTROL!"
 650 GOSUB 820
 660 F$=TP$
 670 IF NO=1 THEN 620
 680 SOUND DURATION 30:PRINT AT 23,1:CLR$;"Illegális lépés! --> ";I$
 690 FOR VARJAL=0 TO 1000:NEXT VARJAL
 700 GOTO 440
 710 IF F$="x" AND X>O OR F$="o" AND O>X THEN PRINT AT 23,1:CLR$;"Talán majd legközelebb!"
 720 IF F$<>"" AND X=O THEN PRINT AT 23,1:CLR$;"Izgalmas játék volt!"
 730 IF F$="x" AND X<O OR F$="o" AND O<X THEN PRINT AT 23,1:CLR$;"Gratulálok a győzelméhez!"
 740 FOR VARJAL=0 TO 1000:NEXT VARJAL
 750 PRINT AT 23,1:CLR$;"Jöhet a következő játék? [I/N]"
 760 GOSUB 190
 770 IF F$="N" OR F$="n" THEN END
 780 !
 790 !
 800 !
 810 RUN
 820 FL=0
 830 PRINT AT 10,UTAB:FIGURAK$(3+(G$="o"));CLR$;" lép"
 840 IF T0=0 THEN PRINT AT 23,1:CLR$;"Türelmet kérek, gondolkozom!"
 850 KM=0:I=0:J=0
 860 FOR I0=1 TO N STEP N-1
 870 FOR J0=1 TO N STEP N-1
 880 GOSUB 2010
 890 IF K>KM THEN I=I0:J=J0:KM=K
 900 NEXT J0
 910 NEXT I0
 920 IF KM>0 THEN 1910
 930 FOR I0=2 TO N-1
 940 FOR J0=1 TO N STEP N-1
 950 FT(I0,J0)=1
 960 IF T$(I0,J0)<>"" THEN 1010
 970 IF T$(I0-1,J0)<>"" THEN KI=-1:KJ=0:GOSUB 1700
 980 IF T$(I0+1,J0)<>"" THEN KI=1:KJ=0:GOSUB 1700
 990 IF FT(I0,J0)>=0 THEN GOSUB 2010
1000 IF K>KM THEN I=I0:J=J0:KM=K
1010 NEXT J0
1020 NEXT I0
1030 FOR I0=1 TO N STEP N-1
1040 FOR J0=2 TO N-1
1050 FT(I0,J0)=1
1060 IF T$(I0,J0)<>"" THEN 1110
1070 IF T$(I0,J0-1)<>"" THEN KI=0:KJ=-1:GOSUB 1700
1080 IF T$(I0,J0+1)<>"" THEN KI=0:KJ=1:GOSUB 1700
1090 IF FT(I0,J0)>=0 THEN GOSUB 2010
1100 IF K>KM THEN I=I0:J=J0:KM=K
1110 NEXT J0
1120 NEXT I0
1130 IF KM>0 THEN 1910
1140 FOR I0=3 TO N-2
1150 FOR J0=3 TO N-2
1160 GOSUB 2010
1170 IF K>KM THEN I=I0:J=J0:KM=K
1180 NEXT J0
1190 NEXT I0
1200 IF KM>0 THEN 1910
1210 IF T$(1,1)<>"" THEN I0=2:J0=2:GOSUB 2010
1220 IF K>KM THEN I=I0:J=J0:KM=K
1230 IF T$(1,N)<>"" THEN I0=2:J0=N-1:GOSUB 2010
1240 IF K>KM THEN I=I0:J=J0:KM=K
1250 IF T$(N,1)<>"" THEN I0=N-1:J0=2:GOSUB 2010
1260 IF K>KM THEN I=I0:J=J0:KM=K
1270 IF T$(N,N)<>"" THEN I0=N-1:J0=N-1:GOSUB 2010
1280 IF K>KM THEN I=I0:J=J0:KM=K
1290 FOR I0=3 TO N-2
1300 FOR J0=2 TO N-1 STEP N-3
1310 GOSUB 2010
1320 IF K>KM THEN I=I0:J=J0:KM=K
1330 NEXT J0
1340 NEXT I0
1350 FOR I0=2 TO N-1 STEP N-3
1360 FOR J0=3 TO N-2
1370 GOSUB 2010
1380 IF K>KM THEN I=I0:J=J0:KM=K
1390 NEXT J0
1400 NEXT I0
1410 IF KM>0 THEN 1910
1420 FOR I0=2 TO N-1
1430 FOR J0=1 TO N STEP N-1
1440 IF FT(I0,J0)<0 THEN GOSUB 2010
1450 IF K>KM THEN I=I0:J=J0:KM=K
1460 NEXT J0
1470 NEXT I0
1480 FOR I0=1 TO N STEP N-1
1490 FOR J0=2 TO N-1
1500 IF FT(I0,J0)<0 THEN GOSUB 2010
1510 IF K>KM THEN I=I0:J=J0:KM=K
1520 NEXT J0
1530 NEXT I0
1540 IF KM>0 THEN 1910
1550 IF T$(1,1)<>"" THEN I0=2:J0=2:GOSUB 2010
1560 IF K>KM THEN I=I0:J=J0:KM=K
1570 IF T$(1,N)<>"" THEN I0=2:J0=N-1:GOSUB 2010
1580 IF K>KM THEN I=I0:J=J0:KM=K
1590 IF T$(N,1)<>"" THEN I0=N-1:J0=2:GOSUB 2010
1600 IF K>KM THEN I=I0:J=J0:KM=K
1610 IF T$(N,N)<>"" THEN I0=N-1:J0=N-1:GOSUB 2010
1620 IF K>KM THEN I=I0:J=J0:KM=K
1630 IF KM>0 THEN 1910
1640 IF T0=0 THEN PRINT AT 23,1:CLR$;"Pass."
1650 FOR VARJAL=0 TO 1000:NEXT VARJAL
1660 !
1670 IF T0<>0 THEN T0=0:NO=1:RETURN
1680 IF P=0 THEN P=1:GOTO 620
1690 GOTO 700
1700 K=0:I1=I0+KI:J1=J0+KJ
1710 IF T$(I1,J1)<>G$ THEN 1740
1720 I1=I1+KI:J1=J1+KJ
1730 IF I1<1 OR I1<N OR J1<1 OR J1>N THEN FT(I0,J0)=0:RETURN
1740 IF T$(I1,J1)="" THEN RETURN
1750 IF T$(I1,J1)<>S$ THEN 1790
1760 I1=I1+KI:J1=J1+KJ
1770 IF I1<1 OR I1>N OR J1<1 OR J1>N THEN FT(I0,J0)=-FT(I0,J0) :RETURN
1780 GOTO 1750
1790 IF T$(I1,J1)="" THEN FT(I0,J0)=-FT(I0,J0):RETURN
1800 IF T$(I1,J1)<>G$ THEN 1880
1810 I1=I1+KI:J1=J1+KJ
1820 IF I1<1 OR I1<N OR J1<1 OR J1>N THEN 1840
1830 GOTO 1880
1840 IF T$(I0+KI,J0+KJ)=S$ THEN 1860
1850 GOTO 1870
1860 FT(I0,J0)=0:RETURN
1870 FT(I0,J0)=-FT(I0,J0):RETURN
1880 IF T$(I1,J1)=S$ THEN FT(I0,J0)=-FT(I0,J0):RETURN
1890 IF T$(I0+KI,J0+KJ)=G$ THEN FT(I0,J0)=-FT(I0,J0)
1900 RETURN
1910 IF T0=1 THEN T0=0:NO=0:RETURN
1920 PRINT AT 23,1:CLR$;
1930 FOR L=1 TO 10
1940 PRINT AT I*2,(2*J):FIGURAK$(3+(G$="o"))
1950 PRINT AT I*2,(2*J):FIGURAK$(4)
1960 NEXT L
1970 I0=I:J0=J:FL=1:GOSUB 2010
1980 G$=S$:S$=F$
1990 P=0
2000 GOTO 410
2010 K=0
2020 IF T$(I0,J0)<>"" THEN RETURN
2030 IF I0>1 AND J0>1 THEN 2050
2040 GOTO 2080
2050 IF T$(I0-1,J0-1)<>S$ THEN 2080
2060 KI=-1:KJ=-1
2070 GOSUB 2490
2080 IF I0>1 THEN 2100
2090 GOTO 2130
2100 IF T$(I0-1,J0)<>S$ THEN 2130
2110 KI=-1:KJ=0
2120 GOSUB 2490
2130 IF I0>1 AND J0<N THEN 2150
2140 GOTO 2180
2150 IF T$(I0-1,J0+1)<>S$ THEN 2180
2160 KI=-1:KJ=1
2170 GOSUB 2490
2180 IF J0>1 THEN 2200
2190 GOTO 2230
2200 IF T$(I0,J0-1)<>S$ THEN 2230
2210 KI=0:KJ=-1
2220 GOSUB 2490
2230 IF J0<N THEN 2250
2240 GOTO 2280
2250 IF T$(I0,J0+1)<>S$ THEN 2280
2260 KI=0:KJ=1
2270 GOSUB 2490
2280 IF I0<N AND J0>1 THEN 2300
2290 GOTO 2330
2300 IF T$(I0+1,J0-1)<>S$ THEN 2330
2310 KI=1:KJ=-1
2320 GOSUB 2490
2330 IF I0<N THEN 2350
2340 GOTO 2380
2350 IF T$(I0+1,J0)<>S$ THEN 2380
2360 KI=1:KJ=0
2370 GOSUB 2490
2380 IF I0<N AND J0<N THEN 2400
2390 GOTO 2430
2400 IF T$(I0+1,J0+1)<>S$ THEN 2430
2410 KI=1:KJ=1
2420 GOSUB 2490
2430 IF K=0 OR FL=0 THEN RETURN
2440 IF G$="x" THEN X=X+K:O=O-K+1
2450 IF G$="o" THEN O=O+K:X=X-K+1
2460 PRINT AT 4,UTAB+4+(X>9):X
2470 PRINT AT 7,UTAB+4+(O>9):O
2480 RETURN
2490 I1=I0+2*KI:J1=J0+2*KJ
2500 IF I1<1 OR I1>N OR J1<1 OR J1>N THEN RETURN
2510 IF T$(I1,J1)=S$ THEN I1=I1+KI:J1=J1+KJ:GOTO 2500
2520 IF T$(I1,J1)="" THEN RETURN
2530 IF K>0 THEN K=K-1
2540 IF KI=0 THEN K=K+ABS(J1-J0):GOTO 2560
2550 K=K+ABS(I1-I0)
2560 IF FL=0 THEN RETURN
2570 IF KI<>0 THEN 2630
2580 I=I0
2590 FOR J=J0 TO J1-KJ STEP KJ
2600 GOSUB 2690
2610 NEXT J
2620 GOTO 2680
2630 J=J0
2640 FOR I=I0 TO I1-KI STEP KI
2650 GOSUB 2690
2660 J=J+KJ
2670 NEXT I
2680 RETURN
2690 !DEF FIGURATIR
2700 T$(I,J)=G$
2710 PRINT AT I*2,2*J:FIGURAK$(3+(G$="o"))
2720 !END DEF !FIGURATIR
2721 RETURN
2740 GET GET$
2750 IF GET$="" THEN 2740
2760 !
2770 RETURN
2780 !DEF KARGEN
2790 FIGURAK$(4)=CHR$(128)&CHR$(129)&CHR$(24)&CHR$(19)&CHR$(19)&CHR$(136)&CHR$(137)
2800 FIGURAK$(2)=CHR$(130)&CHR$(131)&CHR$(24)&CHR$(19)&CHR$(19)&CHR$(138)&CHR$(139)
2810 FIGURAK$(3)=CHR$(132)&CHR$(133)&CHR$(24)&CHR$(19)&CHR$(19)&CHR$(140)&CHR$(141)
2820 GOSUB 2840
2821 !END DEF !KARGEN
2830 RETURN
2840 !DEF KARINIC
2850 !
2860 SET CHARACTER 128,255,128,128,128,128,128,128,128,128,128!
2870 SET CHARACTER 129,255,1,1,1,1,1,1,1,1,1!
2880 SET CHARACTER 136,128,128,128,128,128,128,128,128,128,255!
2890 SET CHARACTER 137,1,1,1,1,1,1,1,1,1,255!
2900 SET CHARACTER 130,255,128,128,159,159,152,152,152,152,152!
2910 SET CHARACTER 131,255,1,1,249,249,25,25,25,25,25!
2920 SET CHARACTER 138,152,152,152,152,152,159,159,128,128,255!
2930 SET CHARACTER 139,25,25,25,25,25,249,249,1,1,255!
2940 SET CHARACTER 132,255,128,128,159,159,159,159,159,159,159!
2950 SET CHARACTER 133,255,1,1,249,249,249,249,249,249,249!
2960 SET CHARACTER 140,159,159,159,159,159,159,159,128,128,255!
2970 SET CHARACTER 141,249,249,249,249,249,249,249,1,1,255!
2980 SET CHARACTER 158,255,129,189,189,189,189,129,255,0
3000 !GRAPHICS 4
3010 PRINT AT 23,1:CLR$;"A négyzet mérete [4/6/8/10]";:INPUT N$
3020 N=VAL(N$)
3030 IF N/2<>INT(N/2) OR N<4 OR N>10 THEN 3010
3040 CLS
3050 !
3060 PLOT 50,959,
3070 FOR I=1 TO N
3080 PRINT #0:CHR$(64+I);" ";
3090 NEXT I
3100 !
3110 FOR I=1 TO N
3120 PRINT AT (I*2)+1,1:STR$(ABS(N-I));TAB((N*2)+2);STR$(ABS(N-I))
3130 FOR J=1 TO N
3140 PRINT AT I*2,J*2:FIGURAK$(4);
3150 NEXT J
3160 NEXT I
3170 PLOT 50,999-(I*2)*40,
3180 FOR I=1 TO N
3190 PRINT #0:CHR$(64+I);" ";
3200 NEXT I
3210 PRINT AT 3,UTAB:FIGURAK$(3);"  2"
3220 PRINT AT 6,UTAB:FIGURAK$(2);"  2"
3223 PRINT AT 10,UTAB:FIGURAK$(3);" Kezd!";
3230 !END DEF!KARINIC
3231 RETURN
3240 ! SZABÁLYOK
3245 CLS
3254 PRINT " Ezt a táblás játékot sokan for-";
3256 PRINT "ditgatós néven ismerik."
3258 PRINT " Két játékos játssza  4x4,  6x6,";
3260 PRINT "8x8 vagy 10x10-es táblán, külön-";
3262 PRINT "böző színű korongokkal."
3264 PRINT " Ha valamelyik játékos két figu-";
3266 PRINT "rája közrefogja az ellenfél né-"
3268 PRINT "hány figuráját (vízszintes, füg-";
3270 PRINT "gőleges vagy átlós irányban),"
3272 PRINT "akkor azokat saját színére változtatja át."
3274 PRINT " A játékosok felváltva tesznek"
3276 PRINT "korongokat a táblára."
3278 PRINT " Fontos megkötés, hogy minden"
3280 PRINT "lépésnél legalább egy ellenséges";
3282 PRINT "korongot át kell fordítani."
3284 PRINT " Ha a játékosnak nincs érvényes"
3286 PRINT "lépése, akkor, de csakis akkor,"
3288 PRINT "passzolhat. A játék akkor ér vé-";
3290 PRINT "get, ha a tábla betelt, vagy az"
3292 PRINT "egyik játékos figurái elfogytak,";
3294 PRINT "vagy ha egyik félnek sincs érvé-";
3296 PRINT "nyes lépése.";
3297 A$=INKEY$:IF A$=""THEN 3297
3298 CLS: PRINT "  Az nyer akinek több figurája"
3300 PRINT "van a táblán."
3302 PRINT:PRINT
3304 PRINT "  Ezzel a programmal a TVC ellen";
3306 PRINT "is játszhat.":PRINT
3308 PRINT "  Lépni, az oszlop és a sor meg-adásá";
3310 PRINT "val, (Pl.: C8),":PRINT
3311 PRINT "passzolni, a 0-val,":PRINT
3312 PRINT "a játékot feladni pedig a *-gal"
3313 PRINT "lehet."
3315 PRINT AT 23,1: "Bármely gomb indítja a játékot!"
3316 A$=INKEY$:IF A$=""THEN 3316
3318 RETURN

Színre-színt kártyajáték

Leírás:
A kézben öt lap van. A hívott lapra ugyanolyan figurájú vagy színű lapot lehet tenni.
Az nyer akinek előbb elfogy a lapja. Ha nincs megfelelő lapod vidd a kurzort a kártyát tartó kézre és nyomd meg a RETURN-t.
Ha öt lapod van, de húznod kéne, akkor ellenfeled dob el egy lapot! Sok szerencsét!

   1  ! Bertók Zsolt software !
     !    Software in LUX    !
  10 GRAPHICS4:SET DELAY9;RATE2;12,16,68,20,85;PAPER0;INK3;BORDER16;CHARACTER 160,0,0,0,60,126,254,255,255,255,255:CLS
  11 SET CHARACTER 200,255,128,191,160,166,166,160,161,168,164;CHARACTER 201,255,1,253,5,101,101,5,133,21,37;CHARACTER 202,163,160,191,128,255,3,3,63,127;CHARACTER 203,197,5,253,1,255,192,192,252,254,4;CHARACTER 204,0,0,0,0,0,0,3,4,4,8
  12 SET CHARACTER 205,0,0,0,0,0,0,255,219,219,219;CHARACTER 206,4,4,2,2,3,3,255,0,31;CHARACTER 207,0,0,0,0,0,0,192,32,32,16;CHARACTER 208,8,31,16,34,33,64,64,128,255,127;CHARACTER 209,219,255,0,170,85,170,213,112,255,255
  13 SET CHARACTER 210,0,255,0,170,85,170,84,12,255,255;CHARACTER 211,16,248,8,196,132,50,50,1,255,254
  14 SET CHARACTER 182,1,6,24,96,64,32,33,18,20,8;CHARACTER 183,21,19,12,0,3,60,192;CHARACTER 184,208,32,64,128;CHARACTER 185,0,0,0,0,6,25,33,39,74,141;CHARACTER 186,3,13,58,213,170,85,170,87,172,112;CHARACTER 187,128,64,160,80,168,112,192
  16 SET CHARACTER 161,0,0,0,60,126,127,255,255,255,255
  17 SET CHARACTER 162,127,63,31,15,7,3,1
  18 SET CHARACTER 163,254,252,248,240,224,192,128
  19 SET CHARACTER 164,0,0,3,4,8,8,8,8,8,8
  20 SET CHARACTER 165,0,0,192,224,240,240,240,240,240,240
  22 SET CHARACTER 166,8,8,63,85,106,63,1
  24 SET CHARACTER 167,240,240,252,82,170,252,128,192
  26 SET CHARACTER 168,0,0,0,49,42,36,16,21,19,32
  28 SET CHARACTER 169,0,0,0,140,220,252,248,88,56,252
  30 SET CHARACTER 170,32,74,71,64,65,34,28,0,1
  32 SET CHARACTER 171,252,174,30,254,254,252,184,128
  34 SET CHARACTER 172,0,0,0,7,27,33,35,65,64,112
  35 SET CHARACTER 173,0,0,0,224,152,132,196,130,2,14
  36 SET CHARACTER 174,127,79,64,41,37,31,7,1
  38 SET CHARACTER 175,254,242,2,148,164,248,224,128
  40 SET CHARACTER 180,24,126,102,195,24,24,195,102,126,24
  41 SET CHARACTER 193,0,219,219,219,219,219,115,35
  42 SET CHARACTER 190,0,0,127,63,31,15,7,3,1
  43 SET CHARACTER 191,0,0,254,252,248,240,224,192,128
  44 SET CHARACTER 192,0,96,96,96,96,96,96,96
  46 SET CHARACTER 181,170,85,170,85,170,85,170,85,170,85
  47 SET CHARACTER 194,0,108,108,108,108,108,108,108
  48 POKE 2896,2:SET INK0:PLOT 96,80:SET INK2:PRINT #0:"Presented by Bertók Zsolt":SET INK0:PLOT 100,84:SET INK3:PRINT #0:"Presented by Bertók Zsolt":POKE 2896,0:GOTO400
  51 FOR C=1 TO 11:READ HANG,SZÜ:SOUND PITCH HANG,DURATION SZÜ;PITCH 4095:NEXT C
  52 DATA 3000,10,3500,10,3800,10,3000,10,3200,10,3400,10,3600,10,3800,10,3000,10,3500,10,3800,20
  53 GET:SET PAPER0;INK2:CLS:PRINT AT 1,11:"Színre színt":SET INK0
  54 PRINT AT 3,2:"A kézben öt lap van. A hívott    ":PRINT "lapra ugyanolyan figurájú vagy  ":PRINT "színű lapot lehet tenni. Az nyer":PRINT "akinek előbb elfogy a lapja.    ":PRINT "Ha nincs megfelelő lapod vidd a "
  56 PRINT "kurzort a  kártyát tartó kézre  ":PRINT "és nyomd meg a RETURN-t. Ha öt  ":PRINT "lapod van, de húznod kéne, akkor":PRINT "ellenfeled dob el egy lapot!    ":PRINT "        Sok szerencsét!"
  57 SET INK3:B=3
  58 FOR C=1 TO 32
  60 K=PEEK(255+((2*(B-1))*32)+C)
  62 PRINT AT B,C:CHR$(K)
  64 SOUND PITCH 3400,DURATION4;PITCH 4095
  65 NEXT C
  67 IF B<20 THEN B=B+2:GOTO 58
  69 GET:GET:PRINT:SET INK2 !--------------------------
  70 RUN75
  75 KEZ=1:MT=1:KX=27:CO=0:JÁ=0:DIM LÉ(5),LC(5),L1$*24,L2$*24,L3$*24,L4$*24,L5$*24,C1$*24,C2$*24,C3$*24,C4$*24,C5$*24,KIO(32),KI(32)
  76 CLS:JÁ$="Játékos":SET PAPER0;INK2
  78 INPUT PROMPT "Hány menetet játsszunk?":MEN
  79 IF MEN<1 OR MEN>99 THEN SOUND:GOTO 78:ELSE SET INK2:PRINT "Ha előbb be akarod fejezni a  ":PRINT "játékot nyomd meg a 'v'-t!    "
  80 AX=2:AY=18:X=3:LAP=2:W1=0:W2=0:W3=0:W4=0:W5=0:W6=0:W7=0:W8=0:W9=0:W10=0:W11=0:W12=0:W13=0:W14=0:W15=0:W16=0:W17=0:W18=0:W19=0:W20=0:W21=0:W22=0:W23=0:W24=0:W25=0:W26=0:KŐ=0
  81 W27=0:W28=0:W29=0:W30=0:W31=0:W32=0:SET 12,85,16,68,4:SET INK3:PRINT "        K E V E R E K         ":GOTO 9900
  82 FOR C=1 TO 32:KI(C)=0:NEXT
  85 SET PAPER1;BORDER4:CLS:SET PAPER3;INK2:PRINT AT 1,1:"JÁTÉKOS:0  SZINRE SZINT!  TVC:0 ":SET INK0:PRINT AT 1,12:"SZÍNRE SZÍNT!":SET PAPER0;INK2
  88 FOR C=3 TO 8:PRINT AT C,2:"¦¦¦¦":PRINT AT C,7:"¦¦¦¦":PRINT AT C,12:"¦¦¦¦":PRINT AT C,17:"¦¦¦¦":PRINT AT C,22:"¦¦¦¦":NEXT C
  89 FOR C=18 TO 23:PRINT AT C,2:"¦¦¦¦":PRINT AT C,7:"¦¦¦¦":PRINT AT C,12:"¦¦¦¦":PRINT AT C,17:"¦¦¦¦":PRINT AT C,22:"¦¦¦¦":NEXT C:SET INK3;PAPER1:PRINT AT 17,3:"ż+"
  90 SET PAPER1;INK0:PRINT AT 4,28:"++":PRINT AT 5,28:"--":PRINT AT 6,27:"¦-+¤":PRINT AT 7,27:"đĐĎË"::SET INK3:PLOT 844,688,PAINT:PLOT 860,724,PAINT:PLOT 928,724,PAINT:PLOT 870,832,PAINT:SET INK2:PLOT 896,824,PAINT
  91 SET INK0:PRINT AT 22,27:"ÂĚŞ":PRINT AT 21,28:"¦¦+":SET INK2:PLOT 848,92,PAINT:SET PAPER3;INK0:PRINT AT 1,9:STR$(JÁ):PRINT AT 1,31:STR$(CO):SET PAPER0;INK3
  92 ON KIO(LAP) GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,2000,2100,2200,2300,2400,2500,2600,2700,3000,3100,3200,3300,3400,3500,3600,3700,4000,4100,4200,4300,4400,4500,4600,4700
  93 KŐ=KŐ+1:LÉ(KŐ)=PÉ:PÉ=0
  94 IF KŐ=1 THEN L1$=A$&B$&C$&D$&E$&F$:I1=S:Z1=Z:LAP=LAP+1:KI(KIO(LAP))=1:K1=KIO(LAP)
  95 IF KŐ=2 THEN L2$=A$&B$&C$&D$&E$&F$:I2=S:Z2=Z:LAP=LAP+1:KI(KIO(LAP))=1:K2=KIO(LAP)
  96 IF KŐ=3 THEN L3$=A$&B$&C$&D$&E$&F$:I3=S:Z3=Z:LAP=LAP+1:KI(KIO(LAP))=1:K3=KIO(LAP)
  97 IF KŐ=4 THEN L4$=A$&B$&C$&D$&E$&F$:I4=S:Z4=Z:LAP=LAP+1:KI(KIO(LAP))=1:K4=KIO(LAP)
  98 IF KŐ=5 THEN L5$=A$&B$&C$&D$&E$&F$:I5=S:Z5=Z:LAP=LAP+1:KI(KIO(LAP))=1:K5=KIO(LAP)
  99 PRINT AT AY,AX:A$:PRINT AT AY+1,AX:B$:PRINT AT AY+2,AX:C$:PRINT AT AY+3,AX:D$:PRINT AT AY+4,AX:E$:PRINT AT AY+5,AX:F$
 100 SOUND PITCH 3600,DURATION4:AX=AX+5:IF KŐ<5 THEN 92:ELSE KŐ=0:AX=2:AY=3
 105 !
 108 ON KIO(LAP) GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,2000,2100,2200,2300,2400,2500,2600,2700,3000,3100,3200,3300,3400,3500,3600,3700,4000,4100,4200,4300,4400,4500,4600,4700
 110 KŐ=KŐ+1:LC(KŐ)=PÉ:PÉ=0
 112 IF KŐ=1 THEN C1$=A$&B$&C$&D$&E$&F$:N1=S:M1=Z:LAP=LAP+1:KI(KIO(LAP))=1:C1=KIO(LAP)
 114 IF KŐ=2 THEN C2$=A$&B$&C$&D$&E$&F$:N2=S:M2=Z:LAP=LAP+1:KI(KIO(LAP))=1:C2=KIO(LAP)
 116 IF KŐ=3 THEN C3$=A$&B$&C$&D$&E$&F$:N3=S:M3=Z:LAP=LAP+1:KI(KIO(LAP))=1:C3=KIO(LAP)
 118 IF KŐ=4 THEN C4$=A$&B$&C$&D$&E$&F$:N4=S:M4=Z:LAP=LAP+1:KI(KIO(LAP))=1:C4=KIO(LAP)
 119 IF KŐ=5 THEN C5$=A$&B$&C$&D$&E$&F$:N5=S:M5=Z:LAP=LAP+1:KI(KIO(LAP))=1:C5=KIO(LAP)
 120 IF KŐ<5 THEN 108
 130 ! LAPFELCSAPÁS
 132 ON KIO(1) GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,2000,2100,2200,2300,2400,2500,2600,2700,3000,3100,3200,3300,3400,3500,3600,3700,4000,4100,4200,4300,4400,4500,4600,4700
 134 SZ=Z:PÉ1=PÉ
 136 PRINT AT 11,27:A$:PRINT AT 12,27:B$:PRINT AT 13,27:C$:PRINT AT 14,27:D$:PRINT AT 15,27:E$:PRINT AT 16,27:F$
 140 SOUND PITCH 3500,DURATION4;PITCH 3800,DURATION4
 142 IF KEZ=0 THEN 700
 145 SET PAPER1;INK0:PRINT AT 12,9:"Te jössz!":SOUND PITCH 4000,DURATION4
 150 GET K$:K=ORD(K$)
 160 SET PAPER1;INK3:PRINT AT 17,X:"  "
 165 IF K=19 AND X>3 THEN X=X-5
 170 IF K=4 AND X<28 THEN X=X+5
 172 IF K$="v" THEN 6500
 175 SOUND PITCH 3000,DURATION2:PRINT AT 17,X:"ż+"
 180 IF K=13 OR K=6 THEN 185:ELSE 150
 185 IF X=3 AND(LÉ(1)<>PÉ1 AND Z1<>SZ OR L1$="0")THEN SOUND:GOTO150
 187 IF X=8 AND(LÉ(2)<>PÉ1 AND Z2<>SZ OR L2$="0")THEN SOUND:GOTO150
 188 IF X=13 AND(LÉ(3)<>PÉ1 AND Z3<>SZ OR L3$="0")THEN SOUND:GOTO150
 189 IF X=18 AND(LÉ(4)<>PÉ1 AND Z4<>SZ OR L4$="0")THEN SOUND:GOTO150
 190 IF X=23 AND(LÉ(5)<>PÉ1 AND Z5<>SZ OR L5$="0")THEN SOUND:GOTO150
 192 PRINT AT 12,9:"         "
 195 IF X=28 THEN 600
 199 !---------------
 200 SET PAPER1:AX=X-1:PRINT AT 18,AX:"    ":PRINT AT 19,AX:"    ":PRINT AT 20,AX:"    ":PRINT AT 21,AX:"    ":PRINT AT 22,AX:"    ":PRINT AT 23,AX:"    ":FOR C=11 TO 16:PRINT AT C,27:"    ":NEXT:SET PAPER0
 210 IF X=3 THEN SET INK I1:PRINT AT 11,KX:L1$(1:4):PRINT AT 12,KX:L1$(5:8):PRINT AT 13,KX:L1$(9:12):PRINT AT 14,KX:L1$(13:16):PRINT AT 15,KX:L1$(17:20):PRINT AT 16,KX:L1$(21:24):PÉ1=LÉ(1):L1$="0":LÉ(1)=0:SZ=Z1:Z1=0:KI(K1)=0
 220 IF X=8 THEN SET INK I2:PRINT AT 11,KX:L2$(1:4):PRINT AT 12,KX:L2$(5:8):PRINT AT 13,KX:L2$(9:12):PRINT AT 14,KX:L2$(13:16):PRINT AT 15,KX:L2$(17:20):PRINT AT 16,KX:L2$(21:24):PÉ1=LÉ(2):L2$="0":LÉ(2)=0:SZ=Z2:Z2=0:KI(K2)=0
 230 IF X=13 THEN SET INK I3:PRINT AT 11,KX:L3$(1:4):PRINT AT 12,KX:L3$(5:8):PRINT AT 13,KX:L3$(9:12):PRINT AT 14,KX:L3$(13:16):PRINT AT 15,KX:L3$(17:20):PRINT AT 16,KX:L3$(21:24):PÉ1=LÉ(3):L3$="0":LÉ(3)=0:SZ=Z3:Z3=0:KI(K3)=0
 240 IF X=18 THEN SET INK I4:PRINT AT 11,KX:L4$(1:4):PRINT AT 12,KX:L4$(5:8):PRINT AT 13,KX:L4$(9:12):PRINT AT 14,KX:L4$(13:16):PRINT AT 15,KX:L4$(17:20):PRINT AT 16,KX:L4$(21:24):PÉ1=LÉ(4):L4$="0":LÉ(4)=0:SZ=Z4:Z4=0:KI(K4)=0
 242 IF X=23 THEN SET INK I5:PRINT AT 11,KX:L5$(1:4):PRINT AT 12,KX:L5$(5:8):PRINT AT 13,KX:L5$(9:12):PRINT AT 14,KX:L5$(13:16):PRINT AT 15,KX:L5$(17:20):PRINT AT 16,KX:L5$(21:24):PÉ1=LÉ(5):L5$="0":LÉ(5)=0:SZ=Z5:Z5=0:KI(K5)=0
 245 IF L1$="0" AND L2$="0" AND L3$="0" AND L4$="0" AND L5$="0" THEN NY=1:GOTO6000
 250 GOTO700
 400 SET PAPER3;INK1:PRINT AT 2,13:"--  ":PRINT AT 3,13:"    ":PRINT AT 4,13:" ák   ":PRINT AT 5,13:" ó    ":SET INK0:PRINT AT 6,13:"   ĘÁ   ":PRINT AT 7,13:"        ":SET INK2:PRINT AT 8,15:"   Ąą ":PRINT AT 9,15:"   Žž "
 410 PRINT AT 10,17:"    ":PRINT AT 11,17:"   Á"
 420 SET INK0:PLOT 448,600;448,840;544,840:PLOT 508,600;508,760;640,760
 430 SET INK2;PAPER0:PRINT AT 13,5:"S Z Í N R E ";:SET INK1:PRINT "-";:SET INK3:PRINT " S Z Í N T"
 499 GOTO51
 500 ! ELDOBÁS UTÁN LAPSZÁMVIZSGÁLAT COMP.
 510 IF C1$="0" AND C2$="0" AND C3$="0" AND C4$="0" AND C5$="0" THEN NY=0:GOTO6000
 520 GOTO700
 550 ! ELDOBÁS HA IF-ek NEM TELJESÜLTEK
 560 IF C1$<>"0" THEN C1$="0":LC(1)=0:M1=0:FOR C=3 TO 8:PRINT AT C,2:"    ":NEXT:KI(C1)=0:GOTO590
 565 IF C2$<>"0" THEN C2$="0":LC(2)=0:M2=0:FOR C=3 TO 8:PRINT AT C,7:"    ":NEXT:KI(C2)=0:GOTO590
 570 IF C3$<>"0" THEN C3$="0":LC(3)=0:M3=0:FOR C=3 TO 8:PRINT AT C,12:"    ":NEXT:KI(C3)=0:GOTO590
 575 IF C4$<>"0" THEN C4$="0":LC(4)=0:M4=0:FOR C=3 TO 8:PRINT AT C,17:"    ":NEXT:KI(C4)=0:GOTO590
 580 IF C5$<>"0" THEN C5$="0":LC(5)=0:M5=0:FOR C=3 TO 8:PRINT AT C,22:"    ":NEXT:KI(C5)=0:GOTO590
 590 IF C1$="0" AND C2$="0" AND C3$="0" AND C4$="0" AND C5$="0" THEN NY=0:GOTO6000
 599 GOTO700
 600 ! NEM TUDTAM RAKNI
 605 IT=0
 610 IF L1$="0" THEN IT=1
 615 IF L2$="0" THEN IT=2
 620 IF L3$="0" THEN IT=3
 625 IF L4$="0" THEN IT=4
 630 IF L5$="0" THEN IT=5
 635 IF IT=0 THEN 650
 640 SET PAPER1;INK3:PRINT AT 10,3:"Nem tudsz mit rátenni?":PRINT AT 12,6:"Húzz egy lapot!":SOUND PITCH 3000,DURATION2;PITCH 3500,DURATION2:GET:PRINT AT 10,3:STRING$(22,32):PRINT AT 12,6:STRING$(16,32):SET PAPER0
 645 GOTO 7000
 650 SET PAPER1;INK3:PRINT AT 10,3:"Nem tudsz mit rátenni?":PRINT AT 12,2:"Akkor eldobok egy lapot!":SOUND PITCH 3000,DURATION2;PITCH 3500,DURATION2:GET:PRINT AT 10,3:STRING$(22,32):PRINT AT 12,2:STRING$(24,32)
 655 L1=0:L2=0:L3=0:L4=0:L5=0
 660 IF M1=Z THEN L1=1
 662 IF M2=Z THEN L2=1
 664 IF M3=Z THEN L3=1
 666 IF M4=Z THEN L4=1
 668 IF M5=Z THEN L5=1
 670 IF LC(1)=PÉ1 THEN L1=1
 672 IF LC(2)=PÉ1 THEN L2=1
 674 IF LC(3)=PÉ1 THEN L3=1
 676 IF LC(4)=PÉ1 THEN L4=1
 678 IF LC(5)=PÉ1 THEN L5=1
 690 IF L1<>1 AND C1$<>"0" THEN C1$="0":LC(1)=0:M1=0:FOR C=3 TO 8:PRINT AT C,2:"    ":NEXT:KI(C1)=0:GOTO500
 692 IF L2<>1 AND C2$<>"0" THEN C2$="0":LC(2)=0:M2=0:FOR C=3 TO 8:PRINT AT C,7:"    ":NEXT:KI(C2)=0:GOTO500
 694 IF L3<>1 AND C3$<>"0" THEN C3$="0":LC(3)=0:M3=0:FOR C=3 TO 8:PRINT AT C,12:"    ":NEXT:KI(C3)=0:GOTO500
 696 IF L4<>1 AND C4$<>"0" THEN C4$="0":LC(4)=0:M4=0:FOR C=3 TO 8:PRINT AT C,17:"    ":NEXT:KI(C4)=0:GOTO500
 698 IF L5<>1 AND C5$<>"0" THEN C5$="0":LC(5)=0:M5=0:FOR C=3 TO 8:PRINT AT C,22:"    ":NEXT:KI(C5)=0:GOTO500
 699 GOTO 550
 700 ! KOMPUTER LAP
 701 SET PAPER1;INK0:PRINT AT 12,9:"Én jövök!"
 704 L=0:SOUND PITCH 4000,DURATION2
 705 IF M1=SZ AND (M1=M2 OR M1=M3 OR M1=M4 OR M1=M5) THEN L=1:GOTO 800
 710 IF M2=SZ AND (M2=M3 OR M2=M4 OR M2=M5) THEN L=2:GOTO800
 715 IF M3=SZ AND (M3=M4 OR M3=M5) THEN L=3:GOTO800
 720 IF M4=SZ AND M4=M5 THEN L=4:GOTO800
 725 IF LC(1)=PÉ1 AND (LC(1)=LC(2) OR LC(1)=LC(3) OR LC(1)=LC(4) OR LC(1)=LC(5)) THEN L=1:GOTO800
 730 IF LC(2)=PÉ1 AND (LC(2)=LC(3) OR LC(2)=LC(4) OR LC(2)=LC(5)) THEN L=2:GOTO800
 735 IF LC(3)=PÉ1 AND (LC(3)=LC(4) OR LC(3)=LC(5)) THEN L=3:GOTO800
 740 IF LC(4)=PÉ1 AND LC(4)=LC(5) THEN L=4:GOTO800
 745 IF M1=SZ THEN L=1:GOTO800
 750 IF M2=SZ THEN L=2:GOTO800
 755 IF M3=SZ THEN L=3:GOTO800
 760 IF M4=SZ THEN L=4:GOTO800
 765 IF M5=SZ THEN L=5:GOTO800
 770 IF LC(1)=PÉ1 THEN L=1:GOTO800
 775 IF LC(2)=PÉ1 THEN L=2:GOTO800
 780 IF LC(3)=PÉ1 THEN L=3:GOTO800
 785 IF LC(4)=PÉ1 THEN L=4:GOTO800
 790 IF LC(5)=PÉ1 THEN L=5:GOTO800
 795 IF L=0 THEN 900
 800 ! COMP. LAPKIRAKÁS
 805 SET PAPER1:CX=2+(L-1)*5:FOR C=3 TO 8:PRINT AT C,CX:"    ":NEXT:FOR C=11 TO 16:PRINT AT C,27:"    ":NEXT:SET PAPER0
 810 IF L=1 THEN SET INK N1:PRINT AT 11,KX:C1$(1:4):PRINT AT 12,KX:C1$(5:8):PRINT AT 13,KX:C1$(9:12):PRINT AT 14,KX:C1$(13:16):PRINT AT 15,KX:C1$(17:20):PRINT AT 16,KX:C1$(21:24):PÉ1=LC(1):C1$="0":LC(1)=0:SZ=M1:M1=0:KI(C1)=0:GOTO880
 820 IF L=2 THEN SET INK N2:PRINT AT 11,KX:C2$(1:4):PRINT AT 12,KX:C2$(5:8):PRINT AT 13,KX:C2$(9:12):PRINT AT 14,KX:C2$(13:16):PRINT AT 15,KX:C2$(17:20):PRINT AT 16,KX:C2$(21:24):PÉ1=LC(2):C2$="0":LC(2)=0:SZ=M2:M2=0:KI(C2)=0:GOTO880
 830 IF L=3 THEN SET INK N3:PRINT AT 11,KX:C3$(1:4):PRINT AT 12,KX:C3$(5:8):PRINT AT 13,KX:C3$(9:12):PRINT AT 14,KX:C3$(13:16):PRINT AT 15,KX:C3$(17:20):PRINT AT 16,KX:C3$(21:24):PÉ1=LC(3):C3$="0":LC(3)=0:SZ=M3:M3=0:KI(C3)=0:GOTO880
 840 IF L=4 THEN SET INK N4:PRINT AT 11,KX:C4$(1:4):PRINT AT 12,KX:C4$(5:8):PRINT AT 13,KX:C4$(9:12):PRINT AT 14,KX:C4$(13:16):PRINT AT 15,KX:C4$(17:20):PRINT AT 16,KX:C4$(21:24):PÉ1=LC(4):C4$="0":LC(4)=0:SZ=M4:M4=0:KI(C4)=0:GOTO880
 850 IF L=5 THEN SET INK N5:PRINT AT 11,KX:C5$(1:4):PRINT AT 12,KX:C5$(5:8):PRINT AT 13,KX:C5$(9:12):PRINT AT 14,KX:C5$(13:16):PRINT AT 15,KX:C5$(17:20):PRINT AT 16,KX:C5$(21:24):PÉ1=LC(5):C5$="0":LC(5)=0:SZ=M5:M5=0:KI(C5)=0
 880 SET PAPER1:PRINT AT 12,9:"         ":SET PAPER0
 890 IF C1$="0" AND C2$="0" AND C3$="0" AND C4$="0" AND C5$="0" THEN NY=0:GOTO6000
 899 GOTO 145
 900 ! COMPUTER NEM TUDOTT RAKNI
 905 NT=0
 910 IF C1$="0" THEN NT=1
 915 IF C2$="0" THEN NT=2
 920 IF C3$="0" THEN NT=3
 925 IF C4$="0" THEN NT=4
 930 IF C5$="0" THEN NT=5
 935 IF NT=0 THEN 950
 940 SET PAPER1;INK3:PRINT AT 10,3:"Nem tudok mit rátenni!":PRINT AT 12,6:"Húzok egy lapot!":SOUND PITCH 3000,DURATION2;PITCH 3500,DURATION2:GET:PRINT AT 10,3:STRING$(22,32):PRINT AT 12,6:STRING$(16,32):SET PAPER0
 945 GOTO7600
 950 SET PAPER1;INK3:PRINT AT 10,3:"Nem tudok mit rátenni!":PRINT AT 12,3:"Eldobhatsz egy lapot!":PRINT AT 14,5:"Melyiket dobod el?":SOUND PITCH 3000,DURATION2;PITCH 3500,DURATION2
 960 GET K$:K=ORD(K$)
 962 SET PAPER1;INK3:PRINT AT 17,X:"  "
 964 IF K=19 AND X>3 THEN X=X-5
 966 IF K=4 AND X<23 THEN X=X+5
 967 IF K$="v" THEN 6500
 968 SOUND PITCH 3000,DURATION2:PRINT AT 17,X:"ż+"
 969 IF K=13 OR K=6 THEN 970:ELSE 960
 970 PRINT AT 10,3:STRING$(22,32):PRINT AT 12,3:STRING$(21,32):PRINT AT 14,5:STRING$(18,32):AX=X-1
 972 IF X=3 THEN L1$="0":LÉ(1)=0:Z1=0:FOR C=18 TO 23:PRINT AT C,AX:"    ":NEXT:KI(C1)=0
 974 IF X=8 THEN L2$="0":LÉ(2)=0:Z2=0:FOR C=18 TO 23:PRINT AT C,AX:"    ":NEXT:KI(C2)=0
 976 IF X=13 THEN L3$="0":LÉ(3)=0:Z3=0:FOR C=18 TO 23:PRINT AT C,AX:"    ":NEXT:KI(C3)=0
 978 IF X=18 THEN L4$="0":LÉ(4)=0:Z4=0:FOR C=18 TO 23:PRINT AT C,AX:"    ":NEXT:KI(C4)=0
 980 IF X=23 THEN L5$="0":LÉ(5)=0:Z5=0:FOR C=18 TO 23:PRINT AT C,AX:"    ":NEXT:KI(C5)=0
 985 IF L1$="0" AND L2$="0" AND L3$="0" AND L4$="0" AND L5$="0" THEN NY=1:GOTO6000
 990 GOTO145
 999 END
1000 IF W1=1 THEN RETURN
1008 SET PAPER0;INK2
1009 S=2
1010 A$="Á   "
1012 B$="    "
1014 C$=" áí "
1016 D$=" óú "
1018 E$="    "
1020 F$="   Á"
1030 PÉ=11:W1=1:Z=1
1099 RETURN
1100 SET PAPER0;INK2
1101 S=2
1102 IF W2=1 THEN RETURN
1106 A$="k   "
1110 B$="    "
1112 C$=" áí "
1114 D$=" óú "
1116 E$="    "
1118 F$="   k"
1130 PÉ=4:W2=1:Z=1
1199 RETURN
1200 SET PAPER0;INK2
1201 S=2
1203 IF W3=1 THEN RETURN
1205 A$="f   "
1210 B$="    "
1212 C$=" áí "
1214 D$=" óú "
1216 E$="    "
1218 F$="   f"
1230 PÉ=3:W3=1:Z=1
1299 RETURN
1300 SET PAPER0;INK2
1301 S=2
1303 IF W4=1 THEN RETURN
1305 A$="a   "
1310 B$="    "
1312 C$=" áí "
1314 D$=" óú "
1316 E$="    "
1318 F$="   a"
1330 PÉ=2:W4=1:Z=1
1399 RETURN
1400 SET PAPER0;INK2
1401 S=2
1403 IF W5=1 THEN RETURN
1405 A$="X   "
1410 B$="    "
1412 C$=" áí "
1414 D$=" óú "
1416 E$="    "
1418 F$="   X"
1430 PÉ=10:W5=1:Z=1
1499 RETURN
1500 SET PAPER0;INK2
1501 S=2
1503 IF W6=1 THEN RETURN
1505 A$="IX  "
1510 B$="    "
1512 C$=" áí "
1514 D$=" óú "
1516 E$="    "
1518 F$="  IX"
1530 PÉ=9:W6=1:Z=1
1599 RETURN
1600 SET PAPER0;INK2
1601 S=2
1603 IF W7=1 THEN RETURN
1605 A$="--  "
1610 B$="    "
1612 C$=" áí "
1614 D$=" óú "
1616 E$="    "
1618 F$="  --"
1630 PÉ=8:W7=1:Z=1
1699 RETURN
1700 SET PAPER0;INK2
1701 S=2
1703 IF W8=1 THEN RETURN
1705 A$="-+  "
1710 B$="    "
1712 C$=" áí "
1714 D$=" óú "
1716 E$="    "
1718 F$="  -+"
1730 PÉ=7:W8=1:Z=1
1799 RETURN
2000 S=3
2003 IF W9=1 THEN RETURN
2008 SET PAPER0;INK3
2010 A$="Á   "
2012 B$="    "
2014 C$=" Ąą "
2016 D$=" Žž "
2018 E$="    "
2020 F$="   Á"
2030 PÉ=11:W9=1:Z=2
2099 RETURN
2100 SET PAPER0;INK3
2101 S=3
2103 IF W10=1 THEN RETURN
2105 A$="k   "
2110 B$="    "
2112 C$=" Ąą "
2114 D$=" Žž "
2116 E$="    "
2118 F$="   k"
2130 PÉ=4:W10=1:Z=2
2199 RETURN
2200 SET PAPER0;INK3
2201 S=3
2203 IF W11=1 THEN RETURN
2205 A$="f   "
2210 B$="    "
2212 C$=" Ąą "
2214 D$=" Žž "
2216 E$="    "
2218 F$="   f"
2230 PÉ=3:W11=1:Z=2
2299 RETURN
2300 SET PAPER0;INK3
2301 S=3
2303 IF W12=1 THEN RETURN
2305 A$="a   "
2310 B$="    "
2312 C$=" Ąą "
2314 D$=" Žž "
2316 E$="    "
2318 F$="   a"
2330 PÉ=2:W12=1:Z=2
2399 RETURN
2400 SET PAPER0;INK3
2401 S=3
2403 IF W13=1 THEN RETURN
2405 A$="X   "
2410 B$="    "
2412 C$=" Ąą "
2414 D$=" Žž "
2416 E$="    "
2418 F$="   X"
2430 PÉ=10:W13=1:Z=2
2499 RETURN
2500 SET PAPER0;INK3
2501 S=3
2503 IF W14=1 THEN RETURN
2505 A$="IX  "
2510 B$="    "
2512 C$=" Ąą "
2514 D$=" Žž "
2516 E$="    "
2518 F$="  IX"
2530 PÉ=9:W14=1:Z=2
2599 RETURN
2600 SET PAPER0;INK3
2601 S=3
2603 IF W15=1 THEN RETURN
2605 A$="--  "
2610 B$="    "
2612 C$=" Ąą "
2614 D$=" Žž "
2616 E$="    "
2618 F$="  --"
2630 PÉ=8:W15=1:Z=2
2699 RETURN
2700 SET PAPER0;INK3
2701 S=3
2703 IF W16=1 THEN RETURN
2705 A$="-+  "
2710 B$="    "
2712 C$=" Ąą "
2714 D$=" Žž "
2716 E$="    "
2718 F$="  -+"
2730 PÉ=7:W16=1:Z=2
2799 RETURN
3000 S=1
3002 IF W17=1 THEN RETURN
3008 SET PAPER0;INK1
3010 A$="Á   "
3012 B$="    "
3014 C$=" Ęę "
3016 D$="  ź "
3018 E$="    "
3020 F$="   Á"
3030 PÉ=11:W17=1:Z=3
3099 RETURN
3100 SET PAPER0;INK1
3101 S=1
3103 IF W18=1 THEN RETURN
3105 A$="k   "
3110 B$="    "
3112 C$=" Ęę "
3114 D$="  ź "
3116 E$="    "
3118 F$="   k"
3130 PÉ=4:W18=1:Z=3
3199 RETURN
3200 SET PAPER0;INK1
3201 S=1
3203 IF W19=1 THEN RETURN
3205 A$="f   "
3210 B$="    "
3212 C$=" Ęę "
3214 D$="  ź "
3216 E$="    "
3218 F$="   f"
3230 PÉ=3:W19=1:Z=3
3299 RETURN
3300 SET PAPER0;INK1
3301 S=1
3303 IF W20=1 THEN RETURN
3305 A$="a   "
3310 B$="    "
3312 C$=" Ęę "
3314 D$="  ź "
3316 E$="    "
3318 F$="   a"
3330 PÉ=2:W20=1:Z=3
3399 RETURN
3400 SET PAPER0;INK1
3401 S=1
3403 IF W21=1 THEN RETURN
3405 A$="X   "
3410 B$="    "
3412 C$=" Ęę "
3414 D$="  ź "
3416 E$="    "
3418 F$="   X"
3430 PÉ=10:W21=1:Z=3
3499 RETURN
3500 SET PAPER0;INK1
3501 S=1
3503 IF W22=1 THEN RETURN
3505 A$="IX  "
3510 B$="    "
3512 C$=" Ęę "
3514 D$="  ź "
3516 E$="    "
3518 F$="  IX"
3530 PÉ=9:W22=1:Z=3
3599 RETURN
3600 SET PAPER0;INK1
3601 S=1
3603 IF W23=1 THEN RETURN
3605 A$="--  "
3610 B$="    "
3612 C$=" Ęę "
3614 D$="  ź "
3616 E$="    "
3618 F$="  --"
3630 PÉ=8:W23=1:Z=3
3699 RETURN
3700 SET PAPER0;INK1
3701 S=1
3703 IF W24=1 THEN RETURN
3705 A$="-+  "
3710 B$="    "
3712 C$=" Ęę "
3714 D$="  ź "
3716 E$="    "
3718 F$="  -+"
3730 PÉ=7:W24=1:Z=3
3799 RETURN
4000 S=3
4002 IF W25=1 THEN RETURN
4008 SET PAPER0;INK3
4010 A$="Á   "
4012 B$="    "
4014 C$=" Čş "
4016 D$=" «» "
4018 E$="    "
4020 F$="   Á"
4030 PÉ=11:W25=1:Z=4
4099 RETURN
4100 SET PAPER0;INK3
4101 S=3
4103 IF W26=1 THEN RETURN
4105 A$="k   "
4110 B$="    "
4112 C$=" Čş "
4114 D$=" «» "
4116 E$="    "
4118 F$="   k"
4130 PÉ=4:W26=1:Z=4
4199 RETURN
4200 SET PAPER0;INK3
4201 S=3
4203 IF W27=1 THEN RETURN
4205 A$="f   "
4210 B$="    "
4212 C$=" Čş "
4214 D$=" «» "
4216 E$="    "
4218 F$="   f"
4230 PÉ=3:W27=1:Z=4
4299 RETURN
4300 SET PAPER0;INK3
4301 S=3
4303 IF W28=1 THEN RETURN
4305 A$="a   "
4310 B$="    "
4312 C$=" Čş "
4314 D$=" «» "
4316 E$="    "
4318 F$="   a"
4330 PÉ=2:W28=1:Z=4
4399 RETURN
4400 SET PAPER0;INK3
4401 S=3
4403 IF W29=1 THEN RETURN
4405 A$="X   "
4410 B$="    "
4412 C$=" Čş "
4414 D$=" «» "
4416 E$="    "
4418 F$="   X"
4430 PÉ=10:W29=1:Z=4
4499 RETURN
4500 SET PAPER0;INK3
4501 S=3
4503 IF W30=1 THEN RETURN
4505 A$="IX  "
4510 B$="    "
4512 C$=" Čş "
4514 D$=" «» "
4516 E$="    "
4518 F$="  IX"
4530 PÉ=9:W30=1:Z=4
4599 RETURN
4600 SET PAPER0;INK3
4601 S=3
4603 IF W31=1 THEN RETURN
4605 A$="--  "
4610 B$="    "
4612 C$=" Čş "
4614 D$=" «» "
4616 E$="    "
4618 F$="  --"
4630 PÉ=8:W31=1:Z=4
4699 RETURN
4700 SET PAPER0;INK3
4701 S=3
4703 IF W32=1 THEN RETURN
4705 A$="-+  "
4710 B$="    "
4712 C$=" Čş "
4714 D$=" «» "
4716 E$="    "
4718 F$="  -+"
4730 PÉ=7:W32=1:Z=4
4799 RETURN
6000 ! JÁTSZMA VÉGE
6010 SET PAPER1;INK2:IF NY=0 THEN 6050
6015 PLOT 880,800;908,800;908,804;880,804:SET INK0
6020 PRINT AT 12,2:"GRATULÁLOK! TE NYERTÉL!"
6030 JÁ=JÁ+1:SET PAPER3:PRINT AT 1,9:STR$(JÁ):GOSUB6600
6040 MT=MT+1:IF MT>MEN THEN 6500
6045 IF KEZ THEN KEZ=0:ELSE KEZ=1
6049 SET PAPER1:PRINT AT 13,1:"":GOTO80
6050 SET INK3:PRINT AT 12,1:"Ezt a játszmát én nyertem!"
6060 CO=CO+1:SET PAPER3;INK0:PRINT AT 1,31:STR$(CO):GOSUB6600
6070 MT=MT+1:IF MT>MEN THEN 6500
6080 IF KEZ THEN KEZ=0:ELSE KEZ=1
6099 SET PAPER1:PRINT AT 13,1:"":GOTO80
6500 SET PAPER1;INK3:PRINT AT 14,4:"Vége a";MEN;"játszmának.":SET INK0
6510 IF JÁ>CO THEN PRINT AT 16,4:"Te lettél a győztes!":ELSE PRINT AT 16,4:"Én lettem a győztes!":GET:GET:GET:SOUND
6599 RUN70
6600 ! ZENE
6610 RESTORE6650
6620 FOR C=1 TO 21:READ H
6630 FOR V=16 TO 1 STEP-6:SOUND PITCH H,DURATION3,VOLUME V;PITCH 4095:NEXT V
6645 NEXT C
6650 DATA 3744,3782,3832,3744,4095,3744,3782,3832,3744,4095,3744,3763,3782,3800,3816,3852,3816,3800,3782,3763,3744
6699 RETURN
6999 END
7000 L=0 ! LAP NEKEM
7001 IF L1$="0" THEN L=1:GOTO 7006
7002 IF L2$="0" THEN L=2:GOTO 7006
7003 IF L3$="0" THEN L=3:GOTO 7006
7004 IF L4$="0" THEN L=4:GOTO 7006
7005 IF L5$="0" THEN L=5:GOTO 7006
7006 IF LAP>32 THEN RE=1:GOTO 8500          
7008 PÉ=0:H=0
7100 !
7110 IF KI(KIO(LAP))=1 THEN8550
7120 ON KIO(LAP) GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,2000,2100,2200,2300,2400,2500,2600,2700,3000,3100,3200,3300,3400,3500,3600,3700,4000,4100,4200,4300,4400,4500,4600,4700
7130 IF PÉ=0 THEN 7100:ELSE LÉ(L)=PÉ:PÉ=0
7140 IF L=1 THEN L1$=A$&B$&C$&D$&E$&F$:I1=S:Z1=Z:KI(KIO(LAP))=1:K1=KIO(LAP):LAP=LAP+1:GOTO7500
7150 IF L=2 THEN L2$=A$&B$&C$&D$&E$&F$:I2=S:Z2=Z:KI(KIO(LAP))=1:K2=KIO(LAP):LAP=LAP+1:GOTO7500
7160 IF L=3 THEN L3$=A$&B$&C$&D$&E$&F$:I3=S:Z3=Z:KI(KIO(LAP))=1:K3=KIO(LAP):LAP=LAP+1:GOTO7500
7170 IF L=4 THEN L4$=A$&B$&C$&D$&E$&F$:I4=S:Z4=Z:KI(KIO(LAP))=1:K4=KIO(LAP):LAP=LAP+1:GOTO7500
7180 IF L=5 THEN L5$=A$&B$&C$&D$&E$&F$:I5=S:Z5=Z:KI(KIO(LAP))=1:K5=KIO(LAP):LAP=LAP+1
7500 FOR C=1 TO 5
7520 IF C=1 AND L1$<>"0"THEN SET PAPER0;INKI1:PRINT AT 18,2:L1$(1:4):PRINT AT 19,2:L1$(5:8):PRINT AT 20,2:L1$(9:12):PRINT AT 21,2:L1$(13:16):PRINT AT 22,2:L1$(17:20):PRINT AT 23,2:L1$(21:24)
7530 IF C=2 AND L2$<>"0"THEN SET PAPER0;INKI2:PRINT AT 18,7:L2$(1:4):PRINT AT 19,7:L2$(5:8):PRINT AT 20,7:L2$(9:12):PRINT AT 21,7:L2$(13:16):PRINT AT 22,7:L2$(17:20):PRINT AT 23,7:L2$(21:24)
7540 IF C=3 AND L3$<>"0"THEN SET PAPER0;INKI3:PRINT AT 18,12:L3$(1:4):PRINT AT 19,12:L3$(5:8):PRINT AT 20,12:L3$(9:12):PRINT AT 21,12:L3$(13:16):PRINT AT 22,12:L3$(17:20):PRINT AT 23,12:L3$(21:24)
7550 IF C=4 AND L4$<>"0"THEN SET PAPER0;INKI4:PRINT AT 18,17:L4$(1:4):PRINT AT 19,17:L4$(5:8):PRINT AT 20,17:L4$(9:12):PRINT AT 21,17:L4$(13:16):PRINT AT 22,17:L4$(17:20):PRINT AT 23,17:L4$(21:24)
7555 IF C=5 AND L5$<>"0"THEN SET PAPER0;INKI5:PRINT AT 18,22:L5$(1:4):PRINT AT 19,22:L5$(5:8):PRINT AT 20,22:L5$(9:12):PRINT AT 21,22:L5$(13:16):PRINT AT 22,22:L5$(17:20):PRINT AT 23,22:L5$(21:24)
7560 NEXT C
7565 !
7570 SOUND PITCH 3000,DURATION3:GOTO700
7600 L=0  ! LAP COMPUTERNEK
7601 IF C1$="0" THEN L=1:GOTO 7606
7602 IF C2$="0" THEN L=2:GOTO 7606
7603 IF C3$="0" THEN L=3:GOTO 7606
7604 IF C4$="0" THEN L=4:GOTO 7606
7605 IF C5$="0" THEN L=5:GOTO 7606
7606 IF LAP>32 THEN RE=0:GOTO 8500
7608 PÉ=0:H=0
7700 !
7710 IF KI(KIO(LAP))=1 THEN8560
7720 ON KIO(LAP) GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,2000,2100,2200,2300,2400,2500,2600,2700,3000,3100,3200,3300,3400,3500,3600,3700,4000,4100,4200,4300,4400,4500,4600,4700
7730 IF PÉ=0 THEN 7710:ELSE LC(L)=PÉ:PÉ=0
7740 IF L=1 THEN C1$=A$&B$&C$&D$&E$&F$:N1=S:M1=Z:KI(KIO(LAP))=1:C1=KIO(LAP):LAP=LAP+1:GOTO8100
7750 IF L=2 THEN C2$=A$&B$&C$&D$&E$&F$:N2=S:M2=Z:KI(KIO(LAP))=1:C2=KIO(LAP):LAP=LAP+1:GOTO8100
7760 IF L=3 THEN C3$=A$&B$&C$&D$&E$&F$:N3=S:M3=Z:KI(KIO(LAP))=1:C3=KIO(LAP):LAP=LAP+1:GOTO8100
7770 IF L=4 THEN C4$=A$&B$&C$&D$&E$&F$:N4=S:M4=Z:KI(KIO(LAP))=1:C4=KIO(LAP):LAP=LAP+1:GOTO8100
7780 IF L=5 THEN C5$=A$&B$&C$&D$&E$&F$:N5=S:M5=Z:KI(KIO(LAP))=1:C5=KIO(LAP):LAP=LAP+1:GOTO8100
8100 FOR C=1 TO 5
8120 IF C=1 AND C1$<>"0" THEN SET PAPER0;INK2:PRINT AT 3,2:"¦¦¦¦":PRINT AT 4,2:"¦¦¦¦":PRINT AT 5,2:"¦¦¦¦":PRINT AT 6,2:"¦¦¦¦":PRINT AT 7,2:"¦¦¦¦":PRINT AT 8,2:"¦¦¦¦"
8130 IF C=2 AND C2$<>"0" THEN SET PAPER0;INK2:PRINT AT 3,7:"¦¦¦¦":PRINT AT 4,7:"¦¦¦¦":PRINT AT 5,7:"¦¦¦¦":PRINT AT 6,7:"¦¦¦¦":PRINT AT 7,7:"¦¦¦¦":PRINT AT 8,7:"¦¦¦¦"
8140 IF C=3 AND C3$<>"0" THEN SET PAPER0;INK2:PRINT AT 3,12:"¦¦¦¦":PRINT AT 4,12:"¦¦¦¦":PRINT AT 5,12:"¦¦¦¦":PRINT AT 6,12:"¦¦¦¦":PRINT AT 7,12:"¦¦¦¦":PRINT AT 8,12:"¦¦¦¦"
8150 IF C=4 AND C4$<>"0" THEN SET PAPER0;INK2:PRINT AT 3,17:"¦¦¦¦":PRINT AT 4,17:"¦¦¦¦":PRINT AT 5,17:"¦¦¦¦":PRINT AT 6,17:"¦¦¦¦":PRINT AT 7,17:"¦¦¦¦":PRINT AT 8,17:"¦¦¦¦"
8155 IF C=5 AND C5$<>"0" THEN SET PAPER0;INK2:PRINT AT 3,22:"¦¦¦¦":PRINT AT 4,22:"¦¦¦¦":PRINT AT 5,22:"¦¦¦¦":PRINT AT 6,22:"¦¦¦¦":PRINT AT 7,22:"¦¦¦¦":PRINT AT 8,22:"¦¦¦¦"
8160 NEXT C
8199 SOUND PITCH 3000,DURATION3
8200 !
8210 GOTO145
8500 ! ELFOGYOTT A PAKLI!
8505 W1=0:W2=0:W3=0:W4=0:W5=0:W6=0:W7=0:W8=0:W9=0:W10=0:W11=0:W12=0:W13=0:W14=0:W15=0:W16=0:W17=0:W18=0:W19=0:W20=0:W21=0:W22=0:W23=0:W24=0:W25=0:W26=0:W27=0:W28=0:W29=0:W30=0:W31=0:W32=0
8510 SET PAPER1;INK0:PRINT AT 12,5:"Elfogyott a pakli!":PRINT AT 14,1:"Az eddig letett lapokat":PRINT "       megfordítom!":SOUND PITCH 3500,DURATION2;PITCH 3000,DURATION2
8520 LAP=2:GET
8525 PRINT AT 12,5:"                  ":PRINT AT 14,1:"                       ":PRINT "                   "
8530 IF RE=1 THEN7000:ELSE 7600
8540 END
8550 LAP=LAP+1:GOTO7100
8560 LAP=LAP+1:GOTO7700
9900 !      LAPKIOSZTÁS
9905 SOUND PITCH 3500,DURATION3
9910 FOR KO=1 TO 26
9912 PÉ=0:RANDOMIZE
9915 V=1+INT(RND*32)
9920 ON V GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,2000,2100,2200,2300,2400,2500,2600,2700,3000,3100,3200,3300,3400,3500,3600,3700,4000,4100,4200,4300,4400,4500,4600,4700
9925 IF PÉ=0 THEN 9912:ELSE KIO(KO)=V
9930 NEXT KO
9935 V=1
9940 FOR KO=27 TO 32
9941 PÉ=0
9942 ON V GOSUB 1000,1100,1200,1300,1400,1500,1600,1700,2000,2100,2200,2300,2400,2500,2600,2700,3000,3100,3200,3300,3400,3500,3600,3700,4000,4100,4200,4300,4400,4500,4600,4700
9944 IF PÉ=0 AND V<32 THEN V=V+1:GOTO 9941
9946 KIO(KO)=V
9948 NEXT KO
9990 W1=0:W2=0:W3=0:W4=0:W5=0:W6=0:W7=0:W8=0:W9=0:W10=0:W11=0:W12=0:W13=0:W14=0:W15=0:W16=0:W17=0:W18=0:W19=0:W20=0:W21=0:W22=0:W23=0:W24=0:W25=0:W26=0:W27=0:W28=0:W29=0:W30=0:W31=0:W32=0
9995 SOUND PITCH 4000,DURATION3
9999 GOTO 85

Szoliter játék

Leírás:
Kezdetben 32 korongod van, az üres helyre kell ugrani, úgy, hogy a mellette lévőt is átugrod, és ezt addig kell folytatni, míg csak egy marad a 44-es pozícióban. Ha nincs lehetőség már ugrani, a játék véget ér. Játék közben az “F” –feladom –al ki lehet lépni.
A végén a számítógép értékeli teljesítményedet. Az eredeti program 1981-ben a Sinclair ZX81-en készült!!, programot annak idején elkészítettem PT-1500, Sinclair ZX Spectrumra, Sinclair QL-re, és QBASIC-ra is, valamit PASCAL, és C++-ban is.

   1 ! szoliter játék TVC-re játékgyáros 2003
   5 CLS
  10 GRAPHICS 16
  11 FOR I=1 TO 22
  12 SZIN=RND(15)+1:IF SZIN=8 THEN 12
  14 SET INK SZIN:PRINT AT I,1:" S Z O L I T E R "
  16 SET INK SZIN
  18 PRINT AT RND(22)+1,1 :" S Z O L I T E R ":IF INKEY$="" THEN 12
  20 GRAPHICS 4
  30 SET CHARACTER 160,0,60,126,126,126,126,126,126,60,0
  40 SET CHARACTER 161,0,0,24,36,66,66,36,24,0,0
  50 SET CHARACTER 162,85,170,85,170,85,170,85,170,85,170
  55 FOR I=1 TO 10
  60 SOUND PITCH 3950,VOLUME 10*I,DURATION 2*I
  65 NEXT I
  70 GRAPHICS 2:SET PALETTE 65,68,84,85
  75 PRINT AT 2,25:" S Z O L I T E R "
  78 PRINT AT 7,10:"Szeretettel meghívom egy érdekes társasjátékra !"
  80 PRINT AT 9,15:"A játék szabályai a következőek:"
  81 PRINT AT 11,4:"A játék kezdésekor a táblán 44 bábú és egy üres hely van."
  82 PRINT AT 12,4:"A lépéseket a következő szerint kell tenni:mindig át kell egy"
  83 PRINT AT 13,4:"bábút ugorni úgy,hogy mindig az üres helyre érkezzen,és akkor"
  84 PRINT AT 14,4:"az átugort bábút a számítógép leveszi, csökkenti a bábúk"
  85 PRINT AT 15,4:"számát.Ezt addig kell folytatni,míg csak egy marad a tábla"
  86 PRINT AT 16,4:"közepén.Ha nem akarsz tovább játszani,akkor '11'-et beírva "
  87 PRINT AT 17,4:"a számítógép véget vet a játéknak,némi értékeléssel."
  88 PRINT AT 19,4:"A játékhoz sok sikert kíván a programozó: a JÁTÉKGYÁROS."
  89 IF INKEY$="" THEN 89
  90 SET INK 1
  91 DIM O$(79)
  95 GRAPHICS 4:SET PALETTE 65,68,84,85:SET  BORDER 21
 100 FOR C= 1 TO 79
 110 LET O$(C)=CHR$(162)
 120 IF C>12 AND C<16 OR C>22 AND C<26 OR C>30 AND C<58 OR C>62 AND C<66 OR C>72 AND C<76 THEN O$(C)=CHR$(160)
 130 IF C=44 THEN O$(C)=CHR$(161)
 140 IF C=40 OR C=50 OR C=38 OR C=48 THEN O$(C)=CHR$(162)
 150 FOR D=1 TO 7
 160 IF C=((D*10)+9) THEN O$(C)=" "
 170 NEXT D
 180 NEXT C
 190 N$=" 1234567 "
 200 X=32
 210 ! ha feladod a játékot
 220 SET INK 5:PRINT AT 21,0:" Ha feladod,nyomd az 'F'-et"
 230 CLS
 280 IF X=1 AND O$(44)=CHR$(160) THEN  PRINT AT 19,2:"Gratulálok,sikerült!"
 290 E=1
 300 F=6
 305 PRINT AT 1,12:"SZOLITER":PRINT AT 4,4:"TVC 2.18. BASIC-ban készült.":SET INK 2:PRINT AT 2,10:"memóriajáték"
 310 PRINT AT F,12:N$
 320 SOUND PITCH 3950,VOLUME 10,DURATION 2
 330 F=F+1
 335 SET INK 1
 340 PRINT AT F,10:"  ";
 350 FOR C=E TO E+8
 365 SET INK 6:PRINT O$(C);
 370 NEXT C
 380 PRINT AT 3,11:" "
 390 E=E+10
 400 PRINT
 410 IF E=80 THEN PRINT AT F+1,12:CHR$(162);CHR$(162);CHR$(162);CHR$(162);CHR$(162);CHR$(162);CHR$(162);CHR$(162);CHR$(162)
 420 IF E=80 THEN GOTO 450
 430 IF E=11 THEN E=10
 440 GOTO 330
 450 F=6
 460 FOR C= 1 TO 9
 470 F=F+1
 480 SET INK 6:PRINT AT F,11:N$(C)
 485 SET INK 6:PRINT AT F,21:N$(C)
 490 NEXT C
 500 D=2
 510 FOR C=1 TO 12
 520 D=D+1
 530 NEXT C
 540 IF X=1 AND O$(44)=CHR$(160) THEN GOTO 960
 550 !lépések a táblán
 551 PRINT AT 8,0:"Lépés:";32-X:PRINT AT 10,0:"Levét:";32-X:PRINT AT 12,0:"Táblán";X
 560 SOUND PITCH 3950,VOLUME 10,DURATION 2
 570 PRINT AT 18,10:"Ugrás: ?";"-ról":PRINT AT 19,10:"Ugrás: ?";"-ra"
 572 PRINT AT F+1,12:N$
 575 PRINT AT 8,26:"írta:":PRINT AT 10,26:"játék-":PRINT AT 11,26:"gyáros":PRINT AT 13,27:"2003"
 576 PRINT AT 21,1:" "
 577 INPUT PROMPT"Honnan, hova? ":A
 580 !a=VAL(X$)
 582 IF X$=" " THEN 576
 590 IF X$="F" OR X$="f" THEN 920
 610 IF A=11  THEN 920
 620 PRINT AT 18,15:A
 630 PRINT AT 21,1:" "
 640 INPUT PROMPT"Honnan, hova? ":B
 650 PRINT AT 19,15:B
 655 PRINT AT 14,0:"Utolsó";A
 657 PRINT AT 15,7:B
 670 IF ABS (A-B)=2 OR ABS (A-B)=20 THEN 690
 680 GOTO 740
 690 IF O$(A)=CHR$(162) OR O$(B)=CHR$(162) THEN GOTO 740
 700 IF O$(A)<>CHR$(160) OR O$(B)<>CHR$(161) THEN GOTO 740
 710 IF O$((A+B)/2)=CHR$(162) THEN GOTO 740
 720 IF O$((A+B)/2)=CHR$(161) THEN GOTO 740
 730 GOTO 830
 740 PRINT AT 18,10:"Szabálytalan!"
 750 SOUND PITCH 3950,VOLUME 10,DURATION 2
 770 PRINT AT 19,10:"Nyomd az Enter-t"
 780 INPUT X$
 790 PRINT AT 18,10:"                "
 800 PRINT AT 19,10:"                "
 810 GOTO 577
 820 ! lépés a bábukkal
 830 O$(A)=CHR$(161)
 840 O$((A+B)/2)=CHR$(161)
 850 O$(B)=CHR$(160)
 860 X=X-1
 870 GOTO 280
 880 FOR C=13 TO 75
 890 IF O$(C)=CHR$(160) AND O$(C+1)<>CHR$(160) OR O$(C+10)<>CHR$(160) THEN 920
 900 NEXT C
 910 GOTO 280
 920 PRINT AT 17,3:"még maradt  ";X;CHR$(160);" a táblán !"
 930 PRINT AT 18,0:"                      "
 935 PRINT AT 19,0:"                      "
 937 PRINT AT 20,0:"                      "
 940 IF X=6 OR X=7 OR X>8 THEN PRINT AT 20,3:"Ezt még lehet gyakorolni!"
 950 IF X=3 OR X=4 OR X=5 THEN PRINT AT 20,3:"Ez igen szép teljesítmény!"
 960 PRINT AT 21,0:"                      "
 970 STOP
9200 SAVE"szoliter"

Tili-toli játék

Leírás:
T I L I - T O L I
mellyel egy közismert játékot lehet játszani. Egy 4x4-es mezőben 15 db betűvel jelzett négyzet van, egy hely üres. A beépített botkormánnyal választhatjuk ki, hogy melyik szomszédot akarjuk az üres mezőbe tolni.
Feladat: abc-sorrendbe rakni a négyzeteket.

  11 REM    tili-toli játék
  20 DIM S(15),A$*64
  25 LEAVE=0
  30 GOSUB 1100
 140 REM do
 150 GRAPHICS 16
 160 RANDOMIZE
 170 I=3:J=3
 180 SET INK 6:PRINT
 190 GOSUB 1040
 200 SET INK 15
 240 GOSUB 880
 250 GOSUB 780
 260 IF LEAVE THEN GOTO 400
 270 GOSUB 640:K=KEY:GOSUB 440
 280 IF LEAVE THEN GOTO 400
 290 C=0 
 300 FOR D=0 TO 15
 310 IF S(D)<>D THEN C=1
 320 NEXT D
 330 IF C=1 THEN GOTO 270
 335 SET INK 14
 340 PRINT AT 19,1:"   Gratulálok!  ";
 350 FOR J=1 TO 60
 360 HANG=3000+90*(J-12*INT(J/12))
 370 SOUND PITCH HANG
 380 NEXT J:SOUND VOLUME 0
 390 I=3:J=3:GOTO 250
 400 GRAPHICS 4:PRINT"Indítsa el a magnót !"
 410 LOAD"RAJZOLÓ"
 440 REM move according to k
 450 II=I-(K=1)+(K=3)
 460 JJ=J-(K=4)+(K=2)
 470 IF II<0 OR JJ<0 OR II>3 OR JJ>3 THEN RETURN
 480 S(I+4*J)=S(II+4*JJ)
 490 S(II+4*JJ)=15
 500 XX=I
 501 YY=J
 503 GOSUB 540
 510 XX=II
 511 YY=JJ
 512 GOSUB 540
 520 I=II:J=JJ
 530 RETURN
 540 REM draw
 550 SET INK 0
 570 P=S(XX+4*YY)
 580 C$=CHR$(65+P)
 590 IF P=15 THEN C$=CHR$(32)
 600 SET INK (P AND 3)+((P/4) AND 3)+9
 605 IF P=0 OR P=8 THEN SET INK (P AND 8)+4
 607 IF P=15 THEN SET INK 0
 610 PRINT AT YY*2+8,XX*2+5:C$;
 620 PLOT XX*128+224,700-YY*80;XX*128+350,700-YY*80;
 621 PLOT XX*128+350,624-YY*80;XX*128+224,624-YY*80;
 622 PLOT XX*128+224,700-YY*80,
 630 RETURN
 640 REM get key press
 670 I$=INKEY$
 680 IF I$="" THEN GOTO 670
 690 IF I$=CHR$(27) THEN LEAVE=NOT LEAVE
 700 KEY1=0
 710 IF I$=CHR$(4)  THEN KEY1=1
 720 IF I$=CHR$(5)  THEN KEY1=2
 730 IF I$=CHR$(19) THEN KEY1=3
 740 IF I$=CHR$(24) THEN KEY1=4
 750 IF KEY1=0 AND LEAVE=0 THEN GOTO 670
 760 KEY=KEY1
 770 RETURN
 780 REM keverés
 785 SET INK 13
 790 PRINT AT 19,3:"megkeverem...";
 800 X=1
 820 K=RND(4)+1
 821 GOSUB 440
 830 IF INKEY$=CHR$(27) THEN LEAVE=NOT LEAVE:RETURN
 840 X=X+1
 850 IF X<60 THEN GOTO 820
 855 SET PAPER 0:SET INK 13
 860 PRINT AT 19,1:"  rakja sorba ! ";
 865 SET INK 10:PRINT AT 23,1:"ESC: játék vége";
 870 RETURN
 880 REM board
 890 SET INK 15
 900 X1=220
 901 Y1=704
 902 X2=736
 903 Y2=380
 910 PLOT X1,Y1;X1,Y2;X2,Y2;
 920 PLOT X2,Y1;X1,Y1,
 950 FOR XX=0 TO 3
 960 FOR YY=0 TO 3
 970 S(XX+4*YY)=15
 980 GOSUB 540
 990 S(XX+4*YY)=XX+4*YY
1000 GOSUB 540
1010 NEXT YY
1020 NEXT XX
1030 RETURN
1040 REM title
1050 FOR L=1 TO 12
1060 SET INK (L AND 3)+11
1070 PRINT "   TILI-TOLI"(L);
1080 NEXT L
1090 RETURN
1100 GRAPHICS4:PRINT AT 12,0:"Állítsa meg a magnót, és nyomjon"
1110 PRINT "      le egy billentyűt !":GOSUB 2200:CLS
1120 PRINT "Bemutató kazettánk második prog-ramja a":PRINT
1130 SETINK2;PAPER3
1140 PRINT TAB(7)" T I L I - T O L I ":PRINT:SETINK1;PAPER0
1150 PRINT "mellyel  egy  közismert  játékot";
1160 PRINT "lehet játszani. Egy 4x4-es mező-";
1170 PRINT "ben 15 db  betűvel jelzett négy-";
1180 PRINT "zet van, egy hely üres. A beépí-";
1190 PRINT "tett botkormánnyal választhatjuk";
1200 PRINT "ki, hogy melyik szomszédot akar-";
1210 PRINT "juk az üres mezőbe tolni.":PRINT
1230 PRINT "Feladat: abc-sorrendbe rakni a"
1240 PRINT TAB(10)"négyzeteket.":PRINT:PRINT:SETINK3;PAPER1
1250 PRINT "    J Ó   J Á T É K O T !       "
1260 SETINK0;PAPER1:PRINT AT 24,1:"Nyomjon le egy billentyűt !";:A$=INKEY$:GET:RETURN
2000 FOR I=1 TO LEN(A$):PRINT A$(I);
2010 FOR J=1 TO 50:NEXT J,I:RETURN
2100 FOR I=1 TO LEN(A$):PRINT A$(I);
2110 FOR J=1 TO 50:NEXT J,I:PRINT:RETURN
2200 IF INKEY$<>"" THEN RETURN
2210 SOUND PITCH 4000,DURATION 2:FOR I=1 TO 50:NEXT:GOTO 2200

Torpedó tengeri csata játék

Leírás:
A 10x10-es mezőben kell elrejtened a flottád, a koordinátarendszer megadásával, majd hármasával tüzelhetsz a számítógép hajóira.

   1 CLS:RANDOMIZE
   5 DIMZN(25)
  10 GOSUB9000
  11 GRAPHICS4 
  12 GOSUB9500
  15 DIMC$(10,10),H$(10,10),K(12,12),M(12,12),R(9),J(10,10),Z(15),D(15),T(12,12)
  20 SETCHARACTER223,255,129,189,166,189,189,166,189,129,255
 100 FORN=1TO32:PRINTAT1,N:"*":NEXTN
 105 PRINTAT2,1:"* AZ ÉN FLOTTÁM   A TE FLOTTÁD *"
 110 FORN=1TO32:PRINTAT3,N:"*":NEXTN
 120 PRINTAT5,4:"ABCDEFGHIJ":PRINTAT5,20:"ABCDEFGHIJ"
 124 FORN=7TO16:PRINTAT(N),4:STRING$(10,223)                           
 125 PRINTAT(N),15:STR$(N-7)                    
 126 PRINTAT(N),20:STRING$(10,223)        
 128 PRINTAT(N),18:STR$(N-7):NEXTN               
 500 LETAC=25:LETAH=25:LETQ=0
 501 PRINTAT19,1:"ELHELYEZHETED A SAJÁT FLOTTÁDAT"
 502 PRINTAT20,1:" # 2 ## 2 ### 2 #### 2 ##### 1 "
 505 PRINTAT22,1:"                (KILÉPÉS:V-vel)"
 506 PRINT AT23,1:"                               ":GOTO2000
 507 PRINTAT23,3:"BETÜ:":GETX$:IFX$=""THEN507
 508 PRINTAT23,10:X$:IFX$="v"THEN1950
 509 C=ORD(X$)-96:IFC>0ANDC<11THEN515
 510 IFC<1ORC>10THENPRINTAT23,1:"BETÜT CSAK a-j-IG ADHATSZ MEG":FORW=1TO600:NEXTW          
 512 PRINTAT23,1:"                              ":GOTO507
 515 PRINTAT23,15:"SZÁM:":GETY$:IFY$=""THEN515
 516 PRINTAT23,22:Y$
 517 Y=ORD(Y$)-47:IFY>0ANDY<11THEN520
 518 IFY<1ORY>10THENPRINTAT23,1:"SZÁMOT CSAK 0-9 -IG ADHATSZ MEG":FORW=1TO600:NEXTW
 519 PRINTAT23,1:"                               ":GOTO507
 520 Y=Y+1:C=C+1
 530 IFM(Y,C)=1THEN550
 540 GOSUB3050:IFU=2THENU=0:GOTO507
 541 IFM(Y+1,C-1)=1THEN555
 542 IFM(Y+1,C+1)=1THEN555
 543 IFM(Y-1,C-1)=1THEN555
 544 IFM(Y-1,C+1)=1THEN555
 549 IFM(Y,C)=0THENRETURN
 550 PRINTAT23,1:" IDE MÁR HELYEZTÉL EL HAJÓT !!!":FORW=1TO600:NEXTW
 552 PRINTAT23,1:"                               ":GOTO507
 555 PRINTAT23,1:"átlósan nem helyezhető el hajó!":FORW=1TO600:NEXTW
 556 PRINTAT23,1:"                               ":GOTO507
 559 PRINTAT23,1:"                               ":GOTO507
 560 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800:NEXTN
 600 PRINTAT19,1:"    ELHELYEZEM A HAJÓIMAT !!!   ":I=2
 602 PRINTAT21,1:"                               "
 603 PRINTAT22,1:"                                "
 604 PRINTAT23,1:"                               "
 605 PRINTAT21,1:"      KIS TÜRELMET KÉREK !!     "
 810 GOSUB8100
 820 PRINTAT21,1:"                           "
1000 FORN=19TO22:PRINTAT(N),1:"                              "
1005 NEXTN
1010 PRINTAT20,1:"      HOVÁ AKARSZ LŐNI ?      "
1020 PRINTAT22,2:"BETÜ                  ":GETX$:IFX$=""THEN1020
1022 PRINTAT22,8:X$
1023 C=ORD(X$)-96:IFC>0ANDC<11THEN1030
1025 PRINTAT22,1:"BETÜT CSAK a-i-IG ADHATSZ MEG ":FORW=1TO600:NEXTW
1026 PRINTAT22,1:"                             ":GOTO1020   
1030 PRINTAT22,15:"SZÁM     ":GETY$:IFY$=""THEN1030
1031 PRINTAT22,20:Y$
1032 Y=ORD(Y$)-47:IFY>0ANDY<11THEN1050
1033 IFY<1ORY>10THENPRINTAT22,1:"SZÁMOT CSAK 0-9-IG ADHATSZ":FORW=1TO600:NEXTW
1034 PRINTAT22,1:"                              ":GOTO1020
1050 IFK(Y,C)=0THEN1102
1060 IFK(Y,C)=1THEN1200
1070 IFK(Y,C)=2ORK(Y,C)=3THENPRINTAT20,1:"      IDE MÁR LŐTTÉL !"
1090 FORW=1TO600:NEXTW:GOTO1010
1102 W=1:GOSUB8800
1103 FORN=1TO10:PRINTAT(Y+6),(C+3):"N":PRINTAT(Y+6),(C+3):"M":NEXTN
1110 LETK(Y,C)=2:PRINTAT20,1:"     MELLÉ TRAFÁLTÁL !!!      ":FORW=1TO600:NEXTW:GOTO4000
1200 GOSUB8800:FORW=1TO10:PRINTAT(Y+6),(C+3):" ":PRINTAT(Y+6),(C+3):"T":NEXTW
1215 PRINTAT20,1:"    TALÁLT !!!               ":FORW=1TO600:NEXTW
1220 LETAC=AC-1:LETK(Y,C)=3
1225 N=0
1226 N=N+1:IFY+N>10THEN1400
1310 IFK(Y+N,C)=0ORK(Y+N,C)=2THEN1400
1320 IFK(Y+N,C)=1THEN1010
1325 IFN>5THEN1400
1330 GOTO1226
1400 N=0
1405 N=N+1:IFY-N<1THEN1500
1410 IFK(Y-N,C)=0ORK(Y-N,C)=2THEN1500
1420 IFK(Y-N,C)=1THEN1010
1425 IFN>5THEN1500
1430 GOTO1405
1500 N=0
1505 N=N+1:IFC+N>10THEN1600
1510 IFK(Y,C+N)=0ORK(Y,C+N)=2THEN1600
1520 IFK(Y,C+N)=1THEN1010
1525 IFN>5THEN1600
1530 GOTO1505
1600 N=0
1605 N=N+1:IFC-N<1THEN1700
1610 IFK(Y,C-N)=0ORK(Y,C-N)=2THEN1700
1620 IFK(Y,C-N)=1THEN1010     
1625 IFN>5THEN1700
1630 GOTO1605
1700 PRINTAT20,1:"    A HAJÓ ELSÜLLYEDT !!!    ":FORW=1TO600:NEXTW
1730 PRINTAT(Y+6),(C+3):"S":GOSUB8800
1750 N=0
1755 N=N+1:IFY+N>10THEN1800
1760 IFK(Y+N,C)=3THENPRINTAT(Y+6+N),(C+3):"S":GOSUB8800
1770 IFK(Y+N,C)<>3THEN1800
1775 IFN>5THEN1800
1780 GOTO1755
1800 N=0
1805 N=N+1:IFY-N<1THEN1850
1810 IFK(Y-N,C)=3THENPRINTAT(Y+6-N),(C+3):"S":GOSUB8800
1820 IFK(Y-N,C)<>3THEN1850
1825 IFN>5THEN1850
1830 GOTO1805
1850 N=0
1855 N=N+1:IFC+N>10THEN1900
1860 IFK(Y,C+N)=3THENPRINTAT(Y+6),(C+3+N):"S":GOSUB8800
1870 IFK(Y,C+N)<>3THEN1900
1875 IFN>5THEN1900
1880 GOTO1855
1900 N=0
1905 N=N+1:IFC-N<1THEN1940
1910 IFK(Y,C-N)=3THENPRINTAT(Y+6),(C+3-N):"S":GOSUB8800
1920 IFK(Y,C-N)<>3THEN1940
1925 IFN>5THEN1940
1930 GOTO1905
1940 IFAC=0THENPRINTAT20,1:"    GYŐZTÉL !!!!!!!!!!!!!!"
1945 IFAC<>0THEN1010
1950 PRINTAT22,1:"AKARSZ MÉG JÁTSZANI ? (I/N)    ":W$="":GETW$:IFW$=""THEN1950
1955 IFW$="i"THENRUN
1956 CLS:PRINTAT10,10,"VISZONTLÁTÁSRA!":NEW:END
2000 REM***hajók elhelyezése
2005 PRINTAT 21,1:"   AZ ÖTÖS HAJÓT HELYEZD EL!   "
2010 GOSUB507
2020 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2030 S=0
2035 S=S+1
2040 GOSUB507
2045 IF(M(Y+1,C)=1 OR M(Y-1,C)=1 OR M(Y,C+1)=1 OR M(Y,C-1)=1)THEN2050    
2046 GOSUB3000:GOTO2040
2050 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2054 IFS=4THEN2060
2055 GOTO2035
2060 FORQ=1TO12:FORX=1TO12:T(Q,X)=M(Q,X):NEXTX:NEXTQ
2061 REM*négyes hajók****
2065 PRINTAT21,1:" A NÉGYES HAJÓIDAT HELYEZD EL!"   
2070 GOSUB507
2075 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2080 S=0
2085 S=S+1
2086 GOSUB507                                  
2087 IF(M(Y+1,C)=1 OR M(Y-1,C)=1 OR M(Y,C+1)=1 OR M(Y,C-1)=1)THEN2090    
2089 GOSUB3000:GOTO2086
2090 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2094 IFS=3THEN2100
2095 GOTO2085
2100 FORQ=1TO12:FORX=1TO12:T(Q,X)=M(Q,X):NEXTX:NEXTQ       
2110 GOSUB507
2115 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2120 S=0
2125 S=S+1
2130 GOSUB507                                  
2135 IF(M(Y+1,C)=1 OR M(Y-1,C)=1 OR M(Y,C+1)=1 OR M(Y,C-1)=1)THEN2145    
2140 GOSUB3000:GOTO2130
2145 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2150 IFS=3THEN2160
2155 GOTO2125
2160 FORQ=1TO12:FORX=1TO12:T(Q,X)=M(Q,X):NEXTX:NEXTQ      
2165 PRINTAT21,1:" A HÁRMAS HAJÓIDAT HELYEZD EL! "
2170 GOSUB507
2175 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2180 S=0
2185 S=S+1
2190 GOSUB507                                  
2195 IF(M(Y+1,C)=1 OR M(Y-1,C)=1 OR M(Y,C+1)=1 OR M(Y,C-1)=1)THEN2205    
2200 GOSUB3000:GOTO2190
2205 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2210 IFS=2THEN2230
2215 GOTO2185
2230 FORQ=1TO12:FORX=1TO12:T(Q,X)=M(Q,X):NEXTX:NEXTQ       
2240 GOSUB507
2245 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2250 S=0
2255 S=S+1
2260 GOSUB507                                  
2265 IF(M(Y+1,C)=1 OR M(Y-1,C)=1 OR M(Y,C+1)=1 OR M(Y,C-1)=1)THEN2275    
2270 GOSUB3000:GOTO2260
2275 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2280 IFS=2THEN2300
2285 GOTO2255
2300 FORQ=1TO12:FORX=1TO12:T(Q,X)=M(Q,X):NEXTX:NEXTQ       
2305 PRINTAT21,1:" A KETTES HAJÓIDAT HELYEZD EL! "
2310 GOSUB507
2315 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2320 S=0
2325 S=S+1
2330 GOSUB507                                  
2335 IF(M(Y+1,C)=1 OR M(Y-1,C)=1 OR M(Y,C+1)=1 OR M(Y,C-1)=1)THEN2345    
2340 GOSUB3000:GOTO2330
2345 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2350 IFS=1THEN2360
2355 GOTO2325
2360 FORQ=1TO12:FORX=1TO12:T(Q,X)=M(Q,X):NEXTX:NEXTQ  
2370 GOSUB507
2375 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2380 S=0
2385 S=S+1
2390 GOSUB507                                  
2395 IF(M(Y+1,C)=1 OR M(Y-1,C)=1 OR M(Y,C+1)=1 OR M(Y,C-1)=1)THEN2405    
2400 GOSUB3000:GOTO2390
2405 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2410 IFS=1THEN2420
2415 GOTO2385
2420 FORQ=1TO12:FORX=1TO12:T(Q,X)=M(Q,X):NEXTX:NEXTQ       
2425 PRINTAT21,1:" AZ EGYES HAJÓIDAT HELYEZD EL! "
2430 GOSUB507
2435 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2440 FORQ=1TO12:FORX=1TO12:T(Q,X)=M(Q,X):NEXTX:NEXTQ       
2445 GOSUB507
2450 M(Y,C)=1:PRINTAT(Y+5),(C+18):"*":PRINTAT23,1:"                             ":GOSUB8800
2455 FORQ=1TO12:FORX=1TO12:T(Q,X)=M(Q,X):NEXTX:NEXTQ       
2500 GOTO600 
3000 PRINT AT 23,1:"csak mellé helyezheted a hajót!":FORW=1TO500:NEXTW
3005 PRINT AT 23,1:"                               "                     
3010 RETURN
3050 IFT(Y+1,C)=1 OR T(Y-1,C)=1 OR T(Y,C+1)=1 OR T(Y,C-1)=1THEN3060
3055 RETURN
3060 PRINT AT23,1:"össze érne egy másik hajóval!  ":FORW=1TO500:NEXTW
3065 PRINT AT23,1:"                               "                       
3070 U=2:RETURN
4000 PRINTAT20,1:"   ÉS MOST ÉN LÖVÖK !!!       ":FORW=1TO600:NEXTW
4005 IFQ=0THEN4020
4006 N=0
4007 N=N+1:IFZ(N)=0THEN4013
4008 LETY=Z(N):LETC=D(N):LETZ(N)=0:LETD(N)=0:GOTO4050
4013 IFN=15THEN4020
4014 GOTO4007
4020 LETY=INT(RND(10)+1):LETC=INT(RND(10)+1):Y=Y+1:C=C+1
4050 IFM(Y,C)=0THENLETW=1:GOSUB8800:GOTO4100
4060 IFM(Y,C)=1THENGOSUB8800:GOTO4200
4070 IFM(Y,C)=2ORM(Y,C)=3THEN4020
4090 GOTO4020
4100 FORW=1TO10:PRINTAT(Y+5),(C+18):" ":PRINTAT(Y+5),(C+18):"M":NEXTW
4110 LETM(Y,C)=2:PRINTAT20,1:"    MELLÉ LŐTTEM !!!        ":FORW=1TO600:NEXTW
4130 GOTO1010
4200 FORW=1TO10:PRINTAT(Y+5),(C+18):" ":PRINTAT(Y+5),(C+18):"T":NEXTW
4215 PRINTAT20,1:"    TALÁLT !!!            ":FORW=1TO600:NEXTW
4220 LETAH=AH-1:GOTO7000
4230 LETM(Y,C)=3
4300 N=0
4305 N=N+1:IFY+N>11THEN4400
4310 IFM(Y+N,C)=0ORM(Y+N,C)=2THEN4400
4320 IFM(Y+N,C)=1THEN4000
4325 IFN=5THEN4400
4330 GOTO4305
4400 N=0
4405 N=N+1:IFY-N<2THEN4500
4410 IFM(Y-N,C)=0ORM(Y-N,C)=2THEN4500
4420 IFM(Y-N,C)=1THEN4000
4425 IFN=5THEN4500
4430 GOTO4405
4500 N=0
4505 N=N+1:IFC+N>11THEN4600
4510 IFM(Y,C+N)=0ORM(Y,C+N)=2THEN4600
4520 IFM(Y,C+N)=1THEN4000
4525 IFN=5THEN4600
4530 GOTO4505
4600 N=0
4605 N=N+1:IFC-N<2THEN4700
4610 IFM(Y,C-N)=0ORM(Y,C-N)=2THEN4700
4620 IFM(Y,C-N)=1THEN4000
4625 IFN=5THEN4700
4630 GOTO4605
4700 N=0
4721 FORN=1TO15:LETZ(N)=0:LETD(N)=0:NEXTN:LETQ=0            
4730 GOSUB8800:PRINTAT(Y+5),(C+18):"S"
4750 N=0
4755 N=N+1:IFY+N>11THEN4800
4760 GOSUB8800:IFM(Y+N,C)=3THENPRINTAT(Y+5+N),(C+18):"S"
4770 IFM(Y+N,C)<>3THEN4800
4775 IFN=5THEN4800
4780 GOTO4755
4800 N=0
4805 N=N+1:IFY-N<2THEN4850
4810 GOSUB8800:IFM(Y-N,C)=3THENPRINTAT(Y+5-N),(C+18):"S"
4820 IFM(Y-N,C)<>3THEN4850
4825 IFN=5THEN4850
4830 GOTO4805
4850 N=0
4855 N=N+1:IFC+N>11THEN4900
4860 GOSUB8800:IFM(Y,C+N)=3THENPRINTAT(Y+5),(C+N+18):"S"
4870 IFM(Y,C+N)<>3THEN4900
4875 IFN=5THEN4900
4880 GOTO4855
4900 N=0
4905 N=N+1:IFC-N<2THEN4935
4910 GOSUB8800:IFM(Y,C-N)=3THENPRINTAT(Y+5),(C+18-N):"S"
4920 IFM(Y,C-N)<>3THEN4935
4925 IFN=5THEN4935
4930 GOTO4905
4935 IFAH>0THEN5000
4940 IFAH=0THENPRINTAT20,1:"    GYŐZTEM !!!!!!!       "
4941 FORY=1TO10:FORC=1TO10:IFK(Y,C)=1THENPRINTAT(Y+6),(C+3):" ":GOSUB8800
4945 NEXTC:NEXTY
4950 PRINTAT20,1:"AKARSZ MÉG JÁTSZANI ? (I/N)"
4952 LETG$=""
4954 GETG$:IFG$="i"THENRUN
4955 IFG$="n"THENEND
4956 GOTO4954
5000 N=0
5005 IFY+N>11THEN5050
5010 IFM(Y+N,C)<>3THEN5050
5020 LETF=Y+N:LETG=C:GOSUB6000
5025 IFN=5THEN5050
5030 N=N+1:GOTO5005
5050 N=0
5055 IFY-N<2THEN5100
5060 IFM(Y-N,C)<>3THEN5100
5070 LETF=Y-N:LETG=C:GOSUB6000
5075 IFN=5THEN5100
5080 N=N+1:GOTO5055
5100 N=0
5105 IFC+N>11THEN5150
5110 IFM(Y,C+N)<>3THEN5150
5120 LETF=Y:LETG=C+N:GOSUB6000
5125 IFN=5THEN5150
5130 N=N+1:GOTO5105
5150 N=0
5155 IFC-N<2THEN5200
5160 IFM(Y,C-N)<>3THEN4000
5170 LETF=Y:LETG=C-N:GOSUB6000
5175 IFN=5THEN5200
5180 N=N+1:GOTO5155
5200 GOTO4000
6000 IFF-1<2ORG-1<2THEN6030
6020 IFM(F-1,G-1)<>3THENLETM(F-1,G-1)=2
6030 IFG-1<2THEN6050
6040 IFM(F,G-1)<>3THENLETM(F,G-1)=2
6050 IFF+1>11ORG-1<2THEN6070
6060 IFM(F+1,G-1)<>3THENLETM(F+1,G-1)=2
6070 IFF+1>11THEN6090
6080 IFM(F+1,G)<>3THENLETM(F+1,G)=2
6090 IFF+1>11ORG+1>11THEN6110
6100 IFM(F+1,G+1)<>3THENLETM(F+1,G+1)=2
6110 IFG+1>11THEN6130
6120 IFM(F,G+1)<>3THENLETM(F,G+1)=2
6130 IFF-1<2ORG+1>11THEN6150
6140 IFM(F-1,G+1)<>3THENLETM(F-1,G+1)=2
6150 IFF-1<2THEN6170
6160 IFM(F-1,G)<>3THENLETM(F-1,G)=2
6170 RETURN
7000 IFQ=1THEN4230
7008 LETA=1
7010 LET N=0
7015 N=N+1:IFY+N>11THEN7100
7030 IFM(Y+N,C)=1THENGOSUB7080:GOTO7085
7036 IFM(Y+N,C)=2THEN7100     
7040 IFY+N+1>11ANDM(Y+N,C)=0THENGOSUB7080:GOTO7100
7050 IFY+N+1>11THEN7100
7060 IFM(Y+N,C)=0ANDM(Y+N+1,C)<>3THENGOSUB7080:GOTO7100
7070 GOTO7085
7080 LETZ(A)=Y+N:LETD(A)=C:LETA=A+1:RETURN
7085 IFN=5THEN7100
7090 GOTO7015
7100 LET N=0
7105 N=N+1:IFY-N<2THEN7200
7120 IFM(Y-N,C)=1THENGOSUB7180:GOTO7185
7136 IFM(Y-N,C)=2THEN7200
7140 IFY-N-1<2ANDM(Y-N,C)=0THENGOSUB7180:GOTO7200
7150 IFY-N-1<2THEN7200
7160 IFM(Y-N,C)=0ANDM(Y-N-1,C)<>3THENGOSUB7180:GOTO7200
7170 GOTO7185
7180 LETZ(A)=Y-N:LETD(A)=C:LETA=A+1:RETURN
7185 IFN=5THEN7200
7190 GOTO7105
7200 LET N=0
7205 N=N+1:IFC+N>11THEN7300
7230 IFM(Y,C+N)=1THENGOSUB7280:GOTO7285
7236 IFM(Y,C+N)=2THEN7300
7240 IFC+N+1>11ANDM(Y,C+N)=0THENGOSUB7280:GOTO7285
7250 IFC+N+1>11THEN7300
7260 IFM(Y,C+N)=0ANDM(Y,C+N+1)<>3THENGOSUB7280:GOTO7300
7270 GOTO7285
7280 LETZ(A)=Y:LETD(A)=C+N:LETA=A+1:RETURN
7285 IFN=5THEN7300
7290 GOTO7205
7300 LETN=0
7305 N=N+1:IFC-N<2THEN7400
7330 IFM(Y,C-N)=1THENGOSUB7380:GOTO7385
7336 IFM(Y,C-N)=2THEN7400
7340 IFC-N-1<2ANDM(Y,C-N)=0THENGOSUB7380:GOTO7400
7350 IFC-N-1<2THEN7400
7360 IFM(Y,C-N)=0ANDM(Y,C-N-1)<>3THENGOSUB7380:GOTO7400
7370 GOTO7385
7380 LETZ(A)=Y:LETD(A)=C-N:LETA=A+1:RETURN
7385 IFN=5THEN7400
7390 GOTO7305
7400 LETQ=1:GOTO4230
8000 LETI=1:RETURN
8010 LETI=2:RETURN
8100 REM
8105 LETE=18:LETR(1)=5:LETR(2)=4:LETR(3)=4:LETR(4)=3:LETR(5)=3:LETR(6)=2:LETR(7)=2:LETR(8)=1:LETR(9)=1
8120 FORL=1TO9:LETBG=R(L)
8140 Y=INT(RND(10)+1):X=INT(RND(10)+1)
8160 IFY<1ORY>10ORX<1ORX>10THEN8140
8170 V=INT(RND*4+1):IFV<1ORV>4THEN8170
8190 LETZ1=0:IFV=1THEN8300              
8192 IFV=2THEN8400
8194 IFV=3THEN8500
8196 IFV=4THEN8600
8300 LETZ1=Z1+1:IFZ1>4THEN8140
8320 FORN=-1TOBG:IFY+N>10THEN8400
8326 IFY+N<1THEN8360
8330 IFJ(Y+N,X)<>0THEN8400
8335 IFX-1<1THEN8345
8340 IFJ(Y+N,X-1)<>0THEN8400
8345 IFX+1>10THEN8360
8350 IFJ(Y+N,X+1)<>0THEN8400
8360 NEXTN
8370 FORN=0TOBG-1:LETJ(Y+N,X)=1
8386 NEXTN:GOTO8700
8400 LETZ1=Z1+1:IFZ1>4THEN8140
8410 FORN=-1TOBG:IFY-N<1THEN8500
8426 IFY-N>10THEN8460
8430 IFJ(Y-N,X)<>0THEN8500
8435 IFX-1<1THEN8445
8440 IFJ(Y-N,X-1)<>0THEN8500
8445 IFX+1>10THEN8460
8450 IFJ(Y-N,X+1)<>0THEN8500
8460 NEXTN:FORN=0TOBG-1:LETJ(Y-N,X)=1
8490 NEXTN:GOTO8700
8500 LETZ1=Z1+1:IFZ1>4THEN8140
8510 FORN=-1TOBG:IFX+N>10THEN8600
8526 IFX+N<1THEN8560
8530 IFJ(Y,X+N)<>0THEN8600
8535 IFY-1<1THEN8545
8540 IFJ(Y-1,X+N)<>0THEN8600
8545 IFY+1>10THEN8560
8550 IFJ(Y+1,X+N)<>0THEN8600
8560 NEXTN:FORN=0TOBG-1:LETJ(Y,X+N)=1
8590 NEXTN:GOTO8700
8600 LETZ1=Z1+1:IFZ1>4THEN8140
8610 FORN=-1TOBG:IFX-N<1THEN8400
8626 IFX-N>10THEN8660
8630 IFJ(Y,X-N)<>0THEN8300
8635 IFY-1<1THEN8645
8640 IFJ(Y-1,X-N)<>0THEN8300
8645 IFY+1>10THEN8660
8650 IFJ(Y+1,X-N)<>0THEN8300
8660 NEXTN:FORN=0TOBG-1:LETJ(Y,X-N)=1
8690 NEXTN
8700 NEXTL
8710 FORO=1TO10:FORN=1TO10:LETK(O,N)=J(O,N):LETJ(O,N)=0:NEXTN:NEXTO:RETURN
8720 FORXY=1TO20:FORWQ=1TO4000STEP100:SOUNDPITCHWQ
8725 NEXTWQ:NEXTXY:SOUNDVOLUME0
8800 FORWQ=1TO4000STEP200:SOUNDPITCHWQ:NEXTWQ:RETURN
8940 Y=INT(RND*10):X=INT(RND*10):PRINTY,X:GOTO8940
9000 REM-kezdőkép
9001 ZN(1)=3723:ZN(2)=3744:ZN(3)=3763:ZN(4)=3782:ZN(5)=3800:ZN(6)=3816:ZN(7)=3832:ZN(8)=3847:ZN(9)=3861:ZN(10)=3874:ZN(11)=3887:ZN(12)=3898:ZN(13)=3909:ZN(14)=3920:ZN(15)=3930:ZN(16)=3939:ZN(17)=3948:ZN(18)=3956:ZN(19)=3964:ZN(20)=3971
9005 SETBORDER0:SETPAPER0
9010 GRAPHICS16
9015 I=I+1:IFI>15THENI=1
9150 PLOT50,300;50,460;10,460;10,500;130,500;130,460;90,460;90,300;50,300
9160 PLOT210,340;210,460;250,460;250,340;210,340
9170 PLOT170,340;170,460;210,500;250,500;290,460;290,340;250,300;210,300;170,340
9180 PLOT370,420;370,460;390,460;390,420;370,420
9190 PLOT330,300;330,500;410,500;430,460;430,420;410,380;390,380;430,300;390,300;370,340;370,300;330,300
9200 PLOT510,420;510,460;530,460;530,420;510,420
9210 PLOT470,300;470,500;550,500;570,460;570,420;550,380;510,380;510,300;470,300
9220 PLOT610,300;610,500;710,500;710,460;650,460;650,420;690,420;690,380;650,380;650,340;710,340;710,300;610,300
9230 PLOT790,340;790,460;810,420;810,380;790,340
9240 PLOT750,300;750,500;790,500;830,460;830,340;790,300;750,300
9250 PLOT910,340;910,460;950,460;950,340;910,340
9260 PLOT870,340;870,460;910,500;950,500;990,460;990,340;950,300;910,300;870,340
9261 PLOT910,540;910,620;950,620;950,540;910,540
9264 PRINTAT3,3,"UNISOFT gmk."
9265 PRINTAT19,3,"Start    :S"
9266 PRINTAT23,7,"1986"
9270 I=0:SETBORDER0:SETPAPER0
9275 I=I+1:IFI>15THENI=1
9276 SETINKI:SOUNDPITCHZN(I),DURATION200
9277 PLOT55,480,PAINT
9278 PLOT210,480,PAINT
9279 PLOT340,480,PAINT
9280 PLOT480,480,PAINT
9281 PLOT620,480,PAINT
9282 PLOT760,480,PAINT
9283 PLOT920,480,PAINT
9284 PLOT920,600,PAINT
9310 A$=INKEY$
9320 IFA$="s"THENRETURN
9499 GOTO9275
9500 GRAPHICS16
9503 PRINTAT5,3:"***********":PRINTAT7,3:"***********"
9505 PRINTAT4,4:"************":PRINTAT8,4:"***********"
9506 PRINTAT3,5:"***********":PRINTAT9,5:"***********"
9510 PRINTAT6,1:"**** TORPEDÓ **"
9517 PRINTAT20,6:"1986"
9580 GOSUB8720         
9599 GRAPHICS4
9600 SETPALETTE0,16,85,68
9610 SETBORDER0:SETINK2:SETPAPER1            
9700 RETURN
9999 FORN=1TO10:FORG=1TO10:PRINTK(N,G);:NEXTG:NEXTN

A Világ nagyvárosai kitalálós játék

Leírás:
A számítógép egy világváros nevét rejtette el, ezt kell találgatással megfejtenünk.

   1 REMˇň!Fő6+#6Ó#6Üßű++Ňň!úő6Á!"ő6
GETDATA+ÁÁÁ***************************************************************************
   2 FOR I=6643 TO 6680:READ A:POKE I,A:NEXT
   3 DATA 243,229,33,70,11,54,195,35,54,3,35,54,26,225,251,201,197,213,229,33,22,11,54,0,33,34,11,54,255,225,209,193,241,251,201,0,0,0,0,0,0,0,0
   4 S=USR(6643): GOSUB 2600
   5 DIM V$(80)
   6 RESTORE2500
   7 DIMZ(8)
   8 FORI=1TO7:READ Z(I)
   9 NEXT
  10 GRAPHICS4 
  11 SETINK14:FORI=1TO7:PRINTAT9,I+11:"*":NEXT
  12 PRINT AT 10,12:"*     *"
  13 PRINTAT11,12:"*";:SETINK10:PRINTAT11,13:"város";:SETINK14:PRINTAT11,18:"*"
  14 PRINTAT12,12:"*     *"
  15 SETINK14:FORI=1TO7:PRINTAT13,I+11:"*":NEXT
  16 PRINT AT 20,1:" ";
  17 RESTORE 2000
  18 FOR K=1 TO 31
  19 READ A$:PRINTA$;
  20 SOUND PITCH 12000,DURATION 3
  21 FOR J=1 TO 50:NEXT
  22 NEXT
  27 FOR I=1TO600
  28 NEXTI:GRAPHICS 16:     SETINK12:PRINTAT2,6 :"Kéred"
  30 PRINTAT6,8:"a"
  40 PRINTAT10,6:"játék-"
  50 PRINTAT14,3:"szabályokat?"
  60 SETINK10: PRINTAT18,6:"(i/n)"
  70 GETA$:IFA$="n"THEN100
  80 IFA$<>"i"THEN70
  82 GRAPHICS2
  84 PRINTAT8,1:"A gép egy város nevére gondol.Annyi csillagot rajzol a képernyő-re,ahány betűből áll a szó."
  86 PRINTAT10,1:"Ha eltaláltál egy betűt,beírja a megfelelő helyre és vár a kö-  vetkező tippre.Összesen 10 próbálkozásod van,egy betűt csak egy-szer használhatsz!"
  88 PRINTAT16,20:"kezdhetjük?(i/n)"
  90 GET T$:IFT$="i"THEN100:ELSE 90
 100 GRAPHICS 16
 105 RESTORE 1100:FORI=1TO79:READV$(I)       
 108 NEXTI
 110 SETINK12:PRINTAT1,1:"próbálkozások:"
 120 SETINK10:PRINTAT22,5:"tipped van!"
 139 RANDOMIZE:P$="":AL$="":PR=10:VO$=" ":JO=0
 140 IND=INT(RND*79+1):KIT$=V$(IND)
 150 Y=INT(8-LEN(KIT$)/2)
 155 H=LEN(KIT$)
 170 FORI=1TOH:P$=P$&"*":AL$=AL$&CHR$(155): NEXT
 180 SETINK6:PRINTAT13,Y:AL$
 185 SETINK14:PRINTAT12,Y:P$
 190 SETINK10:PRINTAT22,0:PR
 200 GET A$:PRINTAT3,1:"               "
 210 FORK=1TOH
 220 IF A$=KIT$(K:K)THENP$=P$(1:K-1)&A$&P$(K+1:):JO=1         
 230 NEXT
 235 IFP$=KIT$THEN500
 240 IFJO=1THENJO=0:GOTO185
 250 PR=PR-1:IFPR=9 THEN300
 255 IFPR=0THEN400
 260 FORI=1TOLEN(VO$)
 265 IFA$=VO$(I:I)THENPRINTAT3,1:"ez már volt!":LO=1  
 267 NEXT
 270 IFLO=1THENLO=0:GOTO190
 300 VO$=VO$&A$:SETINK10:PRINTAT2,1:VO$:GOTO185
 400 CLS:SETINK10:PRINT AT6,7:"ez"
 410 PRINT AT8,7:"nem"
 420 PRINT AT10,6:"jött"
 430 PRINT AT12,6:"össze"
 435 PRINTAT2,Y:KIT$
 436 GOSUB 1200
 440 GOTO600
 500 SETINK14:PRINTAT12,Y:KIT$:CLS:PRINTAT8,4:"gratulálok"
 510 PRINTAT10,4:10-PR;"tippből"
 520 PRINTAT12,4:"kitaláltad"
 525 GOSUB1300
 600 SETINK12:PRINTAT16,1:"Akarsz még egyet":PRINTAT18,1:"játszani(i/n)?"
 620 GETA$:IFA$="i"THENCLS:GOTO110
 630 IFA$="n"THEN END
 640 GOTO620
1100 DATA"london","párizs","moszkva","bécs","tokio","berlin","budapest","bukarest","belgrád","madrid"
1110 DATA"debrecen","miskolc","pécs","szeged","hága","koppenhága","helsinki","peking","hamburg","bonn"
1120 DATA"leningrád","lvov","amszterdam","liége","prága","stockholm","oslo","kijev","rotterdam","varsó","genf","torinó","róma","velence"
1130 DATA"milánó","bern","osaka","hirosima","nagasaki","peking","hongkong","algir","oran","tripoli","kairó","dallas","chicago","hollywood"
1140 DATA"memphis","pitsburg","melbourne","fehérvár","rimini","kalkutta","houston","firenze","münchen","drezda","monaco","delhi","brno"
1150 DATA"szófia","várna","burgas","sanghaj","nairobi","haiphong","innsbruck","havanna","szöul","dublin","tirana","lodz","zaragoza","bilbao"
1160 DATA"liszabon","ottawa","sidney","aden"
1200 SOUND;PITCH Z(1),DURATION40:SOUND;PITCH 4095,DURATION 4 
1210 SOUND;PITCH Z(1),DURATION40:SOUND;PITCH 4095,DURATION 4 
1220 SOUND;PITCH Z(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1230 SOUND;PITCH Z(1),DURATION40:SOUND;PITCH 4095,DURATION 4 
1240 SOUND;PITCH Z(3),DURATION40:SOUND;PITCH 4095,DURATION 4 
1250 SOUND;PITCH Z(2),DURATION10:SOUND;PITCH 4095,DURATION 4 
1260 SOUND;PITCH Z(2),DURATION40:SOUND;PITCH 4095,DURATION 4 
1270 SOUND;PITCH Z(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1280 SOUND;PITCH Z(1),DURATION40:SOUND;PITCH 4095,DURATION 4 
1290 RETURN
1300 SOUND;PITCH Z(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1310 SOUND;PITCH Z(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1315 SOUND;PITCH Z(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1320 SOUND;PITCH Z(3),DURATION10:SOUND;PITCH 4095,DURATION 4 
1330 SOUND;PITCH Z(5),DURATION10:SOUND;PITCH 4095,DURATION 4 
1340 SOUND;PITCH Z(5),DURATION10:SOUND;PITCH 4095,DURATION 4 
1350 SOUND;PITCH Z(5),DURATION25:SOUND;PITCH 4095,DURATION 4 
1360 SOUND;PITCH Z(6),DURATION10:SOUND;PITCH 4095,DURATION 4 
1370 SOUND;PITCH Z(6),DURATION10:SOUND;PITCH 4095,DURATION 4 
1380 SOUND;PITCH Z(4),DURATION10:SOUND;PITCH 4095,DURATION 4 
1390 SOUND;PITCH Z(6),DURATION10:SOUND;PITCH 4095,DURATION 4 
1400 SOUND;PITCH Z(5),DURATION25:SOUND;PITCH 4095,DURATION 10
1410 SOUND;PITCH Z(4),DURATION10:SOUND;PITCH 4095,DURATION 4 
1420 SOUND;PITCH Z(4),DURATION10:SOUND;PITCH 4095,DURATION 4 
1430 SOUND;PITCH Z(4),DURATION25:SOUND;PITCH 4095,DURATION 4 
1440 SOUND;PITCH Z(3),DURATION10:SOUND;PITCH 4095,DURATION 4 
1450 SOUND;PITCH Z(3),DURATION10:SOUND;PITCH 4095,DURATION 4 
1460 SOUND;PITCH Z(3),DURATION25:SOUND;PITCH 4095,DURATION 4 
1470 SOUND;PITCH Z(2),DURATION10:SOUND;PITCH 4095,DURATION 4 
1480 SOUND;PITCH Z(1),DURATION10:SOUND;PITCH 4095,DURATION 4 
1490 SOUND;PITCH Z(2),DURATION10:SOUND;PITCH 4095,DURATION 4 
1500 SOUND;PITCH Z(3),DURATION10:SOUND;PITCH 4095,DURATION 4 
1510 SOUND;PITCH Z(1),DURATION30:SOUND;PITCH 4095,DURATION 4 
1600 RETURN
2000 DATA "C","o","p","y","r","i","g","h","t"," ","b","y"," ","D","o","b","a","i"," ","F","e","r","e","n","c",",","1","9","8","6","."
2500 DATA 3349,3431,3503,3537,3598,3652,3701,3723
2600 CLS:GRAPHICS4:SET PALETTE 1,68,80,84
2602 DIM  X(7): X(1)=67 : X(2)=69 : X(3)= 78: X(4)= 84: X(5)= 82 
2604 X(6)= 85: X(7)= 77
2610 SET INK 1:PRINT AT 3,12:"CENTRUM":PRINT AT 4,12:"CENTRUM"
2620 PRINT AT 5,6:"CENTRUM"
2625 PRINT AT 5,18:"CENTRUM"
2630 PRINT AT 7,4 :"CENTRUM"
2635 PRINT AT 7,20:"CENTRUM"
2640 FOR I=9 TO 15 STEP 2
2645 PRINT AT I,4:"CENTRUM"
2650 NEXT
2655 PRINT AT 17,4:"CENTRUM"
2656 SET INK 3:  PRINT AT 11,17:"Székesfehérvár"
2657 PRINT AT 13,17:"Szabadság tér 5.":SET INK 1
2660 PRINT AT 17,20:"CENTRUM"
2662 PRINT AT 19,6 :"CENTRUM"
2664 PRINT AT 19,18:"CENTRUM"
2666 FOR I=12 TO 18
2668 C=INT(RND*3)+1
2669 
2670 SET INK C:PRINT AT 20,I:CHR$(X(I-11));
2680 NEXT I
2690 IF INKEY$<>"" THEN RETURN
2700 GOTO 2666