Listing of file='T09A020A' on disk='vmedia/cs386_host_1.2.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