image of READY prompt

Wang2200.org

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