Listing of file='ISS.220S' on disk='vmedia/701-2427C.wvd.zip'
# Sector 63, program filename = 'ISS.220S'
0010 REM ISS.220S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0074 DIM U8$64,U9$8,U0,U3,U6,U9
6130 DEFFN'220(U8$)
: GOSUB '200(" "," ",8,0,U8$,2)
: GOSUB '221(Q6$)
: IF Q6$="E"THEN 6130
: GOSUB '223(U9)
6175 PRINT AT(1,0);"IS DATE OK? (Y/N)",U9$,U9;TAB(80);TAB(80);TAB(80)
: GOSUB '200(" "," ",1,0," ",2)
: IF Q6$="N"THEN 6130
: IF Q6$<>"Y"THEN 6175
: RETURN
6205 DEFFN'222(U8$)
: GOSUB '200(" "," ",5,0,U8$,1)
: GOSUB '223(Q9)
: GOSUB '221(U9$)
6245 PRINT AT(1,0);"IS DATE OK? (Y/N)",U9$,U9;TAB(80);TAB(80);TAB(80)
: GOSUB '200(" "," ",1,0," ",2)
: IF Q6$="N"THEN 6205
: IF Q6$<>"Y"THEN 6245
: RETURN
6275 DEFFN'221(U9$)
: U0,U6,U9=0
: $UNPACK(D=HEX(002F))U9$TO U0,U6,U9
: ERRORU0=0
6290 IF U0<1OR U0>12OR U9<1OR U9>99THEN 6365
: Q6$=HEX(001F1C1F1E1F1E1F1F1E1F1E1F)
: IF MOD(U9,4)=0THEN STR(Q6$,3,1)=HEX(1D)
: IF U6<1OR U6>VAL(STR(Q6$,U0+1,1))THEN 6365
: U9$=" / / "
: CONVERT U0TO STR(U9$,,2),(##)
: CONVERT U6TO STR(U9$,4,2),(##)
: CONVERT U9TO STR(U9$,7,2),(##)
: ADD(STR(Q6$,1,U0),STR(Q6$,2,U0))
6345 U9=U9*1E3+VAL(Q6$)+INT(U0/9)*256-VAL(STR(Q6$,U0+1,1))+U6
: RETURN
6365 Q6$="E"
: RETURN
6420 DEFFN'223(U9)
: GOSUB '224(U9)
: U9=Q9
: Q9=INT(U9/1E3)
: Q6$=HEX(001F3B5A7897B5D4F311304E6D)
: IF MOD(Q9,4)=0THEN STR(Q6$,3)=ADDALL(HEX(01))
: FOR U6=1TO 12
: IF VAL(STR(Q6$,U6+1,1))+INT(U6/9)*256>=U9-Q9*1E3THEN 6490
: NEXT U6
6490 U0=U9-Q9*1E3-VAL(STR(Q6$,U6))-INT(U6/10)*256
: CONVERT U6*1E6+U0*1E3+Q9TO U9$,(########)
: U9$=XOR HEX(00001F00001F0000)
: RETURN
6520 DEFFN'224(Q9)
: U0=INT(365.25*(INT(Q9/1E3)-1))+Q9-INT(Q9/1E3)*1E3
: Q9=INT(U0/365.25)
: Q9=Q9-1+SGN(U0-INT(365.25*Q9))
: Q9=Q9*1E3+(U0-INT(365.25*Q9))+1E3
: RETURN
6570 DEFFN'225(U0,U6)
: U3=INT(365.25*(INT(U6/1E3)-1))+U6-INT(U6/1E3)*1E3
: U3=U3-(INT(365.25*(INT(U0/1E3)-1))+U0-INT(U0/1E3)*1E3)
: RETURN