Listing of file='ISS.248S' on disk='vmedia/701-2424C.wvd.zip'
# Sector 233, program filename = 'ISS.248S' 0010 REM ISS.248S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0071 DIM U1,U2,U4,Q5$64 6025 DEFFN'248(U1,U2,U4) : U4=ABS(U4) : $GIO/005(7601,Q5$) : $TRAN(Q5$,HEX(400050102020))10R : IF U4>24THEN PRINT HEX(03);AT(U1,U2); : ELSE PRINT AT(U1,U2,SGN(U4)*(VAL(Q5$)-U2)+(U4-1)*VAL(Q5$)); : RETURN