home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / graphutl / cad.arc / I (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  312 b   |  11 lines
  1. 1 FORT=1TO2:SYS36867
  2. 2 FORX1=0TO319STEP06:A=USR(64),X1,199:NEXT
  3. 3 FORX1=36TO319STEP36:A=USR(64),X1,198:NEXT
  4. 4 FORX1=72TO319STEP72:A=USR(64),X1,197:NEXT
  5. 5 FORX1=199TO0STEP-06:A=USR(64),0,X1:NEXT
  6. 6 FORX1=169TO0STEP-30:A=USR(64),1,X1:NEXT
  7. 7 FORX1=139TO0STEP-60:A=USR(64),2,X1:NEXT
  8. 8 FORX1=139TO0STEP-60:A=USR(64),2,X1:NEXT:NEXT:A=USR(32),6:A=USR(32),7
  9. 9 GETA$:IFA$=""THEN9
  10. 10 LOAD"CMND",D0
  11.