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