home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 October / Ahoy_Magazine_85-10_1985_Double_L.d64 / cd22-5 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  280b  |  9 lines
  1. 0 p=peek(653)+1:z=z+1:print"[144]score"z:poke214,8:printchr$(8):printtab(a)""a$:ifpeek(1424+a)=30thenwait0,0
  2. 1 poke214,23:print:print"^"tab(rnd(0)*35)"^^^^"tab(38)"^":a=a+(p=3)-(p=2):a$=mid$("[199][205][206][200]",p,1):goto
  3. 10 rem << cd22-5 >>
  4. 11 rem
  5. 12 rem solution to problem #18-3 :
  6. 13 rem               ski scroll
  7. 14 rem     by paul t. dawson
  8. 15 rem
  9.