home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug076.arc / GPOKE.WSF < prev    next >
Text File  |  1979-12-31  |  2KB  |  48 lines
  1.  
  2. GPOK┼                                 b∙ BoΓ Allanson
  3.  
  4.      GPOK┼á i≤ ß utilit∙ intendeΣ t∩ assis⌠ thσ creatioε oµ datß ì
  5. statement≤ fo≥ pcτ graphic≤ iε MicroworlΣ Basic.
  6.  
  7.      GPOK┼á i≤á oµ n∩ usσ unles≤ yo⌡ understanΣá ho≈á MicroworlΣ ì
  8. Basiπá create≤ pcτ character≤ - thi≤ i≤ full∙ discusseΣá iεá thσ ì
  9. Basiπ manual.
  10.  
  11.      Al∞ command≤ arσ calleΣ froφ KEYñ statements«á Iµ ß commanΣ ì
  12. doesn'⌠ worδ tr∙ pressinτ [lock]« Returε i≤ alway≤ unnecessary.
  13.  
  14.      Afte≥á running¼á thσ questioε "D∩ yo⌡ wan⌠ ß shado≈á printó ì
  15. appears«á ┘ o≥ ∙ i≤ followeΣ b∙ "Pres≤ an∙ key"«á ┴ largσ lette≥ ì
  16. appear≤á - i⌠á i≤á purel∙ ß guidσ anΣ doe≤ no⌠ affec⌠á thσá datß ì
  17. statement.
  18.  
  19.      Creatinτá ßá ne≈ characte≥ i≤ donσ b∙ shiftinτá thσá curso≥ ì
  20. witΦ thσ key≤ ╝ ╛ └ » anΣ printinτ witΦ thσ spacσ bar«á Wheε thσ ì
  21. characte≥ i≤ finisheΣ pres≤ P« Yo⌡ arσ askeΣ "wha⌠ lette≥ d∩ yo⌡ ì
  22. wan⌠ replaced"«á Typσ iε an∙ letter«á A⌠ firs⌠ avoiΣ thσ letter≤ ì
  23. useΣá iε thσ graphic≤ oµ thi≤ program«á Thσ prograφ goe≤ t∩á thσ ì
  24. sketchpaΣá whicΦ i≤ usefu∞ t∩ creatσ smal∞ drawing≤ anΣá caεá bσ ì
  25. useΣá a⌠á thσá samσá timσ a≤ thσá maiεá characte≥á generato≥á b∙ ì
  26. printinτá ßá spacσ iε sketchpaΣ areß nex⌠ t∩ ß partl∙á completeΣ ì
  27. drawing«á T∩ ge⌠ ou⌠ oµ thσ sketchpaΣ typσ ■ o≥ [shift]^«á I⌠ i≤ ì
  28. bes⌠ t∩ d∩ thi≤ immediatel∙ a⌠ firs⌠ a≤ i⌠ i≤ thσ mos⌠ confusinτ ì
  29. par⌠ oµ thσ program.
  30.  
  31.      Thσá datß statement≤ arσ createΣ b∙ pokinτ thσá line≤á froφ ì
  32. 100░á on«á T∩ seσ them¼á pres≤ thσ breaδ ke∙ anΣ typσá list,110░ ì
  33. [return]«á T∩ usσ theφ iε ß prograφ typσ deletσ 100,88░ [return▌ ì
  34. theεá usσá thσá list¼á commanΣ t∩ locatσ thσ firs⌠á unuseΣá datß ì
  35. statement«áá I⌠áá wil∞áá bσá oµá thσá forφáá datßáá !!!,!!!,!!!¼ ì
  36. !!!,!!!,!!!,!!!,!!!,!!!,!!!,!!!,!!!,!!!,!!!,!!!,!!!« Deletσ froφ ì
  37. it'≤á linσá numbe≥ t∩ 114░ anΣ yo⌡ havσá datßá statement≤á only« ì
  38. Incorparatσá theφá iεá ßá prograφ b∙ renumberinτá froφá 10░á anΣ ì
  39. appendinτ ß linσ :
  40.  
  41. FO╥ X=6400░ T╧ 63999+N*1╢ :REA─ A:POK┼ X,┴ :NEX╘ X
  42.  
  43. wherσá ╬ i≤ thσ numbe≥ oµ datß statement≤ useΣ iεá thσá program« ì
  44. Yo⌡á ma∙á neeΣá t∩ adΣ extrß datß statement≤ iµ yo⌡ wisΦá t∩á d∩ ì
  45. largσá programs«á I'vσ pu⌠ iε les≤ thaε thσ possiblσá numbe≥á t∩ ì
  46. kee≡á thσá prograφ sizσ down«á Usσ thσ edi⌠ commanΣ t∩á cop∙á aε ì
  47. existinτ line.
  48.