ASCII @ G ASCII  %CSAP*@F %:ASCII - A PROGARM THAT WILL FIND A STRING IN AN ASCII FILEIt|MMDDYY'I@/_@_/_@_A%BDATE: @ NTD(NUM(STR(INT(CDN))),"MMDDYY")%%"X@IDTI!X$A   II 0% ENTER THE NAME OF THE ASCII FILE)XT6#(! P2%CS%ENTER THE STRING YOU YOU WANT TO FIND^%H('CR'=CARRIAGE RETURN, 'CRLF'=CARRIAGE RETURN LINE FEED, NULL OR SPACE))2XT6#(:X'CR'T@CRT@'cr'T@crTI :X'LF'T@LFT@'lf'T@lfTI CX'CRLF'T@$CRLFT@'crlf'T@ crlfTI >X'NUL'T@!NULT@'nul'T@ nulTI@ȎX T@'SPACET@spaceT@ 'SPACE'TI 6K mI^%CS( SEARCHING$@-----------PRINT A$; INPUT *XIT}XT6bXUO%CS STRING: , HEX EQUIV: r WAS FOUND AT POS: 6 ! w^K L%IN THIS RECORD V% 8`%/THIS IS THE HEXADECIMAL EQUIVALENT OF THE ABOVE j% rOk%CLWOULD YOU TO KEEP GOING )XYT7'6mBl@:LET PS=POS(S$=A$(PS+LEN(S$),100-(PS+LEN(S$)))); GOTO 00750m7ǜn? o78Gt%CL)WOULD YOU SEARCH ANOTHER FILE AND STRING?) vXT6#(!w@IF CTL<>4 THEN GOTO 01140X YT@ YEST6 X NOT@ NT6#(9X YV@ YESV@ NV@ NOV%CS6t#(X@IDTID"#X@CUTSA0TCUTSA0(#X@IDV@@CUTSA0V4'@)hIw^]@)IT})I^*0XUI ^;1*b%$COULD NOT FIND ANOTHER OCCURENCE OF *<5P%CS'' IS UNABLE TO BE OPENED.7ô%CLWOULD YOU SEARCH ANOTHER FILE ?) XT6#(!J@IF CTL<>4 THEN GOTO 50100|X YT@ YEST6 X NOT@ NT6#(2X YV@ YESV@ NV@ NOV6ô/8%CS'' WAS NOT FOUND IN Aǜ%CL WOULD YOU SEARCH ANOTHER STRING?) XT6#(!2@IF CTL<>4 THEN GOTO 511000dX YT@ YESTI GOTO 001506,/ȎX NOT@ NTI GOTO 011406,9X YV@ YESV@ NV@ NOV%CS6ǜ,<4FILE$S$X$CHA$PSS1$NB$Q$WW8$CH1COUNTQQ$AA$PS1Z8$DATE$