ZXTape! u$H BASIC ttlv60.1}L,1:0.1}L,10 :0.1}L,-10 :0:0:6::;5;9 ,0;"********************************":10 ,1;"BASIC TUTOR BY KAMASOFT 1987 ":12 ,10 ;"AUTOR:L.KARRACH":;5;13 ,0;"********************************"  0 "BASIC M/C"62944 e63192,200:63193,0:23613=\,200:23610:\,255:"63140" v"BASIC M/C1"40000@:(23730\+256*23731\-1637e):40000@:42970ڧ:63748 2="BASIC S":7:7:20,1;:"BASIC 1" d"BASIC "1 g="BASIC M/C"62944,138+579+75K i'"BASIC M/C1"40000@,4000 Z23681\=27;1;4;3,10 ;"LOADING ERROR":100d:  BASIC M/C G!*&)>!7V*g[j>7V**U\ ~w" >G~/8 :0  (~@8[0~ ( ~0890##~a6#6"#~w##~a~/8:06"~ (~.(+|;; *=\s#r;;͎{ ::\(!((<2\6!%"B\2D\}33 BASIC M/C1@Gu4 ! [\%!\~#*S\+ UKO\B#"\ !:ɨS @LVh:z2:`\:an:W±:VŸ:S D:K:L:R@:T K m'!ho>g^#Vz>2S>2S8>G*E B"E>2T>2T( WWWW>2`>2`2_>2a>2a2G!J4*E}o :U2I?O "E>2V>2V?2U>2W>2W?<2>2K(>2K?2I6=2K2J>2L =2L?!I0z2I>2L6XB:IW2I6:HG!I0@8z>2I>2R>2R2H>!Ew#!@"E>2H>@2>2G&oDM) u :JG:GW*E:IGWV(w ??>ww :IG(!E4<2I@!E5z>2I!J4*E "E!b??2I6*EÉ:M(>2M*E"N:I2P:J2Q*N"E:P2I:Q2Jo ( (*N"E:P2I:Q2J*a\~ (m#> m>2M͙n:\ GOx*a\[c\K[\B̿R(~ͨ#!x\^> (>m> m" UWWP6#`A$5%`$D ! RrPr@p $@%U &"p%paa`Wta`4e q@%% %1`@BB@a a5p%uPee`%E eU`ttptt@%EpUuPr"p UfPDDpWUPeUPuUped@%U0efP4!`r" UU`UU UWPU%PU" q$pdD`D!10'" %dp5pFU`D0U0V0%F@S`DuP@D`0EfPDD0uPUPUpW@WD@B`GD0U`U WP"Pq`$p2B0"" b`PC30333333 3<3?0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 f0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000[\! DM o g~w#~w5<"/6=Y_ekqw#0=CIO[`ejz}9GT[^adgjmpsvy| #&)2BEHK]fk,/NQ:{5X phjlnrtut000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 BASIC S _Nu- ꪪZ?@8*? UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU\5UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpuUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU?A UUUUUUUUUUUUUUU8? UUUUUUUUUUUUUUUU? UUUUUUUUUUUUU ꪪ?"y8? j? UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU`UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUpUUUUUUUUUUUUUUUx?pUUUUUUUUUUUUUUUy8? UUUUUUUUUUUUUUUU UUUUUUUUUUUUU"x@?$y8@ UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUAuUUUUUUUUUUUUUUU;( 5UUUUUUUUUUUUUUUY9UUUUUUUUUUUUUUU@ UUUUUUUUUUUUU?AzgN*_ UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU?AUUUUUUUUUUUUUUU95UUUUUUUUUUUUUUU;ׇUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@$ 8@8@ TTTTTTTUUUUUUUUUUUUUUUUUUUxUUUUUUUUUUUUUUU` UUUUUUUUUUUUUUUUUUUUU UUUUUUUUUUUU@ R`  @@? j******UUUUUUUUUUUUUUUUUUU UUUUUUUUUUUUUUUU@0UUUUUUUUUUUUUUUUUUUUUp@UUUUUUUUUUUU(p#$ Awp@?IIIIIIIIIIIIII@0jHD(ET* u j******j******UUUUUUUUUUUUUUUUUUU @5UUUUUUUUUUUUUUUP"`UUUUUUUUUUUU(S(+E@  hhj*ROEpA8@  VVVVVVVVVVVVVVUUU ?UUUUUUUUUUUUUUUKUUUUUUUUUUUUUUWH?UUUUUUUUUUUUW$ $Qw@RRTTTTTTT TTTTTTT@TTTTTTT  @@TTTTTTT @@ R@R0@pR C0 @ R @?j******O@j******?@Pj****** !@  @j****** @w=IIIIIII@IIIIIII0C@HIIIIIII   @ IIIIII @-UtЂ8j******@j******( @Dj****** ? @@-؂(h0@h$0 Bh ?8'@@ЂVVVVVVV @VVVVVVV"  AVVVVVVV @@wЃ R@R! @R  @@88888888888888888888888888888888888888888888888888888888888888888888$$$$$$$$$$8888888888888888888888$$$$$$$$$$8888888888888888888888$$$$$$$$$$8888888888888888888888$888888$$$8888888888888888888888$888888$$$8888888888888888888888$$$$$$$$$$8888888888888888888888 88888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888998888888888888888888888888888889988888888888888888888888888888899888888888888888888888888888888999888888888888888888888888888889998888::888:88888888888888888889999999:::::::8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888]u$IL BASIC 1 ,N+, 23743\,83S:0:63192,10 :63140:7:7::;2;"BASIC TUTOR BY L.KARRACH 1987  " $23658j\,8:C$(333M) AT=3:C$="NAPIS PRIKAZ,KTOREMU NEROZUMIES**************************************KAMASOFT**************************************************":INK=1:5000 a23617A\,0:23658j\,8:CONN=0:5:;1;4,1;"K" ( 0 *UA=23560\:A=14CONN=CONN:CONN=023617A\,0:30 2XA=14CONN=1;1;4,1;"E":23617A\,1:40( <223617A\=1A$=¾23560\:65A >?A>64@A<91[A$=(23560\+165):65A ?A$=¾23560\ AA$<16530 F4,1;A$ P@A$>205O$="PRIKAZ":INK=4:7000X:100d RXA$>194ƯA$<199O$="LOGICKA OPERACIA":7000X:INK=5:100d Z'INK=3:O$="FUNKCIA":7000X d2AT=9 :ZNK=A$:*****PRIKAZY*************** niZNK=230C$="VYMAZE PROGRAM V BASICU(OD ZACIATKU BASICU PO ADRESU V SYSTEMOVEJ PREMENNEJ RAMTOP)" sZNK=231C$="NASTAVI FARBU OKRAJA OBRAZOVKY PODLA CISLA ZA PRIKAZOM(0-CIERNO,1-MODRO,2-CERVENO,3-FIALOVO,4-ZELENO,5-SLAB.MODRO,6-ZLTO,7-BIAEL)" xZNK=232C$="CONTINUE-POKRACUJ;POUZIVA SA PRI POUZITI BREAK=>POKRACUJE BEH PROGRAMU(SKACE NA POSLEDNY RIADOK,KTOREHO CHYBOVE HLASENIE BOLO 0)" }ZNK=233C$="napr. DIM A(10,10...) DEFINUJE V PAMATI POCITACA CISELNE POLE(MATICU)S NAZVOM~A~A S ROZMERMI 10*10*... ;MOZE SA DEFINOVAT AJ RETAZCOVE POLE=> napr.DIM A$(3,5,7)" dZNK=234C$="TVORI POZNAMKU PRE UZIVATELA VSETKO CO IDE ZA REM V DANOM RIADKU JE IGNOROVANE" ZNK=235C$="napr.FOR X=1 TO 10 STEP 2;DEFINUJE CYKLUS X RIADIACOU PREMENNOU X PRE X=1 AZ X=10 S KROKOM ZVYSOVANIA 2(AK NIE JE STEP UDANY JE 1;VID AJ PRIKAZ NEXT)" OZNK=236C$="GOTO-SKOK;GOTO A BEH PROGRAMU BUDE POKRACOVAT OD RIADKU A" EZNK=237C$="GOSUB A VOLA PODPROGRAM NA RIADKU A(VID RETURN)" ZNK=238C$="INPUT A V LAVOM DOLNOM ROHU SA OBJAVI BLIKAJUCE L A POCITAC CAKA NA NAPLNENIE PREMENNEJ~A~ CISLOM MOZE BYT AJ INPUT A$,INPUT LINE A$..." %ZNK=239C$="LOAD~NAZOV~ NAHRA DO POCITACA Z MG.PASKY PROGRAM S NAZVOM~NAZOV~ LOAD~..~DATA A() NAHRA CISELNE POLE LOAD~..~DATA A$()NAHRA ZNAKOOVE POLE LOAD~..~CODE NAHRA BYTES(MOZE BYT LOAD~..~CODE A=>NAHRA BYTES NA ADRESU A) LOAD~..~SCREEN$ NAHRA TV.OBRAZ" lZNK=240C$="VYPISUJE NA OBRAZOVKU PROGRAM V POCITACI(MOZE BYT LIST A=>LISTUJE PROGRAM OD RIADKU A)" VZNK=241C$="LET A=B DO PREMENNEJ A PRIRADI PREMENNU B(MOZU BYT AJ RETAZCOVE)" ZNK=242C$="PAUSE A ZASTAVI PROGRAM NA A/50 SEC. AK JE STLACENE TLACITKO PROGRAM BEZI DALEJ;PAUSE 0 CAKA NA STLACENIE TLACITKA" ZNK=243C$="NEXT X ZVYSUJE PREMENNU X O KROK ZADANY V PRIKAZE FOR A BEH PROGRAMU VRACIA ZA PRIKAZ FOR(VID PRIKAZ FOR)" :ZNK=244C$="POKE A,B NA ADRESU A ULOZI HODNOTU B" zZNK=245C$="PRINT PISE NA OBRAZOVKU ;PRINT~AHOJ~VYPISE AHOJ ;PRINT A VYPISE HODNOTU PREMENNEJ A ATD.(VID TAB,AT)" sZNK=246C$="PLOT A,B KRESLI BOD DO SURADNIC A,B(BOD 0,0 JE V LAVOM DOLNOM ROHU;ROZMERY OBRAZOVKY 255*175)" ȡZNK=247C$="SPUSTA BEH PROGRAMU OD RIADKU 0 + MAZE VSETKY PREMENNE AJ OBRAZOVKU + VYKONA RESTORE RUN A PODOBNE AKO RUN ,ALE SPUSTI PROGRAM OD RIADKU A" ZNK=248C$="SYNTAX PODOBNE AKO LOAD ,ALE NENAHRAVA DO POCITACA ALE Z POCITACA NA MG.PASKU(SAVE~..~LINE A NAHRA NA MG.PASKU PROGRAM S TYM,ZE PO SPATNOM NAHRATI DO POCITACA SA AUTOMATICKY SPUSTI OD RIADKU A)" WZNK=249C$="NASTAVUJE GENERATOR NAHODNYCH CISEL(NIE JE KLUCOVY PRIKAZ)VID RND" ׃ZNK=250C$="IF A THEN B AK PLATI VYRAZ A POTOM JE VYKONAVANE B ;napr.IF A=1035=AK A JE ROVNE 10 POTOM SKOK NA RIADOK 35" $ZNK=251C$="MAZE OBRAZOVKU" ZNK=252C$="DRAW A,B KRESLI PRIAMKU Z POSLEDNEJ POZICIE PLOT ,POSUVA X-SUR. O A , Y-SUR. O B ;POPRIPADE DRAW A,B,C KRESLI PRIAMKU S ZAKRIVENIM C STUPNOV" PZNK=253C$="MAZE PREMENNE ;POPRIPADE CLEAR A POSUVA RAMTOP NA ADRESU A" PZNK=254C$="RETURN-NAVRAT Z PODPROGRAMU SKACE ZA POSLEDNY PRIKAZ GOSUB" CZNK=255C$="ROBI KOPIU OBRAZOVKY NA TLACIAREN(ZX-PRINTER)" ZNK=206C$="napr.DEF FN A()=4^5+10*7 DEFINUJE FUNKCIU S NAZVOM A ,A S TVAROM 4^5+10*7;V TVARE FUNKCIE MOZU BYT AJ PREMENNE napr.DEF FN A()=A^2+B PO ZAVOLANI FUNKCIE A(VID FN)BUDE VYHODNOTENY VYRAZ A^2+B" iZNK>206ZNK<213C$="PRIKAZY CAT,FORMAT,MOVE,ERASE,OPEN #,CLOSE # PRACUJU LEN S MICRODRIVE" ZNK=213C$="PRIKAZ MERGE~EXPERT~ NAHRAVA(PODOBNE AKO LOAD)DO POCITACA PROGRAM S NAZVOM EXPERT,ALE NERUSI RIADKY STAREHO PROGRAMU A PREMENNYCH S VYNIMKOU TYCH,KTORE MAJU ROVNAKE CISLA RIADKOV,ALEBO NAZVY PREMENNYCH" ZNK=214C$="AKO LOAD,ALE DATA SA NEUKLADAJU DO PAMATE IBA SA S NOU POROVNAVAJU;AK JE ZISTENA ODLISNOST OBJAVI SA CHYBA R;(POUZIVA SA PO SAVE NA KONTROLU SPRAVNOSTI NAHRATIA NA MG.PASKU)"  |ZNK=215C$="BEEP A,B ZAZNIE TON Z REPRODUKTORA DLHY A SEK. A VO VYSKE B NAD STREDNYM C (ALEBO POD AK JE B ZAPORNE)" ZNK=216C$="CIRCLE A,B,C KRESLI KRUZNICU O STREDE [A,B] A POLOMEROM C BODOV(RASTER OBRAZOVKY 255*175;BOD[0,0] V LAVOM DOLNOM ROHU OBRAZOVKY)" ZNK=217C$="NASTAVI FARBU PISMA(INKOUSTU) PODLA CISLA ZA PRIKAZOM(0-CIERNO,1-MODRO,2-CERVENO,3-FIALOVO,4-ZELENO,5-SLAB.MODRO,6-ZLTO,7-BIELO,8-PRIEHLADNE,9-KONTRASTNE)" ZNK=218C$="NASTAVI FARBU PODKLADU(PAPIERU) PODLA CISLA ZA PRIKAZOM(0-CIERNO,1-MODRO,2-CERVENO,3-FIALOVO,4-ZELENO,5-SLAB.MODRO,6-ZLTO,7-BIELO,8-PRIEHLADNE,9-KONTRASTNE)" `ZNK=219C$="FLASH-BLIKANIE PISANYCH ZNAKOV;PRE FLASH 0-NEBLIKA,1-BLIKA,8-NEDA SA MENIT" "]ZNK=220C$="BRIGHT-JAS PISANYCH ZNAKOV;PRE BRIGHT 0-NORMALNY,1-ZVYSENY,8-PRIEHLADNY" 'ZNK=221C$="INVERSE-INVERZNE ZOBRAZOVANIE ZNAKOV;PRE INVERSE 0-NORMALNE ZOBRAZOVANIE ZNAKOV,1-ZNAKY BUDU ZOBRAZOVANE OPACNE;TJ. FARBOU PAPIERU NA FARBU INKOUSTU" ,ZNK=222C$="OVER-SPUOSOB PREPISOVANIA ZOBRAZENYCH ZNAKOV;PRE OVER 0-UZ ZOBRAZENE ZNAKY BUDU NAHRADZOVANE NOVYMI ZNAKMI,1-NOVE ZNAKY BUDU SPLYVAT SO STARYMI ZNAKMI" 1`ZNK=223C$="OUT A,B VYSIELA HODNOTU B NA PORT A(OPERACIA NA UROVNI PROCESORU_OUT(A),B)" 6@ZNK=224C$="PODOBNY AKO PRINT,ALE PRACUJE S TLACIARNOU" ;?ZNK=225C$="PODOBNY AKO LIST,ALE PRACUJE S TLACIARNOU" @FZNK=226C$="ZASTAVI BEH PROGRAMU SO SPRAVOU 9 STOP statement" EZNK=227C$="READA,B NAPLNA PREMENNE A,B S DAT URCENYCH PRIKAZOM DATA A POSUVA POSICIU V ZOZNAME DAT NA DALSIE HODNOTY" J1ZNK=228C$="URCUJE DATA PRE PRIKAZ READ" O_ZNK=229C$="NASTAVUJE POZICIU PRE ODBER DAT NA RIADOK NASLEDUJUCI ZA PRIKAZOM RESTORE" T*****FUNKCIE*********** ^,ZNK=165C$="GENERUJE NAHODNE CISLO" c2ZNK=166C$="VYSLEDOK JE STLACENA KLAVESA" h3ZNK=167C$="LUDOLFOVO CISLO 3.14159265..." mZNK=168C$="napr.PRINT FN A() VOLA UZIVATELSKY DEFINOVANU FUNKCIU S NAZVOM A+VYHODNOTI JU A VYPISE VYSLEDOK NA OBAZOVKU" riZNK=169C$="POINT (A,B) VYSLEDOK JE 1 AK JE NA OBRAZOVKE V POZICII (A,B) BOD,INAC JE VYSLEDOK 0" wIZNK=170C$="SCREEN$ (A,B) VYSLEDOK JE ZNAK NA RIADKU A,STLPCI B" |ZNK=171C$="ATTR (A,B) VYSLEDOK JE ATRIBUTOVY(FARBOVY)KOD NA RIADKU A,STLPCI B;PODLA PRAVIDLA 128*BLIKANIE+64*JAS+8*FARBA PAPIERU+FARBA INKOUSTU" HZNK=172C$="PRINT AT A,B;~X~ TLACI ZNAK X DO RIADKU A,STLPCA B" WZNK=173C$="PRINT TAB A;~X~ POSUVA TLACOVU POZICIU NA STLPEC A + TLACI ZNAK X" ZNK=174C$="ARGUMENT JE RETAZEC,KTORY VYHODNOTI BEZ UVODZOVIEK(ODHODI KRAJNE UVODZOVKY) A CAKA ZNOVA RETAZEC;napr.PRINT VAL$ ~~~A~~~ VYPISE A" ZNK=176C$="ARGUMENT JE RETAZEC,KTORY VYHODNOTI BEZ UVODZOVIEK(ODHODI KRAJNE UVODZOVKY) A CAKA CISLO;napr.PRINT VAL ~1~ VYPISE 1" ?ZNK=175C$="ARGUMENT JE ZNAK,KTOREMU JE PRIRADENY KOD" <ZNK=177C$="ARGUMENT JE RETAZEC,URCI DLZKU RETAZCA" 2ZNK=178C$="SIN X-SINUS X(X V RADIANOCH)" 4ZNK=179C$="COS X-COSINUS X(X V RADIANOCH)" 4ZNK=180C$="TAN X-TANGENS X(X V RADIANOCH)" :ZNK=181C$="ASN X-ARCUSSINUS V RADIANOCH CISLA X" <ZNK=182C$="ACS X-ARCUSCOSINUS V RADIANOCH CISLA X" <ZNK=183C$="ATN X-ARCUSTANGENS V RADIANOCH CISLA X" 8ZNK=184C$="LN X-PRIRODZENY LOGARITMUS CISLA X" 0ZNK=185C$="EXP X-e^X;e=EULEROVO CISLO" >ZNK=186C$="INT X-CELA CAST CISLA (ZAOKRUHLENA DOLE)" -ZNK=187C$="SQR X-ODMOCNINA CISLA X" VZNK=188C$="SGN X-ZNAMIENKO(-1 PRE ZAPORNE CISLO,0 PRE 0,1 PRE KLADNE CISLO)" 5ZNK=189C$="ABS X-ABSOLUTNA HODNOTA CISLA X" >ZNK=190C$="PEEK X-URCI HODNOTU V PAMATI NA ADRESE X" PZNK=191C$="IN X-TESTUJE PORT S ADRESOU X(OPERACIA NA UROVNI PROCESORU" ZNK=192C$="RANDOMIZE USR X-VOLA STROJOVY PODPROGRAM NA ADRESE X PRINT USR ~X~-VYPISE ADRESU ZNAKU X V DEFINOVATELNEJ GRAFIKE(UMOZNUJE DEFINOVAT VLASTNE ZNAKY)" ZNK=193C$="STR$ X-SPRAVI Z CISLA RETAZEC(PRIHODI UVODZOVKY)=RETAZEC ZNAKOV,KTORY BY BOL TLACENY PRI TLACENI X(JE TO OPAK FUNKCIE VAL)" 2ZNK=194C$="CHR$ X-ZNAK,KTOREHO KOD JE X" ;ZNK=195C$="NOT X-VYSLEDOK JE 0 AK X0 , 1 AK X=0" zZNK=196C$="BIN X-(NIE JE BIN.OPERACIA) JE TO SPOSOB ZAPISU CISLA(ZAPIS V DVOJKOVEJ SUSTAVE) napr.BIN 00000111=7" bZNK=197C$="LOGICKA OPERACIA ALEBO(napr.IF A=10 OR B=5 ...=AK A=10 ALEBO B=5 POTOM ...)" mZNK=198C$="LOGICKA OPERACIA A SUCASTNE(napr.IF A=10 AND B=5 ...=AK A=10 A SUCASTNE B=5 POTOM ...)" +ZNK=199C$="ZNAMIENKO MENSI ROVNY"  +ZNK=200C$="ZNAMIENKO VATSI ROVNY" %ZNK=201C$="ZNAMIENKO ROZNY" /ZNK=202C$="POUZIVA SA PRI SAVE,INPUT" /ZNK=203C$="POUZIVA SA PRI PRIKAZE IF" !jZNK=204C$="POUZIVA SA PRI PRIKAZE FOR,a napr.PRINT A$(1 TO 5)-VYPISE PRVYCH 5 ZNAKOV RETAZCA A$" &0ZNK=205C$="POUZIVA SA PRI PRIKAZE FOR" 5000:6000p S=08 F=232 ;INK;AT+S,F-1;C$(S*32 +F-1S*32 +F)+"":F:;INK;1+S+AT,0;C$(S*32 +F-1):S: pE6060:1;20,0;" LLOAD EDITOR AOPAKOVAT "  0 ="L"INK=2:C$="V EDITORE BOHUZIAL NEPRACUJU PRIKAZY: VERIFY~~, LOAD~~DATA,RUN,CLEAR ;PRIJEMNU ZABAVU A VELA USPECHOV TI PRAJE FIRMA KAMASOFT"::AT=5:"5000":;1;12 ,0;" BASIC EDITOR IS LOADING ":"BASIC 2" d4,0;" ":20,0;" ":30 X0;7,0;" ";A$;" ";O$;" ":1;6;7,0;" ": PMMAZE PREMENNE ;POPRIPADE CLEAR A POSUVA RAMTOP NA ADRESU A n onaXnAOPRIKAZ