start:

  ask "Enter junk start code:"

  cmp $RESULT,e803

  je lble803

  cmp $RESULT,31f0

  je lbl31f0

  cmp $RESULT, b904 

  JE lblb904

  cmp $RESULT,E816

  je lble816

  cmp $RESULT,e810

  je lble810

  cmp $RESULT,e805

  je lble805

  cmp $RESULT,e808

  je lble808

  cmp $RESULT,e807

  je lble807

  cmp $RESULT,87ED

  je lbl87ed

  ret

  

lble803:

  find eip,#E803000000C7840058EB01E983C00750C3#

  cmp $RESULT,0

  je lblend

  fill $RESULT,13,90

  jmp lblend

  

lbl31f0:

  find eip,#EB010F31F0EB0C33C8EB03EB090F59740575F851EBF1#

  cmp $RESULT,0

  je lblend

  fill $RESULT,16,90

  jmp lblend

  

lblb904:

  find eip,#B904000000E81F000000EBFAE816000000E9EBF8000058EB090F25E8F2FFFFFF0FB94975F1EB05EBF9EBF0D6#

  cmp $RESULT,0

  je lblend

  fill $RESULT,2c,90

  jmp lblend

  

lble816:

  find eip,#E8160000008B5C240C8BA3C4000000648F050000000083C404EB1464FF35000000006489250000000033C999F7F1#

  cmp $RESULT,0

  je lblend

  fill $RESULT,2F,90

  ret



lble810:

  find eip,#E8100000008B642408648F050000000058EB13C78364FF350000000064892500000000ADCD20#

  cmp $RESULT,0

  je lblend

  fill $RESULT,26,90

  ret

lble805:

  find eip,#E8050000000F01EB05E8EBFB000083C404#

  cmp $RESULT,0

  je lblend

  fill $RESULT,11,90

  ret

lble808:

  find eip,#E8080000000F0183C00F50C3FF5883C002FFE0#

  cmp $RESULT,0

  je lblend

  fill $RESULT,16,90

  ret

  

lble807:

  find eip,#E807000000C78383C013EB0B58EB02CD2083C002EB01E950C3#

  cmp $RESULT,0

  je lblend

  fill $RESULT,1a,90

  ret

  

lbl87ed:

  find eip,#87ED770487DB740070089071057700EBEF86EB078BDB7006907103EBF7#

  cmp $RESULT,0

  je lblend

  fill $RESULT,1e,90

  ret  

  

lblend:

  ret