home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1986 September & October / rerun-1986-09-10.d64 / 64_grafix (.txt) next >
Commodore BASIC  |  2022-09-20  |  5KB  |  81 lines
  1. 100 print"[147]!sc,n type of screen":print"!co,c foreground & background color"
  2. 105 print"!bl,block#,color":print"!pn,n (0) pen off; (1) pen on"
  3. 110 print"!pl,x,y plot a point":print"!dr,x1,y1,x2,y2 connect x1,y1 to x2,y2"
  4. 115 print"!cr,x,y,r draw a circle at x,y":print"!ex exit 64/grafix"
  5. 120 print"64/grafix is loading";
  6. 125 forad=49152to50367:readd:pokead,d:cs=cs+d:next
  7. 130 ifcs<>152874thenprint"[147]error[146] in the data statements":stop
  8. 135 sys49152:print"[157][157][157][157][157][157][157]engaged[146]":end
  9. 140 data169,11,160,192,141,8,3,140,9,3,96,160,1,177,122,201,33
  10. 145 data240,3,76,228,167,32,115,0,162,7,32,115,0,133,253,32,115
  11. 150 data0,69,253,221,166,196,240,8,202,16,248,162,11,76,222,192,189
  12. 155 data174,196,141,66,192,189,182,196,141,67,192,32,115,0,32,113,192
  13. 160 data76,174,167,32,253,174,32,158,183,96,32,253,174,32,235,183,165
  14. 165 data20,164,21,96,224,200,176,14,166,252,224,1,144,13,208,6,166
  15. 170 data251,224,64,144,5,162,14,76,216,192,96,32,190,192,169,228,160
  16. 175 data167,141,8,3,140,9,3,96,32,71,192,142,190,196,96,32,71
  17. 180 data192,224,1,144,49,240,21,169,224,133,254,169,0,133,253,162,32
  18. 185 data168,145,253,200,208,251,230,254,202,208,246,169,59,141,17,208,169
  19. 190 data40,141,24,208,169,0,141,0,221,169,216,141,0,3,169,192,141
  20. 195 data1,3,96,169,27,141,17,208,169,21,141,24,208,169,3,141,0
  21. 200 data221,169,139,141,0,3,169,227,141,1,3,96,32,190,192,108,0
  22. 205 data3,32,71,192,169,200,133,254,169,0,133,253,168,138,162,4,145
  23. 210 data253,200,208,251,230,254,202,208,246,96,32,78,192,134,250,133,251
  24. 215 data132,252,32,89,192,165,250,41,248,168,133,253,169,0,133,254,6
  25. 220 data253,38,254,6,253,38,254,152,24,101,253,133,253,165,254,105,0
  26. 225 data133,254,6,253,38,254,6,253,38,254,6,253,38,254,165,250,41
  27. 230 data7,24,101,253,133,253,165,254,105,0,133,254,165,251,41,248,24
  28. 235 data101,253,133,253,165,252,101,254,133,254,169,0,24,101,253,133,253
  29. 240 data169,224,101,254,133,254,165,251,41,7,73,7,170,169,1,202,48
  30. 245 data3,10,208,250,160,0,162,52,120,134,1,174,190,196,224,1,176
  31. 250 data6,73,255,49,253,144,2,17,253,145,253,162,55,134,1,88,96
  32. 255 data32,78,192,134,250,133,251,132,252,32,78,192,134,253,133,254,132
  33. 260 data255,160,0,132,3,56,165,253,229,250,133,2,162,1,134,247,176
  34. 265 data10,73,255,105,1,133,2,230,247,144,8,201,0,208,4,162,0
  35. 270 data134,247,56,165,254,229,251,133,4,165,255,229,252,133,5,162,1
  36. 275 data134,6,176,22,73,255,133,5,165,4,73,255,105,1,133,4,165
  37. 280 data5,105,0,133,5,230,6,144,12,166,4,208,8,166,5,208,4
  38. 285 data162,0,134,6,165,5,208,17,165,4,197,2,176,11,166,2,133
  39. 290 data2,134,4,142,191,196,144,5,162,0,142,191,196,166,4,164,5
  40. 295 data142,192,196,140,193,196,6,2,38,3,56,165,2,229,4,133,248
  41. 300 data165,3,229,5,133,249,8,6,4,38,5,166,250,32,1,193,40
  42. 305 data48,31,173,191,196,201,1,176,6,32,171,194,76,67,194,32,135
  43. 310 data194,56,165,248,229,4,133,248,165,249,229,5,133,249,16,225,173
  44. 315 data191,196,201,1,144,6,32,171,194,76,98,194,32,135,194,24,165
  45. 320 data248,101,2,133,248,165,249,101,3,133,249,8,174,192,196,208,9
  46. 325 data174,193,196,240,11,202,142,193,196,202,142,192,196,76,43,194,40
  47. 330 data96,165,6,201,1,240,16,144,27,166,251,208,5,166,252,202,134
  48. 335 data252,202,134,251,176,13,166,251,232,138,208,5,166,252,232,134,252
  49. 340 data133,251,96,165,247,201,1,240,6,144,6,198,250,176,2,230,250
  50. 345 data96,32,78,192,141,194,196,140,195,196,142,196,196,32,71,192,134
  51. 350 data255,169,0,133,247,165,255,133,6,169,0,133,3,133,4,133,5
  52. 355 data56,169,1,229,6,10,133,2,8,32,224,195,166,250,32,1,193
  53. 360 data165,6,208,3,76,209,195,162,4,181,2,157,197,196,202,16,248
  54. 365 data14,197,196,46,198,196,14,199,196,46,200,196,14,201,196,40,240
  55. 370 data108,16,35,24,173,197,196,109,201,196,133,248,173,198,196,105,0
  56. 375 data133,249,56,165,248,233,1,133,248,165,249,233,0,133,249,48,40
  57. 380 data240,38,16,71,56,173,197,196,237,199,196,133,248,173,198,196,237
  58. 385 data200,196,133,249,56,165,248,233,1,133,248,165,249,233,0,133,249
  59. 390 data48,39,240,37,16,87,32,106,196,24,165,2,109,199,196,133,2
  60. 395 data165,3,109,200,196,133,3,24,165,2,105,1,133,2,165,3,105
  61. 400 data0,133,3,8,76,228,194,32,106,196,32,134,196,24,165,2,109
  62. 405 data199,196,133,2,165,3,109,200,196,133,3,56,165,2,237,201,196
  63. 410 data133,2,165,3,233,0,133,3,24,165,2,105,2,133,2,165,3
  64. 415 data105,0,133,3,8,76,228,194,32,134,196,56,165,2,237,201,196
  65. 420 data133,2,165,3,233,0,133,3,24,165,2,105,1,133,2,165,3
  66. 425 data105,0,133,3,8,76,228,194,166,247,224,3,240,7,232,134,247
  67. 430 data40,76,207,194,40,96,166,247,224,1,240,9,176,14,32,8,196
  68. 435 data32,40,196,96,32,24,196,32,40,196,96,224,3,240,7,32,8
  69. 440 data196,32,53,196,96,32,24,196,32,53,196,96,24,173,194,196,101
  70. 445 data4,133,251,173,195,196,101,5,133,252,96,56,173,194,196,229,4
  71. 450 data133,251,173,195,196,229,5,133,252,96,32,66,196,24,173,196,196
  72. 455 data109,202,196,133,250,96,32,66,196,56,173,196,196,237,202,196,133
  73. 460 data250,96,160,9,32,162,179,32,12,188,160,11,32,162,179,165,97
  74. 465 data32,18,187,32,12,188,164,6,32,162,179,165,97,32,43,186,32
  75. 470 data155,188,165,101,141,202,196,96,24,165,4,105,1,133,4,165,5
  76. 475 data105,0,133,5,141,200,196,166,4,142,199,196,14,199,196,46,200
  77. 480 data196,96,56,165,6,233,1,133,6,10,141,201,196,96,32,78,192
  78. 485 data160,0,24,105,0,133,2,165,21,105,200,133,3,138,145,2,96
  79. 490 data29,30,16,12,28,22,17,14,113,127,134,222,248,135,186,146,192
  80. 495 data192,192,192,192,193,194,196,0,0
  81.