Portfolio BASIC, verze 4.91 (c) 1991 BJ Gleason vytvo©il BJ Gleason, The American University —vod PBASIC je jednoduch˜ p©eklada‡ jazyka BASIC. Vy‘aduje jenom 43 k m¡sta na disku a asi 67k pamˆti, aby mohl pracovat. PBASIC je d vkovˆ orientovan˜ p©eklada‡ a spolupracuje s vestavˆn˜m Editorem. PBASIC byl jeden z program–, kter‚ vyhr ly program torskou soutˆ‘ Compuserve/Portfolio Confernce Programing Contest, 1990. Program je ur‡en p©edev¨¡m pro ATARI PORTFOLIO, kde pracuj¡ v¨echny jeho funkce. Program lze ale £spˆ¨nˆ pou‘¡vat i na bˆ‘n‚m stoln¡m PC. Info pro nov‚ u‘ivatele PBASIC nen¡ jako GWBASIC a jin‚ zn m‚ programy BASIC na PC. PBASIC nem  zabudovan˜ editor, ale vyu‘¡v  Editoru Portfolia. PBASIC se spou¨t¡ z p©¡kazov‚ © dky DOSu a je pot©eba zadat jm‚no souboru, kter˜ m  PBASIC vykonat. Nap©¡klad chceme-li spustit program MENU.BAS, mus¡me zadat v DOSu p©¡kaz: PBASIC MENU [RTN]. Kompatibilita se star¨¡mi verzemi Mezi verzemi 4.5 a 4.6 nastala men¨¡ zmˆna, kter  m–‘e vyvol vat nekompatibilitu. Nap©¡klad ve verzi 4.5 bylo spr vn‚ n sleduj¡c¡: PSET (x,y) V¨imnˆte si mezery mezi 'T' a '('. Ve verzi 4.6 a vy¨¨¡ vyvol  mezera chybov‚ hl ¨en¡ '= expected error in XX'. Po‡¡ta‡ pova‘uje ve vy¨¨¡ch verz¡ch PSET za n zev promˆnn‚ a proto o‡ek v  matematickou operaci. Plat¡ tedy z sada: ve funkc¡ch a p©¡kazech, kter‚ vy‘aduj¡ z vorky '( )', je z vorka sou‡ st¡ p©¡kazu a proto mus¡ b˜t s p©¡kazem tˆsnˆ spojena bez mezery. ¬ dku je tedy pot©eba p©epsat na: PSET(x,y) - bez mezery Existuje progr mek SPB.EXE, kter˜ automaticky ze zdrojov‚ho textu programu vylou‡¡ zbyte‡n‚ mezery, nepot©ebn  ‡¡sla © dk– a v¨echny pozn mky REM. Pomoc¡ tohoto progr mku lze tedy p©ev‚st BASIC programy pro star¨¡ verze na verze novˆj¨¡. Spolupr ce s vestavˆn˜m Editorem M¡sto vlastn¡ho Editoru ¨et©¡ program m¡stem a pou‘¡v  vestavˆn˜ Editor. Pokud se spust¡ PBASIC a nezad  se ‘ dn˜ parametr a n zev souboru, program se bude sna‘it vykonat ten BASIC program, kter˜ byl jako posledn¡ zpracov v n vestavˆn˜m Editorem. Aby nebylo t©eba neust le zad vat dlouh˜ n zev PBASIC.EXE je nejlep¨¡ p©ejmenovat PBASIC.EXE na P.EXE. (Pokud ‡tete tento manu l z PD diskety PORTFOLIO KLUBU, je ji‘ soubor p©ejmenov n na P.EXE) Po p©ejmenov n¡ sta‡¡ v DOSu zadat pouze P [RTN] a to je rozhodnˆ rychlej¨¡. Pokud se v BASIC programu vyskytuje nˆjak  chyba, objev¡ se chybov‚ hl ¨en¡ spolu s ‡¡slem © dku na kter‚m se chyba vyskytla. Za p©edpokladu, ‘e jste spustili ten sam˜ program, kter˜ byl naposledy editov n v Editoru, PBASIC vyvol  vystavˆn˜ editor a nastav¡ p©esnˆ m¡sto, kde chyba p©i interpretaci BASIC k¢du vznikla. Je¨tˆ jednou zd–raz¤uji, ‘e toto se stane jen v p©¡padˆ, ‘e je vykon v n ten sam˜ program, jako byl editov n. Jinak bude m¡sto do Editoru p©ed no ©¡zen¡ do DOSu. D–lezit˜m pomocn¡kem je mal˜ TRS (terminate and stay resident - ‡esky rezidentn¡) program, kter˜ umo‘¤uje spou¨tˆt BASIC programy p©¡mo z Editoru. N zev programu je ATLR.COM. Program ATLR.COM se spou¨t¡ z DOSu zad n¡m ALTR [RTN]. Aby mohl program ATLR.COM £spˆ¨nˆ pracovat, je t©eba interpret Basicu p©ejmenovat z PBASIC.EXE na P.EXE - a to je vlastnˆ ji‘ druh˜ d–vod pro‡ je lep¨¡ p©ejmenovat PBASIC na P.EXE. Program pracuje n sledovnˆ: Stiskem [ALT] [R] (proto n zev ATLR.COM) se ukon‡¡ pr ce Editoru, editovan˜ text se ulo‘¡ a spust¡ se interpret Basicu. Po skon‡en¡ bˆhu programu nebo p©i chybˆ se p©ed v  ©¡zen¡ opˆt do Editoru na posledn¡ editovan‚ m¡sto nebo na probl‚mov‚ m¡sto chyby. Program ALTR m  velikost 450 a‘ 512 byte podle verze Basicu, se kterou byl dod n. Je rezidentn¡ a tak lze odstranit z pamˆti pouze resetov n¡m Portfolia. Do pamˆti ho lza nahr t jen jednou a funkce [ALT] [R] pracuje pouze v Editoru. Bˆh programu PBASIC Jsou dva zp–soby, jak spou¨tˆt PBASIC: PBASIC [-T] [-E] [-P] PBASIC [-T] [-E] [-P] V prvn¡m p©¡padˆ bude spou¨tˆn posledn¡ soubor, kter˜ byl editov n ve vestavˆn‚m programu Editor. Druh˜ p©¡kaz spust¡ soubor zadan‚ho jm‚na. Pokud vynech te u souboru koncovku, bude to program pova‘ovat za v˜zvu nahr vat soubory s koncovkou '.BAS'. Pokud jste aktivovali program ALTR, je mo‘n‚ program spou¨tˆt z Editoru pomoc¡ [ALT][R]. V p©¡kazov‚ © dce DOSu je mo‘n‚ zadat t©i p©ep¡na‡e: -T [TRON - trace on] umo‘n¡ sledov n¡ vykon van˜ch operac¡. M  tedy tu samou funkci jako p©¡kaz TRON zadan˜ na za‡ tku zdrojov‚ho Basic programu. -E [Emulation - emulace] zapne emulaci Portfolia. Toto je v˜hodn‚, kdy‘ budete cht¡t spou¨tˆt PBASIC na stoln¡m PC a budete cht¡t pou‘¡t nˆkter‚ portfolio p©¡kazy, to je p©¡kazy v˜hradnˆ pro Portfolio. P©ep¡na‡ -E je mo‘n‚ pou‘¡t pouze kdy‘ byly nainstalov ny rezidentn¡ programy I60 a I61, kter‚ vykon vaj¡ emulaci Portfolia. Pokud tyto programy nebyly zavedeny do pamˆti, va¨e stoln¡ PC se pravdˆpodobnˆ zasekne a zhrout¡. -P [Power - nap jen¡] - p©ep¡na‡ -P vypne Portfolio p©ed spu¨tˆn¡m zdrojov‚ho Basic programu. To umo‘¤uje aktivovat PBASIC z jedn‚ pamˆŸov‚ karty a samotn˜ zdrojov˜ program v Basicu nahr vat z jin‚ pamˆŸov‚ karty. Stiskem kl vesy se pokra‡uje - Portfolio se opˆt zapne. Dobr˜ n pad, ‘e ano, ale kdo z ‡esk˜ch u‘ivatel– m  dvˆ RAM karty? V¨eobecn‚ z sady Zdrojov˜ k¢d je ve standartn¡m ASCII k¢du - pou‘¡vejte jen znaky 32 a‘ 255 (20H - FFH) - znaky 00 - 31 mohou vyvolat System Error ve vestavˆn‚m Editoru. Je jedno, zda jsou ve zdrojov‚m k¢du pou‘ita velk  nebo mal  p¡smena. 130 promˆnn˜ch - d‚lka n zvu (jm‚na) promˆnn‚ nem–‘e b˜t vˆt¨¡ ne‘ 8 znak–. Standartn¡ maxim ln¡ velikost ©etˆzce 256 byte. Je j¡ mo‘no zmˆnit p©¡kazem SSIZE. Cykly FOR/NEXT je mo‘n‚ vno©ovat maxim lnˆ 10kr t. Po‡¡ta‡ tedy m–‘e pracovat maxim lnˆ v 10 cyklech najednou bez ohledu na to, zda kon‡¡ line rnˆ: FOR I FOR J FOR K NEXT K NEXT J NEXT I nebo zda kon‡¡ neline rnˆ (neuspo© danˆ): FOR I FOR J FOR K NEXT J NEXT I NEXT K GOSUB je mo‘n‚ vkl dat do sebe 10 kr t. WHILE/WEND je mo‘n‚ do sebe vkl dat 10 kr t. REPEAT/UNTIL je mo‘n‚ do sebe vkl dat 10 kr t. €¡sla © dk– jsou nepovinn . Je povoleno jen 100 ‡¡slovan˜ch © dk– a ‡¡sla nemusej¡ b˜t v numerick‚m po©ad¡. €¡slo © dku m–‘e b˜t v rozsahu 1 - 65535. Na jednom © dku m–‘e b˜t pou‘ito v¡ce p©¡kaz– oddˆlen˜ch dvojte‡kou (:). M–‘e b˜t otev©eno maxim lnˆ 10 soubor– nar z v jednu dobu. P©¡kaz DATA mus¡m za‡¡nat ‡¡slem © dku. Pozor na mezery mezi tˆlem p©¡kazu a z vorkami, kter‚ jsou pova‘ov ny za sou‡ st syntaxe p©¡kazu. P©ehled p©¡kaz– BLOAD BSAVE CALL CALL INTERRUPT CHAIN CHDIR CLOSE# CLS CMODE= COMOUT= COMSET= DATA DECR( DEF DEF SEG= DIM END ERROR EVAL EXITCMD EXITCODE FOR TO STEP FORMFEED GLOCATE X,Y GOSUB GOTO GPRINT IF THEN ELSE ENDIF INCR( INPUT INPUT# KILL LINE(X1,Y1)-(X2,Y2)[,C,BF] LOCATE LPCHR$( LPRINT MID$( )= MKDIR NEXT NUMFMT= ON ERROR GOTO ON GOTO ON GOSUB OPEN OUT POKE PRINT PRINT# PRINT USING PRINT# USING PRINTER PRTSC PSET( RANDOMIZE READ REG REM REPEAT/UNTIL RESTORE RESUME RETURN RMDIR RUN SCREEN SSIZE= STOP SWAP SYSTEM TROFF TRON WAIT WHILE / WEND WRITE WRITE# Z kladn¡ funkce ABS( ACOS( ARG$( ARGC ASC( ASIN( ATN( BIN$( CEIL( CHRPTR CHR$( COMMAND$ COMIN COMSTAT COS( COSH( CSRLIN CWD$ DATE$ DEG( DMS( DOSVER EOF( ERARD ERL ERMSG$ ERR EXISTS( EXP( FALSE FILESIZE FINDFILE$( FINDNEXT$ FIX( FRE( FREEFILE HEX$( INKEY$ INP( INPUT$( INSTAT INSTR( INT( ISALTR ISRUN LCASE$( LEFT$( LEN( LOG( LPOS( LTRIM$( MID$( OCT$( PASSWORD$ PBVER PEEK( PI POINT( POS( PROGLOC RAD( RAND( REG( REVERSE$( RIGHT$( RND RTRIM$( SCREEN SGN( SHIFT SIN( SINH( SPACE$( SPC( SQR( STR$( STRING$( TAB( TAN( TANH( TIME$ TIMER TRUE UCASE$( VAL( VARSEG( VARPTR( WKSREAD( WKSREAD$( WKSTYPE( Speci ln¡ p©¡kazy - funk‡n¡ pouze na PORTFOLIU Pokud pou‘ijete tyto p©¡kazy na stoln¡m PC - v ¨ po‡¡ta‡ se m–‘e zaseknout nebo se objev¡ chybov‚ hl ¨en¡. ALARM - zapne zvuk alarmu a Portfolio ‡ek  na stisk kl vesy. Po stisku kl vesy alarm opˆt utichne a bude se prov dˆt dal¨¡ p©¡kaz. BEEP - z reproduktorku (nen¡ to reproduktor, ale piezoelektick˜ mˆni‡) se ozve jeden t¢n - p¡pnut¡. BOX row1,col1,row2,col2,type P©¡kaz nakresl¡ box - obd‚ln¡k nebo ‡tverec. Row1 a col1 ur‡uj¡ lev˜ horn¡ roh a row2 a col2 ur‡uj¡ prv˜ spodn¡ roh. Type je typ r me‡ku: 0 znamen  r me‡ek je tvo©en jednoduchou ‡arou a 1 dvojitou ‡arou. CLICK - zvuk stisku kl vesnice DIAL - vyt ‡en¡ ‡¡sel t¢nov‚ volby platn‚ jsou znaky 0 a‘ 9 a A,B,C,D,*,# DISPLAY Nastavuje re‘im displeje 0-Static, 1-Normal, 2-Tracked EDIT$ - Editace ©etˆzce ERRWIN - Zobraz¡ chybov‚ hl ¨en¡ GETDISPLAY - Vrac¡ ‡¡slo odpov¡daj¡c¡ nastaven¡ typu displeje. - viz DISPLAY INVERT - Reverze obrazu na grafick‚ obrazovce MENU - p©¡kaz na vytv ©en¡ polo‘ek menu OFF - vypne Portfolio PGLOAD - nahr v  grafick˜ obr zek typu .PGC PGSAVE - ulo‘¡ data z grafick‚ pamˆti do .PGC souboru PGSHOW - umo‘nuje sekvence .PGC obr zk– PORT - vrac¡ -1 je-li program spu¨tˆn na PORTFOLIU, jinak vrac¡ hodnotu 0. REFRESH - zkop¡ruje obrazovou pamˆŸ do LCD ©adi‡e. ROMVER - verze ROM Portfolia SCRLOAD$ - zkop¡ruje obsah ©etˆzce zpˆt na obrazovku SCRSAVE$ - ulo‘¡ obsah obrazov‚ pamˆti do ©etˆzce - je t©eba nastavit d‚lku ©etˆzce p©¡kazem SSIZE alespo¤ na 325 znak–, proto‘e z obrazovky Portfolia (40*8) je 320 znak– na ulo‘en¡. SOUND - vyvol  zvuk (t¢n) ze zvukov‚ho mˆni‡e Portfolia. STATUS - vyp¡n  nebo zap¡n  tzv. STATUS LINE , kter  se vyvol v  stiskem kl vesy LOCK. TICK - nastavuje re‘im o‘ivov n¡ Portfolia - 0 - normal to jest jedenkr t za 128 sekund. 1 - rychleji (FAST)- jedenkr t za sekundu. VCSRLIN - sou‡asn  © dka, kde je kurzor na obrazovce VLOCATE - p©esune kurzor na zadan‚ sou©adnice VMOVE - posun obrazovky podle zadan˜ch parametr– - pracuje pouze v re‘imech STATIC a TRACKED. VPOS( - vrac¡ sloupec, ve kter‚m se nach z¡ kurzor ---------------------------------------------------------------- Technick‚ £daje Verze 4.91 publikov na na podzim/zima 1991 m¡sto na disku 43634 byte Pokud m te pozn my, n mˆty a p©ipom¡nky m–‘ete ps t autorovi na n sleduj¡c¡ adresu: BJ GLEASON The American University CSIS (Thin Air Labs) 4400 Massachusetts Avenue, N.W. Washington, DC 20016 P©elo‘eno v £noru 1994 ----------------------------------------------------------------- Pozn mka p©ekladatele: Ahoj ATARISTI a PORTFOLIISTI, hroznˆ r d bych p©elo‘il tento manu l cel˜ do ‡e¨tiny, popsal v¨echny p©¡kazy a doplnil je p©¡klady. Bohu‘el se mus¡m u‡it na zkou¨ky na V› a tak nen¡ ‡as. Chtˆl jsem si manu l nechat zpracovat u jednoho p©ekladatele, ale p©e¨la mˆ chuŸ, kdy‘ jsem se dovˆdˆl ‘e za 70 000 byte texu bych musel zaplatit 7 000 a‘ 8 000 korun. To bych byl asi na dosmrti ‘ebr k. Pokud rozum¡te BASICu, pak je to OK. Sta‡¡, kdy‘ si rozd¡lnosti vyhled te v origin ln¡m textov‚m souboru ORIGINAL.TXT. Hor¨¡ je to, kdy‘ BASIC neum¡te. Pak v m rad¡m nau‡te se ho. Je to z klad skute‡n‚ pr ce s po‡¡ta‡em. Pokud by nˆkdo z v s chtˆl alespo¤ ‡ st manu lu p©elo‘it nebo jinak pomoci, m–‘e se ozvat na PORTFOLIO ZVOLE. Vˆ©¡m, ‘e se v m bude s BASICem dob©e pracovat. Pokud nap¡¨ete nˆjak‚ zaj¡mav‚ programy - po¨lete je na disket ch na adresu PORTFOLIO ZVOLE. Nezapomˆnte k nim p©ipojit stru‡n˜ popis v .TXT souboru a nazapome¤te napsat svoji adresu, aby v s bylo mo‘no kontaktovat. S pozdravem XY ----------------------------------------------------------------- UPOZORN‰N‹ Podporujte autory SHAREWARE!!! Auto©i shareware, kte©¡ vˆt¨inou udˆlaj¡ v¡ce pr ce pro po‡¡ta‡ ne‘ penˆz chtiv¡ v˜robci a distibuto©i, pot©ebuj¡ malou 'dotaci', aby se mohli vˆnovat pr ci pro n s v¨echny. Pat©¡ jim za to velk‚ uzn n¡ a d¡k. Vezmˆme p©¡klad BJ Gleasona - je to £pln˜ po‡¡ta‡ov˜ maratonec - vˆt¨ina lep¨¡ch program– poch z¡ od nˆho - a sami dob©e v¡te, kolik £sil¡ a pr ce se za jeho programy skr˜v . Mysl¡me si, ‘e i stejnˆ geni ln¡ auto©i existuj¡ v na¨¡ zemi a na Slovesku - bohu‘el my na nˆ ka¨leme - nebo jste snad v posledn¡ dobˆ zaslali nˆkomu z nich mal˜ dar na jejich podporu? Pokud ano, udˆlali jste dobr˜ skutek. Za v¨echny SHAREWARE autory v m tedy pos¡l me na¨e d¡ky ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» º PORTFOLIO º º po¨ta ZVOLE º º 252 45 º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ