image of READY prompt

Wang2200.org

Listing of file='CIOT041' on disk='vmedia/731-0111.wvd.zip'

# Sector 505, program filename = 'CIOT041'
0010 REM CIOT041,11/20/79, DISK SAVE W/O CTRLS, COPYRIGHT WANG LABS,1979
0100 GOTO 9900
   : ON AGOTO 120,140,3000
0120 COM X,X0,X1,X2,X$8
0140 COM X$(4)62,X3,X4
3000 IF A1$(5)=HEX(0000)THEN 3130
   : X3=VAL(STR(A1$(5),2))
   : IF X4+X3<249THEN 3110
   : BIN(STR(X$(1),2,1))=X4
   : DATA SAVE DC #2,X$()
   : X4=3
3110 MAT COPY A1$()<10,1>TO X$()<X4,1>
   : MAT COPY I$()<1,X3>TO X$()<X4+1,X3>
   : X4=X4+X3+1
3130 AND (A1$(1),01)
   : ON VAL(A1$(1))GOTO 3170
   : RETURN
3160 X4=3
   : STR(X$(1),1,1)=HEX(00)
   : RETURN
3170 STR(X$(1),1,1)=HEX(F0)
   : BIN(STR(X$(1),2,1))=X4
   : DATA SAVE DC #2,X$()
   : GOSUB 3160