( *******************************O *** GEOTERM MODEM PATCH ***v *** BY BILL COLEMAN *** *******************************: Z(256):"GEOTERM DEFAULT MODEM PATCHER": "DRIVE (8-11)";DR: DR8 DR11 6BTR18:SE1: "IS IT A 1581 (Y/N)";A$: (A$,1)"Y" TR40:SE3C61: "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: 100TRZ(3):SEZ(4):N21: 100: INDEX SECTORTRZ(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)86A Z(198)133 Z(198)83J 28P: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$ d15,"U1"2;0;TR;SEM 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: