0 ONERRORGOTO65501:IFU$<>""THENUA%=1:GOTO65000
65000 IFUA%=0THENEND
65002 IFUB%>0THEN65005'BYPASS DATA POINTER SAVE
65004 UD!=256*PEEK(64441)+PEEK(64440)'SAVE DATA POINTER OF USER
65005 GOSUB65008'PARSE
65006 UU$(UB%)=U$:UU%(UB%)=U%'USER PARAMETER KEPT IN UU%(0) FOREVER
65007 UB%=UB%+1:IFUB%>10THENERROR255:ENDELSE65032'INDEX COMMANDS & INTEGERS:ERROR IF UTILITIES NESTED TOO DEEP
65008 UJ%=LEN(U$):UI%=1:UM%=0:UN%=0
65010 IFUI%>UJ%THEN65030
65012 UK%=INSTR(UI%,U$,CHR$(34)):IFUK%=0THENUK%=UJ%+1
65014 IFUM%THENGOSUB65026:GOTO65016ELSE65018
65016 IFUK%>UJ%THEN65030ELSEUM%=0:GOTO65024
65018 UL%=INSTR(UI%,U$," "):IFUL%=0THENUL%=UJ%+1
65020 IFUL%<UK%THEN65028
65022 UM%=1:IFUK%<>UI%THENGOSUB65026
65024 UI%=UK%+1:GOTO65010
65026 U$(UN%+1)=MID$(U$,UI%,UK%-UI%):UN%=UN%+1:RETURN
65028 IFUL%<>UI%THENU$(UN%+1)=MID$(U$,UI%,UL%-UI%):UN%=UN%+1:UI%=UL%+1:GOTO65010ELSEUI%=UI%+1:GOTO65010
65030 U$(0)=STR$(UN%):IFUN%<10THENFORUN%=UN%+1TO10:U$(UN%)="":NEXT
65031 RETURN
65032 RESTORE65100
65100 DATAULIST:READUI$:IFUI$=U$(1)THEN65200
65199 DATA:BEEP:ERROR254:GOTO65499
65200 RESTORE65032:FORUI%=0TO32767:READUI$:IFUI$<>""THENPRINTUI%,UI$:NEXT:ELSEFORUI%=1TO1STEP-1:NEXT:GOTO65499
65499 UB%=UB%-1:U%=UU%(UB%+1):IFUB%>0THENU$=UU$(UB%):GOSUB65008:ELSEUA%=0:POKE64441,UD!/256:POKE64440,UD!-256*PEEK(64441)'UNSAVE DATA POINTER OF USER
65500 RETURN'TO USER OR PRIOR UTILITY
65501 RESTORE65504:FORUI%=1TOERR:READUI$:NEXT:UI%=UI%-1:IFUI$=""THENUI$="Undefined Error"
65502 IFUI%>100THENUI$=U$(1)+" "+UI$
65503 PRINTUI$" in line"ERL:RESUMENEXT
65504 DATA "NEXT without FOR","Syntax Error","RETURN without GOSUB","Out of Data","Illegal function call","Overflow","Out of Memory","Undefined line","Bad Subscript","Doubly Dimensioned Array"
65505 DATA "Division by Zero","Illegal Direct","Type Mismatch","Out of String Space","String Too Long","String Formula Too Complex","Can't Continue","I/O Error","No RESUME","RESUME Without Error"
65506 DATA ,"Missing Operand",,,,,,,,
65507 DATA ,,,,,,,,,
65508 DATA ,,,,,,,,,"Internal Error"
65509 DATA "Bad File Number","File Not Found","Already Open","Input Past End of File","Bad file name","Direct Statement in File","Too many files","File Not Open",
65510 DATA ,,,,,,,,,
65511 DATA ,,,,,,,,,
65512 DATA ,,,,,,,,,
65513 DATA ,,,,,,,,,
65514 DATA ,,,,,,,,,
65515 DATA ,,,,,,,,,
65516 DATA ,,,,,,,,,
65517 DATA ,,,,,,,,,
65518 DATA ,,,,,,,,,
65519 DATA ,,,,,,,,,
65520 DATA ,,,,,,,,,
65521 DATA ,,,,,,,,,
65522 DATA ,,,,,,,,,
65523 DATA ,,,,,,,,,
65524 DATA ,,,,,,,,,
65525 DATA ,,,,,,,,,
65526 DATA ,,,,,,,,,
65527 DATA ,,,,,,,,,
65528 DATA ,,,,,,,,,
65529 DATA ,,,,"NOT MERGED","UTILITIES NESTED TOO DEEP"