home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_19_1987_Transactor_Publishing.d64 / graphics printer (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  184b  |  6 lines
  1. 100 print: open 4,4,4: print#4,chr$(27);chr$(65);chr$(8)
  2. 110 s=8192: gr$=chr$(27)+chr$(75)+chr$(200)+chr$(0)
  3. 120 for x=0 to 321 step 8: print#4,gr$;
  4. 130 for y=7680 to 0 step -320: for z=7 to 0 step -1
  5. 140 print#4,chr$(peek(s+x+y+z));: next: next: print#4: next
  6.