(    ******************************* O   ***   GEOTERM MODEM PATCH   *** v   ***     BY BILL COLEMAN     ***    *******************************  :   Z(256):"GEOTERM DEFAULT MODEM PATCHER":   "DRIVE (8-11)";DR: DR8  DR11  6 B TR18:SE1: "IS IT A 1581 (Y/N)";A$: (A$,1)"Y"  TR40:SE3  C61: "PATCHING THE 128 VERSION (Y/N)";A$: (A$,1)"Y"  C60 	 MO0: "HAYES OR GENERIC 300 (H/G)";A$: (A$,1)"G"  MO1 
 :"INSERT DISK CONTAINING GEOERM IN THE FIRST" # "POSITION.  THEN PRESS ANY KEY..." 9  A$: A$""  12 _  15,DR,15: 2,DR,2,"#":N4: 100  TRZ(3):SEZ(4):N21: 100: INDEX SECTOR  TRZ(20):SEZ(21):N255: 100: MODULE 9   C6  24   MO   Z(192)0  Z(192)255   Z(196)169  Z(196)76 $  Z(197)90  Z(197)86 A  Z(198)133  Z(198)83 J  28 P : d  ** 64 VERSION   MO   Z(183)0  Z(183)255   Z(187)169  Z(187)76   Z(188)67  Z(188)205   Z(189)133  Z(189)60   200: 2: 15:  :    ** READ SECTOR $ d 15,"U1"2;0;TR;SE M e  X0  N:#2,A$:Z(X)(A$(0)):: S f : i g  ** WRITE SECTOR {  15,"B-P:"2;0    X0  255:2,(Z(X));:   15,"U2"2;0;TR;SE:   
