Listing of file='T27D030B' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 4672, program filename = 'T27D030B' 0005 REM % CETCTEST 11/10/83 REV. 13B1 : REM % TBO MOD FROM 1/15/80 J. BROOKS 0010 REM T27D030B 06/30/77 - SYSTEM 2200 16K TC TEST DIAGNOSTIC 0015 COM Z$,Z9 : Z$="T27D030B" : GOTO 2230 0020 DIM D$4,D1$4,D2$4,D3$4,D4$4,P$80 0040 PRINT : RETURN 0060 GOSUB '202(1) : PRINT HEX(01);"#1= ";F$; : ON L GOTO 40 : PRINT " #2= ";F2$ : RETURN 0070 GOSUB '202(2) : PRINT HEX(01);"#1= ";F$;" #2= ";F2$ : RETURN 0080 FOR J=1TO 8 : PRINT TAB(64) : NEXT J : PRINT HEX(010A0A0A0A0A0A0A) : RETURN : DIM L$2,H$2,R$(4)2 : DIM E$(10),E(10),B$1,C$1,X$(51)16,Y$(30)16 : DIM B$(5)4,S$(7)1,R$1,X5$1 0370 %###### ERRORS OCCURRED IN ###### PASSES 0380 IF N>1THEN 390 0390 K1=K1+1 0400 K=K+1 : FOR I=1TO 999 : NEXT I 0420 PRINT HEX(03);TAB(16);"--";B;"-- REV=";R9;B1$;" BOARD -- 16K T.C. DIAGNO STIC --" : PRINTUSING 370,K1,K-1 : IF K1=0THEN 450 : PRINTUSING 2190,E(1),E(2),E(3) : PRINTUSING 2200,E(4),E(8),E(5) 0450 IF L>2THEN 520 : IF W=0THEN 460 : GOSUB 4210 0460 C=1 : GOSUB 60 : L$=R$(1) : H$=R$(2) : GOSUB 760 : L$=R$(3) : IF L$=HEX(0000)THEN 480 : H$=R$(4) : GOSUB 760 0480 IF B=1THEN 520 : C=2 : GOSUB 70 : L$=R$(1) : H$=R$(2) : GOSUB 760 : L$=R$(3) : IF L$=HEX(0000)THEN 520 : H$=R$(4) : GOSUB 760 0520 B$(1)=D2$ : B$(2)=HEX(14000000) : B$(3)=HEX(00000000) : B$(4)=HEX(00000000) : B$(5)=HEX(00000000) : ON LGOTO 580,610,700,620 0580 C=2 : GOSUB '202(3) : STR(B$(1),2,1)=HEX(20) : GOSUB 1190 : GOTO 400 0610 GOSUB 660 0620 GOSUB 60 : GOSUB 1910 : FOR I=1TO 500 : NEXT I : GOSUB 70 : GOSUB 1910 : GOTO 400 0660 C=3 : GOSUB 60 : GOSUB 1190 : PRINT "REVERSE DIRECTION" : C=5 : GOSUB 70 : GOSUB 1190 : RETURN 0700 C=10 : GOSUB 60 : B$=STR(B$(1),1) : AND (B$,F0) : BIN(C$)=R : OR (C$,B$) : STR(B$(1),1,1)=C$ : GOSUB 1190 : GOSUB 70 : GOSUB 1190 : R=R+1 : IF R<16THEN 700 : RETURN 0760 PRINT HEX(010A0A0A0A0A0A);"-------------------------MEMORY TEST---------- -------------" : GOSUB 80 0820 X$(1)=HEX(0102030405060708090A0B0C0D0E0F10) : J=25 : FOR I=2TO J : X$(I)=X$(I-1) : ADD(X$(I),10) : NEXT I : FOR I=27TO 50 : X$(I)=X$(I-1) : NEXT I : INIT(00)Y$() 0900 PRINT "RESET CONTROLLER NUMBER ";C : ON Z9GOTO 920 : $GIO#1(4580,A$) 0920 GOSUB 3140 : X5$=STR(X$(26),1,1) : PRINT "WRITE RAM WITH TEST PATTERN "; : HEXPRINT X5$ : A$,A1$=L$ : PRINT "READ BACK FROM RAM AND COMPARE RESULTS FROM "; : HEXPRINT L$; : PRINT " TO "; : HEXPRINT H$ 0970 I=1 0980 A1$=A$ : STR(A$,3)=HEX(10) : PRINT "RAM ADDRESS="; : HEXPRINT STR(A$,1,2); : PRINT " WRITE "; : $GIO#1(W0$,A1$)X$(I+25) : IF STR(A1$,8,1)<>HEX(00)THEN 1770 : PRINT "READ "; : $BREAK : $GIO#1(R0$,A$)Y$(I) : IF STR(A$,8,1)<>HEX(00)THEN 1780 : ADD(STR(A$,2,1),10) : IF STR(A$,2,1)<>HEX(00)THEN 1090 : ADD(STR(A$,1,1),01) 1090 PRINT " COMPARE";HEX(0D); : IF X$(I+25)<>Y$(I)THEN 1790 : IF STR(A$,1,2)>STR(H$,1,2)THEN 1150 : I=I+1 : IF I<=JTHEN 980 : GOTO 970 1150 PRINT HEX(010A0A0A0A0A);"......MEMORY TEST ";C;" PASSED......" : RETURN 1180 % CHARS RECEIVED=##### ON LOOP ### OF ### MODE=### 1190 PRINT HEX(010A0A0A0A0A0A);"-----------------------LOOPBACK TEST---------- ------------" : GOSUB 1350 : X=25 : GOSUB 1450 : IF L=2THEN 1220 : REM RETURN 1220 PRINT HEX(010A0A0A0A0A0A);"----------------END OF RECORD LOOPBACK TEST--- ------------" : B$(1)=D4$ : XOR (STR(B$(1),2,1),20) 1250 B$(2)=HEX(14010000) : GOSUB 1350 : INIT(20)X$() : X$(5)="@ABCDEFGHIJKLMNO" : STR(X$(6),1,1)=HEX(D0) : $GIOSETRCVTABLE#2(G3$,A$)X$()<1,256> : X=25 : FOR J=1TO X : X$(J)="ABCDEFGHIJKLMNOP" : NEXT J 1310 C=C+1 : GOSUB 1450 : IF S$(5)>HEX(00)THEN 1840 : RETURN 1350 GOSUB 80 : PRINT "**CCV="; : HEXPRINT B$() : GOSUB 2910 : $GIOLOADCCV#1(G0$,A$)B$() : $GIOLOADCCV#2(G0$,A$)B$() : RETURN 1400 PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A);"COMMUNICATIONS STATUS VECTOR: .B.M. E.#.L.T.R" : $BREAK : $GIO#1(G1$,A$)S$() : PRINT " ON SEND";TAB(31); : HEXPRINT S$() : $BREAK : $GIO#2(G1$,A$)S$() : PRINT " ON RCV";TAB(31); : HEXPRINT S$() : RETURN 1450 PRINT : PRINT "TRANSMIT/RECEIVE TEST DATA" : $GIOSTARTRECV#2(G6$,A$) : FOR J=1TO 100 : NEXT J : INIT(00)Y$() : N=1 : FOR I=1TO X : $GIOSENDDATA#1(G8$,A$)X$(I) 1510 GOSUB 1400 : IF S$(3)<>HEX(FF)THEN 1540 : PRINT "LOOPING 1175-1160 ON ILLEGAL CSV" : INIT(77)S$() : GOTO 1510 1540 IF S$(3)<>HEX(00)THEN 1800 : IF I>8THEN 1560 : PRINTUSING 1180,N-1,I,X,"SND" : GOTO 1590 1560 $BREAK : $GIOINPUTRECEIVEDDATA#2(G7$,A$)Y$()<N> : N=N+VAL(STR(A$,10,1)) : PRINTUSING 1180,N-1,I,X,"S/R" 1590 NEXT I 1630 GOSUB 1400 : IF S$(3)<>HEX(00)THEN 1800 : $GIOINPUTRECEIVEDDATA#2(G7$,A$)Y$()<N> : N=N+VAL(STR(A$,10,1)) : PRINTUSING 1180,N-1,I,X,"RCV" : IF S$(6)<>HEX(00)THEN 1630 : PRINT "COMPARE REC'D, ORIGINAL DATA";HEX(01) : FOR I=1TO X : IF X$(I)<>Y$(I)THEN 1810 : NEXT I : PRINT HEX(010A0A0A0A0A);"....LOOPBACK TEST";C;" PASSED...." : RETURN 1770 E=1 : GOTO 1860 1780 E=2 : GOTO 1860 1790 E=3 : GOTO 1860 1800 E=4 : GOTO 1860 1810 E=5 : GOTO 1860 1820 E=6 : GOTO 1860 1830 E=7 : GOTO 1860 1840 E=8 : GOTO 1860 : E=9 : GOTO 1860 1860 PRINT HEX(010A0A0A);"************************* E R R O R **************** *********" : E(E)=E(E)+1 : IF E<4THEN 1895 : IF E>5THEN 1897 : IF E=4THEN 1898 : PRINT E$(E) : PRINT "TRANSMITTED DATA IS "; : HEXPRINT X$(I) : PRINT "RECEIVED DATA IS "; : HEXPRINT Y$(I) : PRINT "CHECK LOOPBACK CONNECTION";TAB(64) 1892 PRINT "************************* E R R O R *************************" : RETURN CLEAR : GOTO 380 1895 PRINT E$(E) : IF E=1THEN 1896 : PRINT "RECEIVED DATA IS "; : HEXPRINT Y$(I) 1896 GOTO 1892 1897 PRINT E$(E) : GOTO 1892 1898 PRINT E$(E); : PRINT " = PARITY/FRAMING/RECEIVE BUFFER OVERRUN" : PRINT "CHECK CSV WITH S.F.'14 " : GOTO 1892 1910 PRINT HEX(010A0A0A0A0A0A);"-----------------------BREAK-TEST------------- ------------" : GOSUB 80 1911 B$(1)=D3$ : B$(2)=HEX(14000000) : B$(3)=HEX(120C0000) : $GIOLOADCCV#1(G0$,A$)B$() : PRINT "CCV FOR #1="; : HEXPRINT B$() : $GIOLOADCCV#2(G0$,A$)B$() : PRINT "CCV FOR #2="; : HEXPRINT B$() : GOSUB 2910 2000 PRINT : PRINT " .1.2.3.4.5.6.7.8.9.0" : $BREAK : $GIOREADSTATUS#2(G1$,A$)S$() : PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A);"COMMUNICATIONS STATUS VECTOR: "; : HEXPRINT S$() : IF S$(1)<>HEX(00)THEN 1830 : $GIOSENDDATA#2(G8$,A$)X$(1) : FOR J=1TO 20 : NEXT J : $GIOSENDBREAK#1(G5$,A$) 2080 $BREAK : $GIOREADSTATUS#2(G1$,A$)S$() : PRINT HEX(010A0A0A0A0A0A0A0A0A0A0A);"COMMUNICATIONS STATUS VECTOR: "; : HEXPRINT S$() : IF S$(1)<>HEX(00)THEN 2130 : IF S$(7)<>HEX(00)THEN 2080 2130 PRINT HEX(010A0A0A0A0A);"....TEST ";C;"BREAK "; 2140 $BREAK : $GIOREADSTATUS#2(G1$,A$)S$() : IF S$(1)=HEX(00)THEN 2170 2160 DIM K$1 : PRINT " FAILED Key anything to continue" : PRINT "NOTE: with the 2227N Null modem BREAK should work)" : PRINT "With the 2228N the BREAK test will fail one direction" : KEYIN K$ 2170 PRINT " PASSED...." : RETURN 2190 %MEMORY TEST ERRORS... ### WRITE ### READ ### VERIFY 2200 %LOOPBACK TEST ERRORS ### RECEIVE ### EOR ### VERIFY 2230 W0$=HEX(440042104220A000440C) : R0$=HEX(4401421042204230C620) : G0$=HEX(4402A000440C) : G1$=HEX(4403C620) : G2$=HEX(4404A000440C) : G3$=HEX(4405A000440C) : G4$=HEX(4406) : G5$=HEX(4407) : G6$=HEX(4408) : G7$=HEX(4409C620) : G8$=HEX(440AA000440C) : G9$=HEX(440BA000440C) : E$(1)="RAM WRITE ERROR" 2250 DIM P$80 : P$=$PSTAT(1) : IF STR(P$,9,1)="V"THEN 2361 : G1$=HEX(4403102002FF03FF1223C620) : G7$=HEX(4409102002FF03FF1223C620) 2361 E$(2)="RAM READ ERROR" : E$(3)="RAM VERIFY ERROR" : E$(4)="RECEIVE ERROR" : E$(5)="LOOPBACK ERROR" : E$(6)="BRK NOT DETECTED" : E$(7)="BRK NOT CLEARED" : E$(8)="EOR NOT ZERO" : DIM P2$(16)4,P3$(4),P4$(4),P6$(4) : P2$(1)="50" : P2$(2)="75" : P2$(3)="100" : P2$(4)="110" 2440 P2$(5)="134" : P2$(6)="150" : P2$(7)="200" : P2$(8)="300" : P2$(9)="600" : P2$(10)="1200" : P2$(11)="1800" : P2$(12)="2400" : P2$(13)="3600" : P2$(14)="4800" : P2$(15)="7200" : P2$(16)="9600" 2470 P3$(1)="HALF DUPLEX" : P3$(2)="HALF W/DEL" : P3$(3)="FULL DUPLEX" : P3$(4)="FULL W/DEL" : P4$(1)="DISABLE" : P4$(2)="ENABLE T/R" : P4$(3)="BRK ON 2ND" : P4$(4)="BRK INVERTED" : P6$(1)="NO" : P6$(2)="EVEN" : P6$(3)="NO" : P6$(4)="ODD" 2480 GOSUB '102("#1") : GOSUB '102("#2") : GOSUB '200 : GOSUB 3000 2500 PRINT HEX(03),,"WANG SYSTEM DIAGNOSTIC FOR 16K ";B1$ : PRINT "S.F. '1 = 1 BOARD ENTRY--LOOPBACK CONNECTION ADDR.= ";F$ : PRINT "S.F. '2 = 2 BOARD ENTRY--CABLED TOGETHER ADDR= ";F$;" AND ";F2$ : PRINT "S.F. '3 = 2 BOARD TEST (VARYING BAUD RATE)" : PRINT "S.F. '13 = BREAK TEST" 2550 PRINT "S.F. '14 = SHOW CSV" : PRINT "S.F. '15 = SHOW CCV" : STOP " KEY DESIRED START-UP" 2580 DEFFN'1 : B,L=1 : GOSUB 4200 : GOTO 2640 2590 DEFFN'2 : B,L=2 : GOSUB 4200 : GOTO 2640 2600 DEFFN'3 : B=2 : L=3 : PRINT HEX(03),,"LOOPBACK WITH VARYING BAUD RATE" : INPUT "LOW BAUD RATE 0-15",R1 2640 K=1 : K1=0 : FOR J=1TO 10 : E(J)=0 : NEXT J 2660 R=R1 : GOSUB 420 : K=K+1 : GOTO 2660 2670 DEFFN'13 : L=4 : GOTO 2640 2680 DEFFN'29 : PRINT "START RCV " : $GIO#2(G6$,A$) : RETURN 2700 DEFFN'30 : PRINT "READ CSV" : $BREAK : $GIO#2(G1$,A$)S$() 2710 DEFFN'14 : PRINT "CSV (COMMUNICATIONS STATUS VECTOR)=" : PRINT ".1.2.3.4.5.6.7 CHARACTER POSITION" : PRINT : HEXPRINT S$() : PRINT : PRINT ".B.M.E.C.E.T.L MEANING" : PRINT ".R.O.R.O.N.I.E" : PRINT ".E.D.R.U.D.M.F" : PRINT ".A.E.O.N.S.E.T" : PRINT ".K.M.R.T...R.." : RETURN 2800 DEFFN'15 : PRINT "CCV (COMMUNICATIONS CONTROL VECTOR)=" : PRINT "...................1.1.1.1.1.1.1.1.1.1.2 CHARACTER" : PRINT ".1.2.3.4.5.6.7.8.9.0.1.2.3.4.5.6.7.8.9.0 POSITION" : PRINT : HEXPRINT B$(); : PRINT " VALUE" : PRINT : PRINT "SBMBBP.E.T.E.U.D.B.B. MEANING" : PRINT "TAORIA.R.I.O.P.W.R.R." 2860 PRINT "OUDETR.R.M.R. .N.K.K." : PRINT "PDEASI.C.E. C.C. . ." : PRINT " K T H.O.F H.H.S.D." : PRINT " Y A.U.L A.A.N.E." : PRINT " R.T.G R.R.D.T." 2910 C$=STR(B$(1),1) : ROTATE(C$,4) : AND (C$,0F) : PRINT ((VAL(C$)+1))/2;" STOP BITS--"; : C$=STR(B$(1),1) : AND (C$,0F) : PRINT P2$(VAL(C$)+1);" BAUD--"; : R1$=P2$(VAL(C$)+1) : C$=STR(B$(1),2) : ROTATE(C$,4) : AND (C$,0F) : PRINT P3$(VAL(C$)+1);" MODE--"; : C$=STR(B$(1),2) : AND (C$,0F) : PRINT P4$(VAL(C$)+1);" BREAK--" 2960 C$=STR(B$(1),3) : ROTATE(C$,4) : AND (C$,0F) : PRINT VAL(C$)+5;" DATA BITS--"; : C$=STR(B$(1),3) : AND (C$,0F) : PRINT P6$(VAL(C$)+1);" PARITY"; : RETURN 3000 SELECT PRINT 005(64) : PRINT HEX(03);TAB(11);"WANG SYSTEM 2200 16K TC CONTROLLER DIAGNOSTIC" : PRINT "KEY A NUMBER AND (EXEC) TO SELECT CONTROLLER TYPE" : ON Z9GOTO 3100 3001 PRINT " 1 = 2227B" : PRINT " 2 = 2228" : PRINT " 3 = 2228B" : PRINT " 4 = OP 62" : PRINT " 5 = OP 62B" : INPUT "KEY DESIRED OPTION",B1 : B1$=" " : ON B1GOSUB 3080,3090,3110,3120,3130 : IF B1$=" "THEN 3000 : RETURN 3070 DEFFN'99(B1$,R9,R$(1),R$(2),R$(3),R$(4)) : BIN(R$)=R9 : RETURN 3080 GOSUB '99("2227B",6,HEX(1000),HEX(1388),HEX(0000),HEX(0000)) : RETURN 3090 $GIO/01C(4580,A$) : LOAD DC T"2228LOAD" 3100 B1=2 : GOSUB '99("2228",0,HEX(1800),HEX(1B60),HEX(0000),HEX(0000)) : RETURN 3110 GOSUB '99("2228B",3,HEX(1100),HEX(1488),HEX(1500),HEX(2FFF)) : RETURN 3120 GOSUB '99("OP 62",2,HEX(1100),HEX(1488),HEX(1500),HEX(1FFF)) : RETURN 3130 GOSUB '99("OP 62B",3,HEX(1100),HEX(1488),HEX(1500),HEX(2FFF)) : RETURN 3140 A$=HEX(03FF01) : B$=HEX(FF) : IF B1=2THEN 3210 : INIT(00)B$() : $GIO#1(G0$,A$)B$() : $BREAK : $GIOREADREVNUMBER#1(R0$,A$)B$ : IF B$<R$THEN 3180 : R9=VAL(B$) : RETURN 3180 PRINT HEX(03);"DIAGNOSTIC IS FOR PROM REVISION >="; : HEXPRINT R$ : PRINT "CONTROLLER BOARD IS SET WITH PROM="; : HEXPRINT B$ : STOP "CORRECT CONDITION" 3210 RETURN 3220 DEFFN'0 : LOAD DC T"START" 4000 PRINT HEX(03010A0A0A0A0A0A);"---------------------MEMORY TEST------------ ---------" : DIM Q3$(1) : Q=1 : SELECT PRINT 005(64) : PRINT "ENTER RAM TEST PATTERN AND (EXEC)" 4040 KEYIN T$,4050,4040 : GOTO 4040 4050 IF T$>"F"THEN 4040 : IF T$<"0"THEN 4100 : IF T$<="9"THEN 4060 : IF T$<"A"THEN 4040 4060 STR(S0$,Q,1)=T$ : Q1=2 4080 PRINT T$; : Q=Q+1 : IF Q<=Q1THEN 4040 4090 Q=Q-1 : PRINT HEX(08); : GOTO 4040 4100 IF T$<>HEX(08)THEN 4110 : IF Q<2THEN 4040 : GOTO 4090 4110 IF T$<>" "THEN 4120 : T$=HEX(09) : GOTO 4080 4120 IF T$<>HEX(0D)THEN 4040 : FOR Q=1TO Q1/2 : R2$=STR(S0$,2*Q-1,1) : IF R2$<="9"THEN 4140 : ADD(R2$,F9) 4140 ROTATE(R2$,4) : AND (R2$,F0) : R1$=R2$ : R2$=STR(S0$,2*Q,1) : IF R2$<="9"THEN 4150 : ADD(R2$,F9) 4150 AND (R2$,0F) : OR (R1$,R2$) : STR(Q3$(1),Q+3,1)=R1$ : NEXT Q : FOR I=1TO 16 : STR(X$(26),I,1)=STR(R1$,1,1) : NEXT I : RETURN 4200 D=255 : INPUT "MEMORY TEST---ENTER NUMBER CORRESPONDING TO DESIRED PATTERN (0)INPUT FROM CRT (1)RANDOM (2)CYCLIC",W 4210 IF W=1THEN 4220 : IF W=2THEN 4270 : GOTO 4000 4220 BIN(Z$)=INT(256*RND(1)) : FOR I=1TO 16 : STR(X$(26),I,1)=STR(Z$,1,1) : NEXT I : RETURN 4270 BIN(Z$)=D : FOR I=1TO 16 : STR(X$(26),I,1)=STR(Z$,1,1) : NEXT I : D=D+1 : IF D<256THEN 4320 : D=0 4320 RETURN 4500 DEFFN'102(F1$) : SELECT PRINT 005(64) : PRINT HEX(03);TAB(11);"WANG SYSTEM 2200 16K TC CONTROLLER DIAGNOSTIC Re v. 13B1" : PRINT HEX(0A0A0D);"1. 01A","2. 01B","3. 01C" 4510 PRINT : PRINT "4. 01D","5. 01E","6. 01F" : PRINT HEX(0C0C0C0C);" SELECT CONTROLLER ";F1$;" ADDRESS "; 4511 INPUT P : IF P2=P THEN 4700 4515 IF F1$<>"#1" THEN 4600 : P2=P 4520 ON P2 GOTO 4530,4540,4550,4560,4570,4580 4530 SELECT #101A : F$="01A" : RETURN 4540 SELECT #101B : F$="01B" : RETURN 4550 SELECT #101C : F$="01C" : RETURN 4560 SELECT #101D : F$="01D" : RETURN 4570 SELECT #101E : F$="01E" : RETURN 4580 SELECT #101F : F$="01F" : RETURN 4600 ON P GOTO 4620,4630,4640,4650,4660,4670 4620 SELECT #201A : F2$="01A" : RETURN 4630 SELECT #201B : F2$="01B" : RETURN 4640 SELECT #201C : F2$="01C" : RETURN 4650 SELECT #201D : F2$="01D" : RETURN 4660 SELECT #201E : F2$="01E" : RETURN 4670 SELECT #201F : F2$="01F" : RETURN 4700 PRINT HEX(0C0C);"CONTROLLER #2 CAN NOT BE THE SAME ADDRESS AS CONTROLLER #1" : PRINT HEX(090909090909090909090909090909090909090909090909090909090909); : GOTO 4511 4800 DEFFN'202(P4) : IF P4=2THEN 4820 : IF P4=3 THEN 4830 : GOSUB 4520 : GOSUB 4600 : RETURN 4820 P5=P : P=P2 : P2=P5 : GOSUB 4520 : GOSUB 4600 : RETURN 4830 P=P2 : GOSUB 4520 : GOSUB 4600 : RETURN 5000 DEFFN'200 : PRINT HEX(010A0A0A0A0A0A0A0A); : PRINT "BAUD RATE " 5005 PRINT : PRINT "50 75 100 110 134 150 200 300" 5006 PRINT "600 1200 1800 2400 3600 4800 7200 9600" 5007 PRINT HEX(0C0C0C0C09090909090909090909); : INPUT D1$ 5010 RESTORE 5020 P1=P1+1 : READ D$ : IF D$<>" "THEN 5025 : PRINT "INCORRECT BAUD RATE ------- PLEASE RE-ENTER !" : P1=0 : GOTO 5000 5025 IF D$<>D1$ THEN 5020 : GOTO 5030 5030 ON P1 GOTO 5050,5060,5070,5080,5090,6000,6010,6020,6030,6040,6050,6060,60 70,6080,6090,6100 5050 D2$=HEX(100031AA) : D3$=HEX(100231AA) : D4$=HEX(100021AA) : RETURN 5060 D2$=HEX(110031AA) : D3$=HEX(110231AA) : D4$=HEX(110021AA) : RETURN 5070 D2$=HEX(120031AA) : D3$=HEX(120231AA) : D4$=HEX(120021AA) : RETURN 5080 D2$=HEX(130031AA) : D3$=HEX(130231AA) : D4$=HEX(130021AA) : RETURN 5090 D2$=HEX(140031AA) : D3$=HEX(140231AA) : D4$=HEX(140021AA) : RETURN 6000 D2$=HEX(150031AA) : D3$=HEX(150231AA) : D4$=HEX(150021AA) : RETURN 6010 D2$=HEX(160031AA) : D3$=HEX(160231AA) : D4$=HEX(160021AA) : RETURN 6020 D2$=HEX(170031AA) : D3$=HEX(170231AA) : D4$=HEX(170021AA) : RETURN 6030 D2$=HEX(180031AA) : D3$=HEX(180231AA) : D4$=HEX(180021AA) : RETURN 6040 D2$=HEX(190031AA) : D3$=HEX(190231AA) : D4$=HEX(190021AA) : RETURN 6050 D2$=HEX(1A0031AA) : D3$=HEX(1A0231AA) : D4$=HEX(1A0021AA) : RETURN 6060 D2$=HEX(1B0031AA) : D3$=HEX(1B0231AA) : D4$=HEX(1B0021AA) : RETURN 6070 D2$=HEX(1C0031AA) : D3$=HEX(1C0231AA) : D4$=HEX(1C0021AA) : RETURN 6080 D2$=HEX(1D0031AA) : D3$=HEX(1D0231AA) : D4$=HEX(1D0021AA) : RETURN 6090 D2$=HEX(1E0031AA) : D3$=HEX(1E0231AA) : D4$=HEX(1E0021AA) : RETURN 6100 D2$=HEX(1F0031AA) : D3$=HEX(1F0231AA) : D4$=HEX(1F0021AA) : RETURN 6200 DATA "50","75","100","110","134","150","200","300","600","1200","1800","2 400","3600","4800","7200","9600"," "