Listing of file='%CROSS' on disk='vmedia/tbo_81.wvd.zip'
# Sector 621, program filename = '%CROSS' 0010 REM %CROSS 1/18/79 CROSSnK + CROSSRF +CROSSRF0 T.OLSEN WANG R&D 0110 REM % SYSTEM REQUIREMENTS 0120 REM % EQUIPMENT-- 0130 REM WANG 2200 vp, mvp,T or C WITH OPTION 5 OR WCS SYSTEM 0140 REM MINIMUM MEMORY REQUIRED 16K MAX=32K 0150 REM % PERIPHERALS USED 0160 REM %0 /215 Line Printer, /10A Cassette, /005 CRT 0170 REM %0 #0 CROSSRF Disk, #2 Program Disk 0180 REM % OTHER VARIABLE MEANINGS 0190 REM %0A Disk Sector, B Text Bytes, I$( Byte test values 0200 REM %0 A$( Read area, A$(1 Record IDent 0210 REM %0B$ Char, B$( Text, C Line Pos, C$ Prt.data 0220 REM %0C$( Verb tbl,D Device flag,D$ Date,D$( Var.Meanings 0230 REM %0R Comment str, R1 Comment ptr, R$( Comment text 0240 REM %0D6 Save comments, D7 D8*Size, D8 # Meanings 0250 REM %0E$ Name+Comment, E$( File Comments, E Even page 0260 REM %0F S.F.Index, F$( S.F.Table, V2$ Verb atom match 0270 REM %0H$ Header byte,I Indent,J Ptr,L Line #,L$ Stmt No. 0280 REM %0L9 Lines/Page, M Margin,M1 Reset,M$( Search find 0290 REM %0 M2 Right column, M3 M1+M2, M9 Right margin 0300 REM %0N$( Next 4 chars, P$ Prog.Name,P$( Prog.Names 0310 REM %0P Page,P5 Print flag,P6 Current file #,P7 # Files 0320 REM %0Q Var.Index,Q1 Annotation flag,Q$ Next 4 Chars 0330 REM %0Q$( Var.Table, S # Lines,S1 # Stmts,S2 Start stmt,S3 End Stmt 0340 REM %0S$ MAT Verbs, T Stmt index,T$( Stmt tbl,T1 Array dim. 0350 REM %0T1$ Search for,T1$( SORT tbl,T2$( SORT Tbl 0360 REM %0U Ptr,U$( This line refs,R0$ REM%0 Table 0370 REM %0V Verb ptr,V$ Verb atom,V1$ Prior verb,W flag 0380 REM %0X Oflo Index,X$( Var Refs,X0$( Var.oflo 0390 REM %0R$ R$1,H H,G G,Z Z 0400 REM %SPECIAL FUNCTIONS 0410 REM %0 '0 Surface media, '1 Entry-Disk names 0420 REM %0 '2 Fiqure Dimensions, '3 List changes 0430 REM %0 '10 Summry to PRT/go, '11 Summary only, '12 Description 0440 REM %0 '13 Capacities, '14 List options, '15 S.F.Action