c $900F INITGO
; @label:$900F=INITGO
C $900F copy value of CURSP into the address pointed to by HL
C $9013 load A with value of STRENG
C $9016 load HL with position of cursor
C $9019 copy byte in A (STRENG) into address pointed to by HL
C $901A offset HL by $0281 and set byte pointed to by HL to 0
C $9020 load HL with position of cursor
C $9023 add an offset of $01E1 (481) to HL
C $9027 read value of STRENG into A
C $902A subtract $29 (41) from A
C $902C copy value of A into address pointed at by HL
C $902D call routine at $C0DD
C $9030 STOP RIGHT THERE, SUCKER!