Listing of file='T09A010A' on disk='vmedia/multidisk_diagnostic.wvd.zip'
# Sector 940, program filename = 'T09A010A' 2000 REM T09A010A-02 10/04/78 2010 DIM D$(64)64,C$(1)64,S$9 : S$=HEX(010D0A0A0A0A0A0A0A) 2020 GOSUB '200("MEMORY") : PRINT HEX(01);"PASS # 0" : GOSUB '101 : IF A9$="N"THEN 2020 : GOTO 410 2030 DEFFN'101 : Y=0 : T=0 : GOTO 2220 2040 I=1 2050 D$(I)=C$(1) : I=I+1 : IF I<>65THEN 2050 : $GIO#1(4429A100,B$)D$() : $GIO#1(442AC220,B$)D$() : I=1 2060 IF D$(I)<>C$(1)THEN 2080 2070 I=I+1 : IF I<>65THEN 2060 : GOTO 2220 2080 J=1 2090 IF STR(D$(I),J,1)<>STR(C$(1),J,1)THEN 2110 2100 J=J+1 : IF J<>65THEN 2090 : GOTO 2070 2110 Z=1 : A$=STR(D$(I),J,1) : XOR (A$,STR(C$(1),J,1)) 2120 E$=A$ : AND (E$,80) : IF E$<>HEX(80)THEN 2130 : ON ZGOTO 2140,2150,2160,2170,2180,2190,2200,2210 2130 ROTATE(A$,1) : Z=Z+1 : IF Z<>9THEN 2120 : GOTO 2100 2140 PRINT S$;TAB(24);"MEMORY IC L3 BAD"; : GOSUB '255("MEMORY IC L3 BAD") : GOTO 2130 2150 PRINT S$;HEX(0A);TAB(24);"MEMORY IC L4 BAD"; : GOSUB '255("MEMORY IC L4 BAD") : GOTO 2130 2160 PRINT S$;HEX(0A0A);TAB(24);"MEMORY IC L5 BAD"; : GOSUB '255("MEMORY IC L5 BAD") : GOTO 2130 2170 PRINT S$;HEX(0A0A0A);TAB(24);"MEMORY IC L6 BAD"; : GOSUB '255("MEMORY IC L6 BAD") : GOTO 2130 2180 PRINT S$;HEX(0A0A0A0A);TAB(24);"MEMORY IC L7 BAD"; : GOSUB '255("MEMORY IC L7 BAD") : GOTO 2130 2190 PRINT S$;HEX(0A0A0A0A0A);TAB(24);"MEMORY IC L8 BAD"; : GOSUB '255("MEMORY IC L8 BAD") : GOTO 2130 2200 PRINT S$;HEX(0A0A0A0A0A0A);TAB(24);"MEMORY IC L9 BAD"; : GOSUB '255("MEMORY IC L9 BAD") : GOTO 2130 2210 PRINT S$;HEX(0A0A0A0A0A0A0A);TAB(24);"MEMORY IC L10 BAD"; : GOSUB '255("MEMORY IC L10 BAD") : GOTO 2130 2220 I=0 : T=T+1 : ON TGOTO 2240,2230,2250,2230,2260,2230 : T=0 : Y=Y+1 : PRINT HEX(01);"PASS #";Y : IF Y<>50THEN 2220 : RETURN 2230 ROTATE(C$(1),1) : GOTO 2040 2240 I=I+1 : STR(C$(1),I,1)=HEX(55) : I=I+1 : STR(C$(1),I,1)=HEX(AA) : IF I=64THEN 2040 : GOTO 2240 2250 A$=HEX(00) : FOR I=1TO 64 : STR(C$(1),I,1)=A$ : ADD(A$,11) : NEXT I : GOTO 2040 2260 FOR I=1TO 64 : BIN(STR(C$(1),I,1))=INT((RND(I)*254)+1) : NEXT I : GOTO 2040