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