gemini - kennedy.gemi.dev

💾 Archived View for mirrors.apple2.org.za › archive › ground.icaen.uiowa.edu › upl1997 › Jun97 › Pat… captured on 2024-08-19 at 02:41:26.
-=-=-=-=-=-=-
GotoNext Patches


	******************************************************************

There is an incorrect entry in the two default modem Init strings
in the early releases of Spectrum v2.1. These strings are held
in resources and may be modified with any resource editor. If you
have not yet modified these two strings, then run this script to
fix the problem.

You must only work on a copy of Spectrum v2.1. It is suggested that
once you have run the script, you make a backup of your original
Spectrum before you try out the patched version. If all is well
then you can delete the backup.

	******************************************************************



# Patches the two modem Init strings in Spectrum v2.1
# *** ONLY USE THIS SCRIPT ON A COPY OF SPECTRUM ***

If not Equal "$Version" "Spectrum v2.1" then Goto Abort

Ext ResEdit 0; If Failed then Goto Abort
Ext ScriptEditor 0; If Failed then Goto Abort

Get File "Find me a COPY of Spectrum v2.1" 0 Spectrum
If Failed then Stop Script
Set Var Spectrum "$SFPrefix$Spectrum"

Clear Screen; GotoXY 30,10
Display "Working..."
Create ScriptEditor 0

Ext ResEdit 1 "$Spectrum" $8006 $00010062 $EditorHandle0
If Failed then Goto Abort
Ext ScriptEditor 3 0 5 5
Ext ScriptEditor 5 0 "^R" 5
Ext ResEdit 3 "$Spectrum" $8006 $00010062
Ext ResEdit 2 "$Spectrum" $8006 $00010062 $0000 $EditorHandle0
If Failed then Goto Abort

Ext ResEdit 1 "$Spectrum" $8006 $00010061 $EditorHandle0
If Failed then Goto Abort
Ext ScriptEditor 3 0 5 5
Ext ScriptEditor 5 0 "^R" 5
Ext ResEdit 3 "$Spectrum" $8006 $00010061
Ext ResEdit 2 "$Spectrum" $8006 $00010061 $0000 $EditorHandle0
If Failed then Goto Abort

Clear Screen; GotoXY 10,10
Display "Your Init strings are now looking good!"
Stop Script

# Abort

Clear Screen; GotoXY 0,10
Display "Make sure you are using a copy of Spectrum^M"
Display "and also have the ScriptEditor and ResEdit XCMDs^M"
Display "installed..."