Permalink
Cannot retrieve contributors at this time
| %%HP: T(0)A(D)F(.); | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ kernel.rpl -- 8F UserRPL Kernel | |
| @ | |
| @ Copyright (C) 2017 Bruno Felix Rezende Ribeiro <oitofelix@@gnu.org> | |
| @ | |
| @ This program is free software; you can redistribute it and/or modify | |
| @ it under the terms of the GNU General Public License as published by | |
| @ the Free Software Foundation; either version 3, or (at your option) | |
| @ any later version. | |
| @ | |
| @ This program is distributed in the hope that it will be useful, | |
| @ but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| @ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| @ GNU General Public License for more details. | |
| @ | |
| @ You should have received a copy of the GNU General Public License | |
| @ along with this program. If not, see <http://www.gnu.org/licenses/>. | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| DIR | |
| $TITLE "8FKERNEL" | |
| $ROMID 769. | |
| $CONFIG | |
| « | |
| HOME $ROMID ATTACH | |
| » | |
| $VISIBLE | |
| { | |
| @Misc@ | |
| ABOUT | |
| @Filesystem@ | |
| RCLH STOH PURGEH RCLC STOC PURGEC | |
| @Library@ | |
| LIBDOERR LIBERRN LIBHELPVIEW | |
| @Program@ | |
| MULTI | |
| @List@ | |
| QUICKSORT SUMLIST PRODLIST STREAMLIST DOLISTX PAIRLIST UNPAIRLIST DROPLIST | |
| @String@ | |
| TOKENIZE SR RANDSTR | |
| @GUI@ | |
| VIEWBOX ASKQUESTION CHOOSEN VIEWSTR VIEWGROB | |
| @Audio@ | |
| BEEPK DECTONE PLAYTUNE | |
| @Graphics@ | |
| RANDGROB GAND | |
| @Encryption@ | |
| ENCRYPT DECRYPT | |
| @Symbolic@ | |
| CMDFUN | |
| } | |
| $HIDDEN | |
| { | |
| $ROMID $logo $music $cachedir $INSERTSORTSTACK $QUICKSORTSTACK | |
| } | |
| $MESSAGE | |
| { | |
| @1@ "Invalid Tone" | |
| } | |
| $logo | |
| GROB 129 47 00000C10000000000000000000000000000000CF70000000000000000000000000000000FFF0000000000000000000000000000000FFF10000700000000000000000000000087EF3000CF1CF700000000000000000000810F7000E83C0000000000000000000000C00CF000603C00000000000000000000006008F100606C00000000000000000000006000F100603C00000000000000000000007000F300E03C00038000000F3CFC0000003000E3008F1CF303800000036C8D0000003000E300CF1CF30388783C634C8D0000083000C700603C00038C044C136C8D0000083E1F8700606C00038402CC033C8D00000831009700706C00038C1EFC0F3CFC00000C3C068F00706C000380720C036C0C00000C30008F00607C0003C0C20C034C0C00000C30008F00E83C0002C0C68C03CC0C00000C30008F00CF1C000C7C7CFC038C0CF1000C30008F000000000000000000000000000C30C08F000000000000000000000000000830008F000000000000000000000000000870E18F000000000000000000000000000870F38F00000000000000000000000000087804CF00000000000000000000000000087000CF000000000000000000000000000870C0CF000000000000000000000000000870C0CF000000000000000000000000000CF0C0CF0000FFF70600000000000300000CF000CF000000060300000000000300000CF0E1CF1000CFF7C100000000000300000EF0F3CF10000006E081003030810300000EF0E1CF10000FF770E70D3DF0E70300000FF000CF1000000E303C0703C03C0300000F7100AF30000CFF1818030388180300008F72009F3000000E181813018818130000CF34088F700000F738FF110188FF130000EF48048FF0000006681001018810030000E1801248F30000C7C8100101881003000060F021C3F30000068130010180300300001843C0B487000007037801018078030008064C1E881400000606EF010180EF030004C508E508EC000000000000000000000002A04804804900000000000000000000000294480488421000000000000000000000011008040002100000000000000000000001944000884220000000000000000000000 | |
| $music | |
| "4- 8- 16b2 16a2 4b2 4e2 4- 8- 16c3 16b2 8c3 8b2 4a2 4- 8- 16c3 16b2 4c3 4e2 4- 8- 16a2 16g2 8a2 8g2 8#f2 8a2 4g2 8- 16#f2 16g2 4a2 8- 16g2 16a2 8b2 8a2 8g2 8#f2 4e2 4c3 2b2 4- 16b2 16c3 16b2 16a2 1b2" | |
| $cachedir "8FK" | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ MISC SECTION | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ ABOUT | |
| @ | |
| @ | |
| @ | |
| @ Shows kernel build number, author contact information and a hopefully nice | |
| @ logo as well. The build number is actually the date of compilation. | |
| @ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| ABOUT | |
| « | |
| $logo | |
| "" 1. GROB GROBADD | |
| "Build " DATE 10. 6. ^ * RI + 1. GROB GROBADD | |
| "http://oitofelix.github.io/" 1. GROB GROBADD | |
| 1500. .1 BEEP | |
| VIEWGROB | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ FILESYSTEM SECTION | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ RCLH | |
| @ | |
| @ 'id' ob 1. | |
| @ 'id' 0. | |
| @ | |
| @ Recalls object named 'id' from the hidden directory. Returns 1. and the | |
| @ respective object in case the name exists, 0. otherwise. The return code is | |
| @ useful for defining conditionals for the sake of falling back to default | |
| @ values. | |
| @ | |
| @ See: STOH, PURGEH | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| RCLH | |
| « | |
| id | |
| « | |
| IF id TYPE @global name@ 6. SAME THEN | |
| id @RclHiddenVar@ #370AFh SYSEVAL | |
| @COERCEFLAG@ #2602Bh SYSEVAL | |
| ELSE @Bad Argument Type@ #202h DOERR | |
| END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ STOH | |
| @ | |
| @ ob 'id' | |
| @ | |
| @ Stores object using name 'id' inside the hidden directory. The previous | |
| @ object is overwritten in case the name already exists. The hidden directory | |
| @ is the one having a null name at HOME's root. The operating system uses it | |
| @ for storing user settings. One can access it using the following RPL code: | |
| @ "" S~N EVAL | |
| @ | |
| @ See: RCLH, PURGEH | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| STOH | |
| « | |
| ob id | |
| « | |
| IF id TYPE @global name@ 6. SAME THEN | |
| ob id @StoHiddenVar@ #37104h SYSEVAL | |
| ELSE @Bad Argument Type@ #202h DOERR | |
| END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ PURGEH | |
| @ | |
| @ 'id' | |
| @ | |
| @ Purges object named 'id' from the hidden directory, in case it exists | |
| @ otherwise do nothing. | |
| @ | |
| @ See: STOH, RCLH | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| PURGEH | |
| « | |
| id | |
| « | |
| IF id TYPE @global name@ 6. SAME THEN | |
| id @PuHiddenVar@ #37118h SYSEVAL | |
| ELSE @Bad Argument Type@ #202h DOERR | |
| END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ RCLC | |
| @ | |
| @ 'id' ob 1. | |
| @ 'id' 0. | |
| @ | |
| @ Recalls object named 'id' from the cache system. Returns 1. and the | |
| @ respective object in case the name exists, 0. otherwise. The return code is | |
| @ useful for defining conditionals for the sake of falling back to default | |
| @ values. | |
| @ | |
| @ See: STOC, PURGEC | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| RCLC | |
| « | |
| id | |
| « | |
| IFERR "." $cachedir + "/" + id + 'SD' TAG RCL THEN DROP | |
| IFERR "$" $cachedir + "$" + id + STR 'E' TAG RCL THEN DROP | |
| IFERR "$" $cachedir + "$" + id + STR 'F' TAG RCL THEN DROP | |
| IFERR "$" $cachedir + "$" + id + STR 'R' TAG RCL THEN DROP | |
| 0. | |
| ELSE 1. END | |
| ELSE 1. END | |
| ELSE 1. END | |
| ELSE 1. END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ STOC | |
| @ | |
| @ ob 'id' | |
| @ | |
| @ Stores object using name 'id' in the cache system. The previous | |
| @ object is overwritten in case the name already exists. The cache is useful | |
| @ for storing large data in order to speed up recurrent access to them. The | |
| @ cache system tries to make the best possible use of the available memory, | |
| @ avoiding to consume scarce resources like working RAM. This is accomplished | |
| @ by using ports in the following sequence: 3, 1, 2, 0. Later ports are | |
| @ fallback of earliers, in case those are not present or haven't enough room. | |
| @ Objects are stored with an appropriately distinct suffix ("$8FK$") for ports | |
| @ 1, 2 and 0, or inside a directory ("\.8F$\") for port 3. | |
| @ | |
| @ See: RCLC, PURGEC | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| STOC | |
| « | |
| ob id | |
| « | |
| id PURGEC | |
| IFERR ob "." $cachedir + "/" + id + 'SD' TAG STO THEN DROP2 | |
| IFERR ob "$" $cachedir + "$" + id + STR 'E' TAG STO THEN DROP2 | |
| IFERR ob "$" $cachedir + "$" + id + STR 'F' TAG STO THEN DROP2 | |
| IFERR ob "$" $cachedir + "$" + id + STR 'R' TAG STO THEN DROP2 | |
| END | |
| END | |
| END | |
| END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ PURGEC | |
| @ | |
| @ 'id' | |
| @ | |
| @ Purges object named 'id' from the cache system, in case it exists | |
| @ otherwise do nothing. | |
| @ | |
| @ See: RCLC, STOC | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| PURGEC | |
| « | |
| NOVAL NOVAL NOVAL NOVAL id sd eram flash iram | |
| « | |
| {} "." $cachedir + "/" + id + 'SD' TAG + 'sd' STO | |
| IFERR IF sd EVAL VTYPE -1. SAME NOT THEN sd EVAL PURGE END THEN DROP END | |
| {} "$" $cachedir + "$" + id + STR 'E' TAG + 'eram' STO | |
| IFERR IF eram EVAL VTYPE -1. SAME NOT THEN eram EVAL PURGE END THEN DROP END | |
| {} "$" $cachedir + "$" + id + STR 'F' TAG + 'flash' STO | |
| IFERR IF flash EVAL VTYPE -1. SAME NOT THEN flash EVAL PURGE END THEN DROP END | |
| {} "$" $cachedir + "$" + id + STR 'R' TAG + 'iram' STO | |
| IFERR IF iram EVAL VTYPE -1. SAME NOT THEN iram EVAL PURGE END THEN DROP END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ LIBRARY SECTION | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ LIBDOERR | |
| @ | |
| @ %romid %msg | |
| @ | |
| @ Raises an error specified by its number %msg and the library whose id %romid, | |
| @ it belongs to. These messages are defined in the library's $MESSAGE list. | |
| @ | |
| @ See: LIBERRN | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| LIBDOERR | |
| « | |
| romid msg | |
| « | |
| romid 256. * msg + DOERR | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ LIBERRN | |
| @ | |
| @ %romid %msg | |
| @ | |
| @ Returns the error specification (in the same format accepted by LIBDOERR) of | |
| @ the lastest raised error. | |
| @ | |
| @ See: LIBDOERR | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| LIBERRN | |
| « | |
| ERRN DUP SRB BR SWAP #FFh AND BR | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ LIBHELPVIEW | |
| @ | |
| @ {catalog} | |
| @ | |
| @ Intended to be used by libraries in their extension program (referenced by | |
| @ $EXTPRG) for providing catalog help services (by responding to messages | |
| @ ExtMesHelp and ExtMesDoHelp). When called (asside from its single argument) | |
| @ the stack should be in the state expected for $EXTPRG message processing. | |
| @ | |
| @ The argument {catalog} is a list (usually stored in the library's $HELP | |
| @ variable) of pairs {'command' "help" ...} where 'command' is the command | |
| @ symbol and "help" its respective help message. | |
| @ | |
| @ When responding to ExtMesHelp it checks whether the required symbol is | |
| @ defined in {catalog}. This command provides a simples help viewer (given by | |
| @ VIEWSTR) when responding to ExtMesDoHelp. | |
| @ | |
| @ See: VIEWSTR | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| LIBHELPVIEW | |
| « | |
| msg catalog | |
| « | |
| CASE | |
| @ExtMesHelp@ msg R~SB 9. SAME THEN | |
| IF OVER catalog SWAP POS THEN | |
| DROP @TRUE@ #3A81h SYSEVAL msg | |
| ELSE msg | |
| END | |
| END | |
| @ExtMesDoHelp@ msg R~SB 10. SAME THEN | |
| catalog SWAP POS 1. + | |
| catalog SWAP GET VIEWSTR | |
| @FALSE@ #3AC0h SYSEVAL | |
| END | |
| msg | |
| END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ PROGRAM SECTION | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ MULTI | |
| @ | |
| @ ob «program» object_result | |
| @ | |
| @ Applies «program» to object ob repeatedly until the program no longer | |
| @ changes it. | |
| @ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| MULTI | |
| « | |
| P | |
| « | |
| DO DUP P EVAL DUP ROT | |
| UNTIL SAME END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ LIST SECTION | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ $INSERTSORTSTACK | |
| @ | |
| @ %low %high | |
| @ | |
| @ Sorts stack elements ranging from level %low to level %high using a simple | |
| @ stack-based insertion algorithm. This algorithm has in average quadratic | |
| @ efficiency, but is often faster than Quicksort for a sufficiently small | |
| @ number of elements. This command exists to allow for the $QUICKSORTSTACK | |
| @ command to provide an hybrid implementation of Quicksort. | |
| @ | |
| @ See: $QUICKSORTSTACK | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| $INSERTSORTSTACK | |
| « | |
| low high | |
| « | |
| IF low high < THEN | |
| high 1. - low | |
| FOR I high I 1. + | |
| FOR J | |
| IF I PICK J 1. + PICK Žcmp EVAL 0. < THEN | |
| I ROLL J ROLLD | |
| END -1. | |
| STEP -1. | |
| STEP | |
| END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ $QUICKSORTSTACK | |
| @ | |
| @ %low %high | |
| @ | |
| @ Sorts stack elements ranging from level %low to level %high using a carefully | |
| @ implemented hybrid Quicksort algorith with the following nice properties: | |
| @ | |
| @ 1. Iteractive; | |
| @ 2. Stack-based; | |
| @ 3. In place; | |
| @ 4. Median of three pivot selection; | |
| @ 5. Pivotal range simplification; | |
| @ 6. Recursion over minimal partition optimization; | |
| @ 7. Insertion sort fallback for small partitions; | |
| @ | |
| @ See: $INSERTSORTSTACK | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| $QUICKSORTSTACK | |
| « | |
| NOVAL NOVAL NOVAL NOVAL NOVAL NOVAL NOVAL | |
| NOVAL NOVAL NOVAL NOVAL NOVAL NOVAL NOVAL NOVAL | |
| low high highest nparts plow phigh top p c I | |
| p1i p2i p3i p1 p2 p3 dhl | |
| « | |
| 0. 'nparts' STO | |
| high 1. + 'highest' STO | |
| DO | |
| CASE | |
| @fall back to insertion sort for small partitions@ | |
| low high < high low - 10. < AND THEN | |
| low high $INSERTSORTSTACK | |
| 0. DUP 'low' STO 'high' STO | |
| END | |
| @quick sort algorithm@ | |
| low high < THEN | |
| @Median of three pivot selection@ | |
| high low - 'dhl' STO | |
| dhl RAND * 0. RND low + DUP 'p1i' STO PICK 'p1' STO | |
| dhl RAND * 0. RND low + DUP 'p2i' STO PICK 'p2' STO | |
| dhl RAND * 0. RND low + DUP 'p3i' STO PICK 'p3' STO | |
| CASE | |
| p2 p1 Žcmp EVAL 0. ‰ p1 p3 Žcmp EVAL 0. ‰ AND | |
| p3 p1 Žcmp EVAL 0. ‰ p1 p2 Žcmp EVAL 0. ‰ AND OR | |
| THEN p1i END | |
| p1 p2 Žcmp EVAL 0. ‰ p2 p3 Žcmp EVAL 0. ‰ AND | |
| p3 p2 Žcmp EVAL 0. ‰ p2 p1 Žcmp EVAL 0. ‰ AND OR | |
| THEN p2i END | |
| p3i | |
| END | |
| @initialize pivot ranges and top comparison limit@ | |
| DUPDUP 'plow' STO 'phigh' STO PICK 'p' STO | |
| high 'top' STO | |
| @partition the lower section@ | |
| low 'I' STO | |
| WHILE I plow < REPEAT | |
| I PICK p Žcmp EVAL 'c' STO | |
| CASE | |
| c 0. < THEN | |
| I ROLL high ROLLD | |
| 'plow' 1. STO- | |
| 'phigh' 1. STO- | |
| 'top' 1. STO- | |
| END | |
| c 0. SAME THEN | |
| I ROLL plow ROLLD | |
| 'plow' 1. STO- | |
| END | |
| 'I' 1. STO+ | |
| END | |
| END | |
| @partition the upper section@ | |
| IF phigh 1. + top ‰ THEN | |
| phigh 1. + top | |
| FOR I | |
| I PICK p Žcmp EVAL 'c' STO | |
| CASE | |
| c 0. > THEN | |
| I ROLL low ROLLD | |
| 'plow' 1. STO+ | |
| 'phigh' 1. STO+ | |
| END | |
| c 0. SAME THEN | |
| I ROLL plow ROLLD | |
| 'phigh' 1. STO+ | |
| END | |
| END | |
| NEXT | |
| END | |
| @recurse into the smaller section and delay | |
| @recursion into the other one | |
| IF plow 1. - low - high phigh 1. + - ‰ THEN | |
| @delay recursion into upper section@ | |
| phigh 1. + highest ROLLD | |
| high highest ROLLD | |
| 'nparts' 1. STO+ | |
| @recurse into lower section@ | |
| plow 1. - 'high' STO | |
| ELSE | |
| @delay recursion into lower section@ | |
| low highest ROLLD | |
| plow 1. - highest ROLLD | |
| 'nparts' 1. STO+ | |
| @recurse into upper section@ | |
| phigh 1. + 'low' STO | |
| END | |
| END | |
| @recurse into most recently delayed larger section@ | |
| nparts 0. > THEN | |
| highest ROLL 'high' STO | |
| highest ROLL 'low' STO | |
| 'nparts' 1. STO- | |
| END | |
| END | |
| UNTIL nparts 0. SAME high low ‰ AND END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ QUICKSORT | |
| @ | |
| @ {listIn} «cmp» {listOut} | |
| @ | |
| @ Sorts {listIn} in ascending order using based on the comparison program | |
| @ «cmp». The comparison program must accept two arguments and return a | |
| @ negative, zero or positive number in case its first argument is less than, | |
| @ equal to or greater than its second argument, respectively. For descending | |
| @ order call REVLIST after this. | |
| @ | |
| @ This command is just a list-based wrapper around $QUICKSORTSTACK. | |
| @ | |
| @ See: REVLIST | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| QUICKSORT | |
| « | |
| NOVAL list Žcmp size | |
| « | |
| list LIST 'size' STO | |
| 1. size $QUICKSORTSTACK | |
| size LIST | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ SUMLIST | |
| @ | |
| @ {list} sum | |
| @ | |
| @ If the list has two or more elements acts exactly like …LIST. | |
| @ Otherwise returns its element, if any, or 0 if none. | |
| @ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| SUMLIST | |
| « | |
| DUP SIZE | |
| CASE | |
| DUP 1. > THEN DROP …LIST END | |
| DUP 1. SAME THEN DROP HEAD END | |
| DROP 0 | |
| END | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ PRODLIST | |
| @ | |
| @ {list} product | |
| @ | |
| @ If the list has two or more elements acts exactly like œLIST. | |
| @ Otherwise returns its element, if any, or 1 if none. | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| PRODLIST | |
| « | |
| DUP SIZE | |
| CASE | |
| DUP 1. > THEN DROP œLIST END | |
| DUP 1. SAME THEN DROP HEAD END | |
| DROP 1 | |
| END | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ STREAMLIST | |
| @ | |
| @ {list} obj result | |
| @ | |
| @ If the list has two or more elements acts exactly like STREAM. | |
| @ Otherwise returns its element, if any. | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| STREAMLIST | |
| « | |
| IF OVER SIZE 1. > | |
| THEN STREAM | |
| ELSE DROP HEAD | |
| END | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ DOLISTX | |
| @ | |
| @ {list1}...{listn} %args obj {list2} | |
| @ | |
| @ If the list has one or more elements acts exactly like DOLIST. | |
| @ Otherwise returns the empty list. | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| DOLISTX | |
| « | |
| 1. depth | |
| « | |
| IF PICK3 {} SAME | |
| THEN OVER 2. + DROPN {} | |
| ELSE DEPTH PICK3 2. + - 'depth' STO+ DOLIST | |
| IF DEPTH depth < THEN {} END | |
| END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ PAIRLIST | |
| @ | |
| @ {e11...e1n} {e21...e2n} {e11 e21 ... e1n e2n} | |
| @ | |
| @ Pair two lists. | |
| @ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| PAIRLIST | |
| « | |
| l1 l2 | |
| « | |
| l1 l2 2. «» DOLIST | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ UNPAIRLIST | |
| @ | |
| @ {e11 e21 ... e1n e2n} {e11...e1n} {e21...e2n} | |
| @ | |
| @ Unpair two lists. | |
| @ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| UNPAIRLIST | |
| « | |
| {} {} l l1 l2 | |
| « | |
| WHILE l SIZE 0. > REPEAT | |
| l1 LIST l HEAD SWAP 1. + LIST 'l1' STO | |
| l TAIL 'l' STO | |
| l2 LIST l HEAD SWAP 1. + LIST 'l2' STO | |
| l TAIL 'l' STO | |
| END | |
| l1 l2 | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ DROPLIST | |
| @ | |
| @ {list1} %n {list2} | |
| @ | |
| @ Drops element number %n of {list1}. | |
| @ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| DROPLIST | |
| « | |
| list n | |
| « | |
| list LIST DUP 2. + n - ROLL DROP 1. - LIST | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ STRING SECTION | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ TOKENIZE | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| TOKENIZE | |
| « | |
| str sep | |
| « | |
| str WHILE sep sep + sep SREPL REPEAT END | |
| IF DUP HEAD sep SAME THEN TAIL END | |
| IF DUPDUP SIZE DUP SUB sep SAME THEN 1. OVER SIZE 1. - SUB END | |
| "{\"" SWAP + "\"}" + | |
| sep "\"\"" SREPL DROP STR | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ SR | |
| @ | |
| @ "str" x | |
| @ | |
| @ Derives a real number from a given string. | |
| @ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| SR | |
| « | |
| str | |
| « | |
| str #0d | |
| #1d str SIZE RB | |
| START RLB OVER NUM RB XOR SWAP TAIL SWAP NEXT | |
| NIP BR IF DUP NOT THEN DROP 1. END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ RANDSTR | |
| @ | |
| @ n "str_rand" | |
| @ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| RANDSTR | |
| « | |
| n | |
| « | |
| "" | |
| #1d n RB | |
| START 255. RAND * 0. RND CHR + NEXT | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ GUI SECTION | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ VIEWBOX | |
| @ | |
| @ title {item_1...item_n} | |
| @ | |
| @ View-only version of CHOOSEBOX using the HP48 engine. | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| VIEWBOX | |
| « | |
| title data | |
| « | |
| «» title «STR» data 0. R~SB @~Choose@ #B3000h LIBEVAL DROP | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ ASKQUESTION | |
| @ | |
| @ $ flag | |
| @ | |
| @ Use the string to ask the user a question with yes/no in a choose box. | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| ASKQUESTION | |
| « | |
| question | |
| « | |
| question STR @AskQuestion@ #2F1A5h SYSEVAL @COERCEFLAG@ #2602Bh SYSEVAL | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ CHOOSEN | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| CHOOSEN | |
| « | |
| title items index | |
| « | |
| items LIST R~SB title STR index 1. - R~SB «» | |
| @^Choose3Index_@ #74002h FLASHEVAL | |
| IF @TRUE@ #3A81h SYSEVAL SAME THEN R~SB 1. + 1. ELSE 0. END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ VIEWSTR | |
| @ | |
| @ ob | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| VIEWSTR | |
| « | |
| ob | |
| « | |
| @FALSE@ #3AC0h SYSEVAL ob STR @ViewStrObject@ #2F21Eh SYSEVAL DROP | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ VIEWGROB | |
| @ | |
| @ ob | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| VIEWGROB | |
| « | |
| ob | |
| « | |
| @FALSE@ #3AC0h SYSEVAL | |
| IF ob TYPE 11. SAME NOT THEN ob GROB ELSE ob END | |
| @ViewGrobObject@ #2F21Fh SYSEVAL DROP | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ AUDIO | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ BEEPK | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| BEEPK | |
| « | |
| freq duration | |
| « | |
| IF freq NOT THEN IF duration 0. > THEN duration WAIT END | |
| ELSE freq duration BEEP END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ DECTONE | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| DECTONE | |
| « | |
| NOVAL NOVAL NOVAL NOVAL tone tempo r x duration freq | |
| « | |
| 1. 'x' STO | |
| CASE | |
| tone x x SUB "2" SAME THEN 2. 'x' 1. STO+ END | |
| tone x x SUB "4" SAME THEN 4. 'x' 1. STO+ END | |
| tone x x SUB "8" SAME THEN 8. 'x' 1. STO+ END | |
| tone x x 1. + SUB "16" SAME THEN 16. 'x' 2. STO+ END | |
| tone x x 1. + SUB "32" SAME THEN 32. 'x' 2. STO+ END | |
| tone x x SUB "1" SAME THEN 1. 'x' 1. STO+ END | |
| @Invalid Tone@ $ROMID #1d LIBDOERR | |
| END | |
| IF tone x x SUB "." SAME THEN DUP 2. * INV SWAP INV + 'x' 1. STO+ | |
| ELSE INV END | |
| 240. tempo / * 'duration' STO | |
| IF tone x x SUB "-" SAME THEN 0. 'freq' STO | |
| ELSE | |
| 2. 12. XROOT 'r' STO | |
| 440. r -9. ^ * 'freq' STO | |
| IF tone x x SUB "#" SAME THEN 'freq' r STO* 'x' 1. STO+ END | |
| CASE | |
| tone x x SUB DUP "C" SAME SWAP "c" SAME OR THEN 0. END | |
| tone x x SUB DUP "D" SAME SWAP "d" SAME OR THEN 2. END | |
| tone x x SUB DUP "E" SAME SWAP "e" SAME OR THEN 4. END | |
| tone x x SUB DUP "F" SAME SWAP "f" SAME OR THEN 5. END | |
| tone x x SUB DUP "G" SAME SWAP "g" SAME OR THEN 7. END | |
| tone x x SUB DUP "A" SAME SWAP "a" SAME OR THEN 9. END | |
| tone x x SUB DUP "B" SAME SWAP "b" SAME OR THEN 11. END | |
| @Invalid Tone@ $ROMID #1d LIBDOERR | |
| END | |
| r SWAP ^ 'freq' STO* | |
| 'x' 1. STO+ | |
| CASE | |
| tone x x SUB "1" SAME THEN 0. END | |
| tone x x SUB "2" SAME THEN 1. END | |
| tone x x SUB "3" SAME THEN 2. END | |
| @Invalid Tone@ $ROMID #1d LIBDOERR | |
| END | |
| 2. SWAP ^ 'freq' STO* | |
| END | |
| freq duration 2. LIST | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ PLAYTUNE | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| PLAYTUNE | |
| « | |
| IF DEPTH THEN | |
| NOVAL tune tempo tune.decoded | |
| « | |
| tune " " TOKENIZE 1. «tempo DECTONE» DOLIST 'tune.decoded' STO | |
| WHILE 1. REPEAT | |
| tune.decoded 1. «LIST DROP BEEPK» DOLIST | |
| END | |
| » | |
| ELSE | |
| $music 125. «PLAYTUNE» | |
| END | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ GRAPHICS | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ RANDGROB | |
| @ | |
| @ #w #h grob | |
| @ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| RANDGROB | |
| « | |
| w h | |
| « | |
| w h PDIM | |
| #0 h #1 - | |
| FOR y | |
| #0 w #1 - | |
| FOR x | |
| IF RAND 0. RND THEN x y 2. LIST PIXON END | |
| NEXT | |
| NEXT | |
| PICT RCL | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ GAND | |
| @ | |
| @ grob_target coord grob_source grob | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| GAND | |
| « | |
| target coord source | |
| « | |
| IF target PICT SAME THEN | |
| PICT NEG PICT coord source NEG GOR PICT NEG | |
| ELSE | |
| target NEG coord source NEG GOR NEG | |
| END | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ ENCRYPTION | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ ENCRYPT | |
| @ | |
| @ ob key "ob_encrypted" | |
| @ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| ENCRYPT | |
| « | |
| TICKS RCLF ob key ticks flags | |
| « | |
| HEX | |
| key H SR ticks BR * RDZ | |
| ticks STR ob H DUP SIZE RANDSTR XOR + | |
| flags STOF | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ DECRYPT | |
| @ | |
| @ "ob_encrypted" key ob | |
| @ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| DECRYPT | |
| « | |
| NOVAL NOVAL ob key ticks offset | |
| « | |
| ob "h" POS 'offset' STO | |
| ob 1. offset SUB STR 'ticks' STO | |
| ob offset 1. + ob SIZE SUB 'ob' STO | |
| key H SR ticks BR * RDZ | |
| ob DUP SIZE RANDSTR XOR H | |
| » | |
| » | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ SYMBOLIC SECTION | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| @ CMDFUN - Define function from comand | |
| @ | |
| @ «command» | |
| @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ | |
| CMDFUN | |
| « | |
| command | |
| « | |
| command DUP COMP DROP2 SWAP DROP STR "X" + S~N STO | |
| » | |
| » | |
| END | |
| HOME 256 ATTACH '$D' PGDIR '$D' STO $D CRLIB | |
| HOME {$D $ROMID} RCL 1 TAG PURGE 1 STO {$D $ROMID} RCL ATTACH | |
| HOME '$D' PGDIR |