/WAIT SUBROUTINE FOR PATTERN RECOGNITION/
FIELD 0
DELXAD=130
X1AD=131
PRODAD=132
XX=146
YY=147
COUNT=125
INDEXC=121
INDEXP=123
DELTAX=144
DELTAY=145
X1=150
Y1=151
TEMP=115
FLAG=152
CRLF=33
MESS=50
LISN=43
DISPLAY=7000
TYPE=26
BSW=7002
YW=156
XW=157
NEWPTR=160
CURPTR=161
CNTR=162
CNT=163
*0166
FLAG1,0
FLAG2,0
*4325
LOADIT, 0
 TAD (-4)
 DCA INDEX
 TAD I 17
 CMA
 6166
 ISZ INDEX
 JMP .-4
 6162
 CLA CLL
 JMP I LOADIT
INDEX,0
FLAGCH,0
 TAD FLAG1
 SZA CLA
 JMP FL
 TAD FLAG2
 SNA CLA
 JMP I FLAGCH
 TAD CURPTR
 TAD CONST1
 DCA NEWPTR
 DCA FLAG2
 JMP I FLAGCH
FL, TAD CURPTR
 TAD CONST2
 DCA NEWPTR
 DCA FLAG1
 JMP I FLAGCH
CONST1,-1737
CONST2,-1640
*4400
WAIT,0
 TAD (-40)
 DCA CNT
 TAD (100)
 DCA XW
 TAD (100)
 DCA YW
 TAD (5000)
 DCA CURPTR
 TAD (400)
 DCA DELTAY
 DCA FLAG1
 DCA FLAG2
 TAD (DUMWIN-1)
 DCA 17
 JMS LOADIT
 6501
 JMP .-1
 CLA CLL
LOAD, TAD (145)
 DCA 17
 JMS LOADIT
WINDOW, TAD YW
 TAD DELTAY
 DCA YW
 TAD (100)
 TAD YW
 DCA Y1
 TAD (-100)
 TAD YW
 DCA YY
 TAD (100)
 TAD CURPTR
 DCA NEWPTR
 JMS FLAGCH
 TAD (300)
 TAD YW
 SZA CLA
 JMP WL1
 TAD (200)
 TAD YW
 DCA YW
 ISZ FLAG1
 JMP DPDATA
WL1, TAD (100)
 TAD YW
 SZA CLA
 JMP DPDATA
 TAD DELTAX
 TAD XW
 DCA XW
 TAD (-100)
 TAD XW
 DCA XX
 TAD (100)
 TAD XW
 DCA X1
 TAD YY
 DCA Y1
 TAD (-200)
 TAD YW
 DCA YW
 ISZ FLAG2
 ISZ CNT
 JMP DPDATA
 JMP I WAIT
DPDATA, 6500
6501
 JMP .-1
 DCA I CURPTR
 TAD NEWPTR
 DCA CURPTR
 TAD (-5)
 DCA CNTR
 TAD DISCH1
 6166
 TAD DISCH1
 6166
 TAD DISCH1
 6166
 TAD DISCH1
 6166
 6162
 ISZ CNTR
 JMP .-12
 JMP LOAD
DISCH1,7677
DUMWIN, 2000;2000;2200;2200
DST, TEXT /DATA IS STORED./
$