home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / graphutl / cad.arc / MENU (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.0 KB  |  34 lines
  1. 1 A=USR(0),0,1,4
  2. 2 A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17):A=USR(1):PRINT"[147]"
  3. 3 OPEN15,D0,15,"I0"
  4. 4 CLOSE15
  5. 5 PRINTCHR$(14)"[147] A --> ARCS"
  6. 6 PRINTCHR$(14)" B --> BOXES"
  7. 7 PRINT" [194] --> BOXES (SOLID)
  8. 8 [153]" C --> CIRCLES (DIAMETER)
  9. 9 PRINT" [195] --> CIRCLES (RADIUS)
  10. 10 [153]" D --> DISCS (DRAW)
  11. 11 PRINT" [196] --> DISCS (ERASE)
  12. 12 [153]" E --> ERASE (LINE)
  13. 13 PRINT" [197] --> ERASE (BOX)
  14. 14 [153]" ASC --> FREEHAND DRAW
  15. 15 PRINT" L --> LINES
  16. 16 [153]" (null) --> (null)(null)RIGHT$(null)
  17. 17 PRINT" ! --> SWITCH SCREENS
  18. 18 [153]" # --> INVERT SCREEN 1
  19. 19 PRINT" = --> COPY SCREEN 1 TO SCREEN 2
  20. 20 [153]" & --> ADD SCREEN 2 TO SCREEN 1
  21. 21 PRINT" [195][204][210] --> CLEAR SCREEN 1
  22. 22 [153]" STR$VAL(null) --> DELETE LAST OPERATION
  23. 23 PRINT" M --> MORE DRAWING ROUTINES
  24. 24 [153]" (null) --> EVEN MORE DRAWING ROUTINES
  25. 25 PRINT" [195]= M --> SPECIAL FUNCTIONS
  26. 26 [161]A$:[139]A$[178]""[167]26
  27. 27 [139]A$[178]"!"[167][158]36867:[153]"--(null)CREENS SWITCHED--":[137]26
  28. 28 [139]A$[178]"="[167][158]36882:[153]"--(null)CREEN COPIED--":[137]26
  29. 29 [139]A$[178]"LOAD"[167][158]36888:[153]"--(null)CREEN CLEARED--":[137]26
  30. 30 [139]A$[178]"#"[167][158]36876:[153]"--(null)CREEN INVERTED--":[137]26
  31. 31 [139]A$[178]"&"[167][158]36879:[153]"--(null)CREENS ADDED--":[137]26
  32. 32 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16)
  33. 33 A[178][183](34),16,Y,6:A[178][183](34),X,231,7:[147]"CMND",D0
  34.