10 ! Example: TRACE ALL output to text file
20 DIM A(1:100)
30 Text_f$="C:\test.txt"            !TRACE情報の出力先
40 ON ERROR GOTO 70                 !ファイルが存在した場合、CREATEをスキップ
50                                  !   --- ファイルエラー処理を割愛 ---
60  CREATE Text_f$,0                !データゼロのファイルを作成
70  CONTROL KBD,1;1                 !print-allモードをオン
80  PRINTALL IS Text_f$             !PRINTALL ISの出力先を設定
90    TRACE ALL                     ! TRACE ALL 開始
100    FOR J=40 TO 100 STEP 10
110      A(J)=J
120      PRINT J
130      IF J=60 THEN TRACE OFF      ! J=60 でTRACE 終了
140    NEXT J                           !
150  PRINTALL IS CRT                 !PRINTALL ISの出力先をCRTに設定
160  CONTROL KBD,1;0                 !print-allモードをオフ
170 EXECUTE "TYPE "&Text_f$   !DOSコマンドのTYPEを使用して、ファイルの表示
180  PURGE Text_f$                   !ファイルを削除
190 END