NETWORK 1 //NETWORK TITLE (single line)
//
//NETWORK COMMENTS
//
LD SM0.0
FOR #i, +1, #num
AENO
MOVW +0, VW98
AENO
MOVW #i, VW1000

NETWORK 2
LD SM0.0
LPS
MOVD #addr, #t_addr
AENO
MOVB *#t_addr, #d_t
AENO
BTI #d_t, #d_hi
LPP
INCD #t_addr
AENO
MOVB *#t_addr, #d_t
AENO
BTI #d_t, #d_lo

NETWORK 3
LD SM0.0
LPS
ATT #i, VW96
AENO
ATT 16#0006, VW96
AENO
ATT 16#0020, VW96
AENO
ATT 16#0001, VW96
LPP
ATT #d_hi, VW96
AENO
ATT #d_lo, VW96
AENO
+D +2, #addr

NETWORK 4
LD SM4.6
CALL clr, &VB100, VW98

NETWORK 5
LD SM0.0
+I +1, VW1000

NETWORK 6
NEXT