home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Winter / rerun-1985-winter.d64 / grads_ft (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  4KB  |  139 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]" *    f    filtering koala            *"
  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 [139]t$[178]"f" [167] 900
  97. 630 [137] 621
  98. 700 [153]"load  printing mode"
  99. 701 [153]"         ready for printing?"
  100. 702 [153]"         if ready, press 'p'."
  101. 703 [153]"         'm' for menu."
  102. 710 [161]t$:[139]t$[178]""[167]710
  103. 712 [139]t$[178]"p"[167]730
  104. 713 [139]t$[178]"m"[167]600
  105. 714 [137]710
  106. 730 [153]"load     printing....."
  107. 731 [159]4,4
  108. 732 [158]49676
  109. 733 [152]4:[160]4
  110. 734 [137]600
  111. 800 [153]"load  saving mode":[137]803
  112. 802 [153]"load  loading mode"
  113. 803 [153]"     is your disk drive ready?"
  114. 804 [153]"     if ready, press return."
  115. 805 [153]"     'm' for menu."
  116. 810 [161]t$:[139]t$[178]""[167]810
  117. 811 [139][198](t$)[178]13[167]820
  118. 812 [139]t$[178]"m"[167]600
  119. 813 [203]t810
  120. 820 [153]"     enter a screen name."
  121. 822 [158]49957
  122. 830 [137]600
  123. 900 [153]"load"[166]82)"make sure everything is ready."
  124. 901 [153]"  for filtering koala"
  125. 910 [153]"  if ready, hit return"
  126. 920 [153]"  m for menu"
  127. 930 [161]t$:[139]t$[178]""[167]930
  128. 940 [139]t$[178]"m"[167]600
  129. 950 [139][198](t$)[178]13[167]970
  130. 960 [137]930
  131. 970 [158]50208
  132. 980 [153]"load"[166]82)"do you want a screen display"
  133. 990 [161]t$:[139]t$[178]""[167]990
  134. 991 [139]t$[178]"y"[167]994
  135. 992 [139]t$[178]"n"[167] 600
  136. 993 [137]990
  137. 994 [158]50320
  138. 995 [137] 600
  139.