dy CONVERSIONS P+TERMINAL #L$_'XINOUT .]0>E7DISK 4p:W REALINOUT CC?s{STORAGE D#DSwJ CONVERSIONSBUFFERINTSTR&STRINT1REALSTR=STRREALIIOSUSTR]R1P-P2IP]]ԯ7]7^ؙ ^ ^x M|I}O}U&TM|KO|ZU}FI1 M|]}dO}iU=TM|}O|U}x]CONVERSIONS mIPPP_\5= 5PiiS`  05PgWP_\5WP_\5ihiiS`O  05P-WPdI_\5iiS` X 05P %W_\WPPPPPThs~.9DMUCONVERSIONS TERMINAL CONSOLETAB!READ*BUSYREAD7 READAGAINEWRITEOWRITELN[ WRITESTRINGkPRINTERwCHAR256COLUMNCHSX-2I]]ԯ7]7^ؙ ^ ^x w    k!M}*M}_27MEM|iOM[M|M|TERMINAL ASk IP?P_\R905hPmi50505WPq_\ 50iRi50505Ph5WP_\Rj505R?505iWPQ_\ ;iV ;iViWPz_\i =$5 0=$R 0;iViPR hV=Error: non-terminated string$;VhVWP_\R/= ;iVPWP3_\iW_\hhi= 5iWP?PPnP0PPNPwP 7oOx -1lorux{~TERMINAL %0_@E^kp(8DKRYdINOUT BUFFEREOLDONE&TERMCH1 OPENINPUT? OPENOUTPUTN CLOSEINPUT] CLOSEOUTPUTmREADv READSTRINGREADINTWRITEWRITELN WRITESTRINGWRITEINTĀWRITEHEXрDEFTEXT݀CHSXN  &<PPZhZPUIP]]7]7^o ^ ^x  1PM|р?PM|sрNM2]MmM}݀vM}M}}M|݀ M PM| M||Ā M||DISK STATUS_CONDITIONS FILE_VARIABLE1OPEN:CLOSEDDISKREADQ DISKWRITE_ DISPLAY_FILEpPARSE_FILENAMESTATUS_MESSAGECHAR16 CHAR30000FILE_OK NAME_ERRORʀ NOT_FOUND؀ NO_DISK_SPACENO_DIRECTORY_SPACEPARAMETER_ERROR OPEN_FLAG#FILE_POS0 ASCII_EOF_POSBABSOLUTE_EOF_POSW BUFFER_POSfBUFFERq BUFFER_SIZE RECORD_SIZEBUFFER_EQUALS_DISK ASCII_EOF ABSOLUTE_EOFǁSTATUSҁFCB_DISK߁FCB_NAMEFCB_TYPE FCB_EXTENTFCB_S1FCB_S2FCB_RECORD_COUNT3 FCB_BLOCKSBFCB_CURRENT_RECORDYFCB_RANDOM_RECORDoFCB_XyFV NAME_TYPEBUFSIZEDELETECREATEPOSCOUNT‚BUFʂX-2I]]ԯ7]7^ؙ ^ ^x 7/uAiYP_0uFI/u]]ԯ7]7^ؙ ^ ^x  Pʀ؀ 0uRjPˊjIW_W_ԯ7c_7k_ؙu_u_x ?P}IW_W_ԯ7c_7k_ؙu_u_x T#0 BWf"q$&(*,ǁ.ҁ0߁19<=> ?3@BPYQoS1M}y||||:M}2yDM}Py||}‚QM}Zy|_|d}i‚_TM|syxpM|Zʂ}yM}y REALINOUTREADREAL WRITEREAL)DONE2X8N )M}2 M|-2|8STORAGE ALLOCATE DEALLOCATE(A.S M}(|.M}(|#.INOUT R6IPIII/uIIIPPPa_\\ZhhhV =OpenInput, enter filename : $;PPV jVhV ViV 0= RVViPVi 0=.R-XiiS`-V X 05VViP 0P;hhV 0T;TTV .hRsiP=OpenInput failed: $;V_ jV;VhV ZWP_\\ZhhhV =OpenOutput, enter filename : $;PPV jVhV ViV 0= REVViP$Vi 0=.RXiiS`V X 05VViPf^0P;iiV^0T;TTV^.hRiP=OpenOutput failed: $;V_^jV;VhV ZWP'_\ jVhWPA_\^ ^$%^  R~;iVP]^jVhWP_\R $AiVPjVWP_ \= 5PjV0= RjVPi 05jjV0= R> 05i0= R05WPg_X\jVi O0= RiPyi0P;PTVWP_\R^$AiVP0;iVWP_\ ;iV ;iVWP_\R~P =$5i 0=$R[iP:^$AiVP0P;VWP_\\XVZXViZiS`= ;iVPViXiS`V O0;iVPWP I_\ j5iiS`G= ;iVP5  0;iV  0;iV i 0;iV j 0;iVW_\hhWPP^PP$P>PPPdPPPPP\_+gq,6COYgq{%?l|(3Se$-BLY|6ENcvINOUT TERMINAL DISK CONVERSIONS ipw.DIW\j ,27IR^wVp\w@XmDISK . ,p II/uIIIPP PG_\gE$@% $@%$@%$s%R"$&i(i*h,h.h0;V<h5=h5>h5?h5iiS`h@ h5POPh5QhSh50R 5    5    0RYRJ 5    0R>h.PG.hPYh.jWP]_$\(R8 $@R"hP" $CQ" "i$iS`85 "50  QQiP $@RY$@%Pk $C% –$C% % $@R"hP" $C "Q"i$iS`N5 !50  QQiP(iWP[_\(R$@ X]500R.jP.hWP_*\ $AR %.hh$R .W $@ $HwrRL.W % % i% % $i%    R  X]&  (hiiS`( "& 05&&iP  R,*i  RI,iWPM_*\ $ARo %.hh$R.W $@ $HwrR.W % % i% % $i%    R>  X]&  (hiiS`"& ( 05&&iP^  R*i  R,i(hWP_\hV =------ DISPLAY_FILE ------$;PPV hV = open flag =$;PPV hV hV = file_pos =$;PPV  h VhV = status = $;PPV _jV;PPV hV =record size =$;PPV &hV hV =buffer size =$;PPV $hV hV = bufferpos =$;PPV  h VhV = filename = $;PPV 00@;iV=:;iViiS` 1 0;iVPw =.;iViiS` 9 (0;iVP hV =--------------------------$;PPV hV hV WP _ \051= 59= 5j 0=:Rj 0i 0@5P{ 0h5i 0DR iP{  i1   05i  i 0D R  0DRG iP  i9  ( 05i  i 0D RL WP _\.hR =file_ok$5WP iR = name_error$5WP jR = not_found$5WP R/ =no_disk_space$5WP RP = no_dir_space$5WP Rt =parameter_error$5WP =UNKNOWN STATUS$5WP W_\WP PDPXPPJPP P BEP^f(<H[k6GWLYi}> !>Ka-<_nyx  : D R h  8 E X b  - 5 N V r DISK INOUT REALINOUT  "/5M]cz % + D \ h  REALINOUT qIPIPPP _X\jVi 0= RSiP2i0P;PTVWPr_\\ X VZXViZiS`= ;iVPViXiS`V 0;iVPW_\iWPPPo:DQpREALINOUT INOUT CONVERSIONS )jSTORAGE PP_\WP_\W_\WPPP  STORAGE