image of READY prompt

Wang2200.org

Listing of file='ISS.220S' on disk='vmedia/701-2424C.wvd.zip'

# Sector sector 183, 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