Sharp PC-1500 - Page 91

A ll and more about Sharp PC -1 500 at http://www.PC-1500.info
Keystrokes:
rn re _J mr c :J flJl nc irs ::i rn m rnr-e -:i 1 •• ,, . ,
mrnm IJDQJQD[]:J l suon l c:JQJ l•••n l c:J l• •n• I
rn rn mm oo m G=i oo oo oo rn l• •T•• I
w rn m CB...J co r N 1 m rn rn f/ l rn , .""" '
"vhich p ro duces nornlal looki ng output at positions 50 and 80 :
What happens if we al ter li ne 30 to begin printing at GCURSOR pos i tion 93> Try this by
substit ut i n!] the following line:
30 GCU RSOR 93
Surprise! The second output has been "t runc ate d" (chopped olf) be cause ii' r an off th e end of
the display.
As a final example of the GCURSOR statement, \VC present an advJnced program wh ich creates
an u nu sual ef fe ct by ovedapping chan1cte rs:
Pr og ra m Li sti ng :
10 WA IT 0
20 DIM AS 101 * 10
30 AS (0) = .... : C = 0
40 IN PUT " EN TER MESSAGE (< 10 CHARS)". AS 10)
50 CLS
60 FOR I = 1 TO (L EN A$ (Q ))
70 GCURSOR C
80 FOR J = 1 TO 3
90 GC U RSOR C
100 PRINT MI D$ (AS (0), I, 1)
105 c ~ c+3
11 0 NE XT J
120 c = c + 5
130 NEXT I
140
WAIT
150 GCURSOR 155
160
GPRINT
"00 "
170
ENO
89
Do not sale this PDF !!!