I Z(w)Q  Y  _ (r 2 X   < Y P  F X,Y P Z #: Z Z () d Y n X x ,: "Copyright (c) 1988 Matt Bloomfield and Rob Sweet All rights reserved.";v ,: "Send donations to: Matt Bloomfield / 12461 Walsh #4A / Los Angeles CA 90066"; , : "press any key to start program"; Y$: Y$""   DP0 : CP1 : UART? : CH  CP,  A(DP)* CP,CMD0=CMDUARTH  T  ,n "Name of Patch";PC$"NL(PC$): NL  ,-: "Name must be 8 char. or less.": Z  : Z:: , 6 ,@ "SEND PATCH"J !T A STATUS(A ):: hZ^ STATUS CH(A ):X(STATUS):: |hh X |sr J | A  J  PC$ OUTPUT AS #I$()()()()()()()()()()(NL) #,I$;PC$;"z";();( );$ X w4Z(X)(DP)G #,(Z(X));O X` #,( )h  CP,:PURGE(DP) , "SEND ANOTHER PATCH";SP$ SP$"Y" SP$"y"  :  X NLNM$(X)(PC$,X,) &NM(X)(NM$(X))+0 NM(X)a NM(X)NM(X) @:NM$(X)(NM(X))HD XSNLC$""bX X NLubLC$LC$NM$(X)}l Xv LC$"" : PC$LC$ Y O  ,Y (); ,Y (); Y