10 KEY
100 WAIT VBL
101 WAIT VBL
110 SET ZONE
120 BAR
130 VARNAME
140 IF
145 IF
146 IF
150 VARNAME
152 IF
155 IF
160 IF
170 IF
180 GOTO
20 VARNAME
30 REM SET UP SCREEN
40 INK
42 INK
45 VARNAME
50 BAR
500 REM 
510 FOR
520 REM 
530 VARNAME
540 LOGIC
545 LOGIC
550 REPEAT
560 VARNAME
570 IF
580 EXTENSION (Index #16) (Token 0x84)
590 SCREEN SWAP
60 LOCATE
600 LOGIC
610 REM THIS BIT DOES THE ZOOM 
620 IF
630 INC
650 ZOOM
660 RETURN
70 INK