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