Nem sokkal ezelőtt hozzájutottam egy HP-28C retro programozható grafikus zsebszámológéphez, íme az első néhány programom, RPL nyelven:
1. példa: Hang lejátszás BEEP utasítással, ciklussal, 100-tól 2000-es frekvenciákon, 100-as lépésközzel:
<< 0 100 2000 FOR I I .2 BEEP 100 STEP >>
2. példa: Véletlenszerű pontok a kijelzőre:
<< CLLCD
(0,0) PMIN
(1,1) PMAX
1 100 FOR I
RAND 'A' STO
RAND 'B' STO
A B R->C PIXEL
NEXT >>
3. példa: Pixel-sűrűséges "átmenet" a kijelzőn:
<< CLLCD
(0,0) PMIN
(1,1) PMAX
1 10000 FOR I
RAND 'A' STO
RAND 'B' STO
IF RAND A > AND RAND A >
THEN A B R->C PIXEL
END
NEXT >>