Commodore PET - Page 104

C=+5:FOR
1=1
TO
267: ';:OC; : t--IEXT: ?"PHELoJ! "
5
5 5
5 5
5 5
5
5 5 :5 5 5
5 5
5 5 5 5
5 5 5 5 5 5
5 5
5 5
5
5 5 5
5 :5 :5
:5 :5 :5 5
5
5
c-
5 5
5 5
5
5 5 5 5 5
.'
5 5 5
5 5
5
5 5 5 5 5 5
5 5
5
5 5 5 5 5 5 5
5
5
5
5
5
5
5 5 5
5
5 5
5 5 5 5 5 5
c::-
5
5
5
5
5
5 5 5 5
5
5
5 5
.'
5
5
5
...
5
5
5
5 5
5 5
5 5
.'
5 5
c-
5 5
5 5
5
5 5 5 5 5
.'
c::-
5 5
5 5 5 5
5 5
5
5 5
5
5
'-'
5 5
5
5 5 5
5
5
5
5 5 5 5
5
5
5 5
5 5
5
5
5
5 5 5 5
5
5 5
5 5 5
5
5 5 5
5 5 5 5
5 5 5 5 5 5 5
5
5
5
5
5 5
5
5 5 5 5
5 5
5 5 5 :5 :5 5
5
5
5 5 5 5
5 5
5 :5 :5 :5
5 5
5 5
5
5 5 5 5 5 5 5 5
5
5
5 5 5 5
5 5 5
5 5 5
:5
:5 5
5
5 5 5
5 5
5 5 5 5 5 5
5
5
PHEWl
REAn',-'.
~
When you run this program. note that there is one space between the last
number printed and the word PHEW! This shows that the numbers are printed in
the following format:
Position 2 3
± n
t t_Space
L- Blank if positive.
- if negative
Another example of this format can be obtained by changing the value of C
to minus
1:
[:=-1: FOR 1=1 TO 267: ';:OC,; : t-JEXT: ?"PHELoJ! "
91