5 IF A=1 THEN 200
6 IFA=>2THEN63000
7 GOSUB60000
10 REM BASIC TRACE UTILITY EXAMPLE
20 PRINT "[147]"
30 PRINT "      **** BASIC TRACE UTILITY ****"
40 PRINT
50 PRINT "[212]HE BASIC TRACE UTILITY IS A MACHINE"
60 PRINT "LANGUAGE ROUTINE THAT WILL SHOW YOU"
70 PRINT "THE LINE NUMBER OF EACH BASIC STATEMENT"
80 PRINT "AS IT EXECUTES."
90 PRINT
100 PRINT "[198]IRST, LOAD THE UTILITY:"
110 PRINT "LOAD "CHR$(34)"TRACE.OJB"CHR$(34)",8,1"
120 IF A=0 THEN A=1:LOAD "TRACE.OBJ",8,1
200 PRINT
210 PRINT "[212]YPE:":PRINT"SYS 49152"
220 PRINT "TO TURN THE TRACE ON AND OFF."
230 PRINT "(NOTE THAT THE SYS CAN BE USED IN"
240 PRINT "IN A PROGRAM ALSO!)"
250 PRINT "PRESS ANY KEY FOR AN EXAMPLE"
260 GETK$:IF K$="" THEN 260
300 PRINT "[147]"
310 PRINT "COUNTING TO 10 WITHOUT TRACE:"
320 GOSUB 1000
330 PRINT "COUNTING WITH TRACE ON:"
340 SYS49152:GOSUB 1000:SYS49152
350 PRINT:PRINT:PRINT
999 GOTO62000
1000 FOR X=1TO 10
1010 PRINT X;
1020 NEXT X
1030 PRINT
1040 RETURN
60000 T$="                         ":C=0:C$="":PRINT"[147]":POKE53281,0
60030 PRINTSPC(7)""T$:PRINTSPC(7)"      [212]RACE [197]XAMPLE      [146]"
60051 PRINTSPC(7)""T$:PRINT:PRINTTAB(18)"BY"
60060 PRINT:PRINTSPC(12)"[208]AUL [202]ATKOWSKI"
60070 PRINT:PRINTSPC(12)"[195]OPYRIGHT 1985"
60080 PRINT:PRINT:PRINT:PRINT"     [204][207][193][196][211][212][193][210] IS NOT PUBLIC DOMAIN."
60090 PRINT:PRINT"  [208]LEASE RESPECT THE AUTHOR'S RIGHTS."
60100 PRINT:PRINT"      [208]RESS SPACE BAR TO CONTINUE."
60110 FORCC=1TO48:GETK$:IFK$=" "THEN60130
60120 IFCC=1THENPRINTMID$(C$,C+2,1)"[145][145]";:C=NOT(C)
60125 NEXT:GOTO60100
60130 PRINTC$:RETURN
62000 PRINT"[215]OULD YOU LIKE TO SEE IT AGAIN?"
62010 POKE198,0:WAIT198,1:GETA$:IFA$="Y"THENRUN
62020 IFA$="N"THEN63000
62030 POKE53280,RND(1)*15:GOTO62010
62050 :
63000 REM    CONNECT BACK TO LS
63010 IFA=1THENA=2:LOAD"ROUTINES V4",8,1
63020 IFA=2THENA=3:LOAD"SIDIRQ V3",8,1
63030 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63040 POKE631,13:POKE632,13:POKE198,2:END