=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: SUB_PAGE NewPage FROM FromPage ; { (WindowNumber) | ; ({VERTICAL|HORIZONTAL} FromWindow ForWindows) | ; (RECTANGULAR FromWindow NumColumns NumRows) } {...} Parameters: Description: =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#PUSH !Zg // h is the number of windows on
#SET ZG$ 0 // the sub page.
#DATA // start up the arguments
#IFDEF !3
#DPUSH !3 // based on variable page number
#ELSE
#CHECK !3.N _U
#DPUSH !3.N // based on absolute page number
#ENDIF
SUB$IMAGE$DEFINE !4 !5 !6 !7 !8 !9 // loop thru the passed arguments
#DPUSH |CI!Zg // store the number of windows
#IFDEF !1.N
#IFCLASS !1.N "C"
#ERROR DFERR_COMP_DUPLICATE_PAGE_NAME SUB_PAGE !1 ALREADY DEFINED AS A PHYSICAL IMAGE
#ELSE
!A [] REDEFINE$SUB$PAGE !1.N |VL // create the sub image
#ENDIF
#ELSE
INTEGER !1.N // create a int to place page # into
!A [] CREATE$SUB$PAGE !1.N |VL // create the sub image
#ENDIF
#POP ZG$ // restore our general counter