10   dim P(51),Q(51)
   20   P(1)=2^2:Q(1)="2^2"
   30   P(2)=2^3:Q(2)="2^3"
   40   P(3)=2^4:Q(3)="2^4"
   50   P(4)=2^5:Q(4)="2^5"
   60   P(5)=2^6:Q(5)="2^6"
   70   P(6)=2^7:Q(6)="2^7"
   80   P(7)=2^8:Q(7)="2^8"
   90   P(8)=2^9:Q(8)="2^9"
  100   P(9)=2^10:Q(9)="2^10"
  110   P(10)=2^11:Q(10)="2^11"
  120   P(11)=2^12:Q(11)="2^12"
  130   P(12)=2^13:Q(12)="2^13"
  140   P(13)=2^14:Q(13)="2^14"
  150   P(14)=2^15:Q(14)="2^15"
  160   P(15)=2^16:Q(15)="2^16"
  170   P(16)=2^17:Q(16)="2^17"
  180   P(17)=2^18:Q(17)="2^18"
  190   P(18)=2^19:Q(18)="2^19"
  200   P(19)=2^20:Q(19)="2^20"
  210   P(20)=2^21:Q(20)="2^21"
  220   P(21)=2^22:Q(21)="2^22"
  230   P(22)=2^23:Q(22)="2^23"
  240   P(23)=2^24:Q(23)="2^24"
  250   P(24)=2^25:Q(24)="2^25"
  260   P(25)=2^26:Q(25)="2^26"
  270   P(26)=2^27:Q(26)="2^27"
  280   P(27)=2^28:Q(27)="2^28"
  290   P(28)=2^29:Q(28)="2^29"
  300   P(29)=2^30:Q(29)="2^30"
  310   P(30)=2^31:Q(30)="2^31"
  320   P(31)=2^32:Q(31)="2^32"
  330   P(32)=2^33:Q(32)="2^33"
  340   P(33)=3^2:Q(33)="3^2"
  350   P(34)=3^3:Q(34)="3^3"
  360   P(35)=3^4:Q(35)="3^4"
  370   P(36)=3^5:Q(36)="3^5"
  380   P(37)=3^6:Q(37)="3^6"
  390   P(38)=3^7:Q(38)="3^7"
  400   P(39)=3^8:Q(39)="3^8"
  410   P(40)=3^9:Q(40)="3^9"
  420   P(41)=3^10:Q(41)="3^10"
  430   P(42)=3^11:Q(42)="3^11"
  440   P(43)=3^12:Q(43)="3^12"
  450   P(44)=3^13:Q(44)="3^13"
  460   P(45)=3^14:Q(45)="3^14"
  470   P(46)=3^15:Q(46)="3^15"
  480   P(47)=3^16:Q(47)="3^16"
  490   P(48)=3^17:Q(48)="3^17"
  500   P(49)=3^18:Q(49)="3^18"
  510   P(50)=3^19:Q(50)="3^19"
  520   P(51)=3^20:Q(51)="3^20"
  530   open "out187-4.txt" for append as #1
  540   for Loopa=1 to 51
  550   Na=P(Loopa)
  560   for Loopb=1 to 51
  570   Nb=P(Loopb)
  580   for Loopc=1 to 51
  590   Nc=P(Loopc)
  600   for Loopd=1 to 51
  610   Nd=P(Loopd):Nin=0:Pan=0
  620   Kand=cutspc(str(Na+Nb+Nc+Nd))
  630   '
  640   Lenkand=len(Kand)
  650   if Lenkand<>9 then goto 690
  660   Nin=1:for I=1 to 9:Nin*=prm(val(mid(Kand,I))):next I
  670   if Nin=223092870 then print Kand;" = ";Q(Loopa);" + ";Q(Loopb);" + ";Q(L
oopc);" + ";Q(Loopd):print #1,Kand;" = ";Q(Loopa);" + ";Q(Loopb);" + ";Q(Loopc);
" + ";Q(Loopd)
  680   goto 730
  690   if Lenkand<>10 then goto 730
  700   Pan=1:for I=1 to 10:Pan*=prm(val(mid(Kand,I))):next I
  710   if Pan=223092870 then print Kand;" = ";Q(Loopa);" + ";Q(Loopb);" + ";Q(L
oopc);" + ";Q(Loopd):print #1,Kand;" = ";Q(Loopa);" + ";Q(Loopb);" + ";Q(Loopc);
" + ";Q(Loopd)
  720   '
  730   print Loopa;Loopb;Loopc;Loopd,Kand,Nin;Pan
  740   next Loopd
  750   next Loopc
  760   next Loopb
  770   next Loopa