image of READY prompt

Wang2200.org

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