home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 December / Ahoy_Magazine_87-12_1987_Double_L.d64 / Frank's Child 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  352 b   |  10 lines
  1. 0 print"[147]"
  2. 1 rem ==================================
  3. 2 rem    commodares problem #44-2 :
  4. 3 rem     frank's children
  5. 4 rem    solution by
  6. 5 rem     keith kushner
  7. 6 rem ==================================
  8. 10 r$=chr$(13):fore=1to99:d=e+1:c=2*e+2:b=2*e+c/2:a=2*e+c:on-(e=(c+d)/4)gosub20: nexte:end
  9. 20 print"andy:";a;r$;"bill:";b;r$;"carl:";c;r$;"dave:";d;r$;"emma:";e;r$:return
  10.