10 REM > ShowREM
   20 REM J.G.Harston, 15-Feb-1990
   30 REM Display contents of REM in first line
   40 REM Demonstrates writing code in BASIC workspace
   50 REM Up to 64 bytes will fit in workspace at &50-&8F
   60 :
   70 OSASCI=&FFE3
   80 FOR I%=0 TO 3 STEP 3
   90 P%=&50
  100 [OPT I%
  110 LDA #0:STA &8E
  120 LDA &18:STA &8F      :\ &8E/F=>PAGE
  130 LDY #4
  140 .loop1
  150 LDA (&8E),Y:INY      :\ Get byte from first line
  160 CMP #&F4:BEQ loop2   :\ Check for REM token
  170 CMP #13:BNE loop1    :\ Loop until end of line
  180 RTS                  :\ No REM found, just exit
  190 .loop2
  200 LDA (&8E),Y:INY      :\ Get byte from line
  210 JSR OSASCI           :\ Print it
  220 CMP #13:BNE loop2    :\ Loop until end of line
  230 RTS
  240 ]NEXT
  250 PRINT"*SAVE demo1 50 ";~P%