Check 647B9805
Auto 1
   1 LET A$="": LET C=VAL "23607": LET B=C+CODE "J": FOR Q=CODE " " TO CODE "?": LET A$=A$+CHR$ (Q): NEXT Q: LET Z=SGN PI: LET A=VAL "22528": FOR Y=NOT PI TO PI: FOR Q=NOT PI TO PEEK PI: POKE A+Q,Q*Z+(NOT Z)*PEEK PI: POKE B,CODE "Y": POKE C,CODE "W": LPRINT A$: POKE B,CODE "Z": POKE C,CODE "X": LPRINT A$: POKE B,CODE "X": POKE C,CODE "Y": LPRINT A$: BEEP .002,(PEEK (A+SGN PI))/4: NEXT Q: LET Z=NOT Z: NEXT Y: CLS : POKE C,CODE "<": LIST
