home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 July / Ahoy_Magazine_85-07_1985_Double_L.d64 / printat (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  502b  |  20 lines
  1. 10 rem**set up the printat routine**
  2. 12 at=679:forn=attoat+22:readm:poken,m:next
  3. 14 data32,180,2,132,251,32,180,2
  4. 16 data166,251,76,240,255,32,253,174
  5. 18 data32,158,173,32,170,177,96
  6. 20 print"[147]":poke53280,6:poke53281,1
  7. 22 print"   **example program using printat**":ford=1to1000:next
  8. 26 sysat,2,0:print"now"
  9. 28 sysat,5,2:print"you"
  10. 30 sysat,8,4:print"can"
  11. 32 sysat,11,6:print"[156]print"
  12. 34 sysat,8,17:print"[149]neatly"
  13. 36 sysat,11,16:print"[144]formatted"
  14. 38 sysat,14,17:print"[159]screens"
  15. 40 forn=0to2*(NULL)step(NULL)/40
  16. 42 l=int(12+sin(n)*8)
  17. 44 c=int(20+cos(n)*8)
  18. 46 sysat,l,c:print"*":next
  19. 48 sysat,22,0
  20.