RUN
List all
GoTo start


If 1 Then Trace on Else Trace off
'If 1 Then Trace on Else Trace off

Static I'static S
If Else'if else

Do 'do
While 1'while 1
Do :While 1'do:while 1

Do While 1'do while 1
Const K'const K

Continue do'continue do
Continue For'continue for


ZZZ:
start:
I=0
Do
 Z=Y
 Y=X
 X=Peek(progmem,I)
 Select Case X
   Case 1
     comment=0
     Print :Print "<1>";
   Case <32
     Print "<" Str$(X) ">";
   Case 32
     If comment Then Print " "; Else Print "_";
   Case 39
     comment=1
     Do While (Pos<30):Print " ";:Loop
     Print "'";
   Case <128
     Print Chr$(X);
   Case Else
     Print "[" Str$(X) "]";
 End Select
 I=I+1
Loop Until (X=90)And(Y=90)And(Z=90)
Print :Print

<1>[160]all<0>
<1>[155]start<0>
<1><0>
<1><0>
<1>[156]1_[177]_[177]on_[173]_[177]off<0>
<1>                          'If 1 Then Trace on Else Trace off<0>
<1><0>
<1>[173]I                    'static S<0>
<1>[156][173]                'if else<0>
<1><0>
<1>[132]                     'do<0>
<1>[179]1                    'while 1<0>
<1>[132]<0>[179]1            'do:while 1<0>
<1><0>
<1>[132][180]_1              'do while 1<0>
<1>[180]K                    'const K<0>
<1><0>
<1>[129]do                   'continue do<0>
<1>[129][172]                'continue for<0>
<1><0>
<1><0>
<1><3><3>ZZZ

>