Listing of file='HASPSDSK' on disk='vmedia/731-0111.wvd.zip'
# Sector 58, program filename = 'HASPSDSK'
0010 REM HASPSDSK 02/27/81, DISK READ VIA SEARCH, COPYRIGHT WANG LABS,1978
0100 GOTO 9900
: ON AGOTO 1040,3300,5004
1040 ON W(H)GOSUB 3600,3630,3660,3290,3380,3470,3000
3000 IF W(2)>0THEN 100
: O$(6)=HEX(0000)
: W(2)=2
: O1$(4)=HEX(00)
: MAT COPY Y$()<Y3,1>TO O$()<12,1>
: Y4=VAL(STR(O$(6),2))
: MAT COPY Y$()<Y3+1,Y4>TO O0$()<1,Y4>
: Y3=Y3+Y4+1
: IF Y3<>Y5THEN 100
: IF STR(Y$(1),1,1)=HEX(F0)THEN 3120
3030 DATA LOAD DC #1,Y$()
: Y5=VAL(STR(Y$(1),2))
: Y3=3
: RETURN
3080 O1$(4)=HEX(01)
: GOSUB '87(H9,1,12,"Done")
: GOSUB '93
: W(H)=-1
: GOSUB '87(2,23,5,"SEND")
: RETURN
3120 IF Y1=0THEN 3080
: IF Y9$<>"1"THEN 3220
: O1$(4)=HEX(01)
3220 A$="Sending"
: STR(A$,13)=Y1$(Y1)
: GOSUB '87(H9,1,20,A$)
: GOSUB '86(2,23,"Abort")
: O1$(6)=HEX(01)
: O1$(8)=Y8$
: DATA LOAD DC OPEN T#1,Y1$(Y1)
: Y1=Y1+1
: IF Y1<>Y2THEN 3030
: Y1=0
: GOTO 3030
3270 A$="Send from Disk"
3275 GOSUB '96(H,4,"Enter Address 1=310 2=B10 3=320 4=B20 5=330 6=B30 7
=350")
3290 A=VAL(K2$(1))-48
: IF A<1THEN 3270
: IF A>7THEN 3270
: IF K1$="unavailable"THEN PRINT AT(3,0);Z2$;" is unavailable"
: ON AGOSUB 3315,3320,3325,3330,3335,3340,3345
3300 GOSUB '97(1)
: IF K1$=" "THEN 3307
: STR(A$,5)=K1$
: GOTO 3275
3307 Z$=" "
: HEXPACKZ$FROMSTR(Z2$,2,1)
: K1$=" "
: GOSUB '120(Z$,K1$)
: IF K1$="unavailable"THEN 3275
: GOSUB '86(H9,38,A$)
: Y1=1
: INIT(20)Y1$()
: GOTO 3360
3315 SELECT #1310
: A$,Z2$="310"
: RETURN
3320 SELECT #1B10
: A$,Z2$="B10"
: RETURN
3325 SELECT #1320
: A$,Z2$="320"
: RETURN
3330 SELECT #1B20
: A$,Z2$="B20"
: RETURN
3335 SELECT #1330
: A$,Z2$="330"
: RETURN
3340 SELECT #1B30
: A$,Z2$="B30"
: RETURN
3345 SELECT #1350
: A$,Z2$="350"
: RETURN
3355 A$="LAST FILE NAMED="
: STR(A$,17)=A$(1)
3360 K1$="ENTER FILE NAME"
: CONVERT Y1TO STR(K1$,18,2),(##)
: GOSUB '96(H,5,K1$)
3380 MAT COPY K2$()TO A$()
: Y1$(Y1)=A$(1)
: IF Y1$(Y1)=" "THEN 3435
: GOSUB '229(1,Y1$(Y1))
: IF B$=HEX(00)THEN 3415
: IF B$=HEX(11)THEN 3415
: Y1=Y1+1
: IF Y1=10THEN 3435
: GOTO 3355
3415 A$="REENTER="
: STR(A$,10)=A$(1)
: Y1$(Y1)=" "
: GOTO 3360
3435 Y9$=" "
: Y2=Y1
: Y1=1
: ON Y2GOTO 3800,3480
: GOSUB '96(H,6,"SEND FILES SEPARATELY OR COMBINED AS ONE (1=SEPARATE)")
3470 Y9$=K2$(1)
3480 W(K)=1
: W(H)=7
: GOTO 3220
3600 GOSUB '85(H9,1,22)
3630 IF W(1)=1THEN 3650
: W(H)=2
: RETURN
3650 A$="Send from Disk"
: GOSUB '96(H,3,"1=Normal 2=Transparent")
3660 Y8$=HEX(00)
: IF K2$(1)="1"THEN 3270
: IF K2$(1)<>"2"THEN 3650
: Y8$=HEX(01)
: GOTO 3270
3700 DEFFN'120(Z$,K1$)
: $GIO(731002000301122270A040008600,Z$)
: ERRORX=ERR
: K1$="unavailable"
: RETURN
3720 IF STR(Z$,8,1)=HEX(00)THEN RETURN
: K1$="unavailable"
: RETURN
3800 W(H)=-1
: W(K)=1
: GOSUB '92
: GOSUB '87(2,23,5,"SEND")
: GOSUB '85(H9,1,16)
: GOSUB '85(H9,46,18)
: RETURN
5004 GOSUB '87(H9,23,41,"Send Disk")
6500 DEFFN'229(Z9,STR(A$,1,8))
: DATA LOAD BA T#Z9,(0,Z3)Z9$()
: AND (STR(Z9$(1),2,1),7F)
: Z4=VAL(STR(Z9$(1),2,1))
: STR(A$,9,8)=STR(A$,1,8)
: XOR (STR(A$,10,7),STR(A$,9,8))
: B$=STR(A$,16,1)
: STR(A$,18,2)=HEX(0000)
6550 ADDC(STR(A$,18,2),B$)
: ADDC(STR(A$,18,2),B$)
: ADDC(STR(A$,18,2),B$)
: ADD(STR(A$,18,1),STR(A$,19,1))
: Z3=VAL(STR(A$,18,2))
: Z3=Z3-INT(Z3/Z4)*Z4
: Z5=Z3
6620 DATA LOAD BA T#Z9,(Z3,Z8)Z9$()
: Z6=0
: FOR Z7=1TO 16
: IF Z3<>0THEN 6680
: IF Z7<>1THEN 6680
: Z7=2
6680 B$=STR(Z9$(Z7),1,1)
: IF B$=HEX(00)THEN 6740
: IF B$=HEX(10)THEN 6720
: IF B$<>HEX(11)THEN 6750
6720 IF STR(Z9$(Z7),9,8)<>STR(A$,1,8)THEN 6750
: Z6=Z7
6740 Z7=16
6750 NEXT Z7
: IF B$=HEX(00)THEN 100
: IF Z6<>0THEN 100
: B$=HEX(00)
: Z3=Z3-1
: IF Z3=Z5THEN 100
: IF Z3>=0THEN 6620
: Z3=Z4-1
: GOTO 6620