Commodore CBM - Page 102

Return now to the original program line that gives continuous line printing
by the presence of a semicolon.
C$="loj" : FOR 1=1 TO 800:? C$.; : NEXT: ?/lpHEW f"
~'J~,J~'J~~H~'J~'J~'J~'J~'J~'J~~~~~~WHI'JIoJWI~I~WI~WIoJWWWWWWWlolWWlolloJWWW
~'J~'JI,J~,JWW~'JI'JlollolWI~I"lol~"I'JlollollolWWWI"Wloll"WWWWlolWWlolWWWWWW
WI.JWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW
~'JI"~'JWloll~~~I'J~'JWI'JI'J~'JI"I.JWI"l'JWlollolIoJWWI'JIolWWlollollolWlolWWIoJWlolWW
~'JI'JI.J~~IoJI~~'JI~I~I·JWWI'JWW~~WI·jIoJI~I'JI'J~'JWloll'JWWI'JWIoJWWWWWWWWW
~'J~'J~'JI'JI~I~I'JWl'JI"IoJ~'J~~WI'JI·U~IoJI.JI.JWI,jl~~.JI.JWl.JWWI.JWI.JI.JWWI·JWI.JIoJW
l'JI·JI~IoJI'U~I~I'JI'JI,JI'JHI~I'JI~~'JIoJWI'JI·JI~HI~1'JI"~~Hl.JWloJloll~WloJWWWWWloJ
HI'J~'JI'JI'J~'J~'JI'JI.JI~I~I'JHI'J~'JI'JI'J~'JHHI,JI,JI'JI.JWlolWloJWWI'JWWI.JI~loJWWI.JW
~,JI'JI'JI'JI'JI'JH~,j~'JI·jl'JI'J~'J~~I,jl'J~,j~·JHI'JI'JI,jl'JHWloJIoJI·JIoJWI'JI.JWWWloJloJWlolW
~'JI'J~,jl,jl'JW~,J~'J~'J~'JI'J~~~'J~'J~'JI~I~I·JI"~~1~1~1.JI.JloJ~~I~loJl~loJloJWlolWloJloJloJWWW
~,jL'J~'JI~~~~,j~'JI,j~,JWI'JI'JI'J~oJl,j~oJl~IoJ~'JHI,J~,JWI,JlolloJl·JHIoJHl,JIoJHWHHWWWH
L'JL'Jl'Jl,JL'Jl'JW~'J~'JI'JW~'Jl,jWl'Jl~l'Jl~l~l~loJl~l,jlolH~'JloJWl'JloJHl·UoJloJHHWWHloJ
~'J~'J~'J~,j~'J~,j~'J~'J~,j~'J~'J~'J~'J~oJl~l~l'J~olW~~~'J~~~oJ~·Jl~l~~,jH~oJ~oJHHl.JHHWloJWloJIoJ
~,j~,J~,jWWIoJW~'J~'J~'J~'Jl·j~~W~,j~,j~.J~,j~oJloJl~H~·J~'JloJ~'J~oJloJWloll.JHHH~ollojHHl.JW
~,jl'J~'J~,j~'J~'JI'J~'J~oJ~~~'JI'Jl'J~~~~~'JHH~·j~~I~~·jH~·J~oJ~.JWWIoJloll~~oJW~ol~"Hl.JHHW
~,j~,jl·J~,jWW~'J~'J~'J~'J~,jWW~~I'JWI,j~~~'J~.J~,j~oJl~l~~oJ~,Jl~~'JloJloll·jW~olWlolloJl·Jl~Wl.J
L'J~'J~'J~'J~'Jl'J~'J~'J~'J~,J~,jW~'J~'J~'J~~~~~'J~,J~,J~~~"~.J~'J~"~,J~"~~loJ~.JlolWloJl.JlollolWWWH
~'JI'J~'J~'JI'J~,j~'JI,j~'J~'J~'J~"HI,jl'J~~I'JHIoJIoJI~I,JWWloJlolloJloJloJl.JWl.JWWWWlolWWW
~'JI,j~'J~'JI'J~,jl,jl'J~~I,jl,j~~I,jl'JI'JI'JI'J~'J~oJloJ~.JI"l'JloJl~l,jWI~WI.JWlolloJl.JWWloJWWW
~'J~,j~'J~'J~,j~,j~,j~'J~'JW~~~'JIoJ~'J~'JIoJIoU·J~'J~'JIojWWW~oJ~·JWW~"lol~olWWloJWWloJWWloJ
PHE~'J !
F.:EAII'T'.
m
The FOR ... NEXT loop index 1 is used as a counter to indicate the number of
W's to be printed, in this case 800. For the first PRINT, a new line is begun and the
character W
is printed. The semicolon prevents a RETURN to the next line, so the
cursor remains at the position
following the first W. The second W is then printed,
with the cursor left in the position following it. and this pattern continues. At the
end of the line, the cursor moves
to the next position, which is at the beginning of
the next line. This
is continuous for 20 lines.
Why does PHEW! print on a new line? It doesn't really; it appears to start a
new line because the last character prints in the last position of the previous line.
Modify the value of 800 to, say, 780 and PHEW! prints on the same line as the end
of the characters. Reenter the line to get the display shown below.
C$="-":FOR 1=1 TO 780:?C$; :NEXT:?IPHEHI"
89