image of READY prompt

Wang2200.org

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

# Sector 370, program filename = 'CIOT042'
0010 REM CIOT042, 4/09/81, TC/WPS DISK SAVE, COPYRIGHT WANG LABS,1981
0100 GOTO 9900
   : ON AGOTO 120,140,3000,3160,3220
0120 COM X,X0,X1,X2,X$8
0140 COM X0$2,X$(2)124,X3,X4
3000 STR(X0$,1,1)=STR(A1$(),10,1)
   : MAT COPY I$()<1,1>TO X0$<2,1>
   : MAT COPY I$()<2,248>TO X$()<1,248>
   : AND (A1$(1),01)
   : ON VAL(A1$(1))GOTO 3170
   : IF A1$(5)=HEX(0000)THEN RETURN
   : DATA SAVE DC #2,X0$,X$()
   : RETURN
3160 RETURN
3170 DATA SAVE DC #2,X0$,X$()
3220 STOP " Overlaid from CIOPnnnn"