Listing of file='DMSE.WRS' on disk='vmedia/701-2721C.wvd.zip'
# Sector 679, program filename = 'DMSE.WRS'
3000 REM % W R I T E S
3002 DEFFN'244(J1,B1,S1)
: IF STR(B0$(J1),16,1)="O"THEN 3008
: STOP "WRITES illegal open mode"#
3008 X1=VAL(STR(B0$(J1),19,2),2)
: Y1=VAL(STR(B0$(J1),21,2),2)
: IF Y1<>257THEN 3026
: DATA SAVE BA T(X1)B2$()
: ERRORGOTO 3094
3016 X1=X1+1
: IF X1<=VAL(STR(B0$(J1),14,2),2)THEN 3018
: S1=9
: RETURN
3018 B2$()=ALL(00)
: STR(B2$(),1,2)=BIN(B1,2)
: Y1=3
: GOTO 3062
3026 IF Y1<>256THEN 3044
: STR(B8$,1,2)=BIN(B1,2)
: STR(B2$(),256,1)=STR(B8$,1,1)
: DATA SAVE BA T(X1)B2$()
: ERRORGOTO 3094
3034 X1=X1+1
: IF X1<=VAL(STR(B0$(J1),14,2),2)THEN 3036
: S1=9
: RETURN
3036 B2$()=ALL(00)
: STR(B2$(),1,1)=STR(B8$,2,1)
: Y1=2
: GOTO 3062
3044 IF Y1<>255THEN 3058
: STR(B2$(),255,2)=BIN(B1,2)
: DATA SAVE BA T(X1)B2$()
: ERRORGOTO 3094
3050 X1=X1+1
: IF X1<=VAL(STR(B0$(J1),14,2),2)THEN 3052
: S1=9
: RETURN
3052 B2$()=ALL(00)
: Y1=1
: GOTO 3062
3058 STR(B2$(),Y1,2)=BIN(B1,2)
: Y1=Y1+2
3062 Y2=0
3064 IF B1-Y2>257-Y1THEN 3072
: STR(B2$(),Y1,B1-Y2)=STR(B1$(),Y2+1,B1-Y2)
: Y1=Y1+B1-Y2
: GOTO 3086
3072 STR(B2$(),Y1,257-Y1)=STR(B1$(),Y2+1,257-Y1)
: Y2=Y2+257-Y1
: DATA SAVE BA T(X1)B2$()
: ERRORGOTO 3094
3078 X1=X1+1
: IF X1<=VAL(STR(B0$(J1),14,2),2)THEN 3080
: S1=9
: RETURN
3080 B2$()=ALL(00)
: Y1=1
: GOTO 3064
3086 STR(B0$(J1),19,2)=BIN(X1,2)
: STR(B0$(J1),21,2)=BIN(Y1,2)
: S1=0
: RETURN
3094 PRINT HEX(070E);AT(17,0,);"Disk error ";ERR;" has occurred in module SLE.
EXEC, area BUFMAN";
: STOP #
3100 % SCRATCH T "DMSE.WRS": SAVE T() "DMSE.WRS"