home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 February / Ahoy_Magazine_88-02_1988_Double_L.d64 / Billiards (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  411 b   |  14 lines
  1. 1 rem ==================================
  2. 2 rem    commodares problem #46-4 :
  3. 3 rem      character billiards
  4. 4 rem solution suggested independently
  5. 5 rem  by   larry schafer
  6. 6 rem  and  jim lostetter
  7. 7 rem  and  manfred klocek
  8. 8 rem ==================================
  9. 10 print"[147]":dx=1:dy=1
  10. 20 g=1024+x+40*y :poke g,87 :fori=1to15 :next :poke g,32
  11. 30 y=y+dy:if y<1 or y>23 then dy=-dy
  12. 40 x=x+dx:if x<1 or x>38 then dx=-dx
  13. 50 goto 20
  14.