Listing of file='T09A020A' on disk='vmedia/multidisk_diagnostic.wvd.zip'
# Sector 584, program filename = 'T09A020A' 2000 REM T09A020A 1/19/78 2010 DIM D$(64)64,C$(1)64 2020 GOSUB '200("FUNCTION") : GOSUB '102 : IF A9$="N"THEN 2020 : GOTO 420 2030 DEFFN'203 : GOSUB '202("REWIND") : $GIO#1(J2$,B$) : A$=HEX(19) : GOSUB '201 : RETURN 2040 DEFFN'102 : GOSUB '203 : GOSUB '202("WRITE") : FOR I=1TO 64 : BIN(STR(C$(1),I,1))=INT((RND(I)*254)+1) : NEXT I : R=1 : N=R : FOR J=NTO 64 : FOR I=1TO R : D$(I)=C$(1) : NEXT I 2050 $GIO#1(J$,B$)D$()<1,(R*64)> : A$=HEX(EF) : Z=R*64 : GOSUB '201 : R=R+1 : ROTATE(C$(1),1) : NEXT J : GOSUB '203 : R=N : FOR J=RTO 64 : $GIO#1(J1$,B$)D$() : Z=R*64 : A$=HEX(EF) : GOSUB '201 : GOSUB '202("READ") 2060 FOR I=1TO 7 : IF C$(1)=D$(1)THEN 2080 : ROTATE(C$(1),1) 2070 NEXT I : GOTO 2090 2080 I=7 : GOTO 2070 2090 FOR K=1TO R : IF C$(1)<>D$(K)THEN 2110 2100 NEXT K : R=R+1 : NEXT J : GOTO 2120 2110 J=64 : K=R : GOSUB 300 : GOTO 2100 2120 M=65-N : GOSUB '202("BSR") : FOR I=1TO M : $GIO#1(J3$,B$) : E$=STR(B$,7,1) : AND (E$,20) : IF E$<>HEX(20)THEN 2130 : IF I=MTHEN 2130 : GOSUB 300 2130 A$=HEX(1B) : GOSUB '201 : NEXT I : M=64-N : GOSUB '202("FSR") : FOR I=1TO M : $GIO#1(J4$,B$) : A$=HEX(0F) : GOSUB '201 : NEXT I : GOSUB '202("READ") : $GIO#1(J1$,B$)D$() : Z=4096 : A$=HEX(EF) : GOSUB '201 : FOR I=1TO 7 : IF C$(1)=D$(1)THEN 2160 2140 ROTATE(C$(1),1) 2150 NEXT I : GOTO 2170 2160 I=7 : GOTO 2150 2170 FOR K=1TO 64 : IF C$(1)<>D$(I)THEN 2190 2180 NEXT K : GOTO 2200 2190 K=64 : GOSUB 300 : GOTO 2180 2200 GOSUB '203 : GOSUB '202("WRITE GAP") : Y=INT((RND(1)*100)+50) : FOR I=1TO Y : $GIO#1(J5$,B$) : A$=HEX(0D) : GOSUB '201 : NEXT I 2210 INIT(55)C$(),D$() : GOSUB '202("WRITE") : $GIO#1(J$,B$)D$() : A$=HEX(EF) : Z=4096 : GOSUB '201 : GOSUB '203 2220 GOSUB '202("READ") : $GIO#1(J1$,B$)D$() : Z=4096 : A$=HEX(EF) : GOSUB '201 : FOR I=1TO 64 : IF C$(1)<>D$(I)THEN 2240 2230 NEXT I : GOTO 2250 2240 I=64 : GOSUB 300 : GOTO 2230 2250 GOSUB '203 : GOSUB '202("WRITE EOF") : Y=INT((RND(1)*100)+50) : FOR I=1TO Y : $GIO#1(J6$,B$) : A$=HEX(0F) : GOSUB '201 : NEXT I : INIT(AA)C$(),D$() : GOSUB '202("WRITE") : $GIO#1(J$,B$)D$() : A$=HEX(EF) : Z=4096 : GOSUB '201 2260 GOSUB '202("BSF") : FOR I=1TO Y : $GIO#1(J7$,B$) : E$=STR(B$,7,1) : AND (E$,20) : IF E$<>HEX(20)THEN 2270 : IF I=YTHEN 2270 : GOSUB 300 2270 A$=HEX(1B) : GOSUB '201 : NEXT I : GOSUB '202("FSF") : FOR I=1TO Y : $GIO#1(J8$,B$) : A$=HEX(0F) : GOSUB '201 : NEXT I : GOSUB '202("READ") : $GIO#1(J1$,B$)D$() : Z=4096 : A$=HEX(EF) : GOSUB '201 : FOR I=1TO 64 : IF C$(1)<>D$(I)THEN 2290 2280 NEXT I : GOTO 2300 2290 I=64 : GOSUB 300 : GOTO 2280 2300 GOSUB '202("WGAP TO EOT") 2310 $GIO#1(J5$,B$) : A$=HEX(0D) : E$=STR(B$,7,1) : AND (E$,08) : IF E$=HEX(08)THEN 2320 : GOSUB '201 : GOTO 2310 2320 PRINT HEX(010D0A0A0A0A0A0A0A);TAB(49);HEX(0A0A0A0A0A58) : GOSUB '203 : RETURN