10 POKE -100%,42,247,143,34,28,254,42,251,143,34,30,254,62,42,50,0,128,201
20 S$='0123456789ABCDEF' : I=32768
30 READ A$ : FOR K%=1% TO 3% STEP 2%
40 H$=MID$(A$,K%,2%) : D%=INSTR(1%,S$,LEFT$(H$,1%)) : IF H$='NN' 70
50 E%=INSTR(1%,S$,RIGHT$(H$,2%)) : IF D%=0% OR E%=0% 1430
60 POKE I,(D%-1%)*16%+E%-1% : I=I+1
70 NEXT K% : GOTO 30
80 DATA 2A82,FFED,4B80,FF03,0303,ED5B,86FF,EDB8,C9ED,4B80,FF2A,86FF,AFED,5B80
90 DATA FF09,ED52,2B2B,030B
100 DATA B820,02B9,C82B,7718,F62A,86FF,7E1F,3F17,77C9,CD00,80C3,2D80
110 DATA 00CD,0080,2A86,FFCB,86C9,CD11,802A,86FF,AF77,2B77,2B3C,772B,CBFE,C937
120 DATA 1801,AF2A,82FF,7E30,012F,1F4F,2A84,FF7E,1FCB,1917,E603,2A82,FF2B,562B
130 DATA 5E2A,84FF,2B46,2B4E,218A,FFFE,0238,06CB,CE28,0818,1BFE,00CB,8E28,1560
140 DATA 69A7,ED52,3016,626B,A7ED,423A,8AFF,2F32,8AFF,1808,6069,1930,0321,FFFF
150 DATA 2288,FFC9,CD00,802A,86FF,CB4E,C211,802B,562B,5E7B,E607,328E,FF7B,CB3A
160 DATA 1FCB,3A1F,CB3A,1F5F,ED53,8CFF,2A80,FF2B,AFED,52D8,444D,B820,03B9,2803
170 DATA CD15,802A,86FF,2B2B,2BED,5B8C,FFAF,ED52,3A8E,FF47,AF04,1002,1804,371F
180 DATA 18F8,A677,C937,1801,AF2A,82FF,7E30,012F,NN2A,84FF,1F7E,17E6,0332
190 DATA 8BFF,0E00,FE00,2805,FE03,2801,0C08,7932,91FF,082B,2B2B,CB7E,2A82,FF20
200 DATA 0ECD,0380,2A86,FFCB,3ECB,3FCB,16C9,002B,2B2B,CB7E,2006,2A84,FFC3,0380
210 DATA CD57,802A,88FF,AFBC,202B,BD20,28ED,4B80,FF2A,82FF,2B2B,ED5B,84FF,1B1B
220 DATA 2B1B,1ABE,381A,2034,0BAF,B820,F3B9,20F0,08FE,00C2,1180,0818,2321,8AFF
230 DATA CB4E,281C,3A8B,FF4F,CB19,CB19,17E6,0332,8BFF,2A82,FFED,5B84,FFED,5382
240 DATA FF22,84FF,ED5B,88FF,2A80,FFAF,2929,292B,ED52,3009,2A84,FFCD,0380,C3D2
250 DATA 827B,E607,4F32,8EFF,0C7B,CB3A,1FCB,3A1F,CB3A,1F5F,ED53,8CFF,2A80,FFA7
260 DATA ED52,EB2A,82FF,2B2B,2BE5,23ED,52D9,ED4B,80FF,2A86,FFED,422B,2B54,5D2A
270 DATA 84FF,ED42,2B2B,08D9,41D1,D5EB,AFED,52EB,3801,7E23,D1D5,EBA7,ED52,EB1E
280 DATA 0038,015E,1002,1805,CB1B,1F18,F732,92FF,D93A,91FF,FE00,280C,08C5,3A92
290 DATA FF4F,7E99,12C1,1806,083A,92FF,8E12,0823,130B,AFB8,20B9,B920,B6E1,08EB
300 DATA 2B30,20AF,3294,FF32,93FF,3C32,92FF,ED4B,80FF,3708,08CB,1E08,0B2B,AFB8
310 DATA 20F6,B920,F318,4CAF,E5BE,2B03,28FB,0B23,C5DD,E1EB,2A80,FFAF,ED42,444D
320 DATA EBD1,D5ED,B8DD,E5C1,CD15,80E1,CB7E,2018,03ED,5B80,FFAF,ED52,0808,23CB
330 DATA 1608,1BAF,BA20,F6BB,20F3,18E4,DDE5,E129,2929,0922,92FF,3E02,3294,FF21
340 DATA 94FF,2282,FFCD,5A80,0600,0E03,218A,FFED,5B86,FFED,B82A,86FF,7E1F,5F3A
350 DATA 8BFF,1F1F,7B17,77C9,3718,01AF,082A,86FF,E522,84FF,2A8F,FF22,82FF,2286
360 DATA FFCD,4680,E122,86FF,08DA,0581,C308,812A,86FF,E52A,8FFF,2284,FF22,86FF
370 DATA CDB0,80E1,2286,FFCD,0581,C32D,802A,82FF,CB46,CAB0,80E5,2A86,FFE5,2A8F
380 DATA FF22,84FF,2286,FFCD,B080,CD05,812A,86FF,2B2B,2BCB,7EE1,2286,FFE1,2282
390 DATA FFCA,0080,CDB0,80C3,E182,D5CD,1180,D12A,86FF,AF77,2B77,0610,EBCB,7C20
400 DATA 0329,10F9,EB2B,702B,722B,73C9,ED4B,80FF,AFED,422B,2BBE,C023,0BB9,20F9
410 DATA B820,F6C9,2A82,FFCD,7183,5059,2A84,FFCD,7183,6069,19ED,538B,FFED,438D
420 DATA FFED,4B80,FFED,422A,8DFF,3803,C518,0419,E5ED,52ED,5230,1A2A,8DFF,228B
430 DATA FFED,538D,FF54,5D2A,82FF,ED4B,84FF,ED43,82FF,2284,FFAF,E1BA,2004,BBCA
440 DATA 1180,E52A,82FF,7E2A,84FF,8632,91FF,CD5A,802A,86FF,E52A,8FFF,2286,FFCD
450 DATA 1180,E122,86FF,ED5B,8BFF,2A82,FFAF,ED52,2B2B,0806,084E,D9AF,2A8F,FF2B
460 DATA 2B2B,C1C5,08CB,1E08,2B0B,B920,F7B8,20F4,D9CB,1938,0308,1827,D9AF,08AF
470 DATA 2A84,FFED,4B8D,FFED,422B,2BEB,2A8F,FFED,422B,2BEB,081A,8E12,1323,0B08
480 DATA B920,F5B8,20F2,D910,B923,1BAF,BB20,B0BA,20AD,08C1,3016,2A8F,FF2B,2B2B
490 DATA 0808,CB1E,2B0B,08AF,B920,F6B8,20F3,181A,2101,0022,92FF,3E02,3294,FF21
500 DATA 94FF,2282,FF21,8AFF,2284,FFCD,5A80,0103,00NN,218A,FFED,5B8F,FFED,B82A
510 DATA 8FFF,CD03,802A,86FF,4E3A,91FF,CB19,1FCB,1171,C92A,82FF,2284,FFC3,8583
520 DATA 3E02,1801,AF21,8AFF,2284,FF77,2B72,2B73,2A86,FF22,82FF,CD5A,80ED,5B86
530 DATA FF1A,218A,FFCB,1E1F,CB16,0103,00ED,B8C9,002A,82FF,2B2B,2BCB,7E2A,84FF
540 DATA 7E2B,2B2B,2016,CB7E,2003,C346,80CB,8F2A,86FF,773E,FF2B,772B,772B,77C9
550 DATA CB7E,2003,C311,802A,82FF,E508,CD71,8308,ED43,8BFF,E186,3291,FF2B,2B7E
560 DATA 3292,FFAF,7708,2A8F,FFED,5B80,FF19,2323,2322,8DFF,3600,EB1B,2A84,FF2B
570 DATA 2B2B,ED4B,80FF,EDB8,EB36,00E5,2A80,FF54,5DED,4B8B,FFAF,ED42,E5DD,E1C1
580 DATA 0922,88FF,2293,FF2A,8FFF,1306,08D9,ED5B,8DFF,ED4B,8BFF,032A,82FF,2B2B
590 DATA 1ABE,382B,200A,0B1B,2BAF,B920,F3B8,20F0,ED4B,8BFF,ED5B,93FF,1303,2A82
600 DATA FFED,422B,0808,1A9E,1213,230B,08B9,20F5,B820,F23F,D9CB,16D9,AF2A,93FF
610 DATA ED4B,8BFF,0303,0808,CB16,230B,08B9,20F7,B820,F4D9,10A3,2B1B,E5DD,E5E1
620 DATA BD20,03BC,280E,DD2B,2A88,FF2B,7E22,88FF,2A93,FF77,E1AF,BB20,82BA,C267,853A,92FF
630 DATA 2A82,FF2B,2B77,CD57,802A,8FFF,AFCB,7E20,15ED,4B80,FFED,4203,08CB,1608
640 DATA 0B23,B920,F7B8,20F4,1813,2194,FF22,84FF,772B,773C,2B77,218A,FF22,82FF,CD5A
650 DATA 80ED,5B86,FF21,8AFF,CB1E,3A91,FF1F,CB16,0103,00ED,B82A,8FFF,ED4B,80FF
660 DATA EDB8,C92A,82FF,7E2B,2B2B,CB7E,CA11,80CB,47CA,4680,CD46,80C3,2D80,3E01
670 DATA 1801,AF2A,82FF,E52A,84FF,E5F5,CD78,8AC1,E1D1,1F80,CB47,2001,EBC3,0380
680 DATA 0000,0000,0000,0000,0000,0000,0000,0000,0000,0021,0000,3E10,29EB,ED6A
690 DATA EB30,0409,3001,133D,20F2,C900,0000,0000,0000,0000,0000,0000,0000,0000
700 DATA 0000,0000,0000,0000,0000,0000,0000,0000,0000,0000,0000,0000,0000,0000
710 DATA 0000,00ED,4B80,FF03,0303,CD8D,86ED,5B8F,FF19,C9D5,E5CD,1180,E1D1,ED4B
720 DATA 86FF,AF02,0B02,0B3E,20CB,7A20,0829,EBED,6AEB,3D20,F402,0B7A,020B,7B02
730 DATA 0B7C,020B,7D02,C95E,2356,23E5,ED4B,B386,CD8D,86D1,EB4E,2346,EB09,EBC9
740 DATA 2AB9,86CD,5B83,2B77,2B77,2AB9,8622,82FF,2AB5,8622,84FF,2286,FFC9,1101
750 DATA 00CD,D186,22BB,8609,2286,FF22,B586,0922,B786,E509,22B9,86E5,CD46,80E1
760 DATA 2286,FFCD,1180,E122,86FF,CD11,8021,0000,22B3,862A,A186,2B2B,2BCB,7EC8
770 DATA 2AB3,8623,22B3,862A,A186,CD2F,8721,A386,CD0D,87BA,2004,3CBB,2817,CD22
780 DATA 872A,A186,2284,FF2A,BB86,2286,FFE5,CD85,83E1,CD2F,87CD,8583,21A7,86CD
790 DATA 0D87,D5NN,23CD,0D87,C1CD,8D86,BA20,0ABB,2007,BC20,043C,BD28,0DED,4BB9
800 DATA 86CD,EC86,CD2C,87CD,E184,CD86,8CNN,NN21,AF86,CD0D,87BA,2004,3CBB,2812
810 DATA CD22,872A,BB86,2286,FFCD,E184,2ABB,8622,82FF,2AB7,8622,84FF,2286,FFCD
820 DATA 5780,2A80,FF29,2929,ED5B,88FF,3AB3,86FE,0538,03ED,52D8,CD08,81C3,7687
830 DATA 0000,3E02,1801,AF11,0100,C3B9,84CD,3B89,NN2A,86FF,22A3,862A,82FF,2B2B,2BCB,7ECA,1180
840 DATA 1101,00CD,D186,2322,A586,2286,FFCD,0080,122A,80FF,2322,80FF,2A82,FFED
850 DATA 5BA3,867E,12CB,4F2B,1B46,2B4E,791F,3003,2001,03AF,CB18,CB19,EB70,2B71
860 DATA E52A,A586,2286,FF77,2B77,2B7E,2FE6,013C,77CD,E182,1102,00CD,B484,2A8F
870 DATA FFCB,CE2B,2B2B,CBEE,AF2A,A586,2B2B,2BCB,7E32,A786,283D,2323,ED5B,8FFF
880 DATA 1B06,021A,BE38,3020,181B,2B10,F6ED,4B80,FF1A,BE38,0C20,201B,2B0B,AFB8
890 DATA 20F3,B920,F021,A786,342A,A586,2284,FF22,86FF,2A8F,FF22,82FF,CD05,812A
900 DATA 8FFF,2B56,2BE5,5E13,7323,722A,80FF,2B29,2929,ED52,E138,2B1B,7B06,03CB
910 DATA 3ACB,1B10,FAE6,07ED,522B,473E,0890,474F,CB3E,10FC,3AA7,86CB,F70F,41CB
920 DATA 27CB,1610,FA2B,77C3,9888,ED4B,80FF,0BED,4380,FF2B,D11B,EDB8,2AA3,8622
930 DATA 86FF,C92A,86FF,2282,FFC9,1101,00D5,CD00,80D1,C3B8,8411,0100,D5CD,0080
940 DATA D1C3,B484,2A86,FF22,82FF,C3AB,84CD,3B89,2AA1,8622,84FF,CD85,83C3,E482
950 DATA 2100,0022,A386,22AB,8622,AF86,2322,B186,22A5,8622,A786,22AD,8623,22A9
960 DATA 86C9,CDAB,8DE5,22A1,86ED,5B80,FFD5,1313,ED53,80FF,13AF,ED52,E556,772B
970 DATA 5E77,D521,0000,22BD,8622,BE86,CD21,882A,86FF,CB4E,2018,2B56,2B5E,ED53
980 DATA BE86,2112,00AF,7DED,5238,017B,32BD,86CD,B484,CD1D,88CD,7089,CD3C,87CD
990 DATA E482,CD1D,88CD,6189,CD61,893A,BD86,FE00,2809,3D32,BD86,CD58,8918,F0D1
1000 DATA E172,2B73,E122,80FF,E122,86FF,CDB9,8DC3,0380,1107,00CD,D186,2282,FFC9
1010 DATA 1107,00CD,D186,2284,FFC9,1102,00CD,D186,2286,FFC9,CD3B,89E5,CD22,8A22
1020 DATA 84FF,CD46,80E1,2286,FFC3,E184,CD3B,89C3,1E83,CD21,8811,0700,CD1B,8ACD
1030 DATA 3B89,CD05,81C3,1D88,1100,002A,86FF,E52A,8FFF,2286,FFCD,5383,E122,86FF
1040 DATA 2A8F,FF22,82FF,2A86,FF22,84FF,2A86,FFE5,2A8F,FF22,86FF,E5CD,0581,E1AF
1050 DATA 3C4E,2B2B,2BCB,7E28,063C,CB41,2801,AFE1,2286,FF32,3C80,C92A,86FF,E54E
1060 DATA C5CB,86CD,5B8A,C1E1,71C9,CD21,8811,0100,CD9F,8AF5,CD1D,88F1,C911,0100
1070 DATA CD9F,8AFE,02E5,203D,E1CD,468A,2A86,FFE5,2284,FFCD,228A,CD0E,8ACD,E184
1080 DATA CDE4,82CD,1D88,CD40,8ACD,3B89,CD18,8ACD,8583,CD21,88CD,3B89,E1E5,2284
1090 DATA FF22,86FF,CD05,81CD,4080,CD46,8A11,0500,CD25,8A22,A186,E1E5,CD5B,89CD
1100 DATA 2D80,CD70,8922,AB86,CD83,89CD,3C87,CDE4,8211,0600,CD22,872A,B786,2284
1110 DATA FF22,86FF,CDE1,84CD,6189,CD3B,89E1,2284,FF22,86FF,C385,832A,86FF,22A1
1120 DATA 86CD,7089,22A3,8622,A786,22AF,8623,22B1,86CD,3C87,CD1D,8811,0600,CD22
1130 DATA 87CD,4680,CDE1,84CD,3B89,2AB7,8622,84FF,CD08,81C3,6189,CDD9,8B28,14E5
1140 DATA CDE1,8BCD,478B,CD3B,89E1,2286,FF22,84FF,C385,837E,F5E5,CB86,CDE1,82CD
1150 DATA 2D80,CD1D,88E1,E5CB,4628,03CD,1180,CD47,8BE1,E522,86FF,CD28,88CD,2188
1160 DATA CD3B,892A,B586,2284,FFCD,8583,CD46,8AE1,F1CB,1E1F,CB16,C9CD,7E8B,C346
1170 DATA 8ACD,AE8A,FE02,C33B,8911,0500,CD25,8AC3,AB84,CDD9,8B28,2CE5,CDE1,8BCD
1180 DATA 2D80,CD70,8922,AF86,2322,B186,2B2B,22A9,862B,22A7,862A,86FF,22A1,86CD
1190 DATA 3C87,1103,00CD,668B,C38A,8B7E,F5E5,CD58,89CD,E482,CD28,88CD,2C8A,CDD3
1200 DATA 8BC3,CB8B,1107,00CD,D186,EB2A,1CFE,2B44,4D2B,ED52,D823,AF02,0B2B,BC20
1210 DATA FABD,20F7,C900,0000,0000,0000,0000,0000,0000,0000,0021,8986,1808,21D0
1220 DATA 8618,0321,5C8C,0110,0011,B286,EDB8,2A86,FF22,A186,E5CD,3C87,E122,86FF
1230 DATA 2AB7,86C3,0380,2AB5,8622,82FF,C92A,86FF,E511,0500,CD25,8A22,A186,E1E5
1240 DATA CD5B,89CD,2D80,CD70,8922,A786,22AF,862B,2B22,A986,CD3C,87CD,E482,CD3B
1250 DATA 89E1,E522,84FF,CD85,83CD,0E8A,2AB9,8622,86FF,CD4D,89CD,2888,CD3B,892A
1260 DATA B786,2284,FFE1,2286,FFCD,E184,CDE4,82C3,1D88,2A86,FF11,BF86,0103,00ED
1270 DATA B8CB,C7CB,7ECA,F984,23AF,7723,7723,77E5,22A1,86CD,E182,CD2D,80CD,7089
1280 DATA 22B1,862B,22AF,8622,A986,2B22,A786,CD3C,87CD,2188,CDE4,82CD,1D88,CD61
1290 DATA 89CD,3B89,E1E5,2286,FF22,84FF,CD85,83ED,5BBD,86CD,2287,E511,0600,CD1B
1300 DATA 8ACD,8583,E13A,BF86,CB1E,1F1F,CB16,2284,FFE1,2286,FF22,82FF,C305,812A
1310 DATA 86FF,E511,0500,CD25,8ACD,0080,E122,86FF,2A84,FFCD,0380,CDE6,8C11,0500
1320 DATA CD1B,8ACD,3B89,CD85,83C3,8E89,CDE6,8C2A,86FF,E511,0500,CD25,8A11,0A00
1330 DATA CD53,83CD,E68C,CD3B,89E1,2286,FF22,84FF,C3E1,842A,8FFF,2B2B,2B2B,228F
1340 DATA FF2A,86FF,C92A,8FFF,2323,2323,228F,FF2A,B786,C9CD,3B89,C345,86CD,3B89
1350 DATA C304,83C3,308C,C333,8CC3,588A,C3AE,8AC3,5B8A,C39F,8AC3,728A,C378,8AC3
1360 DATA 0881,C305,81C3,8583,C3E1,84C3,5F8D,C35C,86C3,6086,C353,83C3,1180,C346
1370 DATA 80C3,E482,C3E1,82C3,468A,C300,80CD,0080,C32D,80C3,4586,C3C7,8DC3,3D80
1380 DATA C340,80C3,B080,C3B3,80C3,1E83,C340,8AC3,0483,C3CD,8DCD,0080,C32C,8AC3
1390 DATA AB84,C358,89CD,0080,C321,88CD,0080,C31D,88C3,4589,C3B8,84C3,5089,C3B4
1400 DATA 84CD,0080,C328,88CD,0080,C38E,89CD,0080,C3BD,8ACD,0080,C3CC,8ACD,0080
1410 DATA C37E,8BCD,0080,C3D3,8BCD,0080,C3EA,8BCD,0080,C3E6,8CCD,0080,C388,8DCD
1420 DATA 0080,C38D,8CCD,0080,C35D,8CCD,0080,C362,8CCD,0080,C367,8CSS
1430 POKE -29013%,171%,142%,62%,15%,50%,171%,142%,17%,12%,0%,205%,37%,138%,17%,2%
1440 POKE -28998%,0%,205%,0%,142%,17%,13%,0%,205%,37%,138%,17%,4%,0%,205%,0%
1450 POKE -28983%,142%,17%,14%,0%,205%,37%,138%,17%,6%,0%,205%,0%,142%,17%,10%
1460 POKE -28968%,0%,205%,37%,138%,17%,9%,0%,205%,17%,138%,205%,93%,142%,17%,8%
1470 POKE -28953%,0%,205%,37%,138%,17%,2%,0%,205%,0%,142%,205%,144%,143%,17%,8%
1480 POKE -28938%,0%,205%,37%,138%,17%,3%,0%,205%,0%,142%,205%,144%,143%,17%,8%
1490 POKE -28923%,0%,205%,37%,138%,17%,5%,0%,205%,0%,142%,205%,144%,143%,17%,8%
1500 POKE -28908%,0%,205%,37%,138%,17%,1%,0%,205%,0%,142%,205%,125%,143%,17%,14%
1510 POKE -28893%,0%,205%,138%,143%,205%,125%,143%,17%,13%,0%,205%,138%,143%,205%,125%
1520 POKE -28878%,143%,17%,12%,0%,205%,138%,143%,205%,125%,143%,17%,13%,0%,205%,138%
1530 POKE -28863%,143%,205%,125%,143%,17%,12%,0%,205%,138%,143%,205%,125%,143%,17%,13%
1540 POKE -28848%,0%,205%,138%,143%,205%,125%,143%,17%,14%,0%,205%,138%,143%,205%,125%
1550 POKE -28833%,143%,17%,12%,0%,205%,138%,143%,17%,10%,0%,205%,37%,138%,17%,8%
1560 POKE -28818%,0%,205%,17%,138%,205%,114%,138%,58%,60%,128%,183%,194%,30%,143%,201%
1570 POKE -28803%,17%,8%,0%,205%,37%,138%,17%,8%,0%,205%,27%,138%,201%,205%,17%
1580 POKE -28788%,138%,205%,8%,129%,17%,11%,0%,205%,37%,138%,17%,9%,0%,205%,27%
1590 POKE -28773%,138%,17%,8%,0%,205%,17%,138%,205%,225%,132%,17%,15%,0%,205%,37%
1600 POKE -28758%,138%,17%,11%,0%,205%,17%,138%,205%,4%,131%,17%,15%,0%,205%,37%
1610 POKE -28743%,138%,205%,88%,138%,58%,60%,128%,61%,192%,33%,171%,142%,52%,94%,22%
1620 POKE -28728%,0%,205%,37%,138%,17%,8%,0%,205%,17%,138%,205%,18%,142%,17%,9%
1630 POKE -28713%,0%,205%,37%,138%,17%,11%,0%,205%,17%,138%,205%,18%,142%,17%,10%
1640 POKE -28698%,0%,205%,37%,138%,17%,9%,0%,205%,17%,138%,205%,93%,142%,195%,144%
1650 POKE -28683%,143%,0%
1660 ONERRORGOTO 1660 : ; CHR$(12)CHR$(7)CUR(10,15)'BOFA:'; : INPUT A
1670 IF A<37000 OR A>62000 THEN 1660 ELSE POKE 65052,A,SWAP%(A) : POKE 36855,A,SWAP%(A)
1680 ; CHR$(12)CUR(3,0)'BASIC-PROGRAMMET SIMULERAR EN RPN-' : ; 'KALKYLATOR MED 4 REGISTER I STACK,'
1690 ; 'LASTX-REGISTER OCH GENERELLA REGISTER,' : ; 'VARS ANTAL BEROR P] BOFA OCH ANTALET'
1700 ; 'BYTES I MANTISSAN. EN BYTE MOTSVARAR' : ; 'UNGEF[R 2.4 DECIMALA SIFFROR!'
1710 ; 'DESSUTOM HANTERAS ASSEMBLER-RUTINEN SOM' : ; 'DELAR HELTAL I SINA PRIMFAKTORER!' : ; : ; 
1720 ; 'Om du g|r RESET f|r att avbryta' : ; 'maskinprogrammet exempelvis,f}r du '
1730 ; 'basicprogrammet tillbaka,n{r du' : ; 'sl}r in:' : ; : ; TAB(9)';CALL(-100) RETURN' : CHAIN 'RPN'