image of READY prompt

Wang2200.org

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

# Sector 366, program filename = 'CIOT012'
0010 REM CIOT012+open file,(4/09/81), TC/WPS FORMAT DISK READ
0100 GOTO 9900
   : ON AGOTO 110,130,4000,4080
0110 COM Y,Y1,Y6,Y2,Y9,Y1$(10)8
0130 COM Y0$2,Y$(2)124,Y3,Y4,Y5
4000 AND (STR(A2$(1),1,1),FE)
   : STR(A2$(),4,1)=STR(Y0$,1,1)
   : STR(O$(),1,1)=STR(Y0$,2,1)
   : STR(O$(),2,248)=STR(Y$(),1,248)
4080 DATA LOAD DC #1,Y0$,Y$()
   : IF END THEN 4120
   : RETURN
4120 STOP