Listing of file='SYNTAX1' on disk='vmedia/701-2047D.wvd.zip'
# Sector 93, program filename = 'SYNTAX1'
0010 REM SYNTAX1,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976
0020 REM . SYSTEM NAME = WCS IPL-DIAGNOSTIC
0030 REM . PROGRAAM NAME = SYNTAX VERIFICATION PROGRAM(2)
0040 REM . DATE WRITTEN = 05/30/75
0050 REM . VERIABLE LIST
0051 REM . I. SCRATCH ALPH-ARRAY
0052 REM . A$(),A0$(),C$(),C7$(),X$(),X0$()
0054 REM . II. SCRATCH NUM-ARRAY
0055 REM . A(),S(),W(),W1(),W3(),X(),X0()
0056 REM . III. SCRATCH ALPHA VERIABLE
0057 REM . A$,M$,L$
0058 REM . IV. SCRATCH NUMERIC VERIABLE
0059 REM . A,A1,B,B2,C,D,I,J,K,L,M,M9,S,T,X,Y
0100 GOTO 3270
0110 PRINT HEX(030A0A0A0A0A);,"CPU VERIFY TEST PASSED"
0120 COM CLEAR
0130 LOAD DC T#0,"IPL-DATE"
1580 REM . 'LOAD' (P #31)
1590 LOAD
1600 LOAD #2,"LOAD" 1900,3270
1610 LOAD /10F,"10B"
1620 LOAD /618, 1870,2000
1630 LOAD #5,1870,2000
1640 LOAD /41D
1650 LOAD /517,"PROGRAM"
1660 REM . 'FOR & NEXT' (P #32)
1670 FOR I = -10 TO 10 STEP 2
1680 FOR A = 0 TO -100 STEP -20
1690 FOR C = B+C^2 TO T/(2*A) STEP .05
1700 FOR A0 = X(I) TO COS(X(I)) STEP -.05
1710 NEXT A0
1720 NEXT C
1730 NEXT A
1740 NEXT I
1750 REM . 'IF... THEN & IF END THEN' (P #33)
1760 IF STR(X$(I),J,I) <> "IF" THEN 3270
1770 IF X(I) >= 5*COS(T) THEN 3270
1780 IF (X^Y+Z) <= Z THEN 3270
1790 IF RND(1)*256 = RND(1)*125+35 THEN 3270
1800 IF TAN(T)*ARCSIN(T) < EXP(T) THEN 3270
1810 IF A$(I,J) > STR(X$(J),K,L) THEN 3270
1820 IF END THEN 3270
1830 REM . 'DATA' (P #34)
1840 DATA 0,"EOF01",-1.25E+64,14.967854102,"MASSSS1098$XZ"
1850 DATA "GOOD",1.587E-35,"ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789/?;#$%^&*(
)!-=+<>@",1.236987E+87,-1.45789E-24
1860 REM . 'INIT' (P #35)
1870 INIT(5A)A$(),A0$(),A$,A0$
1880 INIT(A$)X$(),X0$(),STR(A$,I)
1890 INIT(" ")A$
1900 REM . 'DIM' (P #36)
1910 DIM C$(3,2)15,C7$(5)28,S(2,2),W3(2,2),A(5),W(5),W1(5)
1920 REM . 'END' (P #37)
1930 END
1940 REM * DISK INSTRUCTIONS
1950 REM . 'SCRATCH' (P #38)
1960 SCRATCH F #2,B$,STR(A$,I),"OLD"
1970 SCRATCH R/320, "TEMP"
1980 SCRATCH T #A, "FILE A",B$
1990 SCRATCH DISK R #2, LS=M, END =9700
2000 SCRATCH DISK T #X, END =1000
2010 SCRATCH DISK T/350, END =V*B/2
2020 REM . 'VERIFY' (P #39)
2030 VERIFY F #A, (A,B)
2040 VERIFY R
2050 VERIFY T #5,(100,9000)
2060 VERIFY F/320,(X,X+100)
2070 REM . 'MOVE' (P #40)
2080 MOVE #2, FR
2090 MOVE /320, RF
2100 MOVE #Z, RF
2110 MOVE FR
2120 REM . 'MOVE END' (P #41)
2130 MOVE END F #5 = 9700
2140 MOVE END R = ((X^2-Y)/Z)+L
2150 MOVE END T = T
2160 REM . 'COPY' (P $42)
2170 COPY #2, FR(Y*2,X+B)
2180 COPY /320, RF(L+49,L+8000)
2190 COPY #X, FR(0,9791)
2200 REM . 'LIST DC' (P #43)
2210 LIST DC F #5
2220 LIST DC R/330
2230 LIST DC T #M0
2240 LIST DC R
2250 REM . 'DSKIP' (P #44)
2260 DSKIP #M, END
2270 DSKIP #4, 20S
2280 DSKIP ((A+B)/X)S
2290 DSKIP END
2300 DSKIP T+S*X*TAN(T)
2310 REM . 'DBACKSPACE' (P #45)
2320 DBACKSPACE #X0, BEG
2330 DBACKSPACE #5, (S/M)^2+INT(RND(0)*10)
2340 DBACKSPACE #A,200
2350 DBACKSPACE BEG
2360 DBACKSPACE #M,((A+5)/X)S
2370 DBACKSPACE SS
2380 REM . 'LIMITS' (P #46)
2390 LIMITS T #A(I), A,B,C
2400 LIMITS F #1,STR(B$,I),X(I),Y,X0(T)
2410 LIMITS R "FILE1",A,A1,K
2420 REM . 'LOAD DA' (P #47)
2430 LOAD DA F (Y*I/2,M$)2850,3270
2440 LOAD DA R/320, (6,M$) 3270
2450 LOAD DA T #A,(100,C)
2460 REM . 'LOAD DC' (P #48)
2470 LOAD DC F #2, STR(B$,I)
2480 LOAD DC R/320, "LOAD" 1900,5000
2490 LOAD DC T #X,B$
2500 LOAD DC F "LOAD"
2510 REM . 'DATASAVE BA" (P #49)
2520 DATA SAVE BA F(L$,L$)A$()
2530 DATA SAVE BA T #2,(100,A) X$()
2540 DATA SAVE BA R $ #A,(A1,M$) X0$()
2550 DATA SAVE BA T $/310, (A,A1) A$()
2560 REM . 'DATASAVE DA' (P #50)
2570 DATA SAVE DA F$/320,(A,B)END
2580 DATA SAVE DA T #A,(I*K-1,B$)A$(), "SAVE"
2590 DATA SAVE DA R(D,D) X,X0,X(),X0(),STR(C$,I,J)
2600 DATA SAVE DA T $/330,(X,X$)STR(A$(I,J),J)
2610 REM . 'DATALOAD BA' (P #51)
2620 DATA LOAD BA F #2,(B$,B$) C$()
2630 DATA LOAD BA R/320, (A,B$) X0$()
2640 DATA LOAD BA T #1,(A,A) X$()
2650 DATA LOAD BA F (24,L)C$()
2660 REM . 'DATALOAD DA' (P #52)
2670 DATA LOAD DA F #2,(A,M$) X,X0()
2680 DATA LOAD DA R/320,(A,A) X$(), STR(B$,I)
2690 DATA LOAD DA T #Z,(100,A) B2,X0$()
2700 DATA LOAD DA R(A$,A$)T,B$
2710 REM . 'DATASAVE DC OPEN' (P #53)
2720 DATA SAVE DC OPEN F #C,(Y*SIN(X))*100,"OPEN"
2730 DATA SAVE DC OPEN R TEMP,1001, 9791
2740 DATA SAVE DC OPEN T #6, RND(1)*Y, STR(A$(I,J),J)
2750 DATA SAVE DC OPEN F 5000,"OK"
2760 DATA SAVE DC OPEN R $ #4,"OLD", STR(B$,I,J)
2770 REM . 'DATASAVE DC' (P #54)
2780 DATA SAVE DC $ #6, STR(A$(I,J),J), SIN(T)+RND(1)*250
2790 DATA SAVE DC A,A0,X$(),STR(A$,I)
2800 DATA SAVE DC $ #4, END
2810 DATA SAVE DC #X, A$(),X0$(), "DC"
2820 REM . 'DATASAVE DC CLOSE' (P #55)
2830 DATA SAVE DC CLOSE#4
2840 DATA SAVE DC CLOSEALL
2850 DATA SAVE DC CLOSE
2860 REM . 'DATALOAD DC OPEN' (P #56)
2870 DATA LOAD DC OPEN F #5, TEMP, 1000,9000
2880 DATA LOAD DC OPEN R STR(A$(A,B),H)
2890 DATA LOAD DC OPEN T #X,"FILESS"
2900 REM . 'DATALOAD DC' (P #57)
2910 DATA LOAD DC X(),X0(),STR(A$,T)
2920 DATA LOAD DC #M9, X,STR(A$(I,J),J),X0$()
2930 REM * OPTION 2 INS.
2940 REM . '$IF ON' (P #59)
2950 $IF ON 3270
2960 $IF ON #2, 3270
2970 $IF ON /517, 3270
2980 REM . '$TRAN' (P #60)
2990 $TRAN(A$,C$())0F
3000 $TRAN(STR(A$,J),C$())
3010 $TRAN(A$,M$)R
3020 REM . '$GIO' (P #61)
3030 $GIO RAED /03A (A$,B$)C$()<1,X>
3040 $GIO WRITE #1 (6CFA 4400 A206 8607,B$)C$()<X1,X2>
3050 $GIO BWT /07B (6CF0 4400 8607,B$)
3060 REM . '$UNPACK' (P #62)
3070 $UNPACKA$ TO Y
3080 $UNPACK(F=F$) A$() TO X()
3090 $UNPACK(D = STR(A$,2)) X$() TO X,X0,X0(1)
3100 $UNPACKA0$() <X,Y*5/M> TO X()
3110 REM . '$PACK' (P #63)
3120 $PACK STR(A$,4,I) FROM Z,X0,W3(1,2)
3130 $PACK(F=M$) A$() FROM W3(),S()
3140 $PACK(D=STR(A$,7)) A0$() FROM STR(X$(J),K),X0(1)
3150 $PACKA0$() <1,L> FROM W3()
3160 REM * 2200C INS.
3170 REM . 'COM CLEAR' (P #64)
3180 COM CLEAR X0$()
3190 COM CLEAR X()
3200 REM . 'DEFFN'HEX' (P #65)
3210 DEFFN'18HEX(03);"FOR THE DISK ";HEX(0D)
3220 REM . 'ON ERROR' (P #66)
3230 ON ERROR A$,M$ GOTO 3310
3240 REM . 'RETURN CLEAR' (P #67)
3250 RETURN CLEAR
3260 REM
3270 X=100^2/250
3280 SELECT D
3290 Y=X*SIN(30)*TAN(45)*COS(60)-2
3300 IF X=(Y+2)*4 THEN 110
3310 STOP "ERROR ON CPU"