image of READY prompt

Wang2200.org

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

# Sector 80, program filename = 'ISS.229S'
0010 REM  ISS.229S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0077 DIM R9$(16)16,R9$8,R2$1,R,R3,R4,R5,R6,R9
7065 DEFFN'229(R9,R9$)
   : DATA LOAD BA T#R9,(0,R3)R9$()
   : R4=VAL(STR(R9$(1),2))
   : R9$(1)=R9$
   : XOR (STR(R9$(1),2,7),STR(R9$(1),1,8))
   : R=3*VAL(STR(R9$(1),8))
   : R3=INT(R/256)+MOD(R,256)
   : R3=MOD(R3,R4)+1
   : R=0
   : FOR R5=1TO R4
   : R3=MOD(R3-1,R4)
   : DATA LOAD BA T#R9,(R3)R9$()
   : FOR R6=2-SGN(R3)TO 16
   : R2$=R9$(R6)
   : IF R2$=HEX(00)THEN RETURN
7170 IF R2$<>HEX(21)AND STR(R9$(R6),9)=R9$THEN 7205
   : NEXT R6
   : NEXT R5
   : R2$=HEX(00)
   : RETURN
7205 LIMITS T#R9,R9$,R,R,R,R
   : RETURN