Network 1 
LD     SM0.0
MOVD   0, VD0
Network 2 
LD     SM0.0
FOR    VW4, 0, 199
Network 3 
LD     SM0.0
LPS
MOVD   &VB4050, AC1
AENO
MOVD   VD0, VD10
AENO
+D     AC1, VD10
AENO
+D     2, VD0
LPP
AW=    VW810, *VD10
MOVW   VW4, VW6
Network 4 
NEXT
Network 5 
LD     SM0.0
MOVD   &VB2000, VD14
ITD    VW6, VD18
MOVD   +10, VD22
*D     VD18, VD22
+D     VD22, VD14
BMB    *VD14, VB170, 10