%%%%%%%%%%%%%%%% % % % UNASS v2 % % (c) A.Raclot % % % %%%%%%%%%%%%%%%% GOSBVL 0679B %SaveReg %Test si au moins %deux arguments D1=D1+ 5 LC 806FD CD1EX A=DAT1 A ?AC A GOYES Ok %Nouvelle taille %Drop2 %Chaine sur la pile GOSBVL 16671 %NewLen GOSBVL 067D2 %LoadReg D1=D1+ 10 D=D+1 A D=D+1 A A=R0 PC=(A) *Ok D1=C %Test Memoire Ok A=R2 CD0EX ?A‰C A GOYES Error D0=C %Retour a la ligne LC 0A DAT0=C B D0=D0+ 2 %Affichage de %l'adresse courante AD1EX D1=A C=R4 A=A-C A ASRB A C=R3 A=A+C A B=A A D0=D0+ 10 LC 20 DAT0=C B LC 4 D=C A LC 9 A=C A *CinqCar LC 30 C=C+B P ?AŠC P GOYES NonLettre C=C+7 B *NonLettre D0=D0- 2 DAT0=C B BSR A D=D-1 P GONC CinqCar D0=D0+ 12 C=DAT1 6 DAT0=C 6 D0=D0+ 6 GOSUBL Line GOSUBL Read A=A+1 A A=A+1 A A=A+A A C=A A A=A+A A A=A+C A C=PC C=C+A A GOSUBL Read PC=C GOLONG L0 GOLONG L1 GOLONG L2 GOLONG L3 GOLONG L4 GOLONG L5 GOLONG L6 GOLONG L7 GOLONG L8 GOLONG L9 GOLONG LA GOLONG LB GOLONG LC GOLONG LD GOLONG LE GOLONG LF %%%%% *L0 %%%%% LC E ?A‹C P GOYES L0‹E D0=D0- 14 D1=D1+ 2 C=DAT1 B DAT0=C B D0=D0+ 2 GOSUBL Line GOSUBL Read D0=D0+ 6 LC 21 ?ABIT=1 3 GOYES Test0E C=C+5 P *Test0E DAT0=C B D0=D0+ 2 GOSUB Data0E $23131234231312342313 *L0‹E D0=D0- 16 GOSUBL Line GOSUB Data0‹E $2545E43585D42545E40202022545E43534022545E4343402355445845485355445445434253545B4D33434D3253545B434C42535450234D3354502023545D334020234354556870205D305B2130205D305D21302020202020202254594020202 *Data0E C=RSTK A=A+C A LC 40 AD1EX C=DAT1 1 DAT0=C B D0=D0- 8 D1=D1+ 4 C=DAT1 1 AD1EX DAT0=C B D0=D0+ 4 DAT0=C B D0=D0- 2 LC 3D DAT0=C B D0=D0+ 8 LC 202020 DAT0=C 6 D0=D0+ 6 D1=D1- 4 GOSUBL Read D1=D1+ 2 *Ch_eco GOSUBL Champ GOTO Test %%%%% *L1 %%%%% A=A+A A A=A+A A A=A+12 B C=PC C=C+A A GOSUBL Read PC=C GOTO L10 GOTO L11 GOTO L12 GOTO L13 GOTO L14 GOTO L15 GOTO L16 GOTO L17 GOTO L18 GOTO L19 GOTO L1A GOTO L1B GOTO L1C GOTO L1D GOTO L1E GOTO L1F *L10 GOSUB M10 GOTO Test *M10 LC 413D3052 ?ABIT=0 3 GOYES Test10 P= 6 LC 3 P= 0 *Test10 ABIT=0 3 DAT0=C 8 D0=D0+ 2 DAT0=A P D0=D0+ 6 RTN *L11 GOSUB M11 GOTO Test *M11 LC 30523D41 ?ABIT=0 3 GOYES Test11 LC 3 *Test11 DAT0=C 8 D0=D0+ 6 ABIT=0 3 DAT0=A P D0=D0+ 2 RTN *L12 GOSUB M12 GOTO Test *M12 LC 5845305241 ?ABIT=0 3 GOYES Test12 LC 3 *Test12 DAT0=C 10 D0=D0+ 4 ABIT=0 3 DAT0=A P D0=D0+ 6 RTN *L13 ?ABIT=0 1 GOYES AA2 LC 41 ?ABIT=0 2 GOYES AA1 LC 3 *AA1 DAT0=C B D0=D0+ 2 *AA2 LC 3044 ?ABIT=0 0 GOYES AA3 LC 144 *AA3 DAT0=C 4 D0=D0+ 4 ?ABIT=1 1 GOYES AA4 LC 3D DAT0=C B D0=D0+ 2 *AA4 GOSUB AA5 $1402 $5485 $3402 $5485 $1435 $8535 $3435 $8535 *AA5 C=RSTK ABIT=0 0 C=C+A A C=C+A A CD0EX A=DAT0 4 CD0EX DAT0=A 4 D0=D0+ 4 GOTO Test *L14 GOSUB DATX LC 41 ?ABIT=0 3 GOYES AB C=C+1 A *AB DAT0=C B D0=D0+ 2 GOTO Test *DATX ?ABIT=0 1 GOYES BB2 LC 3D41 ?ABIT=0 2 GOYES BB1 LC 3 *BB1 DAT0=C 4 D0=D0+ 4 *BB2 LC 544144 DAT0=C 6 D0=D0+ 6 LC 30 ?ABIT=0 0 GOYES BB3 LC 1 *BB3 DAT0=C B D0=D0+ 2 ?ABIT=1 1 GOYES BB5 LC 413D ?ABIT=0 2 GOYES BB4 LC 33D *BB4 DAT0=C 4 D0=D0+ 4 *BB5 LC 2020 DAT0=C 4 D0=D0+ 4 RTN *L15 D0=D0- 14 C=DAT1 B DAT0=C B D0=D0+ 2 GOSUBL Line GOSUB DATX LC 7 ?A>C P GOYES AX GOSUBL Read GOTO Ch_eco *AX GOSUBL Read *Nb+1_eco GOSUBL Nb+1 GOTO Test *L16 LC 20202B30443D3044 *D0D1_eco DAT0=C W D0=D0+ 16 GOTO Nb+1_eco *L17 LC 20202B31443D3144 GOC D0D1_eco *L18 LC 20202D30443D3044 GOC D0D1_eco *L1C LC 20202D31443D3144 GOC D0D1_eco *Env5 GOSUB Envers *Env4 GOSUB Envers GOSUB Envers *Env2 GOSUB Envers *Envers C=DAT1 B DAT0=C B D1=D1- 2 D0=D0+ 2 RTN *D0= GOSUBL Line LC 3044 *D?=Space DAT0=C 4 D0=D0+ 4 LC 202020203D DAT0=C 10 D0=D0+ 10 RTN *D1= GOSUBL Line LC 3144 GOTO D?=Space *L19 D0=D0- 14 GOSUB Envers D1=D1+ 2 GOSUB D0= *K19 GOSUB Env2 D1=D1+ 6 GOTO Test *L1A D0=D0- 14 C=DAT1 6 DAT0=C 6 D0=D0+ 6 D1=D1+ 4 GOSUB D0= *K1A GOSUB Env4 D1=D1+ 10 GOTO Test *L1B D0=D0- 14 C=DAT1 8 DAT0=C 8 D0=D0+ 8 D1=D1+ 6 GOSUB D0= *K1B GOSUB Env5 D1=D1+ 12 GOTO Test *L1D D0=D0- 14 GOSUB Envers D1=D1+ 2 GOSUB D1= GOTO K19 *L1E D0=D0- 14 C=DAT1 6 DAT0=C 6 D0=D0+ 6 D1=D1+ 4 GOSUB D1= GOTO K1A *L1F D0=D0- 14 C=DAT1 8 DAT0=C 8 D0=D0+ 8 D1=D1+ 6 GOSUB D1= GOTO K1B *Data0‹E C=RSTK A=A+A A A=A+A A C=C+A A A=A+A A C=C+A A CD0EX A=DAT0 12 CD0EX DAT0=A 12 D0=D0+ 12 GOTO Test %%%%% *L2 %%%%% D0=D0- 16 GOSUBL Line LC 2020202020203D50 DAT0=C W D0=D0+ 16 *Nb_eco GOSUBL Nb GOTO Test %%%%% *L3 %%%%% D=0 A D0=D0- 16 *LAHEX B=A A *K3 C=DAT1 B DAT0=C B D1=D1+ 2 D0=D0+ 2 B=B-1 A GONC K3 GOSUBL Line LC 202020202020434C ?D=0 A GOYES LCHEX CBIT=0 9 *LCHEX DAT0=C W D0=D0+ 16 D1=D1- 2 B=A A *J3 GOSUB Envers B=B-1 A GONC J3 A=A+1 A A=A+1 A A=A+A A CD1EX C=C+A A CD1EX GOTO Test %%%%% *L4 %%%%% GOSUB Read2 ?C=0 B GOYES Rtnc LC 2020202020434F47 *SautCond DAT0=C W D0=D0+ 16 AD1EX D1=A C=R4 A=A-C A ASRB C=R3 A=A+C A A=A-1 A A=A-1 A C=B A ?CBIT=0 7 GOYES Av C=-C B C=-C A *Av A=A+C A GOSUBL Add GOTO Test *Rtnc LC 434E5452 DAT0=C 8 D0=D0+ 8 GOTO Test *Read2 C=A A GOSUBL Read ASL A C=C+A A B=C A RTN %%%%% *L5 %%%%% GOSUB Read2 ?C=0 B GOYES Rtnnc LC 20202020434E4F47 GOTO SautCond *Rtnnc LC 434E4E5452 *Cinq DAT0=C 10 D0=D0+ 10 *Test_eco GOTO Test %%%%% *L6 %%%%% GOSUB Read3 C=0 A LC 3 RSTK=C LC 202020204F544F47 *Aff3 DAT0=C W D0=D0+ 16 AD1EX D1=A C=R4 A=A-C A ASRB C=R3 A=A+C A C=RSTK A=A-C A C=B A ?CBIT=0 11 GOYES Avv C=-C X C=-C A *Avv GOTO Av *Read3 D0=D0- 16 C=DAT1 4 DAT0=C 4 D0=D0+ 4 GOSUBL Line C=A A GOSUBL Read B=A A GOSUBL Read ASL A B=B+A A BSL A B=B+C A RTN %%%%% *L7 %%%%% GOSUB Read3 C=0 A RSTK=C LC 2020204255534F47 GOTO Aff3 %%%%% *L8 %%%%% A=A+A A A=A+A A A=A+12 B C=PC C=C+A A GOSUBL Read PC=C GOTO L80 GOTO L81 GOTO L82 GOTO L83 GOTO L84 GOTO L85 GOTO L86 GOTO L87 GOTO L88 GOTO L89 GOTO L8A GOTO L8B GOTO L8C GOTO L8D GOTO L8E GOTO L8F *L80 LC 8 ?AŠC P GOYES L808+ GOSUB Data0‹E $F45545D33435 $F45545D33402 $14D394E40202 $34D394E40202 $55E434E46474 $34F4E4649474 $34D394440202 $3584554544E4 *L808+ C=C+1 A ?A‹C P GOYES L809‹ LC 312B502B43 GOTO Cinq *L809‹ C=C+1 A ?A‹C P GOYES L80A‹ LC 5445534552 GOTO Cinq *L80A‹ C=C+1 A ?A‹C P GOYES L80B‹ LC 4343535542 GOTO Cinq *L80B‹ LC E ?A‹C P GOYES L80E‹ LC 3F51455253 GOTO Cinq *L80E‹ D0=D0- 14 C=DAT1 B DAT0=C B D0=D0+ 2 GOSUBL Line LC 8 ?A=C P GOYES L808 LC C ?A‹C P GOYES L80C‹ LC 20503D43 GOTO CDF *L80C‹ C=C+1 A ?A‹C P GOYES L80D‹ LC 20433D50 GOTO CDF *Quatre DAT0=C 8 D0=D0+ 8 RTN *L80D‹ LC 58455043 *CDF GOSUB Quatre LC 20202020 GOSUB Quatre GOSUBL Read GOTO Nb_eco *L808 GOSUBL Read ?A‹0 P GOYES L8080‹ LC 4E4F544E49 GOTO Cinq *L8080‹ LC 3 ?A‹C P GOYES L8083‹ LC 4243535542 GOTO Cinq *L8083‹ A=A-12 B GOC L808(C-F)‹ GOSUB Data808(C-F) $0534D3821492 $245535344402 $0534D3823492 $94E445F46464 *Data808(C-F) C=RSTK A=A+A A A=A+A A C=C+A A A=A+A A C=C+A A CD0EX A=DAT0 12 CD0EX DAT0=A 12 D0=D0+ 12 GOTO Test_eco *L808(C-F)‹ D0=D0- 14 C=DAT1 B DAT0=C B D0=D0+ 2 GOSUBL Line LC 6 ?A‰C P GOYES L808(1-2) ?ABIT=0 1 GOYES ‹? LC 3F DAT0=C B D0=D0+ 2 *‹? LC 54494241 ?ABIT=0 2 GOYES =A C=C+1 A C=C+1 A *=A GOSUB Quatre LC 2020303D ?ABIT=0 0 GOYES ‹0 CBIT=1 8 *‹0 GOSUB Quatre ?ABIT=0 1 GOYES ‹?back D0=D0- 2 GOSUBL Read GOSUBL Nb GOTO Yes_eco *‹?back GOSUBL Read GOTO Nb_eco *L808(1-2) ?A=C P GOYES L8082 LC 2020495352 D1=D1+ 2 GOTO Cinq *L8082 D=C A D0=D0- 14 GOSUBL Read GOTO LAHEX *L82 LC 1 ?A‹C P GOYES XM‹ LC 4D58 GOTO XSSM *XM‹ LC 2 ?A‹C P GOYES SB‹ LC 4253 GOTO XSSM *SB‹ LC 4 ?A‹C P GOYES SR‹ LC 5253 GOTO XSSM *SR‹ LC 8 ?A‹C P GOYES MP‹ LC 504D GOTO XSSM *MP‹ LC 545348524C43 DAT0=C 12 D0=D0+ 12 GOTO Test_eco *XSSM DAT0=C 4 D0=D0+ 4 LC 303D DAT0=C 4 D0=D0+ 4 GOTO Test_eco *L83 B=0 A LC 4D583F B=B+1 A ?A=B P GOYES QQQ LC 42533F B=B+1 A ?A=B P GOYES QQQ LC 52533F B=B+B A ?A=B P GOYES QQQ LC 504D3F *QQQ DAT0=C 6 D0=D0+ 6 LC 303D DAT0=C 4 D0=D0+ 4 *Yes_eco GOLONG Yes *L84 GOSUB M84 GOTO Nb_eco *M84 LC 303D5453 GOTO K85 *L85 GOSUB M85 GOTO Nb_eco *M85 LC 313D5453 *K85 GOSUB Quatre LC 20202020 GOSUB Quatre RTN *L86 LC 3F DAT0=C B D0=D0+ 2 GOSUB M84 D0=D0- 2 *Nbyes_eco GOSUBL Nb GOLONG Yes *L87 LC 3F DAT0=C B D0=D0+ 2 GOSUB M85 D0=D0- 2 GOTO Nbyes_eco *L88 LC 208B503F GOSUB K85 GOTO Nbyes_eco *L89 LC 203D503F GOSUB K85 GOTO Nbyes_eco *L8B ABIT=1 4 *L8A LC F B=C P *L9_eco LC 3F DAT0=C B D0=D0+ 2 GOSUB Data8(A-B) $24D314 $34D324 $14D334 $34D344 $24B814 $34B824 $14B834 $44B834 $14D303 $24D303 $34D303 $44D303 $14B803 $24B803 $34B803 $44B803 $14E324 $24E334 $34E314 $44E334 $14C324 $24C334 $34C314 $44C334 $14A824 $24A834 $34A814 $44A834 $149824 $249834 $349814 $449834 *Data8(A-B) C=RSTK A=A+A A C=C+A A A=A+A A C=C+A A CD0EX A=DAT0 6 CD0EX DAT0=A 6 D0=D0+ 6 LC 20202020 GOSUB Quatre A=B A GOSUBL Champ GOLONG Yes *Read4 D0=D0- 14 C=DAT1 6 DAT0=C 6 D0=D0+ 6 GOSUBL Line C=A A D=C A GOSUBL Read C=A A GOSUBL Read B=A A GOSUBL Read ASL A B=B+A A BSL A B=B+C A BSL A C=D A B=B+C A RTN *L8C GOSUB Read4 C=0 A LC 4 RSTK=C LC 2020474E4F4C4F47 *Aff4 DAT0=C W D0=D0+ 16 AD1EX D1=A C=R4 A=A-C A ASRB C=R3 A=A+C A C=RSTK A=A-C A C=B A ?CBIT=0 15 GOYES Avvv P= 3 C=-C WP P= 0 C=-C A *Avvv GOLONG Av *L8E GOSUB Read4 C=0 A RSTK=C LC 20204C4255534F47 GOLONG Aff4 *L8D D0=D0- 14 C=DAT1 8 DAT0=C 8 D0=D0+ 8 GOSUBL Line LC 2020474E4C564F47 *Long_eco DAT0=C W D0=D0+ 16 LC 4 B=C A D1=D1+ 6 *evif C=DAT1 B DAT0=C B D0=D0+ 2 D1=D1- 2 B=B-1 P GONC evif D1=D1+ 12 GOTO Test_eco *L8F D0=D0- 14 C=DAT1 8 DAT0=C 8 D0=D0+ 8 GOSUBL Line LC 20204C5642534F47 GOTO Long_eco *L81 LC 8 ?AŠC P GOYES L81(0-7)‹ LC 434C5341 ?ABIT=0 2 GOYES LR LC 525341 *LR ABIT=0 2 C=C+A A GOSUB Quatre *Test_eco_eco GOTO Test_eco *L81(0-7)‹ ?A=C P GOYES L818= GOTO L818‹ *L818= D0=D0- 14 C=DAT1 6 DAT0=C 6 D0=D0+ 6 GOSUBL Line D1=D1+ 2 GOSUBL Read LC 2B413D41 ?ABIT=0 3 GOYES Plus P= 6 LC D P= 0 ABIT=0 3 *Plus C=C+A A ASL A ASL A ASL A ASL A C=C+A A GOSUBL Quatre GOSUBL Read B=A A GOSUBL Nb+1 LC 202020 DAT0=C 6 D0=D0+ 6 LC 8 ?CŠB P GOYES Esp D0=D0- 2 *Esp D1=D1- 6 GOSUBL Read GOSUBL Champ D1=D1+ 4 GOTO Test_eco_eco *L818‹ C=C+1 A ?A‹C P GOYES L819‹ D0=D0- 14 C=DAT1 4 D1=D1+ 2 DAT0=C 4 D0=D0+ 4 GOSUBL Line GOSUBL Read GOSUB SRB D1=D1- 4 GOSUBL Read GOSUBL Champ D1=D1+ 2 GOTO Test_eco_eco *L819‹ C=C+1 A ?A‹C P GOYES L81A‹ D0=D0- 14 C=DAT1 6 DAT0=C 6 D0=D0+ 6 GOSUBL Line D1=D1+ 2 GOSUBL Read B=A A GOSUBL Read B=B-1 A GONC N10 GOSUBL M10 *N10 B=B-1 A GONC N11 GOSUBL M11 *N11 B=B-1 A GONC N12 GOSUBL M12 *N12 LC 20202020 GOSUB Quatre B=B+1 A GONC Bak D0=D0- 2 *Bak D1=D1- 6 GOSUBL Read GOSUBL Champ D1=D1+ 4 GOTO Test_eco_eco *L81A‹ C=C+1 A ?A‹C P GOYES L81B‹ D0=D0- 14 C=DAT1 B DAT0=C B D0=D0+ 2 GOSUBL Line GOSUBL Read A=A-1 A A=A-1 A GOSUB Data81B $0534D31402 $0534D33402 $14D3053402 $34D3053402 $1405345485 $3405345485 *Data81B C=RSTK A=A+A A C=C+A A A=A+A A A=A+A A C=C+A A CD0EX A=DAT0 10 CD0EX DAT0=A 10 D0=D0+ 10 GOTO Test_eco_eco *L81B‹ A=A-12 P GOSUB SRB GOTO Test_eco_eco *SRB LC 2020202042525341 C=C+A A DAT0=C W D0=D0+ 16 RTN %%%%% *L9 %%%%% C=A A GOSUBL Read ?CBIT=0 3 GOYES ChAB ABIT=1 4 CBIT=0 3 *ChAB B=C A GOTO L9_eco %%%%% *LA %%%%% C=A A GOSUBL Read ?CBIT=0 3 GOYES ACh ABIT=1 4 CBIT=0 3 *ACh B=C A *LCDeco GOSUB DataA $14D314B224 $24D324B234 $34D334B214 $44D344B234 $14D314B214 $24D324B224 $34D334B234 $44D344B244 $24D324B214 $34D334B224 $14D314B234 $34D334B244 $14D314D213 $24D324D213 $34D334D213 $44D344D213 $14D3030202 $24D3030202 $34D3030202 $44D3030202 $14D3240202 $24D3340202 $34D3140202 $44D3340202 $24D3140202 $34D3240202 $14D3340202 $34D3440202 $1424568702 $2434568702 $1434568702 $3444568702 *DataA C=RSTK A=A+A A C=C+A A A=A+A A A=A+A A C=C+A A CD0EX A=DAT0 10 CD0EX DAT0=A 10 D0=D0+ 10 LC 202020 DAT0=C 6 D0=D0+ 6 A=B A GOSUBL Champ GOTO Test_eco_eco %%%%% *LB %%%%% C=A A GOSUBL Read ?CBIT=0 3 GOYES BCh ABIT=1 4 CBIT=0 3 *BCh B=C A *LEFeco GOSUB DataB $14D314D22402 $24D324D23402 $34D334D21402 $44D344D23402 $14D314B21302 $24D324B21302 $34D334B21302 $44D344B21302 $24D324D21402 $34D334D22402 $14D314D23402 $34D334D24402 $14D324D21402 $24D334D22402 $34D314D23402 $44D334D24402 $1435C4020202 $2435C4020202 $3435C4020202 $4435C4020202 $143525020202 $243525020202 $343525020202 $443525020202 $14D3D2140202 $24D3D2240202 $34D3D2340202 $44D3D2440202 $14D3D214D213 $24D3D224D213 $34D3D234D213 $44D3D244D213 *DataB C=RSTK A=A+A A A=A+A A C=C+A A A=A+A A C=C+A A CD0EX A=DAT0 12 CD0EX DAT0=A 12 D0=D0+ 12 LC 2020 DAT0=C 4 D0=D0+ 4 A=B A GOSUB Champ GOTO Test_eco_eco %%%%% *LD %%%%% ABIT=1 4 %%%%% *LC %%%%% D0=D0- 16 GOSUB Line LC F B=C P GOTO LCDeco %%%%% *LF %%%%% ABIT=1 4 %%%%% *LE %%%%% D0=D0- 16 GOSUB Line LC F B=C P GOTO LEFeco *Yes GOSUB Line C=DAT1 4 DAT0=C 4 D0=D0+ 4 GOSUB Line GOSUB Read C=A A GOSUB Read ASL A C=C+A A ?C‹0 B GOYES Goy1 LC 5345594E5452 DAT0=C 12 D0=D0+ 12 GOTO Test_eco_eco *Goy1 RSTK=C LC 2020205345594F47 DAT0=C W D0=D0+ 16 AD1EX D1=A C=R4 A A=A-C A ASRB A C=R3 A A=A+C A A=A-1 A A=A-1 A C=RSTK ?CBIT=0 7 GOYES Goy2 C=-C B C=-C A *Goy2 A=A+C A GOSUB Add GOTO Test_eco_eco *Read A=0 A A=DAT1 B A=A-16 B A=A-16 B A=A-16 B A=A-10 B GOC eheh A=A-7 B *eheh A=A+10 B D1=D1+ 2 RTNSC *Champ LC 1 ?A‹C P GOYES Ch1 LC 5057 GOTO Ch2 *Ch1 LC 2 ?A‹C P GOYES Ch3 LC 5358 *Ch2 DAT0=C 4 D0=D0+ 4 RTN *Ch3 GOSUB Ch4 $0500008535D424750000000000000014 % *Ch4 C=RSTK A=A+A B C=C+A A CD0EX A=DAT0 B CD0EX DAT0=A B D0=D0+ 2 RTN *Line LC 2020202020200A DAT0=C 14 D0=D0+ 14 RTN *Nb+1 LC 39 ?C>A P GOYES Nb+1Jump LC 1 DAT0=C B D0=D0+ 2 A=A-10 P *Nb+1Jump A=A+1 P C=A P DAT0=C B D0=D0+ 2 RTN *Nb LC 3A ?C>A P GOYES NbJump LC 1 DAT0=C B D0=D0+ 2 A=A-10 P *NbJump C=A P DAT0=C B D0=D0+ 2 RTN *Add B=A A D0=D0+ 8 LC 4 D=C P *Add1 LA 30 A=A+B P LC 9 ?CŠA P GOYES Add2 A=A+7 B *Add2 DAT0=A B D0=D0- 2 BSR A D=D-1 P GONC Add1 D0=D0+ 12 RTN