home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Winter / rerun-1985-winter.d64 / grads (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  122 lines
  1. 1 rem "+++++ bit map graphic display system - main program +++++"
  2. 2 poke53281,0:print""
  3. 3 poke49152,32
  4. 4 poke49153,1
  5. 9 goto600
  6. 10 print"[147] this program gives you the opportunity"
  7. 11 print" to develop creative graphics."
  8. 12 print" initially, your drawings may look       strange, but don't give up."
  9. 13 print" drawing with your computer is more      fun than you can imagine!"
  10. 16 print" note: when you want the menu, just"
  11. 17 print" press the 'm' key. menu will appear."
  12. 19 print" ************** menu *****************"
  13. 20 print" *                                    *"
  14. 21 print" *   's' - to save the present screen *"
  15. 22 print" *   'p' - to print present screen    *"
  16. 23 print" *   'i' - instructions (how to use)  *"
  17. 24 print" *   'n' - new screen (erase all)     *"
  18. 25 print" *   'b' - back to present screen     *"
  19. 26 print" *   'l' - to load a new screen       *"
  20. 27 print" *   'e' - end of drawing             *"
  21. 28 print" *                                    *"
  22. 29 print" **************************************"
  23. 30 print" *** press return for the next page ***"
  24. 31 gett$:ift$=""then31
  25. 50 print"[147] *** instructions ***"
  26. 51 print" all information required to execute"
  27. 52 print" this program is described in the "
  28. 53 print" accompanying article. carefully load"
  29. 54 print" and execute the two programs."
  30. 55 print" once executed, a bit-map screen will"
  31. 56 print" appear. the screen will be blank "
  32. 57 print" until the joystick is moved with the"
  33. 58 print" fire button pressed."
  34. 76 print" you can also erase dots by plotting"
  35. 77 print" blank dots over dots which you want"
  36. 78 print" to erase. erase by moving the joystick
  37. 79 [153]" without pressing the fire button."
  38. 80 [153]" whenever you want to know where your"
  39. 81 [153]" dot is, stop moving your joystick and"
  40. 82 [153]" hit the fire button. you'll see a       blinking dot."
  41. 84 [153][166]18)"press any key..."
  42. 85 [161]t$:[139]t$[178]""[167]85
  43. 90 [153]" the way to get familiar with this"
  44. 91 [153]" drawing system is to practice."
  45. 92 [153]" good luck !!"
  46. 97 [153]" **** press return for menu ****"
  47. 98 [161]t$:[139]t$[178]""[167]98
  48. 99 [137]600
  49. 100 [153]"load  do you want to clean up this screen?""    yes or no?"
  50. 102 [161]t$:[139]t$[178]""[167]102
  51. 103 [139]t$[178]"y"[167][158]49174:[137]200
  52. 104 [139]t$[178]"n"[167]200
  53. 105 [137]102
  54. 200 [153]"load  enter x-y cordinates to start with."
  55. 201 [153]"  x (0 to 319) ";:[133]xi:[139]xi[179]0[176]xi[177]319[167]201
  56. 211 [153]"  y (0 to 199) ";:[133]y:[139]y[179]0[176]y[177]199[167]211
  57. 220 [139]xi[177]255[167]xl[178]xi[171]256:xh[178]1:[137]222
  58. 221 xl[178]xi:xh[178]0
  59. 222 [151]49166,xl:[151]49167,xh:[151]49168,y
  60. 230 [153]"  enter the drawing speed."
  61. 231 [153]"     1 for slow"
  62. 232 [153]"     2 for med."
  63. 233 [153]"     3 for fast"
  64. 235 [161]s$:[139]s$[178]""[167]235
  65. 236 [139]s$[178]"1"[167]sp[178]100:[137]300
  66. 237 [139]s$[178]"2"[167]sp[178]30:[137]300
  67. 238 [139]s$[178]"3"[167]sp[178]1:[137]300
  68. 239 [137]235
  69. 300 [158]49228
  70. 310 [158]49278
  71. 400 [158]49312
  72. 410 [139][194](49172)[178]1[167]500
  73. 420 [129]i[178]0[164]sp:[130]:[137]400
  74. 500 [158]49295
  75. 510 [151]49172,0
  76. 600 [153]"load *********** menu of grads ************"
  77. 601 [153]" *                                    *"
  78. 602 [153]" *   'i' - instruction                *"
  79. 603 [153]" *   'e' - end of drawing             *"
  80. 604 [153]" *   'n' - new screen (erase all)     *"
  81. 605 [153]" *   'b' - back to present screen     *"
  82. 606 [153]" *   's' - saving a present screen    *"
  83. 607 [153]" *   'l' - loading a new screen       *"
  84. 608 [153]" *   'p' - printing a present screen  *"
  85. 609 [153]" *                                    *"
  86. 610 [153]" **************************************"
  87. 620 [153]"     select one of the above letters"
  88. 621 [161]t$:[139]t$[178]""[167]621
  89. 622 [139]t$[178]"i"[167]10
  90. 623 [139]t$[178]"e"[167][128]
  91. 624 [139]t$[178]"n"[167]100
  92. 625 [139]t$[178]"b"[167]300
  93. 626 [139]t$[178]"s"[167][151]49171,1:[137]800
  94. 627 [139]t$[178]"l"[167][151]49171,0:[137]802
  95. 628 [139]t$[178]"p"[167]700
  96. 629 [137]621
  97. 700 [153]"load  printing mode"
  98. 701 [153]"         ready for printing?"
  99. 702 [153]"         if ready, press 'p'."
  100. 703 [153]"         'm' for menu."
  101. 710 [161]t$:[139]t$[178]""[167]710
  102. 712 [139]t$[178]"p"[167]730
  103. 713 [139]t$[178]"m"[167]600
  104. 714 [137]710
  105. 730 [153]"load     printing....."
  106. 731 [159]4,4
  107. 732 [158]49676
  108. 733 [152]4:[160]4
  109. 734 [137]600
  110. 800 [153]"load  saving mode":[137]803
  111. 802 [153]"load  loading mode"
  112. 803 [153]"     is your disk drive ready?"
  113. 804 [153]"     if ready, press return."
  114. 805 [153]"     'm' for menu."
  115. 810 [161]t$:[139]t$[178]""[167]810
  116. 811 [139][198](t$)[178]13[167]820
  117. 812 [139]t$[178]"m"[167]600
  118. 813 [203]t810
  119. 820 [153]"     enter a screen name."
  120. 822 [158]49957
  121. 830 [137]600
  122.