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"