image of READY prompt

Wang2200.org

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"